update to CVS HEAD (almost certainly jupp 28 release)
authorThorsten Glaser <tg@debian.org>
Thu, 23 Oct 2014 16:39:23 +0000 (18:39 +0200)
committerThorsten Glaser <tg@debian.org>
Thu, 23 Oct 2014 16:39:23 +0000 (18:39 +0200)
22 files changed:
ChangeLog
NEWS
TODO
b.c
b.h
builtins.c
configure
configure.ac
i18n.h
jmacsrc.in
joerc.in
jpicorc.in
jstarrc.in
jupprc
rjoerc.in
scrn.c
tty.c
types.h
ufile.c
vs.c
vs.h
w.c

index ce13d9f..bcdc758 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,7 @@ Wed Nov 10 2004  Thorsten Glaser <tg@mirbsd.org>
        Use anonCVS or CVSweb by the MirOS Project to retrieve changes
        for MirJupp. I don't closely follow GNU coding standards.
 
-       cf. http://cvs.mirbsd.de/src/share/doc/legal/LICENCE-GNU?rev=HEAD
+       cf. http://cvs.mirbsd.de/src/share/doc/legal/LICENCE-GNU
 
        Direct source: https://www.mirbsd.org/cvs.cgi/contrib/code/jupp/
        Direct cvslog: http://news.gmane.org/gmane.os.miros.cvs
@@ -1453,4 +1453,4 @@ Wed Jul 02 2001  Marek 'Marx' Grac <xgrac@fi.muni.cz>
        able to find patch :(
 
 ______________________________________________________________________
-$MirOS: contrib/code/jupp/ChangeLog,v 1.7 2012/06/08 20:31:38 tg Exp $
+$MirOS: contrib/code/jupp/ChangeLog,v 1.8 2014/10/23 16:27:25 tg Exp $
diff --git a/NEWS b/NEWS
index f5ae9b1..32d9402 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,10 +1,22 @@
-$MirOS: contrib/code/jupp/NEWS,v 1.90 2014/06/29 11:39:50 tg Exp $
+$MirOS: contrib/code/jupp/NEWS,v 1.91 2014/10/23 16:27:25 tg Exp $
 ------------------------------------------------------------------
 
 JUPP-current
 
 - …
 
+JOE 3.1jupp28
+
+- Document to not quote the argument to -backpath nor append a comment
+- Remove unused code, redundant checks
+- Replace illegible code with better and more standards-conforming one
+- Access fix for the serial line speed array
+- Introduce ^KF (jupprc): compile and download NXC program to NXT brick, for
+  Freedroidz, a project of Teckids e.V. sponsored by tarent solutions GmbH
+- Better const-cleanliness of code
+- Quell New File message for scratch buffers
+- Fix URI in ChangeLog file
+
 JOE 3.1jupp27
 
 - Update complete internationalisation code and data to Unicode 7.0.0
diff --git a/TODO b/TODO
index 9bf3c53..9b97b90 100644 (file)
--- a/TODO
+++ b/TODO
@@ -663,7 +663,8 @@ Other requests:
   updating the status line, …(?) ⇐ implemented using a “paste”
   labeled ftype that is switched to using the UI (command)
 • ^Q] should work for “'” and “"” too
+• switch from autoconf to mirtoconf2
 • …
 
 __________________________________________________________________
-$MirOS: contrib/code/jupp/TODO,v 1.19 2013/02/19 19:32:20 tg Exp $
+$MirOS: contrib/code/jupp/TODO,v 1.20 2014/10/23 16:27:25 tg Exp $
diff --git a/b.c b/b.c
index e30c6d8..f71e4b5 100644 (file)
--- a/b.c
+++ b/b.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/b.c,v 1.11 2012/12/22 00:06:09 tg Exp $ */
+/* $MirOS: contrib/code/jupp/b.c,v 1.12 2014/10/23 16:10:27 tg Exp $ */
 /*
  *     Editor engine
  *     Copyright
@@ -58,7 +58,7 @@ int error;
 int force = 0;
 VFILE *vmem;
 
-unsigned char *msgs[] = {
+const unsigned char *msgs[] = {
        US "No error",
        US "New File",
        US "Error reading file",
diff --git a/b.h b/b.h
index 2d806df..93e9b5a 100644 (file)
--- a/b.h
+++ b/b.h
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/b.h,v 1.3 2010/04/08 15:31:00 tg Exp $ */
+/* $MirOS: contrib/code/jupp/b.h,v 1.4 2014/10/23 16:10:28 tg Exp $ */
 /*
  *     Editor engine
  *     Copyright
@@ -20,7 +20,7 @@ extern int tabwidth;          /* Default tab width */
 
 extern VFILE *vmem;            /* Virtual memory file used for buffer system */
 
-extern unsigned char *msgs[];
+extern const unsigned char *msgs[];
 
 B *bmk PARAMS((B *prop));
 void brm PARAMS((B *b));
index d28262f..2ffec01 100644 (file)
@@ -108,6 +108,7 @@ const unsigned char * const builtins[] = {
                "\\i \\i^QP previous place    \\u\\bGOTO AFTER COMPILING\\b\\u         ^KA center   \\u\\bINSERT MATH\\b\\u  \\i \\i\n"
                "\\i \\i^K= next place        ^[N previous error    \\u\\bSPECIAL\\b\\u             ^[# equation \\i \\i\n"
                "\\i \\i^Q[ matching brace    ^[M next error        ^[- exec. juppcmd   ^[= result   \\i \\i\n"
+               "\\i \\i \\b\\uFreedroidz\\u:\\b ^KF save current *.nxc file, compile, transfer to the NXT brick \\i \\i\n"
                "}\n"
                "\n"
                "{Search\n"
@@ -141,7 +142,7 @@ const unsigned char * const builtins[] = {
                "\\i \\i go to \\uhttp://sf.net/projects/joe-editor/\\u for upstream bug reports. JUPP 2.8 \\i \\i\n"
                "\\i \\i for DOS compiled by A. Totlis, packed with LHarc 2.13; JUPP 3.x for UNIX\\d(R)\\d \\i \\i\n"
                "\\i \\i at \\uhttp://mirbsd.de/jupp\\u and by \\bThorsten \"\\dmirabilos\\d\" Glaser <\\utg@mirbsd.org\\u>\\b \\i \\i\n"
-               "\\i \\i @(#) blt_in 2014-06-29; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \\i \\i\n"
+               "\\i \\i @(#) blt_in 2014-10-23; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \\i \\i\n"
                "}\n"
                "\n"
                "{CharTable\n"
@@ -226,6 +227,9 @@ const unsigned char * const builtins[] = {
                ":main\n"
                ":inherit windows\n"
                "bof,qrepl,\"\\\\[\",quote,\"i\",quote,\"k\",quote,\"l\",quote,\"m ]\\\\+\\\\[\",quote,\"i\",quote,\"k\",quote,\"l\",quote,\"m ]\\\\$\",rtn,rtn,rtn,\"r\",eof   ^K ]\n"
+               "splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"fn='\",eol,rtn,\"case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"nbc -d \\\"$fn\\\"; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn   ^K F\n"
+               "splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"fn='\",eol,rtn,\"case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"nbc -d \\\"$fn\\\"; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn   ^K f\n"
+               "splitw,prevw,scratch,\"nbc-Output\",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,\"'\",bol,qrepl,\"'\",rtn,rtn,\"'\\\\\\\\''\",rtn,\"r\",backs,backs,backs,bol,\"fn='\",eol,rtn,\"case $fn in\",rtn,\"*.nxc) ;;\",rtn,\"*) echo '==> Error: filename not *.nxc'; exit ;;\",rtn,\"esac\",rtn,\"nbc -d \\\"$fn\\\"; x=$?\",rtn,\"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi\",rtn,nmark,filt,\"sh\",rtn,rtn,\"Press ^KQ to close this window!\",rtn   ^K ^F\n"
                "edit,rtn,filt,query,parserr    ^[ C\n"
                "edit,rtn,filt,query,parserr    ^[ c\n"
                "helpcard,\"Paste\",rtn,keymap,\"Paste\",rtn    ^[ P\n"
@@ -530,5 +534,5 @@ const unsigned char * const builtins[] = {
                ":querysr\n"
                "type           ^@ TO \xFF\n"
 ,      NULL
-,      "@(#) $MirOS: contrib/code/jupp/builtins.c,v 1.19 2014/06/29 11:27:26 tg Exp $"
+,      "@(#) $MirOS: contrib/code/jupp/builtins.c,v 1.20 2014/10/23 16:34:18 tg Exp $"
 };
index 0809526..3b92633 100644 (file)
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.61-MirPorts-1 for joe 3.1jupp27.
+# Generated by GNU Autoconf 2.61-MirPorts-1 for joe 3.1jupp28.
 #
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
 # 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
@@ -572,8 +572,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
 # Identity of this package.
 PACKAGE_NAME='joe'
 PACKAGE_TARNAME='joe'
-PACKAGE_VERSION='3.1jupp27'
-PACKAGE_STRING='joe 3.1jupp27'
+PACKAGE_VERSION='3.1jupp28'
+PACKAGE_STRING='joe 3.1jupp28'
 PACKAGE_BUGREPORT=''
 
 ac_unique_file="b.c"
@@ -1223,7 +1223,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures joe 3.1jupp27 to adapt to many kinds of systems.
+\`configure' configures joe 3.1jupp28 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1294,7 +1294,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of joe 3.1jupp27:";;
+     short | recursive ) echo "Configuration of joe 3.1jupp28:";;
    esac
   cat <<\_ACEOF
 
@@ -1385,7 +1385,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-joe configure 3.1jupp27
+joe configure 3.1jupp28
 generated by GNU Autoconf 2.61-MirPorts-1
 
 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1399,7 +1399,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by joe $as_me 3.1jupp27, which was
+It was created by joe $as_me 3.1jupp28, which was
 generated by GNU Autoconf 2.61-MirPorts-1.  Invocation command line was
 
   $ $0 $@
@@ -2200,7 +2200,7 @@ fi
 
 # Define the identity of the package.
  PACKAGE='joe'
- VERSION='3.1jupp27'
+ VERSION='3.1jupp28'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -10908,7 +10908,7 @@ exec 6>&1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by joe $as_me 3.1jupp27, which was
+This file was extended by joe $as_me 3.1jupp28, which was
 generated by GNU Autoconf 2.61-MirPorts-1.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -10961,7 +10961,7 @@ Report bugs to <bug-autoconf@gnu.org>."
 _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF
 ac_cs_version="\\
-joe config.status 3.1jupp27
+joe config.status 3.1jupp28
 configured by $0, generated by GNU Autoconf 2.61-MirPorts-1,
   with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
 
index 70f5395..68a39ec 100644 (file)
@@ -1,4 +1,4 @@
-# $MirOS: contrib/code/jupp/configure.ac,v 1.45 2014/06/29 11:39:51 tg Exp $
+# $MirOS: contrib/code/jupp/configure.ac,v 1.46 2014/10/23 16:27:26 tg Exp $
 #-
 # Process this file with autoconf to produce a configure script.
 
@@ -6,7 +6,7 @@
 AC_PREREQ(2.54)
 
 #### Here's the only place where to change version number ####
-AC_INIT(joe, 3.1jupp27)
+AC_INIT(joe, 3.1jupp28)
 #### But see main.c for the Copyright (c) owner and year! ####
 AC_CONFIG_SRCDIR([b.c])
 
diff --git a/i18n.h b/i18n.h
index ed2c624..20f2eb9 100644 (file)
--- a/i18n.h
+++ b/i18n.h
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/i18n.h,v 1.5 2014/06/26 17:42:54 tg Exp $ */
+/* $MirOS: contrib/code/jupp/i18n.h,v 1.6 2014/07/25 21:41:49 tg Exp $ */
 
 #ifndef _Ii18n
 #define _Ii18n 1
@@ -6,9 +6,6 @@
 #include "config.h"
 #include "types.h"
 
-/* from mksh */
-#define NELEM(a)       (sizeof(a) / sizeof((a)[0]))
-
 int joe_iswupper PARAMS((struct charmap *,int c));
 int joe_iswlower PARAMS((struct charmap *,int c));
 
index 2f3fdc4..a9060f9 100644 (file)
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/jmacsrc.in,v 1.19 2014/06/29 10:58:44 tg Exp $
+ $MirOS: contrib/code/jupp/jmacsrc.in,v 1.20 2014/07/13 12:58:51 tg Exp $
 
                          Initialization file for JOE
                                 GNU-Emacs Joe
@@ -35,6 +35,7 @@
 -pg 1          No. lines to keep for PgUp/PgDn
 -csmode                ^KF after a pervious search does a ^L instead
  -backpath path Directory to store backup files
+               (do not use quotes, and remove the comment after path)
  -nonotice     Disable copyright notice
 -noxon         Attempt to turn off ^S/^Q processing
 -orphan                Put extra files given on command line in orphaned buffers
index 82a23cf..2ad1264 100644 (file)
--- a/joerc.in
+++ b/joerc.in
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/joerc.in,v 1.20 2014/06/29 10:58:44 tg Exp $
+ $MirOS: contrib/code/jupp/joerc.in,v 1.21 2014/07/13 12:58:51 tg Exp $
 
                          Initialization file for JOE
                                 Standard Joe
@@ -48,6 +48,7 @@
  -csmode       ^KF after a pervious search does a ^L instead
 
  -backpath path Directory to store backup files
+               (do not use quotes, and remove the comment after path)
 
  -nonotice     Disable copyright notice
 
index a04bb2c..e996739 100644 (file)
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/jpicorc.in,v 1.19 2014/06/29 10:58:45 tg Exp $
+ $MirOS: contrib/code/jupp/jpicorc.in,v 1.20 2014/07/13 12:58:51 tg Exp $
 
                          Initialization file for JOE
                                  Super Pico
@@ -46,6 +46,7 @@
  -csmode       ^KF after a pervious search does a ^L instead
 
  -backpath path Directory to store backup files
+               (do not use quotes, and remove the comment after path)
 
  -nonotice     Disable copyright notice
 
index e88f29c..197c032 100644 (file)
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/jstarrc.in,v 1.19 2014/06/29 10:58:45 tg Exp $
+ $MirOS: contrib/code/jupp/jstarrc.in,v 1.20 2014/07/13 12:58:52 tg Exp $
 
                          Initialization file for JOE
                            WordStar / Turbo-C Joe
@@ -34,6 +34,7 @@
  -pg nnn       No. lines to keep for PgUp/PgDn
  -csmode       ^KF after a pervious search does a ^L instead
  -backpath path Directory to store backup files
+               (do not use quotes, and remove the comment after path)
  -nonotice     Disable copyright notice
 -noxon         Attempt to turn off ^S/^Q processing
  -orphan       Put extra files given on command line in orphaned buffers
diff --git a/jupprc b/jupprc
index b9c7be4..882963e 100644 (file)
--- a/jupprc
+++ b/jupprc
 \i \i^QP previous place    \u\bGOTO AFTER COMPILING\b\u         ^KA center   \u\bINSERT MATH\b\u  \i \i
 \i \i^K= next place        ^[N previous error    \u\bSPECIAL\b\u             ^[# equation \i \i
 \i \i^Q[ matching brace    ^[M next error        ^[- exec. juppcmd   ^[= result   \i \i
+\i \i \b\uFreedroidz\u:\b ^KF save current *.nxc file, compile, transfer to the NXT brick \i \i
 }
 
 {Search
 \i \i go to \uhttp://sf.net/projects/joe-editor/\u for upstream bug reports. JUPP 2.8 \i \i
 \i \i for DOS compiled by A. Totlis, packed with LHarc 2.13; JUPP 3.x for UNIX\d(R)\d \i \i
 \i \i at \uhttp://mirbsd.de/jupp\u and by \bThorsten "\dmirabilos\d" Glaser <\utg@mirbsd.org\u>\b \i \i
-\i \i @(#) jupprc 2014-06-29; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \i \i
+\i \i @(#) jupprc 2014-10-23; 3.1; autoCR-LF; UTF-8 via locale; per-file encoding \i \i
 }
 
  #HOOK#3103 additional help screens
@@ -578,6 +579,9 @@ keymap,"prompt",rtn                 ^D
 :inherit windows
  #HOOK#3105 main keybindings
 bof,qrepl,"\\[",quote,"i",quote,"k",quote,"l",quote,"m ]\\+\\[",quote,"i",quote,"k",quote,"l",quote,"m ]\\$",rtn,rtn,rtn,"r",eof       ^K ]
+splitw,prevw,scratch,"nbc-Output",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,"'",bol,qrepl,"'",rtn,rtn,"'\\\\''",rtn,"r",backs,backs,backs,bol,"fn='",eol,rtn,"case $fn in",rtn,"*.nxc) ;;",rtn,"*) echo '==> Error: filename not *.nxc'; exit ;;",rtn,"esac",rtn,"nbc -d \"$fn\"; x=$?",rtn,"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi",rtn,nmark,filt,"sh",rtn,rtn,"Press ^KQ to close this window!",rtn       ^K F
+splitw,prevw,scratch,"nbc-Output",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,"'",bol,qrepl,"'",rtn,rtn,"'\\\\''",rtn,"r",backs,backs,backs,bol,"fn='",eol,rtn,"case $fn in",rtn,"*.nxc) ;;",rtn,"*) echo '==> Error: filename not *.nxc'; exit ;;",rtn,"esac",rtn,"nbc -d \"$fn\"; x=$?",rtn,"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi",rtn,nmark,filt,"sh",rtn,rtn,"Press ^KQ to close this window!",rtn       ^K f
+splitw,prevw,scratch,"nbc-Output",rtn,nextw,save,markk,bol,markb,prevw,prevw,blkcpy,nextw,nextw,rtn,prevw,eol,"'",bol,qrepl,"'",rtn,rtn,"'\\\\''",rtn,"r",backs,backs,backs,bol,"fn='",eol,rtn,"case $fn in",rtn,"*.nxc) ;;",rtn,"*) echo '==> Error: filename not *.nxc'; exit ;;",rtn,"esac",rtn,"nbc -d \"$fn\"; x=$?",rtn,"if test $x = 0; then echo '==> OK'; else echo '==> Error code:' $x; fi",rtn,nmark,filt,"sh",rtn,rtn,"Press ^KQ to close this window!",rtn       ^K ^F
 edit,rtn,filt,query,parserr    ^[ C
 edit,rtn,filt,query,parserr    ^[ c
 helpcard,"Paste",rtn,keymap,"Paste",rtn        ^[ P
index f1a2dfa..9803cee 100644 (file)
--- a/rjoerc.in
+++ b/rjoerc.in
@@ -1,4 +1,4 @@
- $MirOS: contrib/code/jupp/rjoerc.in,v 1.19 2014/06/29 10:58:45 tg Exp $
+ $MirOS: contrib/code/jupp/rjoerc.in,v 1.20 2014/07/13 12:58:52 tg Exp $
 
                          Initialization file for JOE
                             Restricted access Joe
@@ -46,6 +46,7 @@
  -csmode       ^KF after a pervious search does a ^L instead
 
  -backpath path Directory to store backup files
+               (do not use quotes, and remove the comment after path)
 
  -nonotice     Disable copyright notice
 
diff --git a/scrn.c b/scrn.c
index ec5fff4..123c57a 100644 (file)
--- a/scrn.c
+++ b/scrn.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/scrn.c,v 1.12 2013/11/07 21:50:35 tg Exp $ */
+/* $MirOS: contrib/code/jupp/scrn.c,v 1.13 2014/07/25 20:43:01 tg Exp $ */
 /*
  *     Device independant TTY interface for JOE
  *     Copyright
@@ -304,7 +304,7 @@ void outatr(struct charmap *map,SCRN *t,int *scrn,int *attrf,int xx,int yy,int c
                        }
 
                        c = to_uni(map,c);
-                       if (c == -1 || c < 32 || (c >= 0x7F && c < 0xA0)) {
+                       if (c < 32 || (c >= 0x7F && c < 0xA0)) {
                                c = 0x1000FFFE;
                                a = (a | UNDERLINE) ^ INVERSE;
                        }
diff --git a/tty.c b/tty.c
index fb95aba..bd53c41 100644 (file)
--- a/tty.c
+++ b/tty.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/tty.c,v 1.18 2012/12/30 18:18:06 tg Exp $ */
+/* $MirOS: contrib/code/jupp/tty.c,v 1.20 2014/07/25 22:10:23 tg Exp $ */
 /*
  *     UNIX Tty and Process interface
  *     Copyright
@@ -174,8 +174,8 @@ unsigned long upc;          /* Microseconds per character */
  */
 
 static int speeds[] = {
-       B50, 50, B75, 75, B110, 110, B134, 134, B150, 150, B200, 200, B300,
-       300, B600, 600,
+       B50, 50, B75, 75, B110, 110, B134, 134, B150, 150, B200, 200,
+       B300, 300, B600, 600,
        B1200, 1200, B1800, 1800, B2400, 2400, B4800, 4800, B9600, 9600
 #ifdef EXTA
            , EXTA, 19200
@@ -391,15 +391,16 @@ void ttopnn(void)
 static void
 baud_reset(int bbaud)
 {
-       int x;
+       size_t x = 0;
 
        baud = 9600;
        upc = 0;
-       for (x = 0; x != 30; x += 2)
+       while (x < NELEM(speeds))
                if (bbaud == speeds[x]) {
                        baud = speeds[x + 1];
                        break;
-               }
+               } else
+                       x += 2;
        if (Baud >= 50)
                baud = Baud;
        else
diff --git a/types.h b/types.h
index 9f8cfb5..a968ff3 100644 (file)
--- a/types.h
+++ b/types.h
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/types.h,v 1.12 2013/08/19 18:25:44 tg Exp $ */
+/* $MirOS: contrib/code/jupp/types.h,v 1.14 2014/10/23 15:30:52 tg Exp $ */
 
 #ifndef _JOE_TYPES_H
 #define _JOE_TYPES_H
 #include <sys/types.h>                         /* we need pid_t */
 #endif
 
+/* from mksh */
 #if defined(DEBUG) || defined(__COVERITY__)
-#define mkssert(e)     ((e) ? (void)0 : exit(255))
+#define mkssert(e)     do { if (!(e)) exit(255); } while (/* CONSTCOND */ 0)
 #else
-#define mkssert(e)     ((void)0)
+#define mkssert(e)     do { } while (/* CONSTCOND */ 0)
 #endif
 
+/* from mksh */
+#define NELEM(a)       (sizeof(a) / sizeof((a)[0]))
+
 #define LINK(type) struct { type *next; type *prev; }
 
 #define KEYS           256
diff --git a/ufile.c b/ufile.c
index 5f10168..ac151f8 100644 (file)
--- a/ufile.c
+++ b/ufile.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/ufile.c,v 1.10 2013/08/19 22:48:33 tg Exp $ */
+/* $MirOS: contrib/code/jupp/ufile.c,v 1.11 2014/10/23 16:10:28 tg Exp $ */
 /*
  *     User file operations
  *     Copyright
@@ -665,11 +665,9 @@ int doscratch(BW *bw, unsigned char *s, void *obj, int *notify)
                        bw = (BW *) maint->curwin->object;
                }
        }
-       if (er) {
+       if (er && er != -1) {
                msgnwt(bw->parent, msgs[-er]);
-               if (er != -1) {
-                       ret = -1;
-               }
+               ret = -1;
        }
        object = bw->object;
        w = bw->parent;
diff --git a/vs.c b/vs.c
index be38cba..88001d8 100644 (file)
--- a/vs.c
+++ b/vs.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/vs.c,v 1.6 2014/06/26 18:15:17 tg Exp $ */
+/* $MirOS: contrib/code/jupp/vs.c,v 1.7 2014/07/25 11:44:34 tg Exp $ */
 /*
  *     Variable length strings
  *     Copyright
 #include "utils.h"
 #include "vs.h"
 
-int sicmp(unsigned char a, unsigned char b)
-{
-       if (a >= 'A' || a <= 'Z')
-               a += 'a' - 'A';
-       if (b >= 'A' || b <= 'Z')
-               b += 'a' - 'A';
-       return scmp(a, b);
-}
-
 sELEMENT *vsmk(int len)
 {
        int *new = (int *) joe_malloc((1 + len) * sizeof(sELEMENT) + 2 * sizeof(int));
diff --git a/vs.h b/vs.h
index 72617fe..e73cc62 100644 (file)
--- a/vs.h
+++ b/vs.h
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/vs.h,v 1.4 2012/06/08 16:55:29 tg Exp $ */
+/* $MirOS: contrib/code/jupp/vs.h,v 1.5 2014/07/25 11:44:35 tg Exp $ */
 /*
  *     Dynamic string library
  *     Copyright
@@ -121,9 +121,6 @@ typedef unsigned char sELEMENT;
 /* int scmp(); */
 #define scmp(a, b) ((a) > (b) ? 1 : ((a) == (b) ? 0 : -1))
 
-/* Compare a single element- case insensitive */
-int sicmp(unsigned char a, unsigned char b);
-
 /* A blank element */
 /* extern sELEMENT sblank; */
 #define sblank ' '
diff --git a/w.c b/w.c
index d16d5d9..4bbb664 100644 (file)
--- a/w.c
+++ b/w.c
@@ -1,4 +1,4 @@
-/* $MirOS: contrib/code/jupp/w.c,v 1.5 2012/12/30 21:45:18 tg Exp $ */
+/* $MirOS: contrib/code/jupp/w.c,v 1.6 2014/07/25 21:26:45 tg Exp $ */
 /*
  *     Window system
  *     Copyright
@@ -78,10 +78,12 @@ static int geth(W *w)
 static void seth(W *w, int h)
 {
        long tmp;
+       int tmpb;
 
        w->reqh = h;
        tmp = 1000L * h;
-       w->hh = tmp / (w->t->h - w->t->wind) + (tmp % (w->t->h - w->t->wind) ? 1 : 0);
+       tmpb = w->t->h - w->t->wind;
+       w->hh = (tmp + (tmpb - 1)) / tmpb;
 }
 
 /* Determine height of a family of windows.  Uses 'reqh' if it's set */