home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / jove.pch / part01 / jove.pch.1
Encoding:
Text File  |  1987-09-15  |  50.5 KB  |  2,335 lines
  1. diff -c ojove/Makefile jove/Makefile
  2. *** ojove/Makefile    Thu Jul 16 09:14:01 1987
  3. --- jove/Makefile    Fri Jun 19 16:13:05 1987
  4. ***************
  5. *** 19,44 ****
  6.   
  7.   DESTDIR =
  8.   TMPDIR = /tmp
  9. ! LIBDIR = /u/jpayne/jovelib
  10. ! BINDIR = /u/jpayne/bin
  11. ! MANDIR = /u/jpayne/manl
  12.   MANEXT = l
  13.   SHELL = /bin/csh
  14.   
  15.   # These should all just be right if the above ones are.
  16.   JOVE = $(DESTDIR)$(BINDIR)/jove
  17. - RECOVER = $(DESTDIR)$(LIBDIR)/recover
  18.   TEACHJOVE = $(DESTDIR)$(BINDIR)/teachjove
  19.   JOVERC = $(DESTDIR)$(LIBDIR)/.joverc
  20.   CMDS.DOC = $(DESTDIR)$(LIBDIR)/cmds.doc
  21.   TEACH-JOVE = $(DESTDIR)$(LIBDIR)/teach-jove
  22. - PORTSRV = $(DESTDIR)$(LIBDIR)/portsrv
  23.   JOVEM = $(DESTDIR)$(MANDIR)/jove.$(MANEXT)
  24. - RECOVERM = $(DESTDIR)$(MANDIR)/recover.$(MANEXT)
  25.   TEACHJOVEM = $(DESTDIR)$(MANDIR)/teachjove.$(MANEXT)
  26.   
  27.   # Select the right libraries for your system.
  28. ! #    2.9BSD:    LIBS = -ltermcap -ljobs
  29.   #    v7:    LIBS = -ltermcap
  30.   #    4.1BSD:    LIBS = -ltermcap -ljobs
  31.   #    4.2BSD:    LIBS = -ltermcap
  32. --- 19,43 ----
  33.   
  34.   DESTDIR =
  35.   TMPDIR = /tmp
  36. ! LIBDIR = /nfs/socrates/usr/jpayne/jovelib
  37. ! BINDIR = /nfs/socrates/usr/jpayne/bin
  38. ! MANDIR = /nfs/socrates/usr/jpayne/manl
  39.   MANEXT = l
  40.   SHELL = /bin/csh
  41.   
  42.   # These should all just be right if the above ones are.
  43.   JOVE = $(DESTDIR)$(BINDIR)/jove
  44.   TEACHJOVE = $(DESTDIR)$(BINDIR)/teachjove
  45. + RECOVER = $(DESTDIR)$(LIBDIR)/recover
  46. + PORTSRV = $(DESTDIR)$(LIBDIR)/portsrv
  47.   JOVERC = $(DESTDIR)$(LIBDIR)/.joverc
  48.   CMDS.DOC = $(DESTDIR)$(LIBDIR)/cmds.doc
  49.   TEACH-JOVE = $(DESTDIR)$(LIBDIR)/teach-jove
  50.   JOVEM = $(DESTDIR)$(MANDIR)/jove.$(MANEXT)
  51.   TEACHJOVEM = $(DESTDIR)$(MANDIR)/teachjove.$(MANEXT)
  52.   
  53.   # Select the right libraries for your system.
  54. ! #    2.10BSD:LIBS = -ltermcap
  55.   #    v7:    LIBS = -ltermcap
  56.   #    4.1BSD:    LIBS = -ltermcap -ljobs
  57.   #    4.2BSD:    LIBS = -ltermcap
  58. ***************
  59. *** 49,71 ****
  60.   
  61.   # If you are not VMUNIX (vax running Berkeley Version 4), you must specify
  62.   # the -i flags (split I/D space) and maybe the -x option (for adb to work).
  63. ! #    2.9BSD:    LDFLAGS = -x -i
  64. ! #    v7:    LDFLAGS = -x -i
  65.   #    4.1BSD:    LDFLAGS =
  66.   #    4.2BSD:    LDFLAGS =
  67.   #    4.3BSD:    LDFLAGS =
  68.   #    SysV Rel. 2: LDFLAGS = -Ml
  69.   
  70. ! LDFLAGS =
  71.   
  72. ! CFLAGS = -O
  73.   
  74. ! OBJECTS = keymaps.o funcdefs.o abbrev.o ask.o buf.o c.o case.o ctype.o \
  75. !     delete.o disp.o extend.o fp.o fmt.o insert.o io.o iproc.o jove.o macros.o \
  76. !     malloc.o marks.o misc.o move.o paragraph.o proc.o re.o re1.o rec.o \
  77. !     scandir.o screen.o table.o term.o tune.o util.o vars.o version.o wind.o
  78.   
  79. ! JOVESRC = funcdefs.c abbrev.c ask.c buf.c c.c case.c ctype.c \
  80.       delete.c disp.c extend.c fp.c fmt.c insert.c io.c iproc.c \
  81.       jove.c macros.c malloc.c marks.c misc.c move.c paragraph.c \
  82.       proc.c re.c re1.c rec.c scandir.c screen.c table.c term.c util.c \
  83. --- 48,82 ----
  84.   
  85.   # If you are not VMUNIX (vax running Berkeley Version 4), you must specify
  86.   # the -i flags (split I/D space) and maybe the -x option (for adb to work).
  87. ! #    2.10BSD:LDFLAGS =
  88. ! #    v7:    LDFLAGS =
  89.   #    4.1BSD:    LDFLAGS =
  90.   #    4.2BSD:    LDFLAGS =
  91.   #    4.3BSD:    LDFLAGS =
  92.   #    SysV Rel. 2: LDFLAGS = -Ml
  93. + #
  94. + # SEPFLAG should be:
  95. + #    not on a PDP-11:        SEPFLAG =
  96. + #    PDP-11 with separate I&D:    SEPFLAG = -i
  97. + #    PDP-11 without separate I&D:    SEPFLAG = -n
  98.   
  99. ! LDFLAGS = -g
  100. ! SEPFLAG =
  101.   
  102. ! CFLAGS = -g
  103.   
  104. ! BASESEG = funcdefs.o keymaps.o argcount.o ask.o buf.o ctype.o delete.o \
  105. !       disp.o fmt.o insert.o io.o jove.o malloc.o marks.o misc.o re.o \
  106. !       screen.o table.o tune.o util.o vars.o version.o
  107. ! OVLAY1 = abbrev.o rec.o paragraph.o
  108. ! OVLAY2 = c.o wind.o fp.o move.o
  109. ! OVLAY3 = extend.o macros.o
  110. ! OVLAY4 = iproc.o re1.o
  111. ! OVLAY5 = proc.o scandir.o term.o case.o
  112.   
  113. ! OBJECTS = $(BASESEG) $(OVLAY1) $(OVLAY2) $(OVLAY3) $(OVLAY4) $(OVLAY5)
  114. ! 
  115. ! JOVESRC = funcdefs.c abbrev.c argcount.c ask.c buf.c c.c case.c ctype.c \
  116.       delete.c disp.c extend.c fp.c fmt.c insert.c io.c iproc.c \
  117.       jove.c macros.c malloc.c marks.c misc.c move.c paragraph.c \
  118.       proc.c re.c re1.c rec.c scandir.c screen.c table.c term.c util.c \
  119. ***************
  120. *** 76,83 ****
  121.   HEADERS = ctype.h io.h jove.h re.h rec.h table.h temp.h termcap.h tune.h
  122.   
  123.   DOCS =    doc/cmds.doc.nr doc/example.rc doc/jove.1 doc/jove.2 doc/jove.3 \
  124. !     doc/jove.4 doc/jove.nr doc/recover.nr doc/system.rc doc/teach-jove \
  125. !     doc/teachjove.nr doc/README
  126.   
  127.   BACKUPS = $(HEADERS) $(JOVESRC) iproc-pipes.c iproc-ptys.c \
  128.       teachjove.c recover.c setmaps.c portsrv.c tune.template \
  129. --- 87,94 ----
  130.   HEADERS = ctype.h io.h jove.h re.h rec.h table.h temp.h termcap.h tune.h
  131.   
  132.   DOCS =    doc/cmds.doc.nr doc/example.rc doc/jove.1 doc/jove.2 doc/jove.3 \
  133. !     doc/jove.4 doc/jove.5 doc/jove.nr doc/system.rc \
  134. !     doc/teach-jove doc/teachjove.nr doc/README
  135.   
  136.   BACKUPS = $(HEADERS) $(JOVESRC) iproc-pipes.c iproc-ptys.c \
  137.       teachjove.c recover.c setmaps.c portsrv.c tune.template \
  138. ***************
  139. *** 87,93 ****
  140.   all:    xjove recover teachjove portsrv
  141.   
  142.   xjove:    $(OBJECTS)
  143. !     $(CC) $(LDFLAGS) -o xjove $(OBJECTS) version.o $(LIBS)
  144.       @-size xjove
  145.       @-date
  146.   
  147. --- 98,104 ----
  148.   all:    xjove recover teachjove portsrv
  149.   
  150.   xjove:    $(OBJECTS)
  151. !     $(CC) $(LDFLAGS) -o xjove $(OBJECTS) $(LIBS);
  152.       @-size xjove
  153.       @-date
  154.   
  155. ***************
  156. *** 131,138 ****
  157.   $(TEACH-JOVE): doc/teach-jove
  158.       install -c -m 644 doc/teach-jove $(TEACH-JOVE)
  159.   
  160. ! doc/cmds.doc:    doc/cmds.doc.nr doc/jove.4
  161. !     nroff doc/cmds.doc.nr doc/jove.4 > doc/cmds.doc
  162.   
  163.   $(CMDS.DOC): doc/cmds.doc
  164.       install -c -m 644 doc/cmds.doc $(CMDS.DOC)
  165. --- 142,149 ----
  166.   $(TEACH-JOVE): doc/teach-jove
  167.       install -c -m 644 doc/teach-jove $(TEACH-JOVE)
  168.   
  169. ! doc/cmds.doc:    doc/cmds.doc.nr doc/jove.4 doc/jove.5
  170. !     nroff doc/cmds.doc.nr doc/jove.4 doc/jove.5 > doc/cmds.doc
  171.   
  172.   $(CMDS.DOC): doc/cmds.doc
  173.       install -c -m 644 doc/cmds.doc $(CMDS.DOC)
  174. ***************
  175. *** 158,169 ****
  176.            -e 's;SHELL;$(SHELL);' doc/jove.nr > /tmp/jove.nr
  177.       install -m 644 /tmp/jove.nr $(JOVEM)
  178.   
  179. - $(RECOVERM): doc/recover.nr
  180. -     @sed -e 's;TMPDIR;$(TMPDIR);' \
  181. -          -e 's;LIBDIR;$(LIBDIR);' \
  182. -          -e 's;SHELL;$(SHELL);' doc/recover.nr > /tmp/recover.nr
  183. -     install -m 644 /tmp/recover.nr $(RECOVERM)
  184. - 
  185.   $(TEACHJOVEM): doc/teachjove.nr
  186.       @sed -e 's;TMPDIR;$(TMPDIR);' \
  187.            -e 's;LIBDIR;$(LIBDIR);' \
  188. --- 169,174 ----
  189. ***************
  190. *** 178,184 ****
  191.       @echo Done
  192.   
  193.   tags:
  194. !     ctags -w $(JOVESRC) $(HEADERS)
  195.   
  196.   ciall:
  197.       ci $(BACKUPS)
  198. --- 183,189 ----
  199.       @echo Done
  200.   
  201.   tags:
  202. !     ctags -w $(JOVESRC) $(HEADERS) iproc-ptys.c
  203.   
  204.   ciall:
  205.       ci $(BACKUPS)
  206. ***************
  207. *** 189,195 ****
  208.   jove.shar:
  209.       shar $(BACKUPS) > jove.shar
  210.   
  211. ! backup:
  212.       tar cf backup $(BACKUPS)
  213.   
  214.   tape-backup:
  215. --- 194,200 ----
  216.   jove.shar:
  217.       shar $(BACKUPS) > jove.shar
  218.   
  219. ! backup: $(BACKUPS)
  220.       tar cf backup $(BACKUPS)
  221.   
  222.   tape-backup:
  223. diff -c ojove/Ovmakefile jove/Ovmakefile
  224. *** ojove/Ovmakefile    Thu Jul 16 09:14:02 1987
  225. --- jove/Ovmakefile    Fri Jun 12 11:23:45 1987
  226. ***************
  227. *** 61,71 ****
  228.   
  229.   COFLAGS = -rworking -q
  230.   
  231. ! BASESEG = funcdefs.o keymaps.o ask.o buf.o ctype.o delete.o disp.o fmt.o fp.o \
  232. !       insert.o io.o jove.o malloc.o macros.o marks.o misc.o move.o re.o \
  233. !       screen.o table.o tune.o util.o vars.o version.o
  234. ! OVLAY1 = abbrev.o rec.o paragraph.o
  235. ! OVLAY2 = c.o wind.o
  236.   OVLAY3 = extend.o
  237.   OVLAY4 = iproc.o re1.o
  238.   OVLAY5 = proc.o scandir.o term.o case.o
  239. --- 61,71 ----
  240.   
  241.   COFLAGS = -rworking -q
  242.   
  243. ! BASESEG = funcdefs.o keymaps.o argcount.o ask.o buf.o ctype.o delete.o disp.o fmt.o fp.o \
  244. !       insert.o io.o jove.o malloc.o marks.o misc.o move.o re.o \
  245. !       screen.o table.o tune.o util.o version.o
  246. ! OVLAY1 = abbrev.o rec.o paragraph.o macros.o
  247. ! OVLAY2 = c.o wind.o vars.o
  248.   OVLAY3 = extend.o
  249.   OVLAY4 = iproc.o re1.o
  250.   OVLAY5 = proc.o scandir.o term.o case.o
  251. ***************
  252. *** 72,78 ****
  253.   
  254.   OBJECTS = $(BASESEG) $(OVLAY1) $(OVLAY2) $(OVLAY3) $(OVLAY4) $(OVLAY5)
  255.   
  256. ! C-FILES = funcdefs.c abbrev.c ask.c buf.c c.c case.c ctype.c delete.c disp.c \
  257.       extend.c fmt.c fp.c insert.c io.c iproc.c iproc-pipes.c iproc-ptys.c \
  258.       jove.c macros.c malloc.c marks.c misc.c move.c paragraph.c proc.c \
  259.       re.c re1.c rec.c scandir.c screen.c table.c term.c util.c vars.c version.c \
  260. --- 72,78 ----
  261.   
  262.   OBJECTS = $(BASESEG) $(OVLAY1) $(OVLAY2) $(OVLAY3) $(OVLAY4) $(OVLAY5)
  263.   
  264. ! C-FILES = funcdefs.c abbrev.c argcount.c ask.c buf.c c.c case.c ctype.c delete.c disp.c \
  265.       extend.c fmt.c fp.c insert.c io.c iproc.c iproc-pipes.c iproc-ptys.c \
  266.       jove.c macros.c malloc.c marks.c misc.c move.c paragraph.c proc.c \
  267.       re.c re1.c rec.c scandir.c screen.c table.c term.c util.c vars.c version.c \
  268. Common subdirectories: ojove/RCS and jove/RCS
  269. diff -c ojove/README jove/README
  270. *** ojove/README    Thu Jul 16 09:14:03 1987
  271. --- jove/README    Fri Feb  6 11:32:32 1987
  272. ***************
  273. *** 146,152 ****
  274.   reads an initialization file in the user's home directory, and "example.rc"
  275.   is mine.
  276.   
  277. ! The files "jove.[1234]" in DOC are the official JOVE manual.  I got
  278.   permission from Richard Stallman to use his manual for the original EMACS,
  279.   modifying it where necessary for JOVE.  Lots of work was done by Brian
  280.   Harvey on this manual.
  281. --- 146,152 ----
  282.   reads an initialization file in the user's home directory, and "example.rc"
  283.   is mine.
  284.   
  285. ! The files "jove.[12345]" in DOC are the official JOVE manual.  I got
  286.   permission from Richard Stallman to use his manual for the original EMACS,
  287.   modifying it where necessary for JOVE.  Lots of work was done by Brian
  288.   Harvey on this manual.
  289. diff -c ojove/abbrev.c jove/abbrev.c
  290. *** ojove/abbrev.c    Thu Jul 16 09:14:04 1987
  291. --- jove/abbrev.c    Fri Jun 12 10:50:08 1987
  292. ***************
  293. *** 102,110 ****
  294.       struct abbrev    *ap;
  295.   
  296.       DOTsave(&point);
  297. -     exp = 1;
  298.       WITH_TABLE(curbuf->b_major)
  299. !     BackWord();
  300.       while (curchar < point.p_char && ismword(c = linebuf[curchar])) {
  301.           if (AutoCaseAbbrev) {
  302.               if (isupper(c)) {
  303. --- 102,109 ----
  304.       struct abbrev    *ap;
  305.   
  306.       DOTsave(&point);
  307.       WITH_TABLE(curbuf->b_major)
  308. !     b_word(1);
  309.       while (curchar < point.p_char && ismword(c = linebuf[curchar])) {
  310.           if (AutoCaseAbbrev) {
  311.               if (isupper(c)) {
  312. ***************
  313. *** 112,118 ****
  314.                   c = tolower(c);
  315.               }
  316.           }
  317. - 
  318.           *wp++ = c;
  319.           curchar++;
  320.       }
  321. --- 111,116 ----
  322. ***************
  323. *** 124,141 ****
  324.           SetDot(&point);
  325.           return;
  326.       }
  327. !     DoTimes(DelPChar(), (wp - wordbuf));
  328.   
  329.       for (cp = ap->a_phrase; c = *cp; ) {
  330.           if (AutoCaseAbbrev) {
  331. !             Insert(islower(c) && UC_count &&
  332. !                    (cp == ap->a_phrase || (UC_count > 1 && (*(cp - 1) == ' '))) ?
  333. !                 toupper(c) : c);
  334. !         }
  335. !         else {
  336. !             Insert(c);
  337. !         }
  338. !         cp++;
  339.       }
  340.   
  341.       if (ap->a_cmdhook != 0)
  342. --- 122,137 ----
  343.           SetDot(&point);
  344.           return;
  345.       }
  346. !     del_char(BACKWARD, (wp - wordbuf));
  347.   
  348.       for (cp = ap->a_phrase; c = *cp; ) {
  349.           if (AutoCaseAbbrev) {
  350. !             insert_c(islower(c) && UC_count &&
  351. !                    (cp == ap->a_phrase || (UC_count > 1 && (cp[-1] == ' '))) ?
  352. !                 toupper(c) : c, 1);
  353. !         } else
  354. !             insert_c(c, 1);
  355. !         cp += 1;
  356.       }
  357.   
  358.       if (ap->a_cmdhook != 0)
  359. Only in jove: argcount.c
  360. diff -c ojove/ask.c jove/ask.c
  361. *** ojove/ask.c    Thu Jul 16 09:14:06 1987
  362. --- jove/ask.c    Fri Jul 10 09:25:49 1987
  363. ***************
  364. *** 15,20 ****
  365. --- 15,22 ----
  366.   #    include <sys/stat.h>
  367.   #endif
  368.   
  369. + int    DoEVexpand = NO;    /* should we expand evironment variables? */
  370. + 
  371.   int    Asking = NO;
  372.   char    Minibuf[LBSIZE];
  373.   private Line    *CurAskPtr = 0;    /* points at some line in mini-buffer */
  374. ***************
  375. *** 57,63 ****
  376.       SetBuf(saveb);
  377.   }
  378.   
  379. ! static char *
  380.   real_ask(delim, d_proc, def, prompt)
  381.   char    *delim,
  382.       *def,
  383. --- 59,106 ----
  384.       SetBuf(saveb);
  385.   }
  386.   
  387. ! /* look for any substrings of the form $foo in linebuf, and expand
  388. !    them according to their value in the environment (if possible) -
  389. !    this munges all over curchar and linebuf without giving it a second
  390. !    thought (I must be getting lazy in my old age) */
  391. ! private
  392. ! EVexpand()
  393. ! {
  394. !     register int    c;
  395. !     register char    *lp = linebuf,
  396. !             *ep;
  397. !     char    varname[128],
  398. !         *vp,
  399. !         *lp_start;
  400. !     Mark    *m = MakeMark(curline, curchar, M_FLOATER);
  401. ! 
  402. !     while (c = *lp++) {
  403. !         if (c != '$')
  404. !             continue;
  405. !         lp_start = lp - 1;    /* the $ */
  406. !         vp = varname;
  407. !         while (c = *lp++) {
  408. !             if (!isword(c))
  409. !                 break;
  410. !             *vp++ = c;
  411. !         }
  412. !         *vp = '\0';
  413. !         /* if we find an env. variable with the right
  414. !            name, we insert it in linebuf, and then delete
  415. !            the variable name that we're replacing - and
  416. !             then we continue in case there are others ... */
  417. !         if (ep = getenv(varname)) {
  418. !             curchar = lp_start - linebuf;
  419. !             ins_str(ep, NO);
  420. !             del_char(FORWARD, strlen(varname) + 1);
  421. !             lp = linebuf + curchar;
  422. !         }
  423. !     }
  424. !     ToMark(m);
  425. !     DelMark(m);
  426. ! }
  427. ! 
  428. ! private char *
  429.   real_ask(delim, d_proc, def, prompt)
  430.   char    *delim,
  431.       *def,
  432. ***************
  433. *** 72,79 ****
  434.       int    abort = 0,
  435.           no_typed = 0;
  436.       data_obj    *push_cmd = LastCmd;
  437. !     int    o_exp = exp,
  438. !         o_exp_p = exp_p;
  439.   
  440.       if (InAsk)
  441.           complain((char *) 0);
  442. --- 115,122 ----
  443.       int    abort = 0,
  444.           no_typed = 0;
  445.       data_obj    *push_cmd = LastCmd;
  446. !     int    o_a_v = arg_value(),
  447. !         o_i_an_a = is_an_arg();
  448.   
  449.       if (InAsk)
  450.           complain((char *) 0);
  451. ***************
  452. *** 95,102 ****
  453.           }
  454.   
  455.       for (;;) {
  456. !         exp = 1;
  457. !         exp_p = NO;
  458.           last_cmd = this_cmd;
  459.           init_strokes();
  460.   cont:        s_mess("%s%s", prompt, linebuf);
  461. --- 138,144 ----
  462.           }
  463.   
  464.       for (;;) {
  465. !         clr_arg_value();
  466.           last_cmd = this_cmd;
  467.           init_strokes();
  468.   cont:        s_mess("%s%s", prompt, linebuf);
  469. ***************
  470. *** 103,120 ****
  471.           Asking = curchar + prompt_len;
  472.           c = getch();
  473.           if ((c == EOF) || index(delim, c)) {
  474.               if (d_proc == 0 || (*d_proc)(c) == 0)
  475.                   goto cleanup;
  476.           } else switch (c) {
  477. !         case CTL(G):
  478.               message("[Aborted]");
  479.               abort++;
  480.               goto cleanup;
  481.   
  482. !         case CTL(N):
  483. !         case CTL(P):
  484.               if (CurAskPtr != 0) {
  485. !                 int    n = (c == CTL(P) ? -exp : exp);
  486.   
  487.                   CurAskPtr = next_line(CurAskPtr, n);
  488.                   if (CurAskPtr == curbuf->b_first && CurAskPtr->l_next != 0)
  489. --- 145,164 ----
  490.           Asking = curchar + prompt_len;
  491.           c = getch();
  492.           if ((c == EOF) || index(delim, c)) {
  493. +             if (DoEVexpand)
  494. +                 EVexpand();
  495.               if (d_proc == 0 || (*d_proc)(c) == 0)
  496.                   goto cleanup;
  497.           } else switch (c) {
  498. !         case CTL('G'):
  499.               message("[Aborted]");
  500.               abort++;
  501.               goto cleanup;
  502.   
  503. !         case CTL('N'):
  504. !         case CTL('P'):
  505.               if (CurAskPtr != 0) {
  506. !                 int    n = (c == CTL('P') ? -arg_value() : arg_value());
  507.   
  508.                   CurAskPtr = next_line(CurAskPtr, n);
  509.                   if (CurAskPtr == curbuf->b_first && CurAskPtr->l_next != 0)
  510. ***************
  511. *** 127,133 ****
  512.               }
  513.               break;
  514.   
  515. !         case CTL(R):
  516.               if (def)
  517.                   ins_str(def, NO);
  518.               else
  519. --- 171,177 ----
  520.               }
  521.               break;
  522.   
  523. !         case CTL('R'):
  524.               if (def)
  525.                   ins_str(def, NO);
  526.               else
  527. ***************
  528. *** 151,158 ****
  529.       pop_env(savejmp);
  530.   
  531.       LastCmd = push_cmd;
  532. !     exp_p = o_exp_p;
  533. !     exp = o_exp;
  534.       no_typed = (linebuf[0] == '\0');
  535.       strcpy(Minibuf, linebuf);
  536.       SetBuf(saveb);
  537. --- 195,202 ----
  538.       pop_env(savejmp);
  539.   
  540.       LastCmd = push_cmd;
  541. !     set_arg_value(o_a_v);
  542. !     set_is_an_arg(o_i_an_a);
  543.       no_typed = (linebuf[0] == '\0');
  544.       strcpy(Minibuf, linebuf);
  545.       SetBuf(saveb);
  546. ***************
  547. *** 212,218 ****
  548.       return real_ask(delim, d_proc, def, prompt);
  549.   }
  550.   
  551. ! /* VARARGS2 */
  552.   
  553.   yes_or_no_p(fmt, va_alist)
  554.   char    *fmt;
  555. --- 256,262 ----
  556.       return real_ask(delim, d_proc, def, prompt);
  557.   }
  558.   
  559. ! /* VARARGS1 */
  560.   
  561.   yes_or_no_p(fmt, va_alist)
  562.   char    *fmt;
  563. ***************
  564. *** 230,236 ****
  565.           Asking = strlen(prompt);    /* so redisplay works */
  566.           c = getch();
  567.           Asking = NO;
  568. !         switch (Upper(c)) {
  569.           case 'Y':
  570.               return YES;
  571.   
  572. --- 274,280 ----
  573.           Asking = strlen(prompt);    /* so redisplay works */
  574.           c = getch();
  575.           Asking = NO;
  576. !         switch (CharUpcase(c)) {
  577.           case 'Y':
  578.               return YES;
  579.   
  580. ***************
  581. *** 237,243 ****
  582.           case 'N':
  583.               return NO;
  584.   
  585. !         case CTL(G):
  586.               complain("[Aborted]");
  587.   
  588.           default:
  589. --- 281,287 ----
  590.           case 'N':
  591.               return NO;
  592.   
  593. !         case CTL('G'):
  594.               complain("[Aborted]");
  595.   
  596.           default:
  597. ***************
  598. *** 343,353 ****
  599.               (linebuf[curchar - 1] != '/') &&
  600.               (isdir(linebuf)));
  601.       if (the_same && !is_ntdir) {
  602. !         add_mess(n == 1 ? " [Unique]" : " [Ambiguous]");
  603.           SitFor(7);
  604.       }
  605.       if (is_ntdir)
  606. !         Insert('/');
  607.   }
  608.   
  609.   extern int    alphacomp();
  610. --- 387,397 ----
  611.               (linebuf[curchar - 1] != '/') &&
  612.               (isdir(linebuf)));
  613.       if (the_same && !is_ntdir) {
  614. !         add_mess((n == 1) ? " [Unique]" : " [Ambiguous]");
  615.           SitFor(7);
  616.       }
  617.       if (is_ntdir)
  618. !         insert_c('/', 1);
  619.   }
  620.   
  621.   extern int    alphacomp();
  622. ***************
  623. *** 438,444 ****
  624.   {
  625.       char    *ans,
  626.           prompt[128],
  627. !         *pretty_name = pr_name(def);
  628.   
  629.       if (prmt)
  630.           sprintf(prompt, prmt);
  631. --- 482,488 ----
  632.   {
  633.       char    *ans,
  634.           prompt[128],
  635. !         *pretty_name = pr_name(def, YES);
  636.   
  637.       if (prmt)
  638.           sprintf(prompt, prmt);
  639. diff -c ojove/buf.c jove/buf.c
  640. *** ojove/buf.c    Thu Jul 16 09:14:07 1987
  641. --- jove/buf.c    Tue Jun 23 13:50:25 1987
  642. ***************
  643. *** 26,33 ****
  644.   
  645.   TogMinor(bit)
  646.   {
  647. !     if (exp_p) {
  648. !         if (exp == 0)
  649.               curbuf->b_minor &= ~bit;
  650.           else
  651.               curbuf->b_minor |= bit;
  652. --- 26,33 ----
  653.   
  654.   TogMinor(bit)
  655.   {
  656. !     if (is_an_arg()) {
  657. !         if (arg_value() == 0)
  658.               curbuf->b_minor &= ~bit;
  659.           else
  660.               curbuf->b_minor |= bit;
  661. ***************
  662. *** 147,153 ****
  663.       offset = complete(bnames, prompt, RET_STATE);
  664.       if (offset == EOF)
  665.           complain((char *) 0);
  666. !     if (offset == ORIGINAL)
  667.           bname = Minibuf;
  668.       else if (offset == NULLSTRING) {
  669.           if (def)
  670. --- 147,153 ----
  671.       offset = complete(bnames, prompt, RET_STATE);
  672.       if (offset == EOF)
  673.           complain((char *) 0);
  674. !     if (offset == ORIGINAL || offset == AMBIGUOUS)
  675.           bname = Minibuf;
  676.       else if (offset == NULLSTRING) {
  677.           if (def)
  678. ***************
  679. *** 171,177 ****
  680.       SetBuf(do_select(curwind, bname));
  681.   }
  682.   
  683. ! static
  684.   defb_wind(b)
  685.   register Buffer *b;
  686.   {
  687. --- 171,177 ----
  688.       SetBuf(do_select(curwind, bname));
  689.   }
  690.   
  691. ! private
  692.   defb_wind(b)
  693.   register Buffer *b;
  694.   {
  695. ***************
  696. *** 186,202 ****
  697.   
  698.       do {
  699.           if (w->w_bufp == b) {
  700. !             if (one_windp())
  701.                   (void) do_select(w, alt);
  702.               else {
  703. !                 register Window    *save = w->w_next;
  704.   
  705.                   del_wind(w);
  706.                   w = save->w_prev;
  707.               }
  708. !         }                
  709.           w = w->w_next;
  710. !     } while (w != fwind);
  711.   }
  712.   
  713.   Buffer *
  714. --- 186,202 ----
  715.   
  716.       do {
  717.           if (w->w_bufp == b) {
  718. !             if (one_windp() || alt != Mainbuf)
  719.                   (void) do_select(w, alt);
  720.               else {
  721. !                 Window    *save = w->w_next;
  722.   
  723.                   del_wind(w);
  724.                   w = save->w_prev;
  725.               }
  726. !         }
  727.           w = w->w_next;
  728. !     } while (w != fwind || w->w_bufp == b);
  729.   }
  730.   
  731.   Buffer *
  732. ***************
  733. *** 275,281 ****
  734.               continue;
  735.           if (IsModified(b)) {
  736.               y_or_n = ask("No", "%s modified; should I save it? ", b->b_name);
  737. !             if (Upper(*y_or_n) == 'Y') {
  738.                   oldb = curbuf;
  739.                   SetBuf(b);
  740.                   SaveFile();
  741. --- 275,281 ----
  742.               continue;
  743.           if (IsModified(b)) {
  744.               y_or_n = ask("No", "%s modified; should I save it? ", b->b_name);
  745. !             if (CharUpcase(*y_or_n) == 'Y') {
  746.                   oldb = curbuf;
  747.                   SetBuf(b);
  748.                   SaveFile();
  749. ***************
  750. *** 499,505 ****
  751.   {
  752.       struct stat    stbuf;
  753.   
  754. !     if (b->b_fname == 0 || stat(b->b_fname, &stbuf) == -1) {
  755.           b->b_ino = 0;
  756.           b->b_mtime = 0;
  757.       } else {
  758. --- 499,505 ----
  759.   {
  760.       struct stat    stbuf;
  761.   
  762. !     if (b->b_fname == 0 || stat(pr_name(b->b_fname, NO), &stbuf) == -1) {
  763.           b->b_ino = 0;
  764.           b->b_mtime = 0;
  765.       } else {
  766. ***************
  767. *** 524,537 ****
  768.           bufname(b);
  769.           set_ino(b);
  770.           b->b_ntbf = 1;
  771. -         if (force) {
  772. -             Buffer    *oldb = curbuf;
  773. - 
  774. -             SetBuf(b);    /* this'll read the file */
  775. -             SetBuf(oldb);
  776. -         }
  777.       }
  778.   
  779.       if (w)
  780.           tiewind(w, b);
  781.       return b;
  782. --- 524,536 ----
  783.           bufname(b);
  784.           set_ino(b);
  785.           b->b_ntbf = 1;
  786.       }
  787. +     if (force) {
  788. +         Buffer    *oldb = curbuf;
  789.   
  790. +         SetBuf(b);    /* this'll read the file */
  791. +         SetBuf(oldb);
  792. +     }
  793.       if (w)
  794.           tiewind(w, b);
  795.       return b;
  796. ***************
  797. *** 549,563 ****
  798.   SetBuf(newbuf)
  799.   register Buffer    *newbuf;
  800.   {
  801. !     register Buffer    *oldb = curbuf;
  802.   
  803.       if (newbuf == curbuf || newbuf == 0)
  804.           return;
  805.   
  806.       lsave();
  807.       curbuf = newbuf;
  808. !     curline = newbuf->b_dot;
  809. !     curchar = newbuf->b_char;
  810.       getDOT();
  811.       /* Do the read now ... */
  812.       if (curbuf->b_ntbf)
  813. --- 548,570 ----
  814.   SetBuf(newbuf)
  815.   register Buffer    *newbuf;
  816.   {
  817. !     register Buffer    *oldb = curbuf,
  818. !             *b;
  819.   
  820.       if (newbuf == curbuf || newbuf == 0)
  821.           return;
  822.   
  823. +     /* check to see that we're selecting a valid buffer */
  824. +     for (b = world; b != 0; b = b->b_next)
  825. +         if (b == newbuf)
  826. +             break;
  827. +     if (b == 0)
  828. +         complain("Internal error: (%x) is not a valid buffer pointer!", newbuf);
  829. + 
  830.       lsave();
  831.       curbuf = newbuf;
  832. ! /*    curline = newbuf->b_dot;
  833. !     curchar = newbuf->b_char;    STUPID!! */
  834.       getDOT();
  835.       /* Do the read now ... */
  836.       if (curbuf->b_ntbf)
  837. diff -c ojove/c.c jove/c.c
  838. *** ojove/c.c    Thu Jul 16 09:14:09 1987
  839. --- jove/c.c    Wed Jun 24 12:43:21 1987
  840. ***************
  841. *** 167,180 ****
  842.       register char    c,
  843.               syntax = (dir == FORWARD) ? _Op : _Cl;
  844.   
  845. -     exp = 1;
  846.       if (dir == BACKWARD)
  847. !         BackChar();
  848.       c = linebuf[curchar];
  849.       for (;;) {
  850.           if (!skip_words && ismword(c)) {
  851.               WITH_TABLE(curbuf->b_major)
  852. !             (dir == FORWARD) ? ForWord() : BackWord();
  853.               END_TABLE();
  854.               break;
  855.           } else if (has_syntax(c, syntax)) {
  856. --- 167,179 ----
  857.       register char    c,
  858.               syntax = (dir == FORWARD) ? _Op : _Cl;
  859.   
  860.       if (dir == BACKWARD)
  861. !         b_char(1);
  862.       c = linebuf[curchar];
  863.       for (;;) {
  864.           if (!skip_words && ismword(c)) {
  865.               WITH_TABLE(curbuf->b_major)
  866. !             (dir == FORWARD) ? f_word(1) : b_word(1);
  867.               END_TABLE();
  868.               break;
  869.           } else if (has_syntax(c, syntax)) {
  870. ***************
  871. *** 181,187 ****
  872.               FindMatch(dir);
  873.               break;
  874.           }
  875. !         DoTimes(ForChar(), dir);
  876.           if (eobp() || bobp())
  877.               return;
  878.           c = linebuf[curchar];
  879. --- 180,186 ----
  880.               FindMatch(dir);
  881.               break;
  882.           }
  883. !         f_char(dir);
  884.           if (eobp() || bobp())
  885.               return;
  886.           c = linebuf[curchar];
  887. ***************
  888. *** 190,199 ****
  889.   
  890.   FSexpr()
  891.   {
  892. !     register int    num = exp;
  893.   
  894. !     if (exp < 0) {
  895. !         exp = -exp;
  896.           BSexpr();
  897.       }
  898.       while (--num >= 0)
  899. --- 189,198 ----
  900.   
  901.   FSexpr()
  902.   {
  903. !     register int    num = arg_value();
  904.   
  905. !     if (num < 0) {
  906. !         set_arg_value(-num);
  907.           BSexpr();
  908.       }
  909.       while (--num >= 0)
  910. ***************
  911. *** 202,211 ****
  912.   
  913.   FList()
  914.   {
  915. !     register int    num = exp;
  916.   
  917. !     if (exp < 0) {
  918. !         exp = -exp;
  919.           BList();
  920.       }
  921.       while (--num >= 0)
  922. --- 201,210 ----
  923.   
  924.   FList()
  925.   {
  926. !     register int    num = arg_value();
  927.   
  928. !     if (num < 0) {
  929. !         set_arg_value(-num);
  930.           BList();
  931.       }
  932.       while (--num >= 0)
  933. ***************
  934. *** 214,223 ****
  935.   
  936.   BSexpr()
  937.   {
  938. !     register int    num = exp;
  939.   
  940. !     if (exp < 0) {
  941. !         exp = -exp;
  942.           FSexpr();
  943.       }
  944.       while (--num >= 0)
  945. --- 213,222 ----
  946.   
  947.   BSexpr()
  948.   {
  949. !     register int    num = arg_value();
  950.   
  951. !     if (num < 0) {
  952. !         negate_arg_value();
  953.           FSexpr();
  954.       }
  955.       while (--num >= 0)
  956. ***************
  957. *** 226,235 ****
  958.   
  959.   BList()
  960.   {
  961. !     register int    num = exp;
  962.   
  963. !     if (exp < 0) {
  964. !         exp = -exp;
  965.           FList();
  966.       }
  967.       while (--num >= 0)
  968. --- 225,234 ----
  969.   
  970.   BList()
  971.   {
  972. !     register int    num = arg_value();
  973.   
  974. !     if (num < 0) {
  975. !         negate_arg_value();
  976.           FList();
  977.       }
  978.       while (--num >= 0)
  979. ***************
  980. *** 275,284 ****
  981.           (backslashed(linebuf, curchar)))
  982.           complain((char *) 0);
  983.       if (dir == FORWARD)
  984. !         ForChar();
  985.       bp = m_paren(c, dir, YES, NO);
  986.       if (dir == FORWARD)
  987. !         BackChar();
  988.       if (bp != 0)
  989.           SetDot(bp);
  990.       mp_error();    /* if there is an error the user wants to
  991. --- 274,283 ----
  992.           (backslashed(linebuf, curchar)))
  993.           complain((char *) 0);
  994.       if (dir == FORWARD)
  995. !         f_char(1);
  996.       bp = m_paren(c, dir, YES, NO);
  997.       if (dir == FORWARD)
  998. !         b_char(1);
  999.       if (bp != 0)
  1000.           SetDot(bp);
  1001.       mp_error();    /* if there is an error the user wants to
  1002. ***************
  1003. *** 482,488 ****
  1004.           SetDot(match_c);
  1005.       }
  1006.       SetDot(&open_c_pt);
  1007. !     open_c_mark = MakeMark(curline, curchar, FLOATER);
  1008.       indent_pos = calc_pos(linebuf, curchar);
  1009.       /* search for a close comment; delete it if it exits */
  1010.       SetDot(&close_c_pt);
  1011. --- 481,487 ----
  1012.           SetDot(match_c);
  1013.       }
  1014.       SetDot(&open_c_pt);
  1015. !     open_c_mark = MakeMark(curline, curchar, M_FLOATER);
  1016.       indent_pos = calc_pos(linebuf, curchar);
  1017.       /* search for a close comment; delete it if it exits */
  1018.       SetDot(&close_c_pt);
  1019. ***************
  1020. *** 489,497 ****
  1021.       if (close_at_dot == 0) {
  1022.           slen = strlen(close_pat);
  1023.           while (slen--)
  1024. !             DelPChar();
  1025.       }
  1026. !     entry_mark = MakeMark(curline, curchar, FLOATER);
  1027.       ToMark(open_c_mark);
  1028.       /* always separate the comment body from anything preceeding it */
  1029.       LineInsert(1);
  1030. --- 488,496 ----
  1031.       if (close_at_dot == 0) {
  1032.           slen = strlen(close_pat);
  1033.           while (slen--)
  1034. !             del_char(BACKWARD, 1);
  1035.       }
  1036. !     entry_mark = MakeMark(curline, curchar, M_FLOATER);
  1037.       ToMark(open_c_mark);
  1038.       /* always separate the comment body from anything preceeding it */
  1039.       LineInsert(1);
  1040. ***************
  1041. *** 502,511 ****
  1042.               if (!eolp())
  1043.                   LineInsert(1);
  1044.               else
  1045. !                 line_move(FORWARD, NO);
  1046.           } else if (*cp == ' ' || *cp == '\t') {
  1047.               if (linebuf[curchar] != *cp)
  1048. !                 Insert(*cp);
  1049.           } else
  1050.               /* Since we matched the open comment string on this
  1051.                  line, we don't need to worry about crossing line
  1052. --- 501,510 ----
  1053.               if (!eolp())
  1054.                   LineInsert(1);
  1055.               else
  1056. !                 line_move(FORWARD, 1, NO);
  1057.           } else if (*cp == ' ' || *cp == '\t') {
  1058.               if (linebuf[curchar] != *cp)
  1059. !                 insert_c(*cp, 1);
  1060.           } else
  1061.               /* Since we matched the open comment string on this
  1062.                  line, we don't need to worry about crossing line
  1063. ***************
  1064. *** 512,518 ****
  1065.                  boundaries. */
  1066.               curchar++;
  1067.       }
  1068. !     savedot = MakeMark(curline, curchar, FLOATER);
  1069.   
  1070.       /* We need to strip the line header pattern of leading white space
  1071.          since we need to match the line after all of its leading
  1072. --- 511,517 ----
  1073.                  boundaries. */
  1074.               curchar++;
  1075.       }
  1076. !     savedot = MakeMark(curline, curchar, M_FLOATER);
  1077.   
  1078.       /* We need to strip the line header pattern of leading white space
  1079.          since we need to match the line after all of its leading
  1080. ***************
  1081. *** 529,556 ****
  1082.           Bol();
  1083.           DelWtSpace();
  1084.           if (header_len && !strncmp(linebuf, cp, header_len))
  1085. !             DoTimes(DelNChar(), header_len);
  1086.           if (trailer_len) {
  1087.               Eol();
  1088.               if ((curchar > trailer_len) &&
  1089.                   (!strncmp(&linebuf[curchar - trailer_len],
  1090.                         l_trailer, trailer_len)))
  1091. !                 DoTimes(DelPChar(), trailer_len);
  1092.           }
  1093.           if (curline->l_next != 0)
  1094. !             line_move(FORWARD, NO);
  1095.           else
  1096.               break;
  1097.       } while (curline != entry_mark->m_line->l_next);
  1098.   
  1099. !     DoSetMark(savedot->m_line, savedot->m_char);
  1100.       ToMark(entry_mark);
  1101.       saveRMargin = RMargin;
  1102.       RMargin = saveRMargin - strlen(l_header) -
  1103.             strlen(l_trailer) - indent_pos + 2;
  1104. !     /* do not use the left margin */
  1105. !     exp_p = NO;
  1106. !     do_rfill();
  1107.       RMargin = saveRMargin;
  1108.       /* get back to the start of the comment */
  1109.       PopMark(); 
  1110. --- 528,553 ----
  1111.           Bol();
  1112.           DelWtSpace();
  1113.           if (header_len && !strncmp(linebuf, cp, header_len))
  1114. !             del_char(FORWARD, header_len);
  1115.           if (trailer_len) {
  1116.               Eol();
  1117.               if ((curchar > trailer_len) &&
  1118.                   (!strncmp(&linebuf[curchar - trailer_len],
  1119.                         l_trailer, trailer_len)))
  1120. !                 del_char(BACKWARD, trailer_len);
  1121.           }
  1122.           if (curline->l_next != 0)
  1123. !             line_move(FORWARD, 1, NO);
  1124.           else
  1125.               break;
  1126.       } while (curline != entry_mark->m_line->l_next);
  1127.   
  1128. !     do_set_mark(savedot->m_line, savedot->m_char);
  1129.       ToMark(entry_mark);
  1130.       saveRMargin = RMargin;
  1131.       RMargin = saveRMargin - strlen(l_header) -
  1132.             strlen(l_trailer) - indent_pos + 2;
  1133. !     do_rfill(NO);
  1134.       RMargin = saveRMargin;
  1135.       /* get back to the start of the comment */
  1136.       PopMark(); 
  1137. ***************
  1138. *** 567,579 ****
  1139.           else
  1140.               ins_str(l_trailer, NO);
  1141.           if (curline->l_next != 0)
  1142. !             line_move(FORWARD, NO);
  1143.           else 
  1144.               break;
  1145.       } while (curline != entry_mark->m_line->l_next);
  1146.       /* handle the close comment symbol */
  1147.       if (curline == entry_mark->m_line->l_next) {
  1148. !         line_move(BACKWARD, NO);
  1149.           Eol();
  1150.       }
  1151.       DelWtSpace();
  1152. --- 564,576 ----
  1153.           else
  1154.               ins_str(l_trailer, NO);
  1155.           if (curline->l_next != 0)
  1156. !             line_move(FORWARD, 1, NO);
  1157.           else 
  1158.               break;
  1159.       } while (curline != entry_mark->m_line->l_next);
  1160.       /* handle the close comment symbol */
  1161.       if (curline == entry_mark->m_line->l_next) {
  1162. !         line_move(BACKWARD, 1, NO);
  1163.           Eol();
  1164.       }
  1165.       DelWtSpace();
  1166. ***************
  1167. *** 588,599 ****
  1168.               LineInsert(1);
  1169.               n_indent(indent_pos);
  1170.           } else
  1171. !             Insert(*cp);
  1172.       }
  1173.       ToMark(open_c_mark);
  1174.       Eol();
  1175. !     exp_p = NO;
  1176. !     DelNChar();
  1177.   }
  1178.   
  1179.   #endif CMT_FMT
  1180. --- 585,595 ----
  1181.               LineInsert(1);
  1182.               n_indent(indent_pos);
  1183.           } else
  1184. !             insert_c(*cp, 1);
  1185.       }
  1186.       ToMark(open_c_mark);
  1187.       Eol();
  1188. !     del_char(FORWARD, 1);
  1189.   }
  1190.   
  1191.   #endif CMT_FMT
  1192. diff -c ojove/case.c jove/case.c
  1193. *** ojove/case.c    Thu Jul 16 09:14:09 1987
  1194. --- jove/case.c    Fri Jun 12 10:45:46 1987
  1195. ***************
  1196. *** 16,31 ****
  1197.   
  1198.       DOTsave(&b);
  1199.   
  1200. !     if (exp < 0) {
  1201.           restore++;
  1202. !         exp = -exp;
  1203. !         num = exp;
  1204. !         BackChar();    /* Cap previous EXP chars */
  1205. !     } else
  1206. !         num = exp;
  1207.           
  1208. -     exp = 1;    /* So all the commands are done once */
  1209. - 
  1210.       while (num--) {
  1211.           if (upper(&linebuf[curchar])) {
  1212.               modify();
  1213. --- 16,28 ----
  1214.   
  1215.       DOTsave(&b);
  1216.   
  1217. !     num = arg_value();
  1218. !     if (num < 0) {
  1219.           restore++;
  1220. !         num = -num;
  1221. !         b_char(num);    /* Cap previous EXP chars */
  1222. !     }
  1223.           
  1224.       while (num--) {
  1225.           if (upper(&linebuf[curchar])) {
  1226.               modify();
  1227. ***************
  1228. *** 35,42 ****
  1229.               if (curline->l_next == 0)
  1230.                   break;
  1231.               SetLine(curline->l_next);
  1232. !         }
  1233. !         else
  1234.               curchar++;
  1235.       }
  1236.       if (restore)
  1237. --- 32,38 ----
  1238.               if (curline->l_next == 0)
  1239.                   break;
  1240.               SetLine(curline->l_next);
  1241. !         } else
  1242.               curchar++;
  1243.       }
  1244.       if (restore)
  1245. ***************
  1246. *** 51,65 ****
  1247.   
  1248.       DOTsave(&b);
  1249.   
  1250. !     if (exp < 0) {
  1251.           restore++;
  1252. !         exp = -exp;
  1253. !         num = exp;
  1254. !         BackWord();    /* Cap previous EXP words */
  1255. !     } else
  1256. !         num = exp;
  1257. !         
  1258. !     exp = 1;    /* So all the commands are done once */
  1259.   
  1260.       while (num--) {
  1261.           to_word(1);    /* Go to the beginning of the next word. */
  1262. --- 47,58 ----
  1263.   
  1264.       DOTsave(&b);
  1265.   
  1266. !     num = arg_value();
  1267. !     if (num < 0) {
  1268.           restore++;
  1269. !         num = -num;
  1270. !         b_word(num);        /* Cap previous EXP words */
  1271. !     }
  1272.   
  1273.       while (num--) {
  1274.           to_word(1);    /* Go to the beginning of the next word. */
  1275. ***************
  1276. *** 87,97 ****
  1277.       Bufpos    before;
  1278.   
  1279.       DOTsave(&before);
  1280. !     ForWord();    /* This'll go backward if negative argument. */
  1281.       case_reg(before.p_line, before.p_char, curline, curchar, up);
  1282.   }
  1283.   
  1284. ! static
  1285.   upper(c)
  1286.   register char    *c;
  1287.   {
  1288. --- 80,90 ----
  1289.       Bufpos    before;
  1290.   
  1291.       DOTsave(&before);
  1292. !     ForWord();    /* this'll go backward if negative argument */
  1293.       case_reg(before.p_line, before.p_char, curline, curchar, up);
  1294.   }
  1295.   
  1296. ! private
  1297.   upper(c)
  1298.   register char    *c;
  1299.   {
  1300. ***************
  1301. *** 121,127 ****
  1302.       (void) fixorder(&line1, &char1, &line2, &char2);
  1303.       DotTo(line1, char1);
  1304.   
  1305. -     exp = 1;
  1306.       for (;;) {
  1307.           if (curline == line2 && curchar == char2)
  1308.               break;
  1309. --- 114,119 ----
  1310. ***************
  1311. *** 130,136 ****
  1312.                   makedirty(curline);
  1313.                   modify();
  1314.               }
  1315. !         ForChar();
  1316.       }
  1317.   }
  1318.   
  1319. --- 122,128 ----
  1320.                   makedirty(curline);
  1321.                   modify();
  1322.               }
  1323. !         f_char(1);
  1324.       }
  1325.   }
  1326.   
  1327. diff -c ojove/ctype.c jove/ctype.c
  1328. *** ojove/ctype.c    Thu Jul 16 09:14:11 1987
  1329. --- jove/ctype.c    Wed Feb  4 11:37:21 1987
  1330. ***************
  1331. *** 89,91 ****
  1332. --- 89,111 ----
  1333.   {
  1334.       return ((CharTable[curbuf->b_major])[c]&(_W));
  1335.   }
  1336. + 
  1337. + char CaseEquiv[] = {
  1338. +     '\000',    '\001',    '\002',    '\003',    '\004',    '\005',    '\006',    '\007',
  1339. +     '\010',    '\011',    '\012',    '\013',    '\014',    '\015',    '\016',    '\017',
  1340. +     '\020',    '\021',    '\022',    '\023',    '\024',    '\025',    '\026',    '\027',
  1341. +     '\030',    '\031',    '\032',    '\033',    '\034',    '\035',    '\036',    '\037',
  1342. +     '\040',    '!',    '"',    '#',    '$',    '%',    '&',    '\'',
  1343. +     '(',    ')',    '*',    '+',    ',',    '-',    '.',    '/',
  1344. +     '0',    '1',    '2',    '3',    '4',    '5',    '6',    '7',
  1345. +     '8',    '9',    ':',    ';',    '<',    '=',    '>',    '?',
  1346. +     '@',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  1347. +     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  1348. +     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  1349. +     'X',    'Y',    'Z',    '[',    '\\',    ']',    '^',    '_',
  1350. +     '`',    'A',    'B',    'C',    'D',    'E',    'F',    'G',
  1351. +     'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
  1352. +     'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
  1353. +     'X',    'Y',    'Z',    '{',    '|',    '}',    '~',    '\177'
  1354. + };
  1355. + 
  1356. diff -c ojove/delete.c jove/delete.c
  1357. *** ojove/delete.c    Thu Jul 16 09:14:13 1987
  1358. --- jove/delete.c    Wed Jun 24 12:43:21 1987
  1359. ***************
  1360. *** 99,105 ****
  1361.   
  1362.   DelNChar()
  1363.   {
  1364. !     del_char(1);
  1365.   }
  1366.   
  1367.   /* Delete character backward */
  1368. --- 99,105 ----
  1369.   
  1370.   DelNChar()
  1371.   {
  1372. !     del_char(FORWARD, arg_value());
  1373.   }
  1374.   
  1375.   /* Delete character backward */
  1376. ***************
  1377. *** 107,134 ****
  1378.   DelPChar()
  1379.   {
  1380.       if (MinorMode(OverWrite)) {
  1381. !         int    count = min(exp, curchar);
  1382.   
  1383. !         DoTimes(BackChar(), count);
  1384. !         LastKeyStruck = ' ';    /* can you say gross? */
  1385. !         DoTimes(SelfInsert(), count);
  1386. !         DoTimes(BackChar(), count);
  1387.       } else        
  1388. !         del_char(0);
  1389.   }
  1390.   
  1391. ! /* Delete some characters.  If deleting `forward' then call for_char
  1392.      to the final position otherwise call back_char.  Then delete the
  1393.      region between the two with patchup(). */
  1394.   
  1395. ! del_char(forward)
  1396.   {
  1397.       Bufpos    before,
  1398.           after;
  1399. !     int    killp = (exp_p && abs(exp) > 1);
  1400.   
  1401.       DOTsave(&before);
  1402. !     (forward) ? ForChar() : BackChar();
  1403.       if (before.p_line == curline && before.p_char == curchar)
  1404.           complain((char *) 0);
  1405.       if (killp)
  1406. --- 107,138 ----
  1407.   DelPChar()
  1408.   {
  1409.       if (MinorMode(OverWrite)) {
  1410. !         int    count = min(arg_value(), curchar);
  1411.   
  1412. !         b_char(count);
  1413. ! 
  1414. !         /* overwrite with spaces */
  1415. !         set_arg_value(count);
  1416. !         LastKeyStruck = ' ';
  1417. !         SelfInsert();
  1418. ! 
  1419. !         b_char(count);
  1420.       } else        
  1421. !         del_char(BACKWARD, arg_value());
  1422.   }
  1423.   
  1424. ! /* Delete some characters.  If deleting forward then call for_char
  1425.      to the final position otherwise call back_char.  Then delete the
  1426.      region between the two with patchup(). */
  1427.   
  1428. ! del_char(dir, num)
  1429.   {
  1430.       Bufpos    before,
  1431.           after;
  1432. !     int    killp = (abs(num) > 1);
  1433.   
  1434.       DOTsave(&before);
  1435. !     (dir == FORWARD) ? f_char(num) : b_char(num);
  1436.       if (before.p_line == curline && before.p_char == curchar)
  1437.           complain((char *) 0);
  1438.       if (killp)
  1439. ***************
  1440. *** 249,258 ****
  1441.       register Mark    *dot;
  1442.       int    all;
  1443.   
  1444. -     exp = 1;
  1445.       if (!blnkp(&linebuf[curchar]))
  1446.           return;
  1447. !     dot = MakeMark(curline, curchar, FLOATER);
  1448.       all = !blnkp(linebuf);
  1449.       while (blnkp(linebuf) && curline->l_prev)
  1450.           SetLine(curline->l_prev);
  1451. --- 253,261 ----
  1452.       register Mark    *dot;
  1453.       int    all;
  1454.   
  1455.       if (!blnkp(&linebuf[curchar]))
  1456.           return;
  1457. !     dot = MakeMark(curline, curchar, M_FLOATER);
  1458.       all = !blnkp(linebuf);
  1459.       while (blnkp(linebuf) && curline->l_prev)
  1460.           SetLine(curline->l_prev);
  1461. ***************
  1462. *** 259,271 ****
  1463.       all |= (firstp(curline));
  1464.       Eol();
  1465.       DelWtSpace();
  1466. !     line_move(FORWARD, NO);
  1467.       while (blnkp(linebuf) && !eobp()) {
  1468.           DelWtSpace();
  1469. !         DelNChar();
  1470.       }
  1471.       if (!all && !eobp())
  1472. !         OpenLine();
  1473.       ToMark(dot);
  1474.       DelMark(dot);
  1475.   }
  1476. --- 262,274 ----
  1477.       all |= (firstp(curline));
  1478.       Eol();
  1479.       DelWtSpace();
  1480. !     line_move(FORWARD, 1, NO);
  1481.       while (blnkp(linebuf) && !eobp()) {
  1482.           DelWtSpace();
  1483. !         del_char(FORWARD, 1);
  1484.       }
  1485.       if (!all && !eobp())
  1486. !         open_lines(1);
  1487.       ToMark(dot);
  1488.       DelMark(dot);
  1489.   }
  1490. diff -c ojove/disp.c jove/disp.c
  1491. *** ojove/disp.c    Thu Jul 16 09:14:15 1987
  1492. --- jove/disp.c    Fri Jul 10 09:25:49 1987
  1493. ***************
  1494. *** 108,118 ****
  1495.           if (VisBell && VB)
  1496.               putstr(VB);
  1497.           else
  1498. ! #ifdef SYSV    /* release 2, at least */
  1499. !             putpad("$<20>\007", 1) ;
  1500. ! #else
  1501. !             putpad("20\007", 1);
  1502. ! #endif SYSV
  1503.       }
  1504.       flusho();
  1505.   }
  1506. --- 108,114 ----
  1507.           if (VisBell && VB)
  1508.               putstr(VB);
  1509.           else
  1510. !             putpad(BL, 1);
  1511.       }
  1512.       flusho();
  1513.   }
  1514. ***************
  1515. *** 787,793 ****
  1516.           ign_some = 0;
  1517.       char    line[132],
  1518.           *fmt = ModeFmt,
  1519. -         tmp[16],
  1520.           fillc,
  1521.           c;
  1522.       register Buffer    *thisbuf = w->w_bufp;
  1523. --- 783,788 ----
  1524. ***************
  1525. *** 889,902 ****
  1526.                   mode_app("[No file]");
  1527.               else {
  1528.                   if (c == 'f')
  1529. !                     mode_app(pr_name(thisbuf->b_fname));
  1530.                   else
  1531.                       mode_app(basename(thisbuf->b_fname));
  1532.               }
  1533.               break;
  1534.   
  1535. - 
  1536.           case 'n':
  1537.               for (bp = world, n = 1; bp != 0; bp = bp->b_next, n++)
  1538.                   if (bp == thisbuf)
  1539.                       break;
  1540. --- 884,899 ----
  1541.                   mode_app("[No file]");
  1542.               else {
  1543.                   if (c == 'f')
  1544. !                     mode_app(pr_name(thisbuf->b_fname, YES));
  1545.                   else
  1546.                       mode_app(basename(thisbuf->b_fname));
  1547.               }
  1548.               break;
  1549.   
  1550.           case 'n':
  1551. +             {
  1552. +             char    tmp[16];
  1553. + 
  1554.               for (bp = world, n = 1; bp != 0; bp = bp->b_next, n++)
  1555.                   if (bp == thisbuf)
  1556.                       break;
  1557. ***************
  1558. *** 904,909 ****
  1559. --- 901,907 ----
  1560.               sprintf(tmp, "%d", n);
  1561.               mode_app(tmp);
  1562.               break;
  1563. +             }
  1564.   
  1565.           case 'm':
  1566.               if (IsModified(w->w_bufp))
  1567. ***************
  1568. *** 933,940 ****
  1569.                      (int) theavg,
  1570.                      (int)((theavg - (int) theavg) * 100));
  1571.                   mode_app(minibuf);
  1572.               }
  1573. -             break;
  1574.   #endif
  1575.   
  1576.           case 'C':    /* check mail here */
  1577. --- 931,938 ----
  1578.                      (int) theavg,
  1579.                      (int)((theavg - (int) theavg) * 100));
  1580.                   mode_app(minibuf);
  1581. +             break;
  1582.               }
  1583.   #endif
  1584.   
  1585.           case 'C':    /* check mail here */
  1586. ***************
  1587. *** 944,950 ****
  1588.   
  1589.   #ifdef CHDIR
  1590.           case 'd':    /* print working directory */
  1591. !             mode_app(pr_name(pwd()));
  1592.               break;
  1593.   #endif
  1594.               
  1595. --- 942,948 ----
  1596.   
  1597.   #ifdef CHDIR
  1598.           case 'd':    /* print working directory */
  1599. !             mode_app(pr_name(pwd(), YES));
  1600.               break;
  1601.   #endif
  1602.               
  1603. ***************
  1604. *** 958,963 ****
  1605. --- 956,975 ----
  1606.   
  1607.                   goto outahere;        /* %e means we're done! */
  1608.               }
  1609. + 
  1610. + #ifdef IPROCS
  1611. +         case 'p':
  1612. +             if (thisbuf->b_type != B_PROCESS) {
  1613. +             char    tmp[40];
  1614. + 
  1615. +             sprintf(tmp, "(%s)", (thisbuf->b_process == 0) ?
  1616. +                          "No process" :
  1617. +                          pstate(thisbuf->b_process));
  1618. +             mode_app(tmp);
  1619. +             break;
  1620. +             }
  1621. + #endif
  1622. + 
  1623.           }
  1624.       }
  1625.   
  1626. ***************
  1627. *** 980,987 ****
  1628.   
  1629.   RedrawDisplay()
  1630.   {
  1631. !     Line    *newtop = prev_line((curwind->w_line = curline), exp_p ?
  1632. !                 exp : HALF(curwind));
  1633.   
  1634.       if (newtop == curwind->w_top)
  1635.           v_clear(FLine(curwind), FLine(curwind) + SIZE(curwind));
  1636. --- 992,999 ----
  1637.   
  1638.   RedrawDisplay()
  1639.   {
  1640. !     Line    *newtop = prev_line((curwind->w_line = curline), is_an_arg() ?
  1641. !                 arg_value() : HALF(curwind));
  1642.   
  1643.       if (newtop == curwind->w_top)
  1644.           v_clear(FLine(curwind), FLine(curwind) + SIZE(curwind));
  1645. ***************
  1646. *** 1016,1027 ****
  1647.   
  1648.       if (Asking)
  1649.           return;
  1650. !     if (exp < 0) {
  1651. !         exp = -exp;
  1652.           PrevPage();
  1653.           return;
  1654.       }
  1655. !     if (exp_p == YES)
  1656.           UpScroll();
  1657.       else {
  1658.           if (in_window(curwind, curwind->w_bufp->b_last) != -1) {
  1659. --- 1028,1039 ----
  1660.   
  1661.       if (Asking)
  1662.           return;
  1663. !     if (arg_value() < 0) {
  1664. !         negate_arg_value();
  1665.           PrevPage();
  1666.           return;
  1667.       }
  1668. !     if (arg_type() == YES)
  1669.           UpScroll();
  1670.       else {
  1671.           if (in_window(curwind, curwind->w_bufp->b_last) != -1) {
  1672. ***************
  1673. *** 1041,1052 ****
  1674.   
  1675.       if (Asking)
  1676.           return;
  1677. !     if (exp < 0) {
  1678. !         exp = -exp;
  1679.           NextPage();
  1680.           return;
  1681.       }
  1682. !     if (exp_p == YES)
  1683.           DownScroll();
  1684.       else {
  1685.           newline = prev_line(curwind->w_top, max(1, SIZE(curwind) - 1));
  1686. --- 1053,1064 ----
  1687.   
  1688.       if (Asking)
  1689.           return;
  1690. !     if (arg_value() < 0) {
  1691. !         negate_arg_value();
  1692.           NextPage();
  1693.           return;
  1694.       }
  1695. !     if (arg_type() == YES)
  1696.           DownScroll();
  1697.       else {
  1698.           newline = prev_line(curwind->w_top, max(1, SIZE(curwind) - 1));
  1699. ***************
  1700. *** 1058,1064 ****
  1701.   
  1702.   UpScroll()
  1703.   {
  1704. !     SetTop(curwind, next_line(curwind->w_top, exp));
  1705.       if ((curwind->w_bufp == curbuf) &&
  1706.           (in_window(curwind, curline) == -1))
  1707.           SetLine(curwind->w_top);
  1708. --- 1070,1076 ----
  1709.   
  1710.   UpScroll()
  1711.   {
  1712. !     SetTop(curwind, next_line(curwind->w_top, arg_value()));
  1713.       if ((curwind->w_bufp == curbuf) &&
  1714.           (in_window(curwind, curline) == -1))
  1715.           SetLine(curwind->w_top);
  1716. ***************
  1717. *** 1066,1072 ****
  1718.   
  1719.   DownScroll()
  1720.   {
  1721. !     SetTop(curwind, prev_line(curwind->w_top, exp));
  1722.       if ((curwind->w_bufp == curbuf) &&
  1723.           (in_window(curwind, curline) == -1))
  1724.           SetLine(curwind->w_top);
  1725. --- 1078,1084 ----
  1726.   
  1727.   DownScroll()
  1728.   {
  1729. !     SetTop(curwind, prev_line(curwind->w_top, arg_value()));
  1730.       if ((curwind->w_bufp == curbuf) &&
  1731.           (in_window(curwind, curline) == -1))
  1732.           SetLine(curwind->w_top);
  1733. ***************
  1734. *** 1101,1108 ****
  1735.       if (Asking)
  1736.           return;
  1737.       SetLine(next_line(curwind->w_top, SIZE(curwind) - 1 -
  1738. !             min(SIZE(curwind) - 1, exp - 1)));
  1739. !     if (exp_p == NO)
  1740.           Eol();
  1741.   }
  1742.   
  1743. --- 1113,1120 ----
  1744.       if (Asking)
  1745.           return;
  1746.       SetLine(next_line(curwind->w_top, SIZE(curwind) - 1 -
  1747. !             min(SIZE(curwind) - 1, arg_value() - 1)));
  1748. !     if (!is_an_arg())
  1749.           Eol();
  1750.   }
  1751.   
  1752. ***************
  1753. *** 1112,1118 ****
  1754.   {
  1755.       if (Asking)
  1756.           return;
  1757. !     SetLine(next_line(curwind->w_top, min(SIZE(curwind) - 1, exp - 1)));
  1758.   }
  1759.   
  1760.   private int    LineNo,
  1761. --- 1124,1130 ----
  1762.   {
  1763.       if (Asking)
  1764.           return;
  1765. !     SetLine(next_line(curwind->w_top, min(SIZE(curwind) - 1, arg_value() - 1)));
  1766.   }
  1767.   
  1768.   private int    LineNo,
  1769. ***************
  1770. *** 1158,1164 ****
  1771.           f_mess("--more--");
  1772.           if ((c = getchar()) != ' ') {
  1773.               TOabort++;
  1774. !             if (c != CTL(G) && c != RUBOUT)
  1775.                   Ungetc(c);
  1776.               return;
  1777.           }
  1778. --- 1170,1176 ----
  1779.           f_mess("--more--");
  1780.           if ((c = getchar()) != ' ') {
  1781.               TOabort++;
  1782. !             if (c != CTL('G') && c != RUBOUT)
  1783.                   Ungetc(c);
  1784.               return;
  1785.           }
  1786. Common subdirectories: ojove/doc and jove/doc
  1787. diff -c ojove/extend.c jove/extend.c
  1788. *** ojove/extend.c    Thu Jul 16 09:14:18 1987
  1789. --- jove/extend.c    Tue Jun 23 13:50:18 1987
  1790. ***************
  1791. *** 78,86 ****
  1792.   {
  1793.       register int    i;
  1794.   
  1795. !     exp_p = YES;
  1796. !     exp = 1;    /* So minor modes don't toggle.  We always want
  1797. !                them on. */
  1798.       if (new == 0)
  1799.           return;
  1800.       for (i = 0; i < ExecIndex; i++)
  1801. --- 78,84 ----
  1802.   {
  1803.       register int    i;
  1804.   
  1805. !     set_arg_value(1);
  1806.       if (new == 0)
  1807.           return;
  1808.       for (i = 0; i < ExecIndex; i++)
  1809. ***************
  1810. *** 165,171 ****
  1811.           } else if (c == '^') {
  1812.               if ((c = getch()) == '?')
  1813.                   c = RUBOUT;
  1814. !             else if (isalpha(c) || index("[\\]^_", c))
  1815.                   c = c - '@';
  1816.               else
  1817.                   complain("[Unknown control character]");
  1818. --- 163,169 ----
  1819.           } else if (c == '^') {
  1820.               if ((c = getch()) == '?')
  1821.                   c = RUBOUT;
  1822. !             else if (isalpha(c) || index("@[\\]^_", c))
  1823.                   c = c - '@';
  1824.               else
  1825.                   complain("[Unknown control character]");
  1826. ***************
  1827. *** 320,326 ****
  1828.               sprintf(keydescbuf, "%s %p", pref, c1);
  1829.           else
  1830.               sprintf(keydescbuf, "%s [%p-%p]", pref, c1, c2);
  1831. !         if (prefp = IsPrefix(map[c1]))
  1832.               DescMap(prefp, keydescbuf);
  1833.           else
  1834.               Typeout("%-14s%s", keydescbuf, map[c1]->Name);
  1835. --- 318,324 ----
  1836.               sprintf(keydescbuf, "%s %p", pref, c1);
  1837.           else
  1838.               sprintf(keydescbuf, "%s [%p-%p]", pref, c1, c2);
  1839. !         if ((prefp = IsPrefix(map[c1])) && (prefp != map))
  1840.               DescMap(prefp, keydescbuf);
  1841.           else
  1842.               Typeout("%-14s%s", keydescbuf, map[c1]->Name);
  1843. ***************
  1844. *** 377,383 ****
  1845.                   break;
  1846.               }
  1847.           }
  1848. !         if (prefp = IsPrefix(map[c1])) {
  1849.               sprintf(prefbuf, "%p", c1);
  1850.               fb_aux(cp, prefp, prefbuf, bufp);
  1851.           }
  1852. --- 375,381 ----
  1853.                   break;
  1854.               }
  1855.           }
  1856. !         if ((prefp = IsPrefix(map[c1])) && (prefp != map))  {
  1857.               sprintf(prefbuf, "%p", c1);
  1858.               fb_aux(cp, prefp, prefbuf, bufp);
  1859.           }
  1860. ***************
  1861. *** 640,654 ****
  1862.               comp_value = NULLSTRING;
  1863.               return 0;
  1864.           }
  1865. !         if (comp_flags & RET_STATE) switch (command) {
  1866. !             case UNIQUE:
  1867. !             case ORIGINAL:
  1868. !             case NULLSTRING:
  1869. !                 comp_value = command;
  1870. !                 return 0;
  1871. ! 
  1872. !             default:
  1873. !                 break;
  1874.           }
  1875.           if (InJoverc)
  1876.               complain("[\"%s\" unknown]", linebuf);
  1877. --- 638,646 ----
  1878.               comp_value = NULLSTRING;
  1879.               return 0;
  1880.           }
  1881. !         if (comp_flags & RET_STATE) {
  1882. !             comp_value = command;
  1883. !             return 0;
  1884.           }
  1885.           if (InJoverc)
  1886.               complain("[\"%s\" unknown]", linebuf);
  1887. ***************
  1888. *** 800,812 ****
  1889.           nchars += length(lp) + (lp->l_next != 0); /* include the NL */
  1890.       }
  1891.   
  1892. !     s_mess("[\"%s\" line %d of %d, char %D of %D (%d%%)]",
  1893. !             filename(curbuf),
  1894. !             dotline,
  1895. !             i,
  1896. !             dotchar,
  1897. !             nchars,
  1898. !             (int) (((long) dotchar * 100) / nchars));
  1899.   }
  1900.   
  1901.   #define IF_UNBOUND    -1
  1902. --- 792,802 ----
  1903.           nchars += length(lp) + (lp->l_next != 0); /* include the NL */
  1904.       }
  1905.   
  1906. !     s_mess("[\"%s\" line %d/%d, char %D/%D (%d%%), cursor = %d/%d]",
  1907. !            filename(curbuf), dotline, i, dotchar, nchars,
  1908. !            (nchars == 0) ? 100 : (int) (((long) dotchar * 100) / nchars),
  1909. !            calc_pos(linebuf, curchar),
  1910. !            calc_pos(linebuf, strlen(linebuf)));
  1911.   }
  1912.   
  1913.   #define IF_UNBOUND    -1
  1914. ***************
  1915. *** 884,890 ****
  1916.           Buffer    *savebuf = curbuf;
  1917.   
  1918.           SetBuf(do_select((Window *) 0, "RC errors"));
  1919. !         ins_str(sprint("%s:%d:%s\t%s\n", pr_name(file), lnum, lbuf, mesgbuf), NO);
  1920.           unmodify();
  1921.           SetBuf(savebuf);
  1922.           Asking = 0;
  1923. --- 874,880 ----
  1924.           Buffer    *savebuf = curbuf;
  1925.   
  1926.           SetBuf(do_select((Window *) 0, "RC errors"));
  1927. !         ins_str(sprint("%s:%d:%s\t%s\n", pr_name(file, YES), lnum, lbuf, mesgbuf), NO);
  1928.           unmodify();
  1929.           SetBuf(savebuf);
  1930.           Asking = 0;
  1931. diff -c ojove/fmt.c jove/fmt.c
  1932. *** ojove/fmt.c    Thu Jul 16 09:14:21 1987
  1933. --- jove/fmt.c    Fri May 29 12:49:31 1987
  1934. ***************
  1935. *** 33,42 ****
  1936.       putc('\0', sp);
  1937.   }
  1938.   
  1939. ! static char    padc = ' ';
  1940. ! static File    *curiop = 0;
  1941. ! 
  1942. ! static
  1943.   PPchar(c, str)
  1944.   int    c;
  1945.   char    *str;
  1946. --- 33,39 ----
  1947.       putc('\0', sp);
  1948.   }
  1949.   
  1950. ! private
  1951.   PPchar(c, str)
  1952.   int    c;
  1953.   char    *str;
  1954. ***************
  1955. *** 53,98 ****
  1956.           sprintf(cp, "%c", c);
  1957.   }
  1958.   
  1959. ! static
  1960. ! putld(leftadj, width, d, base)
  1961.   long    d;
  1962.   {
  1963.       int    length = 1;
  1964.       long    tmpd = d;
  1965.   
  1966.       while (tmpd = (tmpd / base))
  1967.           length++;
  1968.       if (d < 0)
  1969.           length++;
  1970. !     if (!leftadj)
  1971. !         pad(padc, width - length);
  1972.       if (d < 0) {
  1973. !         putc('-', curiop);
  1974.           d = -d;
  1975.       }
  1976.       outld(d, base);
  1977. !     if (leftadj)
  1978. !         pad(padc, width - length);
  1979.   }
  1980.   
  1981. ! static
  1982.   outld(d, base)
  1983.   long    d;
  1984.   {
  1985. !     long    n;
  1986.   
  1987.       if (n = (d / base))
  1988.           outld(n, base);
  1989. !     putc((int) ('0' + (int) (d % base)), curiop);
  1990.   }
  1991.   
  1992. ! static
  1993. ! puts(leftadj, width, str)
  1994.   char    *str;
  1995.   {
  1996.       int    length;
  1997. !     register char    *cp,
  1998. !             c;
  1999.   
  2000.       if (str == 0)
  2001.   #if pyr
  2002. --- 50,106 ----
  2003.           sprintf(cp, "%c", c);
  2004.   }
  2005.   
  2006. ! private struct fmt_state {
  2007. !     int    precision,
  2008. !         width,
  2009. !         leftadj;
  2010. !     char    padc;
  2011. !     File    *iop;
  2012. ! } current_fmt;
  2013. ! 
  2014. ! private
  2015. ! putld(d, base)
  2016.   long    d;
  2017.   {
  2018.       int    length = 1;
  2019.       long    tmpd = d;
  2020.   
  2021. +     if (current_fmt.width == 0 && current_fmt.precision) {
  2022. +         current_fmt.width = current_fmt.precision;
  2023. +         current_fmt.padc = '0';
  2024. +     }
  2025.       while (tmpd = (tmpd / base))
  2026.           length++;
  2027.       if (d < 0)
  2028.           length++;
  2029. !     if (!current_fmt.leftadj)
  2030. !         pad(current_fmt.padc, current_fmt.width - length);
  2031.       if (d < 0) {
  2032. !         putc('-', current_fmt.iop);
  2033.           d = -d;
  2034.       }
  2035.       outld(d, base);
  2036. !     if (current_fmt.leftadj)
  2037. !         pad(current_fmt.padc, current_fmt.width - length);
  2038.   }
  2039.   
  2040. ! private
  2041.   outld(d, base)
  2042.   long    d;
  2043.   {
  2044. !     register long    n;
  2045.   
  2046.       if (n = (d / base))
  2047.           outld(n, base);
  2048. !     putc((int) ('0' + (int) (d % base)), current_fmt.iop);
  2049.   }
  2050.   
  2051. ! private
  2052. ! puts(str)
  2053.   char    *str;
  2054.   {
  2055.       int    length;
  2056. !     register char    *cp;
  2057.   
  2058.       if (str == 0)
  2059.   #if pyr
  2060. ***************
  2061. *** 101,125 ****
  2062.           str = "(null)";
  2063.   #endif
  2064.       length = strlen(str);
  2065.       cp = str;
  2066. !     if (!leftadj)
  2067. !         pad(' ', width - length);
  2068. !     while (c = *cp++)
  2069. !         putc(c, curiop);
  2070. !     if (leftadj)
  2071. !         pad(' ', width - length);
  2072.   }
  2073.   
  2074. ! static
  2075.   pad(c, amount)
  2076.   register int    c,
  2077.           amount;
  2078.   {
  2079.       while (--amount >= 0)
  2080. !         putc(c, curiop);
  2081.   }
  2082.   
  2083. ! static
  2084.   doformat(sp, fmt, ap)
  2085.   register File    *sp;
  2086.   register char    *fmt;
  2087. --- 109,137 ----
  2088.           str = "(null)";
  2089.   #endif
  2090.       length = strlen(str);
  2091. +     if (current_fmt.precision == 0 || length < current_fmt.precision)
  2092. +         current_fmt.precision = length;
  2093. +     else
  2094. +         length = current_fmt.precision;
  2095.       cp = str;
  2096. !     if (!current_fmt.leftadj)
  2097. !         pad(' ', current_fmt.width - length);
  2098. !     while (--current_fmt.precision >= 0)
  2099. !         putc(*cp++, current_fmt.iop);
  2100. !     if (current_fmt.leftadj)
  2101. !         pad(' ', current_fmt.width - length);
  2102.   }
  2103.   
  2104. ! private
  2105.   pad(c, amount)
  2106.   register int    c,
  2107.           amount;
  2108.   {
  2109.       while (--amount >= 0)
  2110. !         putc(c, current_fmt.iop);
  2111.   }
  2112.   
  2113. ! private
  2114.   doformat(sp, fmt, ap)
  2115.   register File    *sp;
  2116.   register char    *fmt;
  2117. ***************
  2118. *** 126,171 ****
  2119.   va_list    ap;
  2120.   {
  2121.       register char    c;
  2122. !     int    leftadj,
  2123. !         width;
  2124. !     File    *pushiop = curiop;
  2125.   
  2126. !     curiop = sp;
  2127.   
  2128.       while (c = *fmt++) {
  2129.           if (c != '%') {
  2130. !             putc(c, sp);
  2131.               continue;
  2132.           }
  2133.   
  2134. !         padc = ' ';
  2135. !         leftadj = width = 0;
  2136.           c = *fmt++;
  2137.           if (c == '-') {
  2138. !             leftadj++;
  2139.               c = *fmt++;
  2140.           }
  2141.           if (c == '0') {
  2142. !             padc = '0';
  2143.               c = *fmt++;
  2144.           }
  2145.           while (c >= '0' && c <= '9') {
  2146. !             width = width * 10 + (c - '0');
  2147.               c = *fmt++;
  2148.           }
  2149.           if (c == '*') {
  2150. !             width = va_arg(ap, int);
  2151.               c = *fmt++;
  2152.           }
  2153.       reswitch:
  2154.           /* At this point, fmt points at one past the format letter. */
  2155.           switch (c) {
  2156.           case '%':
  2157. !             putc('%', curiop);
  2158.               break;
  2159.       
  2160.           case 'D':
  2161. !             putld(leftadj, width, va_arg(ap, long), 10);
  2162.               break;
  2163.       
  2164.           case 'b':
  2165. --- 138,193 ----
  2166.   va_list    ap;
  2167.   {
  2168.       register char    c;
  2169. !     struct fmt_state    prev_fmt;
  2170.   
  2171. !     prev_fmt = current_fmt;
  2172. !     current_fmt.iop = sp;
  2173.   
  2174.       while (c = *fmt++) {
  2175.           if (c != '%') {
  2176. !             putc(c, current_fmt.iop);
  2177.               continue;
  2178.           }
  2179.   
  2180. !         current_fmt.padc = ' ';
  2181. !         current_fmt.precision = current_fmt.leftadj = current_fmt.width = 0;
  2182.           c = *fmt++;
  2183.           if (c == '-') {
  2184. !             current_fmt.leftadj = YES;
  2185.               c = *fmt++;
  2186.           }
  2187.           if (c == '0') {
  2188. !             current_fmt.padc = '0';
  2189.               c = *fmt++;
  2190.           }
  2191.           while (c >= '0' && c <= '9') {
  2192. !             current_fmt.width = current_fmt.width * 10 + (c - '0');
  2193.               c = *fmt++;
  2194.           }
  2195.           if (c == '*') {
  2196. !             current_fmt.width = va_arg(ap, int);
  2197.               c = *fmt++;
  2198.           }
  2199. +         if (c == '.') {
  2200. +             c = *fmt++;
  2201. +             while (c >= '0' && c <= '9') {
  2202. +                 current_fmt.precision = current_fmt.precision * 10 + (c - '0');
  2203. +                 c = *fmt++;
  2204. +             }
  2205. +             if (c == '*') {
  2206. +                 current_fmt.precision = va_arg(ap, int);
  2207. +                 c = *fmt++;
  2208. +             }
  2209. +         }
  2210.       reswitch:
  2211.           /* At this point, fmt points at one past the format letter. */
  2212.           switch (c) {
  2213.           case '%':
  2214. !             putc('%', current_fmt.iop);
  2215.               break;
  2216.       
  2217.           case 'D':
  2218. !             putld(va_arg(ap, long), 10);
  2219.               break;
  2220.       
  2221.           case 'b':
  2222. ***************
  2223. *** 172,204 ****
  2224.               {
  2225.               Buffer    *b = va_arg(ap, Buffer *);
  2226.   
  2227. !             puts(leftadj, width, b->b_name);
  2228.               break;
  2229.               }
  2230.   
  2231.           case 'c':
  2232. !             putc(va_arg(ap, int), curiop);
  2233.               break;
  2234.       
  2235.           case 'd':
  2236. !             putld(leftadj, width, (long) va_arg(ap, int), 10);
  2237.               break;
  2238.       
  2239.           case 'f':    /* current command name gets inserted here! */
  2240. !             puts(leftadj, width, LastCmd->Name);
  2241.               break;
  2242.   
  2243.           case 'l':
  2244. !             c = Upper(*++fmt);
  2245.               goto reswitch;
  2246.       
  2247.           case 'n':
  2248.               if (va_arg(ap, int) != 1)
  2249. !                 puts(leftadj, width, "s");
  2250.               break;
  2251.   
  2252.           case 'o':
  2253. !             putld(leftadj, width, (long) va_arg(ap, int), 8);
  2254.               break;
  2255.       
  2256.           case 'p':
  2257. --- 194,226 ----
  2258.               {
  2259.               Buffer    *b = va_arg(ap, Buffer *);
  2260.   
  2261. !             puts(b->b_name);
  2262.               break;
  2263.               }
  2264.   
  2265.           case 'c':
  2266. !             putc(va_arg(ap, int), current_fmt.iop);
  2267.               break;
  2268.       
  2269.           case 'd':
  2270. !             putld((long) va_arg(ap, int), 10);
  2271.               break;
  2272.       
  2273.           case 'f':    /* current command name gets inserted here! */
  2274. !             puts(LastCmd->Name);
  2275.               break;
  2276.   
  2277.           case 'l':
  2278. !             c = CharUpcase(*++fmt);
  2279.               goto reswitch;
  2280.       
  2281.           case 'n':
  2282.               if (va_arg(ap, int) != 1)
  2283. !                 puts("s");
  2284.               break;
  2285.   
  2286.           case 'o':
  2287. !             putld((long) va_arg(ap, int), 8);
  2288.               break;
  2289.       
  2290.           case 'p':
  2291. ***************
  2292. *** 206,217 ****
  2293.                   char    cbuf[20];
  2294.   
  2295.                   PPchar(va_arg(ap, int), cbuf);
  2296. !                 puts(leftadj, width, cbuf);
  2297.                   break;
  2298.               }
  2299.   
  2300.           case 's':
  2301. !             puts(leftadj, width, va_arg(ap, char *));
  2302.               break;
  2303.           
  2304.           default:
  2305. --- 228,239 ----
  2306.                   char    cbuf[20];
  2307.   
  2308.                   PPchar(va_arg(ap, int), cbuf);
  2309. !                 puts(cbuf);
  2310.                   break;
  2311.               }
  2312.   
  2313.           case 's':
  2314. !             puts(va_arg(ap, char *));
  2315.               break;
  2316.           
  2317.           default:
  2318. ***************
  2319. *** 218,224 ****
  2320.               complain("Unknown format directive: \"%%%c\"", c);
  2321.           }
  2322.       }
  2323. !     curiop = pushiop;
  2324.   }
  2325.   
  2326.   /* VARARGS1 */
  2327. --- 240,246 ----
  2328.               complain("Unknown format directive: \"%%%c\"", c);
  2329.           }
  2330.       }
  2331. !     current_fmt = prev_fmt;
  2332.   }
  2333.   
  2334.   /* VARARGS1 */
  2335.