home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume28 / mush / patch04a next >
Text File  |  1992-02-23  |  50KB  |  1,415 lines
  1. Newsgroups: comp.sources.misc
  2. From: bart@zigzag.z-code.com (Bart Schaefer)
  3. Subject:  v28i067:  mush - Mail User's Shell, Patch04a/2
  4. Message-ID: <csm-v28i067=mush.213653@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: 745678f835c093a01dc4e1fe3e37b59c
  6. Date: Mon, 24 Feb 1992 03:37:20 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: bart@zigzag.z-code.com (Bart Schaefer)
  10. Posting-number: Volume 28, Issue 67
  11. Archive-name: mush/patch04a
  12. Environment: UNIX
  13. Patch-To: mush: Volume 18, Issue 58-79
  14.  
  15. This is Part 01 of Official Patch #4 for Mush 7.2.  To apply this patch,
  16. save this message to a file in your mush source directory and type:
  17.  
  18.     patch -N -p1 < file
  19.  
  20. If you are using an Apollo workstation, you will first need to apply
  21. Part 02 of this patch, and then proceed with:
  22.  
  23.     sh apollo.shar
  24.     patch -N -p1 < apollo.patch
  25.  
  26. See the files README and README.apollo for details.
  27.  
  28. Bug fixes in this patch (see README and README-7.2.4 for other changes):
  29.  
  30.   * A couple of long-standing array overflow and "underflow" bugs found
  31.     and squished.
  32.  
  33.   * Interrupting the "bind" curses-mode command now works more like the
  34.     other interruptible commands.
  35.  
  36.   * The "stty" command behaves itself.
  37.  
  38.   * Non-SYSV systems using DOT_LOCK won't get strange reports from the
  39.     "save" command about messages saved to the lock file.  (That wasn't
  40.     happening but the output was confusing.)
  41.  
  42.   * Using the "folder" curses-mode command will now remove empty folder
  43.     files if the line-mode "folder" would do so.
  44.  
  45.   * SYSV systems should have no more complaints about EWOULDBLOCK not
  46.     being defined in file.c.
  47.  
  48.   * The "folder" command won't print the folder status line if piping
  49.     or otherwise told to shut up (e.g. "mush -N").
  50.  
  51.   * Attempting to reference a $[%x] header-formatted variable during
  52.     initialization no longer causes a core dump.  You still can't do
  53.     it, but at least mush refuses politely.
  54.  
  55.   * The "reply" family of commands do a better job with addresses
  56.     whose real name or comment fields contain double-quote characters.
  57.     Specifically, they put such names in ( ) instead of in " ".
  58.  
  59.   * Over-long lines in init files and "source" files now generate an
  60.     error message instead of truncating silently.
  61.  
  62.   * Systems using DOT_LOCK should no longer find dead lock files lying
  63.     about.  The whole DOT_LOCK procedure has been made more robust so
  64.     it can be used as a failsafe on systems with NFS-mounted spools.
  65.  
  66.   * Tty twiddling is no longer done in headers-only mode ("mush -H").
  67.  
  68.   * The little-used feature of referencing another variable from within
  69.     the autosign and autosign2 variables actually works now.  I probably
  70.     should just have removed it altogether.
  71.  
  72.   * Compiling with SUNTOOL defined no longer breaks the lock-failed case
  73.     in folder updating for line mode.
  74.  
  75.   * The descriptive output from "pick" is now correct when using -x with
  76.     a date search.
  77.  
  78. @OFF
  79.  
  80. As usual, complete sources for Mush (already including the changes in this
  81. patch) can be obtained via anonymous ftp from:
  82.  
  83.                   cse.ogi.edu:pub/mush/mush-7.2.tar.Z
  84.  
  85. It may be a few days before I have a chance to update the cse.ogi.edu
  86. archive, so if you need 7.2.4 _now_, save this patch before retrieving
  87. the rest of the source.
  88.  
  89. Mush 7.2 was most recently posted to comp.sources.misc at patchlevel 2.
  90. Patches 3, 4, and any future patches will be made available for ftp from
  91. cse.ogi.edu, or you can send E-mail to me:
  92.  
  93.                          schaefer@cse.ogi.edu
  94.  
  95. Include in your message a line of the form
  96.  
  97. @PATCH patch-number path-from-ogicse-to-you
  98.  
  99. where patch-number is the number of the patch you need (digit, 1 or 2)
  100. and path-from-ogicse-to-you is either your Internet domain address or
  101. a UUCP path from site ogicse to you at your site.  There continue to
  102. be sendmail configuration problems at ogicse so please do not use mixed
  103. UUCP and Internet addresses and do not use domain names (with `.'s) in
  104. UUCP paths.  Ogicse does do UUCP map lookups now, so user@site.UUCP will
  105. often work if your site is registered.  If you don't get your patches
  106. in 2 or 3 days, try again, but use a different path.
  107.  
  108. You may include one @PATCH line for each patch you need.
  109.  
  110. You can also recieve a complete set of sources by E-mail by including
  111. a line of the form
  112.  
  113. @MUSH path-from-ogicse-to-you
  114.  
  115. where path-from-ogicse-to-you is as above.  You need not request both
  116. source and patches; the source you receive will include all current
  117. patches.  Sources are shipped as a 10-part compressed tar file, encoded
  118. for mailing with the "btoa" utility.  You will receive instructions
  119. explaining how to unpack the tar file in a separate message.
  120.  
  121. Decwrl also operates an E-mail server that accesses anonymous ftp.  To
  122. get instructions, send a message to:
  123.  
  124.                         ftpmail@decwrl.dec.com
  125.  
  126. Include the following lines in the text:
  127.  
  128. help
  129. quit
  130.  
  131. To get the mush sources, send the following:
  132.  
  133. reply your-email-address
  134. connect cse.ogi.edu
  135. chdir pub/mush
  136. btoa                <-- replace with uuencode if you prefer
  137. binary
  138. get mush-7.2.tar.Z
  139. quit
  140.  
  141. Other information, plus questions and answers, on mush and mush patches
  142. is available from the mush-users mailing list, which is gatewayed in
  143. both directions with newsgroup comp.mail.mush.  The list currently
  144. resides at mush-users@apple.com.  Requests to be added to or deleted
  145. from the list should be sent to mush-users-request@apple.com
  146.  
  147. Prereq: "5/22/91"
  148. *** 7.2.3/version.h    Wed May 22 19:08:41 1991
  149. --- 7.2.4/version.h    Thu Jan 30 22:53:42 1992
  150. ***************
  151. *** 1,7 ****
  152.   /* @(#)version.h    (c) Copyright 1989, 1990, 1991 (Dan Heller) */
  153.   
  154.   #define MUSHNAME    "Mail User's Shell"
  155. ! #define RELEASE_DATE    "5/22/91"
  156.   #define RELEASE        7
  157.   #define REVISION    "2"
  158. ! #define PATCHLEVEL    3
  159. --- 1,7 ----
  160.   /* @(#)version.h    (c) Copyright 1989, 1990, 1991 (Dan Heller) */
  161.   
  162.   #define MUSHNAME    "Mail User's Shell"
  163. ! #define RELEASE_DATE    "2/2/92"
  164.   #define RELEASE        7
  165.   #define REVISION    "2"
  166. ! #define PATCHLEVEL    4
  167. *** 7.2.3/README    Wed May 22 23:50:44 1991
  168. --- 7.2.4/README    Sun Feb  2 09:21:32 1992
  169. ***************
  170. *** 1,11 ****
  171. ! /* @(#)README        (c) copyright 9/15/89    (Dan Heller) */
  172.   
  173. ! Author:
  174.       Dan Heller
  175.   
  176.   Network addresses:
  177. !     argv@sun.com        argv@monet.berkeley.edu.
  178. !     argv@garp.mit.edu        dheller@ucbcory.berkeley.edu
  179.   
  180.   When sending mail, mail to the addresses in the order given.
  181.   
  182. --- 1,12 ----
  183. ! /* @(#)README        (c) copyright 2/1/92    (Dan Heller) */
  184.   
  185. ! Authors:
  186.       Dan Heller
  187. +     Bart Schaefer
  188.   
  189.   Network addresses:
  190. !     argv@z-code.com        argv@sun.com        argv@ora.com
  191. !     schaefer@zigzag.z-code.com            schaefer@cse.ogi.edu
  192.   
  193.   When sending mail, mail to the addresses in the order given.
  194.   
  195. ***************
  196. *** 33,47 ****
  197.   may be used in any other product, free or otherwise, without consent from
  198.   the authors.
  199.   
  200.   With that out of the way...
  201.   
  202.   Mush runs on various flavors of unix.  To build mush, you should identify
  203.   which unix you are running:
  204.   
  205. !     Sun (all versions from 3.5 and higher).
  206.       BSD (versions 4.2 and up, or SunOS earlier than 3.5)
  207.       System-V / Version 7 / System III (Bell Labs)
  208.       Xenix (this might be tricky)
  209.   
  210.   You will need to copy "config.h-dist" to config.h and edit it to reflect
  211.   the system dependencies described there.  These consist of "compile-time
  212. --- 34,53 ----
  213.   may be used in any other product, free or otherwise, without consent from
  214.   the authors.
  215.   
  216. + MUSH IS PROVIDED AS IS, WITHOUT WARRANTY.  AUTHORS HEREBY DISCLAIM
  217. + ALL WARRANTIES INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
  218. + OF FITNESS FOR A PARTICULAR PURPOSE.
  219. + 
  220.   With that out of the way...
  221.   
  222.   Mush runs on various flavors of unix.  To build mush, you should identify
  223.   which unix you are running:
  224.   
  225. !     SunOS (all versions from 3.5 and higher).
  226.       BSD (versions 4.2 and up, or SunOS earlier than 3.5)
  227.       System-V / Version 7 / System III (Bell Labs)
  228.       Xenix (this might be tricky)
  229. +     Hybrids including HP-UX and IRIX (Version 4.0 and up is best)
  230.   
  231.   You will need to copy "config.h-dist" to config.h and edit it to reflect
  232.   the system dependencies described there.  These consist of "compile-time
  233. ***************
  234. *** 118,123 ****
  235. --- 124,135 ----
  236.       BSD and probably running a system-v flavor of unix -- this defines USG
  237.       so that termio will be used.
  238.   
  239. +     True System V Release 2 systems should define SVR2 to get full support
  240. +     for dot-locking (see DOT_LOCK below).  The default for SYSV is SVR3.
  241. +     See below for SVR4.  Some SVR3 machines (e.g. Motorola SysV/88) are
  242. +     close enough to SVR4 that you may need to use the libraries described
  243. +     below.  However, this does not normally mean you should define SVR4.
  244. + 
  245.       SCO UNIX V.2.0 users should add -lx to OTHERLIBS in makefile.sys.v.
  246.       It may also be desirable to change MANDIR to /usr/man/man.C and
  247.       MANEXT to C in the makefile.  SCO UNIX V.3.2 users should avoid -lx
  248. ***************
  249. *** 128,148 ****
  250.       defined in mush.h.  It should be fairly trivial to generate an
  251.       equivalent function.
  252.   
  253.   If you are using Ultrix:
  254.   
  255.       Start with makefile.bsd.
  256.   
  257. !     For Ultrix 2.2, change LIBES in makefile.bsd from
  258. !     LIBES= -lcurses -ltermlib
  259.       to 
  260. !     LIBES= -lcurses -ltermcap
  261.   
  262. !     For Ultrix V3.0, use the standard makefile.bsd LIBES, but add
  263.       -DSIGRET=void
  264.       to the CFLAGS, or add
  265.       #define SIGRET void
  266.       to config.h (see discussion below).
  267.   
  268.   If you are using HP-UX:
  269.   
  270.       Use makefile.hpux.
  271. --- 140,174 ----
  272.       defined in mush.h.  It should be fairly trivial to generate an
  273.       equivalent function.
  274.   
  275. + If you have System V Release 4:
  276. + 
  277. +     Use makefile.sys.v as above, but define SVR4 and DIRECTORY.  You
  278. +     should also change
  279. +     LIBS=         -lcurses -lPW
  280. +     to
  281. +     LIBS=         -lcurses -lgen
  282. + 
  283.   If you are using Ultrix:
  284.   
  285.       Start with makefile.bsd.
  286.   
  287. !     For Ultrix 2.2, change LIBS in makefile.bsd from
  288. !     LIBS= -lcurses -ltermlib
  289.       to 
  290. !     LIBS= -lcurses -ltermcap
  291.   
  292. !     For Ultrix V3.0, use the standard makefile.bsd LIBS, but add
  293.       -DSIGRET=void
  294.       to the CFLAGS, or add
  295.       #define SIGRET void
  296.       to config.h (see discussion below).
  297.   
  298. +     Ultrix V4.0 is generally the same as 3.0 but may exhibit problems with
  299. +     alignment errors in the environment of forked children (e.g. the MTA).
  300. +     The only workaround is to replace the popen(3) function with one of
  301. +     your own that passes the environment explicitly via execve().  If you
  302. +     never use mush's "setenv" command you'll probably never see this.
  303. + 
  304.   If you are using HP-UX:
  305.   
  306.       Use makefile.hpux.
  307. ***************
  308. *** 153,158 ****
  309. --- 179,196 ----
  310.       from the CFLAGS.  This will cause the portable directory access
  311.       routines in that file to be compiled.
  312.   
  313. + If you are using Apollo Domain/OS:
  314. + 
  315. +     Good luck.
  316. + 
  317. +     Actually, there is some hope for you, but best if you have Domain/OS
  318. +     version 10.3.x with the 4.3 BSD environment installed.  Included with
  319. +     the distribution as of version 7.2.4 is apollo.shar, which contains
  320. +     patches, auxiliary files, and makefile.apollo to put them all together.  
  321. +     Run "sh apollo.shar" and "patch -N -p1 apollo.patch" (or patch by hand)
  322. +     then make using makefile.apollo.  You *should* be able to make this
  323. +     procedure work under the System V environment, but ....
  324. + 
  325.   If you are using Apple A/UX:
  326.   
  327.       Use makefile.sys.v, and add -DAUX -DDIRECTORY to CFLAGS.
  328. ***************
  329. *** 159,164 ****
  330. --- 197,219 ----
  331.   
  332.       Mush uses 4.2-BSD compatible signal handling when AUX is defined.
  333.   
  334. + If you have SGI Iris or Indigo workstations:
  335. + 
  336. +     Silicon Graphics IRIX workstations should use makefile.sys.v.  If you
  337. +     have IRIX version 3.x, you're pretty much on your own.
  338. + 
  339. +     Add -DDIRECTORY to prevent the portable directory routines from being
  340. +     compiled in.  You may optionally add -DSELECT if you want to use the BSD
  341. +     style select() function.  If you do this, you must also add -lbsd to the
  342. +     OTHERLIBS macro definition in the Makefile.
  343. +     
  344. +     For IRIX 4.x you should add -DIRIX4 to CFLAGS and use:
  345. +     CC= cc -signed -cckr
  346. +     OTHERLIBS= -lsun -lmalloc
  347. +     Note that -lsun is used in place of -lbsd here.  This provides network
  348. +     compatibility with sun workstations, or something like that.  You may
  349. +     be able to get by with -lbsd.
  350. + 
  351.   If you are using a hybrid BSD/SysV system:
  352.   
  353.       You may have to use a combination of many of the defines listed
  354. ***************
  355. *** 168,191 ****
  356.       routines ...  you may have to define additional parameters such as
  357.       -DSELECT, -DGETWD, -DDIRECTORY, ... and possibly add -lbsd.
  358.   
  359. - Notes for some hybrid systems:
  360. -     SGI workstations:
  361. -     Silicon Graphics Iris workstations should add -DDIRECTORY to prevent
  362. -     the portable directory routines from being compiled in.
  363. - 
  364. -     You may optionally add -DSELECT if you want to use the BSD style
  365. -     select() function.  If you do this, you must also add -lbsd to the
  366. -     LIBS macro definition in the Makefile.
  367. -     You will also need to #include <sys/times.h> in curs_io.c.
  368. - 
  369.       MIPS workstations:
  370.       These are also hybrid systems that may require additional hand-
  371.       configuration in order to work properly.  There seem to be
  372.       major differences between the last several releases, so your
  373. !     milage may vary.  Currently, lock.c should be compiled with BSD
  374. !     defined, but everything else should be SYSV.  -DGETWD should be
  375. !     used and -lbsd may have to be added to LIBS in the Makefile.
  376.   
  377.   When you decide on an appropriate makefile, _copy_ it to a new file called
  378.   Makefile _before_ making any of local changes.  Please read the following
  379.   sections for addtional configuration information.  In addition to changing
  380. --- 223,243 ----
  381.       routines ...  you may have to define additional parameters such as
  382.       -DSELECT, -DGETWD, -DDIRECTORY, ... and possibly add -lbsd.
  383.   
  384.       MIPS workstations:
  385. + 
  386.       These are also hybrid systems that may require additional hand-
  387.       configuration in order to work properly.  There seem to be
  388.       major differences between the last several releases, so your
  389. !     milage may vary.  Before RISC/OS 3.2, there are numerous curses
  390. !     library bugs, and, lock.c should be compiled with BSD defined, but
  391. !     everything else should be SYSV.  -DGETWD should be used and -lbsd
  392. !     must be added to OTHERLIBS in the Makefile.
  393.   
  394. +     For RISC/OS 3.2 and later, start with makefile.bsd, add -DDIRECTORY
  395. +     to CFLAGS, and use:
  396. +     CC= cc -Wf,-XNd5000 -std0 -systype bsd43
  397. +     OTHERLIBS= -lbsd
  398. + 
  399.   When you decide on an appropriate makefile, _copy_ it to a new file called
  400.   Makefile _before_ making any of local changes.  Please read the following
  401.   sections for addtional configuration information.  In addition to changing
  402. ***************
  403. *** 204,209 ****
  404. --- 256,271 ----
  405.       by itself as an end-of-file marker.  This has been obsleted by "-oi",
  406.       but "-i" still works and is backwards compatible with older sendmails.
  407.   
  408. +     If you are compiling on a machine that has the Rand MH mail system as
  409. +     its native user agent (machines at Rand Corp. and Tektronix boxes
  410. +     running Utek 3.x or 4.x, among others) your system mailbox may be in
  411. +     MMDF format even though your MTA is sendmail.  Define MMDF to parse
  412. +     the mailbox, but also define M_EXECMAIL to use sendmail-style protocol
  413. +     for talking to the MTA.  However, do NOT use /usr/lib/mail/execmail
  414. +     as the MAIL_DELIVERY.  Make sure MAIL_DELIVERY is /usr/lib/sendmail
  415. +     as usual, and that the VERBOSE_ARG, METOO_ARG, and MTA_EXIT macros
  416. +     are the ones associated with the sendmail MAIL_DELIVERY.
  417. + 
  418.   Delivermail:
  419.       Some mailers such as delivermail and MMDF use special strings to separate
  420.       messages stored in a folder.  Older delivermail versions would use "^C".
  421. ***************
  422. *** 226,232 ****
  423. --- 288,308 ----
  424.       If you are using SCO UNIX 3.2 and the MMDF "submit" program gives you
  425.       trouble because of file permissions, define M_EXECMAIL to use the
  426.       execmail program instead.
  427. +     
  428. +     Another reason you may need execmail is that under MMDF, the system
  429. +     knows itself only by its hostname; other names, including the fully-
  430. +     qualified domain name, have to be specified in the local channel file.
  431. +     If this is not done, mail From: user@host.domain will be returned with
  432. +     a "no valid author spec" message.  However, it won't fail if the mail
  433. +     is submitted by root; /usr/lib/mail/execmail is setuid root, so mail
  434. +     submitted that way will succeed.  You should only resort to M_EXECMAIL
  435. +     if you are unable to change the MMDF permissions or cannot edit the
  436. +     channel file.
  437.   
  438. + Smail:
  439. +     If you are using smail-2.x you need to define NO_COMMAS and PICKY_MAILER.
  440. +     On a SYSV system, define MAIL_DELIVERY as /bin/rmail.
  441. + 
  442.   All others:
  443.       Chances are, your MTA uses the "From " format to separate messges in
  444.       a folder.  This includes, /bin/mail, rmail, smail, execmail, and so on.
  445. ***************
  446. *** 260,265 ****
  447. --- 336,352 ----
  448.   MSG_SEPARATOR
  449.       See the discussion above.
  450.   
  451. + MAILDIR
  452. +     This is automatically defined as /usr/mail for SYSV prior to SVR4 and
  453. +     as /usr/spool/mail for BSD and SVR4.  However, some systems are unusual,
  454. +     so you may need to define this explicitly.
  455. + 
  456. + MAIL_DELIVERY
  457. +     This is the program that mush invokes to send your messages off to your
  458. +     list of recipients.  It defaults to "sendmail" (or "submit" for MMDF).
  459. +     See notes below on modifying this via M_EXECMAIL for misconfigured MMDFs.
  460. +     For vanilla SYSV, redefine MAIL_DELIVERY as /bin/mail or /bin/rmail.
  461. + 
  462.   UUCP
  463.       This should be defined if your MTA does not automatically create a
  464.       From: header *and* your machine talks to other computers via uucp.
  465. ***************
  466. *** 285,296 ****
  467.       VERBOSE_ARG defined.  Otherwise, define it to be whatever the verbose
  468.       argument is for your mailer.  The default is -v.
  469.   
  470. ! METOO
  471.       Sendmail uses the -m argument to say, "metoo" -- when sending to sendmail
  472.       aliases (e.g. mailing lists), sendmail will expand the alias, but if your
  473.       address appears in the expansion, you are excluded from getting your own
  474.       mail.  However, if you have the variable metoo set with your variables,
  475. !     then the METOO argument is passed to sendmail to say, "I know I'm on this
  476.       mailing list, but send me a copy of my message even tho I sent it."  For
  477.       sendmail, this is -m.  If your mailer uses something else, then define
  478.       METOO_ARG in the config.h file.  If you don't have it (sys-v), then this
  479. --- 372,383 ----
  480.       VERBOSE_ARG defined.  Otherwise, define it to be whatever the verbose
  481.       argument is for your mailer.  The default is -v.
  482.   
  483. ! METOO_ARG
  484.       Sendmail uses the -m argument to say, "metoo" -- when sending to sendmail
  485.       aliases (e.g. mailing lists), sendmail will expand the alias, but if your
  486.       address appears in the expansion, you are excluded from getting your own
  487.       mail.  However, if you have the variable metoo set with your variables,
  488. !     then the metoo argument is passed to sendmail to say, "I know I'm on this
  489.       mailing list, but send me a copy of my message even tho I sent it."  For
  490.       sendmail, this is -m.  If your mailer uses something else, then define
  491.       METOO_ARG in the config.h file.  If you don't have it (sys-v), then this
  492. ***************
  493. *** 318,323 ****
  494. --- 405,415 ----
  495.       .lock file.  If it exists, mush loops until it goes away and then mush
  496.       creates it mode 600.  Regardless of whether you use dot-locking, mush
  497.       will continue to try to use flock(), or whatever.
  498. + 
  499. +     If your MTA is smail-2.x, you should define DOT_LOCK regardless of
  500. +     your operating system type.  DOT_LOCK may also be helpful in preventing
  501. +     corruption of NFS-mounted mail spools, but only if the MTA can be made
  502. +     to also use this protocol.
  503.   
  504.       Dot-locking requires mush to have write access to the directory where
  505.       your mailbox exists.  Normally, this directory isn't writable by the
  506. *** /dev/null    Sun Feb  2 11:15:57 1992
  507. --- 7.2.4/README-7.2.4    Sun Feb  2 20:00:09 1992
  508. ***************
  509. *** 0 ****
  510. --- 1,133 ----
  511. + 
  512. + This is release 7.2.4 of the Mail User's Shell (mush).
  513. + 
  514. + Mush was last posted as a complete package at release 7.2.2.  Before that,
  515. + the last complete posting was 7.1.1.  If your version of mush is older
  516. + than 7.2.2, refer to README-7.0 and README-7.1 for lists of other changes.
  517. + See README-7.2.0 for changes from 7.1.1 to 7.2.  Patch 3 was bugfixes only;
  518. + there was no README-7.2.3, so the list of bugfixes in that patch has been
  519. + appended.
  520. + 
  521. + Changes in compilation:
  522. + 
  523. +     Be sure to check out the README file for complete details of new info
  524. +     on compilation for SysVr2, SysVr4, Ultrix, Domain/OS, IRIX, and MIPS.
  525. +     There are new preprocessor definitions for SVR2, SVR4, and IRIX4, plus
  526. +     a set of patches and auxiliary files for Apollo.  There are also new
  527. +     instructions for compiling mush to read MMDF-style spool files while
  528. +     still using sendmail as the MTA (some "native" MH sites need this).
  529. + 
  530. +     If you have a csh with filec set and typing ahead at an exiting mush
  531. +     seems to send end-of-file to your shell, define CSH_FILEC_FIX.  It's
  532. +     completely ridiculous that mush has to deal with this so I refuse to
  533. +     mention it in README with the mush-configuration defines.
  534. + 
  535. + New/changed commands:
  536. + 
  537. +     There aren't any.
  538. + 
  539. + New/changed variables:
  540. + 
  541. +     pager
  542. +     If $pager has the value "NONE", mush will not run an external
  543. +     pager and will not pause for input at the end of each screenful
  544. +     of output.
  545. + 
  546. + Tool mode changes:
  547. + 
  548. +     None of these, either.
  549. + 
  550. + Miscellaneous:
  551. + 
  552. +     The config.h file has been reorganized a bit more.
  553. + 
  554. +     The "digestify" script has a clever perl-style startup conditional
  555. +     so you can #! it as a csh script if your path to mush is too long.
  556. + 
  557. +     The environment variable MAIL is now recognized at startup time to
  558. +     specify the location of the spool folder.
  559. + 
  560. +     When SVR2 and DOT_LOCK are defined at compile time, mush assumes that
  561. +     saved-set-group-id is not available.  The file lock.c can be compiled
  562. +     into a separate locking program to handle the setgid requirements.
  563. +     See extensive comments at the top of lock.c.
  564. + 
  565. + Bugs fixed in Patch #4:
  566. + 
  567. +   * A couple of long-standing array overflow and "underflow" bugs found
  568. +     and squished.
  569. + 
  570. +   * Interrupting the "bind" curses-mode command now works more like the
  571. +     other interruptible commands.
  572. + 
  573. +   * The "stty" command behaves itself.
  574. + 
  575. +   * Non-SYSV systems using DOT_LOCK won't get strange reports from the
  576. +     "save" command about messages saved to the lock file.  (That wasn't
  577. +     happening but the output was confusing.)
  578. + 
  579. +   * Using the "folder" curses-mode command will now remove empty folder
  580. +     files if the line-mode "folder" would do so.
  581. + 
  582. +   * SYSV systems should have no more complaints about EWOULDBLOCK not
  583. +     being defined in file.c.
  584. + 
  585. +   * The "folder" command won't print the folder status line if piping
  586. +     or otherwise told to shut up (e.g. "mush -N").
  587. + 
  588. +   * Attempting to reference a $[%x] header-formatted variable during
  589. +     initialization no longer causes a core dump.  You still can't do
  590. +     it, but at least mush refuses politely.
  591. + 
  592. +   * The "reply" family of commands do a better job with addresses whose
  593. +     real name or comment fields that contain double-quote characters.
  594. +     Specifically, they put such names in ( ) instead of in " ".
  595. + 
  596. +   * Over-long lines in init files and "source" files now generate an
  597. +     error message instead of truncating silently.
  598. + 
  599. +   * Systems using DOT_LOCK should no longer find dead lock files lying
  600. +     about.  The whole DOT_LOCK procedure has been made more robust so
  601. +     it can be used as a failsafe on systems with NFS-mounted spools.
  602. + 
  603. +   * Tty twiddling is no longer done in headers-only mode ("mush -H").
  604. + 
  605. +   * The little-used feature of referencing another variable from within
  606. +     the autosign and autosign2 variables actually works now.  I probably
  607. +     should just have removed it altogether.
  608. + 
  609. +   * Compiling with SUNTOOL defined no longer breaks the lock-failed case
  610. +     in folder updating for line mode.
  611. + 
  612. +   * The descriptive output from "pick" is now correct when using -x with
  613. +     a date search.
  614. + 
  615. + Bugs fixed in Patch #3:
  616. + 
  617. +   * The user's real name ($realname) is no longer left empty.
  618. + 
  619. +   * REGCMP users (mostly SysV) no longer get core dumps when using pick.
  620. + 
  621. +   * Attempts to send mail (e.g. via Fcc: headers) to the same file or
  622. +     folder more than once *silently* sends only one copy to the file.
  623. +     (Before, it complained about not being able to write to the file
  624. +     for the second and later attempts.)
  625. + 
  626. +   * SCO UNIX 3.2 users who are having problems with "submit" can now
  627. +     define M_EXECMAIL to use execmail as their interface to MMDF.  This
  628. +     has the pleasant side-effect of making the MTA invocation compatible
  629. +     with sendmail, so resetting the variable "sendmail" works cleanly.
  630. + 
  631. +   * Problems with file locking and lock.c typos for SCO UNIX have been
  632. +     corrected (we hope).
  633. + 
  634. +   * SCO UNIX correctly includes <sys/select.h> (we hope).
  635. + 
  636. +   * Attempts to load folders containing more than the defined maximum
  637. +     number of messages work a bit better.  You still can't load all the
  638. +     messages, but the results are less strange.
  639. + 
  640. +   * Some <curses.h> macro name clashes for unusual UNIXen have been
  641. +     forcibly suppressed.
  642. + 
  643. +   * An amazingly old string overflow bug in toolmode has been fixed.
  644. *** /dev/null    Tue Feb 18 03:03:49 1992
  645. --- 7.2.4/apollo.shar    Tue Feb 18 22:47:32 1992
  646. ***************
  647. *** 0 ****
  648. --- 1,758 ----
  649. + #!/bin/sh
  650. + # shar:    Shell Archiver  (v1.22+)
  651. + #
  652. + #    Run the following text with /bin/sh to create:
  653. + #      README.apollo
  654. + #      makefile.apollo
  655. + #      apollo.patch
  656. + #      apollo_file.c
  657. + #      apollo_pad.c
  658. + #
  659. + echo "x - extracting README.apollo (Text)"
  660. + sed 's/^X//' << 'SHAR_EOF' > README.apollo &&
  661. + XREADME.apollo - modifications to allow mush to operate smoothly in an Apollo
  662. + X        environment.
  663. + X
  664. + XAuthor:
  665. + X    Mike Pelletier, stealth@engin.umich.edu
  666. + X------------
  667. + X
  668. + XSeveral changes have been made to make mush interact more smoothly with
  669. + Xseveral aspects of the Apollo operating and display system.  The changes
  670. + Xinclude modified versions of open(), fopen(), and flock(), a check for
  671. + Xthe height of the screen using the Display Manager "pad" interfaces,
  672. + Xand a change to make input and output in a pad operate more cleanly.
  673. + X
  674. + XNEW OPEN() ROUTINES:
  675. + X
  676. + X  The default operation of the Apollo filesystem closely mimics the
  677. + X  UNIX OS -- any number of processes can have a file open for reading or
  678. + X  writing at any given time, and writing is essentially on a last come,
  679. + X  first served basis -- the last update to the file is what sticks.
  680. + X  This mode is called FILE_$COWRITERS.  However, this only works correctly
  681. + X  when all the processes in question are running on the same machine.
  682. + X  If a process on another machine tries to open() the file, it will fail
  683. + X  completely no matter what access mode it wants, saying "Text file busy."
  684. + X  In the case of mail, it's very common to have a mail transfer agent
  685. + X  on one central machine, and a user on another machine, and if the COWRITERS
  686. + X  lock mode were used, one or the other would fail to access the file
  687. + X  if they both tried at the same time, even if the user just wanted to
  688. + X  read the mailbox, not update it.
  689. + X  
  690. + X  The Apollo filesystem has another locking mode that works for
  691. + X  processes on multiple nodes, with the caveat that only one
  692. + X  process at a time may have write access to the file.  This is
  693. + X  called FILE_$NR_XOR_1W mode.  In this case, if a MTA opened a users
  694. + X  mailbox for writing to deliver new mail, the user could still open
  695. + X  and read the mailbox at the start of a mail session, and vice-versa
  696. + X  for the end of a mail session.
  697. + X  
  698. + X  The open() replacements in apollo_file.c simply change the default
  699. + X  concurrency control mode from FILE_$COWRITERS to FILE_$NR_XOR_1W,
  700. + X  and can stall for a certain amount of time if the attempt to open
  701. + X  the file fails for concurrency reasons, say if an MTA was updating
  702. + X  the mailbox at the same time that a user wanted to end a mail session.
  703. + X  The stall and frequency of checking can be set with setdeadtime() and
  704. + X  setintervaltime() according to the needs of the application.  A user-
  705. + X  agent would want a longer stall with more frequent checks than a
  706. + X  transfer agent, since the transfer agent can always queue the request
  707. + X  and try again later whereas a user gets upset if he or she gets a
  708. + X  "can't update system mailbox" error.
  709. + X
  710. + X  Since only one routine can have a file open for reading at a time, the
  711. + X  flock() command is essentially useless.  In order to release a lock,
  712. + X  the application must close the file.
  713. + X
  714. + X  These routines are #define-level compatible with their UNIX counterparts.
  715. + X  I.e., #define open apollo_open, #define fopen apollo_fopen,
  716. + X  #define flock apollo_flock may be put in the application header file,
  717. + X  surrounded with "#ifdef apollo .. #endif".
  718. + X
  719. + XDISPLAY MANAGER PAD ROUTINES:
  720. + X
  721. + X  The foremost routine in apollo_pad.c is apollo_ispad().  This simply
  722. + X  returns the logical truth value of the question "Is the standard output
  723. + X  stream a display manager pad?"
  724. + X
  725. + X  Based on this, the screen height for mush may be set according to the
  726. + X  number of lines in the pad, using the apollo_padheight() function.  This
  727. + X  is handled in init.c.
  728. + X
  729. + X  Other special cases to note if the output stream is a pad include the
  730. + X  fact that cbreak and echo mode should not be changed.  If this is done,
  731. + X  the pad will switch into vt100 mode, which is essentially a different
  732. + X  window from the pad.  The switch is visually unpleasant, interrupting
  733. + X  the flow of text, and any transcript is lost once the vt100 window exits.
  734. + X
  735. + X  Also, pagers should not be used in DM pads.  Since they switch into
  736. + X  cbreak mode, the previous problem comes up, and besides, the DM pad
  737. + X  has a large number of commands available for quick scrolling and
  738. + X  searching within the pad, as well as the HOLD key, so pagers aren't
  739. + X  even really necessary.
  740. + X
  741. + X  All these changes are transparent to someone using mush from a terminal.
  742. + X  These only apply when someone is sitting at the display console of an
  743. + X  Apollo workstation.
  744. + X
  745. + X------------------------
  746. + X
  747. + X        Many thanks to Paul Killey <paul@engin.umich.edu>
  748. + X        for his invaluable assistance in making these modifications.
  749. + X
  750. + X            Mike Pelletier, <stealth@engin.umich.edu>
  751. + SHAR_EOF
  752. + chmod 0600 README.apollo || echo "restore of README.apollo fails"
  753. + set `wc -c README.apollo`;Sum=$1
  754. + if test "$Sum" != "4455"
  755. + then echo original size 4455, current size $Sum;fi
  756. + echo "x - extracting makefile.apollo (Text)"
  757. + sed 's/^X//' << 'SHAR_EOF' > makefile.apollo &&
  758. + X# makefile.apollo
  759. + X#
  760. + XHDRS= mush.h config.h-dist strings.h bindings.h options.h version.h glob.h
  761. + X
  762. + XSRCS= main.c init.c misc.c mail.c hdrs.c execute.c commands.c print.c dates.c \
  763. + X      signals.c setopts.c msgs.c pick.c sort.c expr.c folders.c \
  764. + X      loop.c viewopts.c curses.c curs_io.c bind.c file.c strings.c \
  765. + X      lock.c macros.c options.c addrs.c malloc.c glob.c command2.c \
  766. + X      apollo_file.c apollo_pad.c
  767. + XOBJS= main.o init.o misc.o mail.o hdrs.o execute.o commands.o print.o file.o \
  768. + X      signals.o setopts.o msgs.o pick.o sort.o expr.o strings.o \
  769. + X      folders.o dates.o loop.o viewopts.o curses.o curs_io.o bind.o \
  770. + X      lock.o macros.o options.o addrs.o malloc.o glob.o command2.o \
  771. + X      apollo_file.o apollo_pad.o
  772. + X
  773. + XHELP_FILES= README README-7.0 README-7.1 README-7.2.0 README-7.2.2 \
  774. + X    README-7.2.4 mush.1 cmd_help Mushrc Mailrc Gnurc \
  775. + X    sample.mushrc advanced.mushrc digestify
  776. + X
  777. + XMAKES= makefile.bsd makefile.xenix makefile.sys.v makefile.hpux makefile.sun \
  778. + X    makefile.apollo
  779. + X
  780. + XFIXES= file.c init.c lock.c mail.c main.c msgs.c
  781. + X
  782. + XCC= cc -A nansi
  783. + XCFLAGS= -O -DCURSES -DBSD
  784. + XLDFLAGS=
  785. + XLINTFLAGS= -bxah -Dlint -DCURSES -DBSD
  786. + XLIBS= -lcurses -ltermcap
  787. + XOTHERLIBS=
  788. + X
  789. + Xmush: $(OBJS)
  790. + X    @echo loading...
  791. + X    @$(CC) $(LDFLAGS) $(OBJS) $(LIBS) $(OTHERLIBS) -o mush
  792. + X
  793. + X$(FIXES): apollo.patch
  794. + X    @echo '$@ needs patching -- run "patch -N -p1 < apollo.patch"'; exit 1
  795. + X
  796. + X$(OBJS): config.h mush.h
  797. + Xloop.o: version.h
  798. + X
  799. + Xlint:
  800. + X    lint $(LINTFLAGS) $(SRCS)
  801. + X
  802. + Xclean:
  803. + X    rm -f *.o core mush
  804. + X
  805. + XBINDIR= /usr/local/bin
  806. + XLIBDIR= /usr/local/lib
  807. + XMRCDIR= /usr/lib
  808. + XMANDIR= /usr/local/man/man1
  809. + XMANEXT= 1
  810. + X
  811. + Xinstall: mush
  812. + X    mv mush $(BINDIR)
  813. + X    strip $(BINDIR)/mush
  814. + X    chmod 0755 $(BINDIR)/mush
  815. + X    cp mush.1 $(MANDIR)/mush.$(MANEXT)
  816. + X    chmod 0644 $(MANDIR)/mush.$(MANEXT)
  817. + X    cp cmd_help $(LIBDIR)
  818. + X    chmod 0644 $(LIBDIR)/cmd_help
  819. + X    cp Mushrc $(MRCDIR)/Mushrc
  820. + X    chmod 0644 $(MRCDIR)/Mushrc
  821. + SHAR_EOF
  822. + chmod 0644 makefile.apollo || echo "restore of makefile.apollo fails"
  823. + set `wc -c makefile.apollo`;Sum=$1
  824. + if test "$Sum" != "1828"
  825. + then echo original size 1828, current size $Sum;fi
  826. + echo "x - extracting apollo.patch (Text)"
  827. + sed 's/^X//' << 'SHAR_EOF' > apollo.patch &&
  828. + X*** 7.2.4/file.c    Thu Jan 30 20:50:48 1992
  829. + X--- apollo/file.c    Fri Feb 14 07:48:54 1992
  830. + X***************
  831. + X*** 467,473 ****
  832. + X--- 467,477 ----
  833. + X  mask_fopen(file, mode)
  834. + X  char *file, *mode;
  835. + X  {
  836. + X+ #ifdef apollo
  837. + X+     int needs_chmod = (Access(file, F_OK) < 0);
  838. + X+ #else
  839. + X      int omask = umask(077);
  840. + X+ #endif
  841. + X      FILE *fp;
  842. + X  #ifdef SYSV
  843. + X      /* XENIX and other older sytems can't handle "a+".    Even newer
  844. + X***************
  845. + X*** 482,490 ****
  846. + X      if (fp = fopen(file, mode))
  847. + X          (void) fseek(fp, 0L, 2); /* assure we're at the end of the file */
  848. + X      } else
  849. + X! #endif /* SYSV */
  850. + X      fp = fopen(file, mode);
  851. + X      (void) umask(omask);
  852. + X      return fp;
  853. + X  }
  854. + X  
  855. + X--- 486,500 ----
  856. + X      if (fp = fopen(file, mode))
  857. + X          (void) fseek(fp, 0L, 2); /* assure we're at the end of the file */
  858. + X      } else
  859. + X! #endif /* M_XENIX || SYSV && !USG */
  860. + X      fp = fopen(file, mode);
  861. + X+ #ifdef apollo
  862. + X+     /* Initial file ACL's override umask so make sure mode is right */
  863. + X+     if (fp && needs_chmod)
  864. + X+     (void) chmod(file, 0600);
  865. + X+ #else
  866. + X      (void) umask(omask);
  867. + X+ #endif
  868. + X      return fp;
  869. + X  }
  870. + X  
  871. + X*** 7.2.4/init.c    Thu Jan 30 00:14:42 1992
  872. + X--- apollo/init.c    Thu Jan 30 20:51:42 1992
  873. + X***************
  874. + X*** 90,95 ****
  875. + X--- 90,102 ----
  876. + X      (void) add_option(&set_options, argv);
  877. + X      }
  878. + X      crt = 24;
  879. + X+ #ifdef apollo
  880. + X+     if (apollo_ispad()) {
  881. + X+     /* If a pad, set the screen height properly */
  882. + X+     screen = apollo_padheight() - 2;
  883. + X+     crt = screen + 3;
  884. + X+     } else
  885. + X+ #endif /* apollo */
  886. + X      screen = 18;
  887. + X      wrapcolumn = 0; /* Default is no wrap */
  888. + X      escape = DEF_ESCAPE;
  889. + X*** 7.2.4/lock.c    Sun Feb  2 19:43:53 1992
  890. + X--- apollo/lock.c    Sun Feb  2 19:46:24 1992
  891. + X***************
  892. + X*** 303,308 ****
  893. + X--- 303,311 ----
  894. + X  {
  895. + X      struct options *tmp;
  896. + X      FILE *fp;
  897. + X+ #ifdef apollo
  898. + X+     int oldinterval, olddead;
  899. + X+ #endif /* apollo */
  900. + X      
  901. + X      for (tmp = exclude_list; tmp; tmp = tmp->next)
  902. + X      if (strcmp(tmp->option, filename) == 0) {
  903. + X***************
  904. + X*** 317,323 ****
  905. + X      if (dot_lock(filename) != 0)
  906. + X      return NULL_FILE;
  907. + X  #endif /* DOT_LOCK */
  908. + X!     if (!(fp = mask_fopen(filename, mode)))
  909. + X      return NULL_FILE;
  910. + X      if (tmp = (struct options *)malloc(sizeof(struct options))) {
  911. + X      tmp->option = savestr(filename);
  912. + X--- 320,336 ----
  913. + X      if (dot_lock(filename) != 0)
  914. + X      return NULL_FILE;
  915. + X  #endif /* DOT_LOCK */
  916. + X! #ifdef apollo
  917. + X!     /* Set up only one open attempt and no wait time on failure */
  918. + X!     oldinterval = setintervaltime(0);
  919. + X!     olddead = setdeadtime(1);
  920. + X! #endif /* apollo */
  921. + X!     fp = mask_fopen(filename, mode);
  922. + X! #ifdef apollo
  923. + X!     (void) setintervaltime(oldinterval);
  924. + X!     (void) setdeadtime(olddead);
  925. + X! #endif /* apollo */
  926. + X!     if (!fp)
  927. + X      return NULL_FILE;
  928. + X      if (tmp = (struct options *)malloc(sizeof(struct options))) {
  929. + X      tmp->option = savestr(filename);
  930. + X***************
  931. + X*** 384,389 ****
  932. + X--- 397,408 ----
  933. + X  
  934. + X      if (!(mail_fp = exclusive_fopen(filename, mode)))
  935. + X      return NULL_FILE;
  936. + X+ 
  937. + X+ #ifndef apollo
  938. + X+     /* On the Apollo, mask_fopen() implies a lock,
  939. + X+      * so we needn't mess with any of this stuff.
  940. + X+      */
  941. + X+ 
  942. + X      fd = fileno(mail_fp);
  943. + X  
  944. + X      if (mode[0] != 'r' || mode[1] == '+')
  945. + X***************
  946. + X*** 436,441 ****
  947. + X--- 455,462 ----
  948. + X      (void) exclusive_fclose(mail_fp);
  949. + X      return NULL_FILE;
  950. + X      }
  951. + X+ #endif /* !apollo */
  952. + X+ 
  953. + X      return mail_fp;
  954. + X  }
  955. + X  
  956. + X*** 7.2.4/mail.c    Thu May 16 20:05:57 1991
  957. + X--- apollo/mail.c    Thu Jan 30 20:26:42 1992
  958. + X***************
  959. + X*** 601,606 ****
  960. + X--- 601,612 ----
  961. + X          if (!*p || *p == 'i')
  962. + X          switch (line[1]) {
  963. + X              case 'p' :
  964. + X+ #ifdef apollo
  965. + X+             if (apollo_ispad()) {
  966. + X+                 p = "NONE";        /* The pad IS the pager */
  967. + X+                 break;
  968. + X+             }
  969. + X+ #endif /* apollo */
  970. + X              if (!*p && !(p = do_set(set_options, "pager")))
  971. + X                  p = DEF_PAGER;
  972. + X              if (!*p || !strcmp(p, "internal"))
  973. + X*** 7.2.4/main.c    Wed Jan 29 23:34:31 1992
  974. + X--- apollo/main.c    Thu Jan 30 21:08:54 1992
  975. + X***************
  976. + X*** 140,145 ****
  977. + X--- 140,150 ----
  978. + X      (void) signal(SIGINT, catch);
  979. + X      (void) signal(SIGQUIT, catch);
  980. + X      (void) signal(SIGHUP, catch);
  981. + X+ #ifdef apollo
  982. + X+         if (apollo_ispad())
  983. + X+             turnon(glob_flags, ECHO_FLAG);
  984. + X+         else
  985. + X+ #endif /* apollo */
  986. + X      if (istool || hdrs_only)
  987. + X          turnon(glob_flags, ECHO_FLAG);
  988. + X      if (!hdrs_only)
  989. + X*** 7.2.4/msgs.c    Wed Nov 13 01:28:43 1991
  990. + X--- apollo/msgs.c    Thu Jan 30 20:30:55 1992
  991. + X***************
  992. + X*** 31,36 ****
  993. + X--- 31,41 ----
  994. + X  #ifdef MSG_SEPARATOR
  995. + X      turnon(flg, NO_SEPARATOR);
  996. + X  #endif /* MMDF */
  997. + X+ #ifdef apollo
  998. + X+     if (!istool && apollo_ispad())
  999. + X+     pager = "NONE";        /* The pad IS the pager */
  1000. + X+     else
  1001. + X+ #endif /* apollo */
  1002. + X      if (!istool && isoff(flg, NO_PAGE) &&
  1003. + X          crt < msg[n].m_lines && isoff(flg, M_TOP)) {
  1004. + X      if (!(pager = do_set(set_options, "pager")))
  1005. + X*** 7.2.4/mush.h    Wed Jan 29 21:57:49 1992
  1006. + X--- apollo/mush.h    Thu Jan 30 20:25:40 1992
  1007. + X***************
  1008. + X*** 56,61 ****
  1009. + X--- 56,67 ----
  1010. + X  #ifdef BSD
  1011. + X  #define fputs Fputs    /* See comments in print.c */
  1012. + X  #endif /* BSD */
  1013. + X+ #ifdef apollo        /* See apollo_file.c */
  1014. + X+ extern FILE *apollo_lkfopen();
  1015. + X+ #define fopen(f,m)    apollo_lkfopen(f,m)
  1016. + X+ #define open(p,f,m)    apollo_lkopen(p,f,m)
  1017. + X+ #define flock(d,o)    apollo_flock(d,o)
  1018. + X+ #endif /* apollo */
  1019. + X  
  1020. + X  #if defined(BSD) || defined(GETWD)
  1021. + X  extern char *getwd();
  1022. + SHAR_EOF
  1023. + chmod 0644 apollo.patch || echo "restore of apollo.patch fails"
  1024. + set `wc -c apollo.patch`;Sum=$1
  1025. + if test "$Sum" != "5160"
  1026. + then echo original size 5160, current size $Sum;fi
  1027. + echo "x - extracting apollo_file.c (Text)"
  1028. + sed 's/^X//' << 'SHAR_EOF' > apollo_file.c &&
  1029. + X/*
  1030. + X *    Take unix open() args, and call ios_$open() appropriately.
  1031. + X *
  1032. + X *    Written by Paul Killey, paul@engin.umich.edu
  1033. + X *    Incorporated into mush by Mike Pelletier, stealth@engin.umich.edu
  1034. + X *                    Mon Oct 25 13:09:38 EDT 1991
  1035. + X */
  1036. + X
  1037. + X#ifdef apollo
  1038. + X
  1039. + X#ifdef __STDC__
  1040. + X#include <apollo_$std.h>
  1041. + X#include <apollo/base.h>
  1042. + X#include <apollo/ios.h>
  1043. + X#include <apollo/error.h>
  1044. + X#include <apollo/type_uids.h>
  1045. + X#include <apollo/cal.h>
  1046. + X#include <apollo/time.h>
  1047. + X#else
  1048. + X#include "/sys/ins/base.ins.c"
  1049. + X#include "/sys/ins/ios.ins.c"
  1050. + X#include "/sys/ins/error.ins.c"
  1051. + X#include "/sys/ins/type_uids.ins.c"
  1052. + X#include "/sys/ins/cal.ins.c"
  1053. + X#include "/sys/ins/time.ins.c"
  1054. + X#endif /* __STDC__ */
  1055. + X
  1056. + X
  1057. + X#include <stdio.h>
  1058. + X#include <sys/file.h>
  1059. + X
  1060. + Xstd_$call boolean unix_fio_$status_to_errno();
  1061. + X
  1062. + X/*
  1063. + X * total amount of time to try for.
  1064. + X */
  1065. + X#ifndef DEADTIME
  1066. + X#define DEADTIME    15
  1067. + X#endif
  1068. + X
  1069. + X/*
  1070. + X * number of tries to make.
  1071. + X */
  1072. + X#ifndef INTERVAL
  1073. + X#define INTERVAL    3
  1074. + X#endif
  1075. + X
  1076. + Xstatic int lockdeadtime = DEADTIME;
  1077. + Xstatic int lockintervaltime = INTERVAL;
  1078. + X
  1079. + Xapollo_lkopen(path, flags, mode)
  1080. + X    char * path;
  1081. + X    int flags, mode;
  1082. + X{
  1083. + X
  1084. + X    ios_$open_options_t    ios_open_options;
  1085. + X    ios_$create_mode_t    ios_create_options;
  1086. + X    status_$t            status;
  1087. + X    ios_$id_t            stream_id;
  1088. + X
  1089. + X    int i;
  1090. + X
  1091. + X
  1092. + X/*
  1093. + X *    From file.h
  1094. + X *
  1095. + X *    #define    O_RDONLY    000        open for reading
  1096. + X *    #define    O_WRONLY    001        open for writing
  1097. + X *    #define    O_RDWR        002        open for read & write
  1098. + X *    #define    O_NDELAY    FNDELAY        non-blocking open
  1099. + X *    #define    O_APPEND    FAPPEND        append on each write
  1100. + X *    #define    O_CREAT        FCREAT        open with file create
  1101. + X *    #define    O_TRUNC        FTRUNC        open with truncation
  1102. + X *    #define    O_EXCL        FEXCL        error on create if file exists
  1103. + X */
  1104. + X
  1105. + X/*
  1106. + X *    First, figure out the open mode ...
  1107. + X */
  1108. + X
  1109. + X    if (flags == O_RDONLY)
  1110. + X    ios_open_options = ios_$no_open_options;
  1111. + X    else
  1112. + X    ios_open_options = ios_$write_opt;
  1113. + X
  1114. + X    if (flags & O_WRONLY)
  1115. + X    ios_open_options |= ios_$no_read_opt;
  1116. + X
  1117. + X    if (flags & O_NDELAY)
  1118. + X    ios_open_options |= ios_$no_open_delay_opt;
  1119. + X
  1120. + X/*
  1121. + X *    Now, check the create mode ...
  1122. + X */
  1123. + X
  1124. + X    if (flags & O_EXCL)
  1125. + X    ios_create_options = ios_$no_pre_exist_mode;
  1126. + X    else if (flags & O_TRUNC)
  1127. + X    ios_create_options = ios_$truncate_mode;
  1128. + X    else
  1129. + X    ios_create_options = ios_$preserve_mode;
  1130. + X
  1131. + X/*
  1132. + X *    OK, now what?  These routines are intended for mail applications
  1133. + X *    where I wanted some consistency across applications.  My rules are:
  1134. + X *        (1)    Try every ten seconds for a minute to open the file.
  1135. + X *            If the failure is ios_$concurrency, sleep an try again.
  1136. + X *        (2)    Unless a non-blocking open is desired, in which case
  1137. + X *            return.  (That runs counter to what I wanted here, so
  1138. + X *            I don't call it with that flag, because I *want* this
  1139. + X *            routine to do things so callers can take it easy.
  1140. + X *        (3)    Or, if there is any other error, return.
  1141. + X */
  1142. + X
  1143. + X
  1144. + X    for (i = 0; i < lockdeadtime; i += lockintervaltime) {
  1145. + X    if (flags & O_CREAT)
  1146. + X#ifdef __STDC__
  1147. + X        ios_$create(path, (short) strlen(path),
  1148. + X        uid_$nil,
  1149. + X        ios_create_options, ios_open_options, &stream_id, &status);
  1150. + X#else
  1151. + X         ios_$create(*path, (short) strlen(path), uid_$nil,
  1152. + X            ios_create_options, ios_open_options, stream_id, status);
  1153. + X#endif /* _STDC__ */
  1154. + X          else
  1155. + X#ifdef __STDC__
  1156. + X              stream_id = ios_$open(path, (short)strlen(path),
  1157. + X                ios_open_options, &status);
  1158. + X#else
  1159. + X        stream_id = ios_$open(*path, (short)strlen(path),
  1160. + X                ios_open_options, status);
  1161. + X#endif /* __STDC__ */
  1162. + X
  1163. + X    if (status.all == status_$ok) {
  1164. + X        if ((ios_open_options & ios_$write_opt) &&
  1165. + X            (ios_create_options ==  ios_$truncate_mode)) {
  1166. + X#ifdef __STDC__
  1167. + X            ios_$truncate(stream_id, &status);
  1168. + X#else
  1169. + X            ios_$truncate(stream_id, status);
  1170. + X#endif
  1171. + X            if (status.all != status_$ok &&
  1172. + X                status.all != ios_$illegal_operation) {
  1173. + X            unix_fio_$status_to_errno (status, path, strlen(path));
  1174. + X#ifdef __STDC__
  1175. + X            ios_$close(stream_id, &status);
  1176. + X#else
  1177. + X            ios_$close(stream_id, status);
  1178. + X#endif
  1179. + X            return (-1);
  1180. + X            }
  1181. + X        }
  1182. + X#ifdef __STDC__
  1183. + X        ios_$set_obj_flag(stream_id, ios_$of_sparse_ok, true, &status);
  1184. + X#else
  1185. + X        ios_$set_obj_flag(stream_id, ios_$of_sparse_ok, true, status);
  1186. + X#endif
  1187. + X        if (flags & O_APPEND)
  1188. + X#ifdef  __STDC__
  1189. + X            ios_$set_conn_flag(stream_id, ios_$cf_append, true, &status);
  1190. + X#else
  1191. + X            ios_$set_conn_flag(stream_id, ios_$cf_append, true, status);
  1192. + X#endif
  1193. + X        return (stream_id);
  1194. + X    }
  1195. + X
  1196. + X    if (status.all == ios_$concurrency_violation &&
  1197. + X        (flags & O_NDELAY) == 0)
  1198. + X        apollo_sleep(INTERVAL);
  1199. + X    else {
  1200. + X        /* error_$print (status); */
  1201. + X        unix_fio_$status_to_errno (status, *path, (short)strlen(path));
  1202. + X        return (-1);
  1203. + X    }
  1204. + X    }
  1205. + X    /* error_$print (status); */
  1206. + X    unix_fio_$status_to_errno (status, path, strlen(path));
  1207. + X
  1208. + X    return (-1);
  1209. + X}
  1210. + X
  1211. + X
  1212. + X/*
  1213. + X *    An interface to get a FILE *
  1214. + X */
  1215. + X
  1216. + XFILE *
  1217. + Xapollo_lkfopen(file, mode)
  1218. + X    char *file, *mode;
  1219. + X{
  1220. + X     int rw, f, oflags;
  1221. + X    FILE *fp; 
  1222. + X    rw = (mode[1] == '+');
  1223. + X
  1224. + X    switch (*mode) {
  1225. + X    case 'a':
  1226. + X    oflags = O_CREAT | (rw ? O_RDWR : O_WRONLY);
  1227. + X    break;
  1228. + X    case 'r':
  1229. + X    oflags = rw ? O_RDWR : O_RDONLY;
  1230. + X    break;
  1231. + X    case 'w':
  1232. + X    oflags = O_TRUNC | O_CREAT | (rw ? O_RDWR : O_WRONLY);
  1233. + X    break;
  1234. + X    default:
  1235. + X    return (NULL);
  1236. + X    }
  1237. + X
  1238. + X    f = apollo_lkopen(file, oflags, 0666);
  1239. + X    if (f < 0)
  1240. + X    return (NULL);
  1241. + X
  1242. + X    /*
  1243. + X     *  should just use ios_$position_to_eof_opt!
  1244. + X     */
  1245. + X
  1246. + X    if (*mode == 'a')
  1247. + X    lseek(f, (long)0, L_XTND);
  1248. + X
  1249. + X    fp = fdopen(f, mode);
  1250. + X
  1251. + X    return(fp);
  1252. + X}
  1253. + X
  1254. + X
  1255. + Xapollo_sleep(seconds)
  1256. + X    unsigned int seconds;
  1257. + X{
  1258. + X    status_$t s;
  1259. + X    time_$clock_t sleeptime;
  1260. + X
  1261. + X    cal_$sec_to_clock((unsigned long)seconds, &sleeptime);
  1262. + X
  1263. + X    time_$wait(time_$relative, sleeptime, &s);
  1264. + X
  1265. + X    return(s.all);
  1266. + X}
  1267. + X
  1268. + X/*
  1269. + X * The following functions set the amount of time that the open
  1270. + X * command waits for the file, and how frequently it tries.
  1271. + X */
  1272. + X
  1273. + Xsetdeadtime(n)
  1274. + X    int n;
  1275. + X{
  1276. + X    int oldvalue = lockdeadtime;
  1277. + X    lockdeadtime = n;
  1278. + X    return(oldvalue);
  1279. + X}
  1280. + X
  1281. + Xsetintervaltime(n)
  1282. + X{
  1283. + X    int oldvalue = lockintervaltime;
  1284. + X    lockintervaltime = n;
  1285. + X    return(oldvalue);
  1286. + X}
  1287. + X
  1288. + X/*
  1289. + X * Because of Domain/OS's file locking semantics, the flock() command
  1290. + X * isn't really meaningful in the UNIX usage.
  1291. + X */
  1292. + X
  1293. + Xapollo_flock(fd, operation)
  1294. + X{
  1295. + X    return 0;
  1296. + X}
  1297. + X
  1298. + X#endif
  1299. + SHAR_EOF
  1300. + chmod 0600 apollo_file.c || echo "restore of apollo_file.c fails"
  1301. + set `wc -c apollo_file.c`;Sum=$1
  1302. + if test "$Sum" != "6006"
  1303. + then echo original size 6006, current size $Sum;fi
  1304. + echo "x - extracting apollo_pad.c (Text)"
  1305. + sed 's/^X//' << 'SHAR_EOF' > apollo_pad.c &&
  1306. + X/*
  1307. + X * apollo_pad.c: 10/24/1991 version 1.2
  1308. + X *
  1309. + X * apollo_ispad() - returns true if output is going into an Display Manger
  1310. + X *             pad.  Needed because "more" won't work right in a pad.
  1311. + X *
  1312. + X * apollo_padheight() - Returns the height in characters of the pad associated
  1313. + X *            with stdout.  If an error occurs or the stream isn't
  1314. + X *            a pad, a default value of 20 is returned.
  1315. + X *
  1316. + X *    Written by Mike Pelletier, <stealth@engin.umich.edu>, based heavily
  1317. + X *    on work by Paul Killey, <paul@engin.umich.edu>.
  1318. + X */
  1319. + X
  1320. + X#ifdef apollo
  1321. + X
  1322. + X#ifdef __STDC__
  1323. + X#include <apollo/base.h>
  1324. + X#include <apollo/pad.h>
  1325. + X#include <apollo/ios.h>
  1326. + X#else
  1327. + X#include "/sys/ins/base.ins.c"
  1328. + X#include "/sys/ins/pad.ins.c"
  1329. + X#include "/sys/ins/ios.ins.c"
  1330. + X#endif /* __STDC__ */
  1331. + X
  1332. + X#ifdef __STDC__
  1333. + Xextern status_$t errno_$status;
  1334. + X#else
  1335. + Xextern  status_$t unix_fio_$status;
  1336. + X#define errno_$status unix_fio_$status
  1337. + X#endif
  1338. + X
  1339. + X/*
  1340. + X *    Return true if we're outputting into an Apollo DM pad...
  1341. + X */
  1342. + X
  1343. + Xapollo_ispad() {
  1344. + X
  1345. + X    short disunit = 1;
  1346. + X    pad_$display_type_t distype;
  1347. + X    status_$t status;
  1348. + X
  1349. + X#ifdef __STDC__
  1350. + X    pad_$inq_disp_type(ios_$stdout, &distype, &disunit, &status);
  1351. + X#else
  1352. + X    pad_$inq_disp_type(ios_$stdout, distype, disunit, status);
  1353. + X#endif /* __STDC__ */
  1354. + X
  1355. + X    return (status.all == status_$ok);
  1356. + X}
  1357. + X
  1358. + X
  1359. + X/*
  1360. + X * Returns the height of the pad associated with stdout
  1361. + X */
  1362. + X
  1363. + Xapollo_padheight() {
  1364. + X
  1365. + X    static short FontHeight, FontWidth, FontNameLength;
  1366. + X    static int height;
  1367. + X    status_$t Status;
  1368. + X    char FontName[256];
  1369. + X    short WindowCount;
  1370. + X
  1371. + X#ifdef __STDC__
  1372. + X    pad_$window_list_t CurrentWindow;
  1373. + X#else
  1374. + X    pad_$window_desc_t CurrentWindow;
  1375. + X#endif /* __STDC__ */
  1376. + X
  1377. + X#ifdef __STDC__
  1378. + X    pad_$inq_font(ios_$stdout, &FontWidth, &FontHeight, FontName, 256,
  1379. + X            &FontNameLength, &Status);
  1380. + X#else
  1381. + X    pad_$inq_font(ios_$stdout, FontWidth, FontHeight, FontName, 256,
  1382. + X            FontNameLength, Status);
  1383. + X#endif /* __STDC__ */
  1384. + X
  1385. + X    if (Status.all == status_$ok) {
  1386. + X#ifdef __STDC__
  1387. + X    pad_$set_scale(ios_$stdout, 1, 1, &Status);
  1388. + X    pad_$inq_windows(ios_$stdout, CurrentWindow, 1, &WindowCount, &Status);
  1389. + X    height = CurrentWindow[0].height / FontHeight;
  1390. + X#else
  1391. + X        pad_$set_scale(ios_$stdout, 1, 1, Status);
  1392. + X        pad_$inq_windows(ios_$stdout, CurrentWindow, 1, WindowCount, Status);
  1393. + X        height = CurrentWindow.height / FontHeight;
  1394. + X#endif /* __STDC__ */
  1395. + X    } else {
  1396. + X    height = 20;
  1397. + X    }
  1398. + X}
  1399. + X
  1400. + X#endif /* apollo */
  1401. + SHAR_EOF
  1402. + chmod 0600 apollo_pad.c || echo "restore of apollo_pad.c fails"
  1403. + set `wc -c apollo_pad.c`;Sum=$1
  1404. + if test "$Sum" != "2324"
  1405. + then echo original size 2324, current size $Sum;fi
  1406. + exit 0
  1407.  
  1408. -- 
  1409. Bart Schaefer                                     schaefer@zigzag.z-code.com
  1410. Z-Code Software Corp.                             schaefer@z-code.com
  1411. New male in /home/schaefer:
  1412.   1  N  Benjamin Timothy Schaefer  Nov 26 1991 (3572g) Happy Birthday!
  1413.  
  1414. exit 0 # Just in case...
  1415.