home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OS9000 / APPS / rcs.lzh / rcs1 / rcsgen.a < prev    next >
Text File  |  1996-04-20  |  31KB  |  1,244 lines
  1.  psect rcsgen_c,0,0,0,0,0
  2.  nam rcsgen_c
  3. * /*
  4. * #ifndef lint
  5. * static char rcsid[]= "$Id: rcsgen.c_v 1.2 96/04/07 00:23:11 hiro Exp $ Purdue CS";
  6.  vsect
  7. rcsid  dc.b "$Id: rcsgen.c_v 1.2 96/04/07 00:23:11 hiro Exp $ Purdue CS",$0
  8.  ends
  9. * #endif
  10. * 
  11. * /* Copyright (C) 1982, 1988, 1989 Walter Tichy
  12. * 
  13. * 
  14. * 
  15. * /* $Log:    rcsgen.c_v $
  16. * 
  17. * 
  18. * 
  19. * 
  20. * #include "rcsbase.h"
  21. * /*
  22. * #define RCSBASE "$Id: rcsbase.h_v 1.2 96/04/07 00:17:24 hiro Exp $"
  23. * 
  24. * /* Copyright (C) 1982, 1988, 1989 Walter Tichy
  25. * 
  26. * 
  27. * 
  28. * /*****************************************************************************
  29. * 
  30. * 
  31. * /* $Log:    rcsbase.h_v $
  32. * 
  33. * #if defined(_OS9000) && !defined(OSK)
  34. * #define OSK    1
  35. * #endif
  36. * 
  37. * #include <stdio.h>
  38. * /* type lengths regardless of compiler in use:
  39. * 
  40. * typedef short WORD;     /* always 16 bits */
  41. * 
  42. * #ifdef OSK
  43. * #   define BUFSIZ 512
  44. * #   define _NFILE 32
  45. * #else
  46. * #   ifdef OS9
  47. * #       define BUFSIZ 256
  48. * #       define _NFILE 16
  49. * #   endif
  50. * #endif
  51. * 
  52. * typedef struct _iobuf {
  53. *     char *_ptr,        /* buffer pointer */
  54. *          *_base,    /* buffer base address */
  55. *          *_end;        /* buffer end address */
  56. *     WORD _flag;        /* file status */
  57. *     WORD _fd;        /* file path number */
  58. *     char _save;        /* for 'ungetc' when unbuffered */
  59. *     WORD _bufsiz;    /* size of data buffer */
  60. *     int (*_ifunc)();/* function to use for input */
  61. *     int (*_ofunc)();/* function to use for output */
  62. * } FILE;
  63. * 
  64. * extern FILE _iob[_NFILE];
  65. * 
  66. * /*    the following are fake pointer variable defintions  */
  67. * #define stdin    (&_iob[0])
  68. * #define stdout    (&_iob[1])
  69. * #define stderr    (&_iob[2])
  70. * 
  71. * #define _READ        1
  72. * #define _WRITE        2
  73. * #define _UNBUF        4
  74. * #define _BIGBUF        8
  75. * #define _EOF        0x10
  76. * #define _ERR        0x20
  77. * #define _SCF        0x40
  78. * #define _RBF        0x80
  79. * #define _DEVMASK    0xc0
  80. * #define _WRITTEN    0x0100        /*    buffer written in update mode  */
  81. * #define _MYBUF        0x0200        /*    system allocated buffer  */
  82. * #define _INIT        0x8000        /*    _iob initialized  */
  83. * 
  84. * #define EOF (-1)
  85. * #define EOL 13
  86. * #define NULL 0
  87. * 
  88. * #ifdef OSK
  89. * #define PMODE READ|WRITE    /* r/w for owner */
  90. * #else
  91. * #define PMODE  0xb          /* r/w for owner, r for others */
  92. * #endif
  93. * 
  94. * #define fgetc           getc
  95. * #define putchar(c)      putc(c,stdout)
  96. * #define getchar()       getc(stdin)
  97. * #define ferror(p)       ((p)->_flag&_ERR)
  98. * #define feof(p)         ((p)->_flag&_EOF)
  99. * #define clearerr(p)     ((p)->_flag&=~_ERR)
  100. * #define cleareof(p)     ((p)->_flag&=~_EOF)
  101. * #define fileno(p)       ((p)->_fd)
  102. * 
  103. * extern FILE *fopen(), *fdopen(), *freopen();
  104. * extern char *fgets(), *gets();
  105. * extern long ftell();
  106. * #ifdef USG
  107. * #include <string.h>
  108. * #else
  109. * #include <strings.h>
  110. * /*
  111. * 
  112. * extern char *strcat(),*strncat(),*strcpy();
  113. * extern char *strncpy(),*index(),*rindex();
  114. * extern int strcmp(),strncmp(),strlen();
  115. * #endif
  116. * #ifndef OSK
  117. * #undef putc         /* will be redefined */
  118. * #endif
  119. * 
  120. * #ifndef    cleareof
  121. * #define    cleareof(s)    _cleareof(s)
  122. * #endif
  123. * #ifndef    clearerr
  124. * #define    clearerr(s)    _clearerr(s)
  125. * #endif
  126. * #ifndef    fileno
  127. * #define    fileno(s)    _fileno(s)
  128. * #endif
  129. * #ifndef    EOS_SHARE
  130. * #define    EOS_SHARE    E_SHARE
  131. * #endif
  132. * 
  133. * #if defined(_UCC) || defined(_OS9000)
  134. * #define    environ        _environ
  135. * #endif
  136. * 
  137. * #ifdef USG
  138. * #       define rindex    strrchr
  139. * #       define DATEFORM  "%.2d.%.2d.%.2d.%.2d.%.2d.%.2d"
  140. * #else
  141. * #       define DATEFORM  "%02d.%02d.%02d.%02d.%02d.%02d"
  142. * #endif
  143. * /* Make sure one of %02d or %.2d prints a number with a field width 2, with
  144. * 
  145. * #define PRINTDATE(file,date) fprintf(file,"%.2s/%.2s/%.2s",date,date+3,date+6)
  146. * #define PRINTTIME(file,date) fprintf(file,"%.2s:%.2s:%.2s",date+9,date+12,date+15)
  147. * /* print RCS format date and time in nice format from a string              */
  148. * 
  149. * /*
  150. * #define BYTESIZ             8 /* number of bits in a byte                   */
  151. * 
  152. * /*#define STRICT_LOCKING    0 /* 0 sets the default locking to non-strict;  */
  153. *                               /* used in experimental environments.         */
  154. *                               /* 1 sets the default locking to strict;      */
  155. *                               /* used in production environments.           */
  156. *                   /* STRICT_LOCKING is set in the Makefile!     */
  157. * #ifndef hshsize
  158. * #define hshsize           239 /* hashtable size; MUST be prime and -1 mod 4 */
  159. *                               /* other choices: 547 or 719                  */
  160. * #endif
  161. * 
  162. * #define strtsize (hshsize * 50) /* string table size                        */
  163. * #ifdef SMALLOG
  164. * #  define logsize         1024 /* max. size of log message for pdp11        */
  165. * #else
  166. * #  define logsize         4096 /* max. size of log message for others       */
  167. * #endif
  168. * #define revlength          30 /* max. length of revision numbers            */
  169. * #define datelength         20 /* length of a date in RCS format             */
  170. * #define joinlength         20 /* number of joined revisions permitted       */
  171. * #ifdef MSDOS        /* Added by $Author: hiro $ */
  172. * #define RCSDIR         "RCS\\" /* subdirectory for RCS files                 */
  173. * #else
  174. * #define RCSDIR         "RCS/" /* subdirectory for RCS files                 */
  175. * #endif /* MSDOS */
  176. * #ifdef MSDOS        /* Added by $Author: hiro $ */
  177. * #define RCSSUF            '\0' /* suffix for RCS files                       */
  178. * #define RCSSEP            '\0' /* separator for RCSSUF                       */
  179. * #else
  180. * #ifdef OSK
  181. * #define RCSSUF              'v' /* suffix for RCS files                        */
  182. * #define RCSSEP              '_' /* separator for RCSSUF                        */
  183. * #else
  184. * #define RCSSUF            'v' /* suffix for RCS files                       */
  185. * #define RCSSEP            ',' /* separator for RCSSUF                       */
  186. * #endif /* OSK */
  187. * #endif /* MSDOS */
  188. * #define KDELIM            '$' /* delimiter for keywords                     */
  189. * #define VDELIM            ':' /* separates keywords from values             */
  190. * #define DEFAULTSTATE    "Exp" /* default state of revisions                 */
  191. * #ifdef V4_2BSD
  192. * #  define NCPFN           256 /* number of characters per filename          */
  193. * #  define NCPPN          1024 /* number of characters per pathname          */
  194. * #else
  195. * #ifdef MSDOS        /* Added by $Author: hiro $ */
  196. * #  define NCPFN            13 /* number of characters per filename          */
  197. * #  define NCPPN              66 /* number of characters per pathname          */
  198. * #else
  199. * #ifdef OSK
  200. * #  define NCPFN               28 /* number of characters per filename            */
  201. * #  define NCPPN          6*NCPFN /* number of characters per pathname            */
  202. * #else
  203. * #  define NCPFN            14 /* number of characters per filename          */
  204. * #  define NCPPN       6*NCPFN /* number of characters per pathname          */
  205. * #endif /* OSK */
  206. * #endif /* MSDOS */
  207. * #endif
  208. * #define keylength          20 /* buffer length for expansion keywords       */
  209. * #define keyvallength NCPPN+revlength+datelength+60
  210. *                               /* buffer length for keyword expansion        */
  211. * 
  212. * 
  213. * 
  214. * #define true     1
  215. * #define false    0
  216. * #define nil      0
  217. * #define elsif    else if
  218. * #define elif     else if
  219. * 
  220. * 
  221. * /* temporary file names */
  222. * 
  223. * #ifdef MSDOS            /* Added by $Author: hiro $ */
  224. * #define NEWRCSFILE  "nwXXXXXX"
  225. * #define DIFFILE     "ciXXXXXX"
  226. * #define TMPFILE1    "t1XXXXXX"
  227. * #define TMPFILE2    "t2XXXXXX"
  228. * #define TMPFILE3    "t3XXXXXX"
  229. * #define JOINFIL2    "j2XXXXXX"
  230. * #define JOINFIL3    "j3XXXXXX"
  231. * #else
  232. * #ifdef OSK
  233. * #define NEWRCSFILE  "_RCSnewXXXXXX"
  234. * #define DIFFILE     "_RCSciXXXXXX"
  235. * #define TMPFILE1    "_RCSt1XXXXXX"
  236. * #define TMPFILE2    "_RCSt2XXXXXX"
  237. * #define TMPFILE3    "_RCSt3XXXXXX"
  238. * #define JOINFIL2    "_RCSj2XXXXXX"
  239. * #define JOINFIL3    "_RCSj3XXXXXX"
  240. * #else
  241. * #define NEWRCSFILE  ",RCSnewXXXXXX"
  242. * #define DIFFILE     ",RCSciXXXXXX"
  243. * #define TMPFILE1    ",RCSt1XXXXXX"
  244. * #define TMPFILE2    ",RCSt2XXXXXX"
  245. * #define TMPFILE3    ",RCSt3XXXXXX"
  246. * #define JOINFIL2    ",RCSj2XXXXXX"
  247. * #define JOINFIL3    ",RCSj3XXXXXX"
  248. * #endif /* OSK */
  249. * #endif /* MSDOS */
  250. * 
  251. * #ifndef OSK
  252. * #define putc(x,p) (--(p)->_cnt>=0? ((int)(*(p)->_ptr++=(unsigned)(x))):fflsbuf((unsigned)(x),p))
  253. * /* This version of putc prints a char, but aborts on write error            */
  254. * #endif
  255. * 
  256. * #define GETC(in,out,echo) (c=getc(in), echo?putc(c,out):c)
  257. * /* GETC modifies a local variable c; a kludge, but smaller and faster.      */
  258. * /* GETC writes a del-character (octal 177) on end of file                   */
  259. * 
  260. * #ifdef MSDOS
  261. * #define WORKMODE(RCSmode) (RCSmode & ~S_IWRITE)|((lockflag||!StrictLocks)? ( S_IWRITE | S_IREAD ) : 0000 )
  262. * #else
  263. * #ifdef OSK
  264. * #ifdef _OS9000
  265. * #define WORKMODE(RCSmode) ( RCSmode&~(S_IWRITE|S_IGWRITE|S_IOWRITE)) | ( (lockflag||!StrictLocks) ? S_IWRITE|S_IREAD : 0 )
  266. * #else
  267. * #define WORKMODE(RCSmode) ( RCSmode&~0x12) | ( (lockflag||!StrictLocks) ? 0x02 : 0 )
  268. * #endif
  269. * #else
  270. * #define WORKMODE(RCSmode) (RCSmode&~0222)|((lockflag||!StrictLocks)?0600:0000)
  271. * #endif
  272. * #endif /* MSDOS */
  273. * /* computes mode of working file: same as RCSmode, but write permission     */
  274. * /* determined by lockflag and StrictLocks.                                  */
  275. * 
  276. * 
  277. * /* character classes and token codes */
  278. * enum tokens {
  279. * /* char classes*/  DIGIT, IDCHAR, NEWLN, LETTER, PERIOD, SBEGIN, SPACE, UNKN,
  280. * /* tokens */       COLON, DATE, EOFILE, ID, KEYW, NUM, SEMI, STRING,
  281. * };
  282. * 
  283. * #define AT      SBEGIN  /* class SBEGIN (string begin) is returned by lex. anal. */
  284. * #define SDELIM  '@'     /* the actual character is needed for string handling*/
  285. * /* these must be changed consistently, for instance to:
  286. * 
  287. * /* other characters */
  288. * 
  289. * #define ACCENT   IDCHAR
  290. * #define AMPER    IDCHAR
  291. * #define BACKSL   IDCHAR
  292. * #define BAR      IDCHAR
  293. * #define COMMA    UNKN
  294. * #define DIVIDE   IDCHAR
  295. * #define DOLLAR   UNKN                /* overlap with KDELIM */
  296. * #define DQUOTE   IDCHAR
  297. * #define EQUAL    IDCHAR
  298. * #define EXCLA    IDCHAR
  299. * #define GREAT    IDCHAR
  300. * #define HASH     IDCHAR
  301. * #define INSERT   UNKN
  302. * #define LBRACE   IDCHAR
  303. * #define LBRACK   IDCHAR
  304. * #define LESS     IDCHAR
  305. * #define LPARN    IDCHAR
  306. * #define MINUS    IDCHAR
  307. * #define PERCNT   IDCHAR
  308. * #define PLUS     IDCHAR
  309. * #define QUEST    IDCHAR
  310. * #define RBRACE   IDCHAR
  311. * #define RBRACK   IDCHAR
  312. * #define RPARN    IDCHAR
  313. * #define SQUOTE   IDCHAR
  314. * #define TILDE    IDCHAR
  315. * #define TIMES    IDCHAR
  316. * #define UNDER    IDCHAR
  317. * #define UPARR    IDCHAR
  318. * 
  319. * 
  320. * 
  321. * 
  322. * /***************************************
  323. * 
  324. * 
  325. * /* Hash table entry */
  326. * struct hshentry {
  327. *         char              * num;      /* pointer to revision number (ASCIZ) */
  328. *         char              * date;     /* pointer to date of checking        */
  329. *         char              * author;   /* login of person checking in        */
  330. *         char              * lockedby; /* who locks the revision             */
  331. *         char              * log;      /* log message requested at checkin   */
  332. *         char              * state;    /* state of revision (Exp by default) */
  333. *         struct branchhead * branches; /* list of first revisions on branches*/
  334. *         struct hshentry   * next;     /* next revision on same branch       */
  335. *         int                 insertlns;/* lines inserted (computed by rlog)  */
  336. *         int                 deletelns;/* lines deleted  (computed by rlog)  */
  337. *         char                selector; /* marks entry for selection/deletion */
  338. * };
  339. * 
  340. * /* list element for branch lists */
  341. * struct branchhead {
  342. *         struct hshentry   * hsh;
  343. *         struct branchhead * nextbranch;
  344. * };
  345. * 
  346. * /* accesslist element */
  347. * struct access {
  348. *         char              * login;
  349. *         struct access     * nextaccess;
  350. * };
  351. * 
  352. * /* list element for locks  */
  353. * struct lock {
  354. *         char              * login;
  355. *         struct hshentry   * delta;
  356. *         struct lock       * nextlock;
  357. * };
  358. * 
  359. * /* list element for symbolic names */
  360. * struct assoc {
  361. *         char              * symbol;
  362. *         struct hshentry   * delta;
  363. *         struct assoc      * nextassoc;
  364. * };
  365. * 
  366. * 
  367. * /* common variables (getadmin and getdelta())*/
  368. * extern char            * Comment;
  369. * extern struct access   * AccessList;
  370. * extern struct assoc    * Symbols;
  371. * extern struct lock     * Locks;
  372. * extern struct hshentry * Head;
  373. * extern struct hshentry * Dbranch;
  374. * extern int               StrictLocks;
  375. * extern int               TotalDeltas;
  376. * #ifndef lint
  377. * static char copyright[]="Copyright (C) 1982 by Walter F. Tichy";
  378.  vsect
  379. copyright  dc.b "Copyright (C) 1982 by Walter F. Tichy",$0
  380.  ends
  381. * #endif
  382. * 
  383. * /* common variables (lexical analyzer)*/
  384. * extern enum tokens map[];
  385. * #define ctab (&map[1])
  386. * extern enum tokens       nexttok;
  387. * extern int               hshenter;
  388. * extern char            * NextString;
  389. * extern char            * cmdid;
  390. * 
  391. * #if defined(USG) || defined(V4_2BSD)
  392. * #define VOID    (void)
  393. * #else
  394. * #ifndef OSK
  395. * typedef int void;
  396. * #endif
  397. * #define VOID
  398. * #endif
  399. * 
  400. * /* common routines */
  401. * extern char *talloc();
  402. * extern int serror();
  403. * extern int faterror();
  404. * extern int fatserror();
  405. * extern void ignoreints();
  406. * extern void catchints();
  407. * extern void restoreints();
  408. * 
  409. * #ifdef USG
  410. * extern int sprintf();
  411. * #endif
  412. * 
  413. * /*
  414. * #define AUTHOR          "Author"
  415. * #define DATE            "Date"
  416. * #define HEADER          "Header"
  417. * #define IDH             "Id"
  418. * #define LOCKER          "Locker"
  419. * #define LOG             "Log"
  420. * #define RCSFILE         "RCSfile"
  421. * #define REVISION        "Revision"
  422. * #define SOURCE          "Source"
  423. * #define STATE           "State"
  424. * 
  425. * enum markers { Nomatch, Author, Date, Header, Id,
  426. *            Locker, Log, RCSfile, Revision, Source, State };
  427. * 
  428. * #define DELNUMFORM      "\n\n%s\n%s\n"
  429. * /* used by putdtext and scanlogtext */
  430. * #define DELETE          'D'
  431. * /* set by rcs -o and used by puttree() in rcssyn */
  432. * 
  433. * 
  434. * 
  435. * 
  436. * 
  437. * extern struct hshentry * getnum();
  438. * extern FILE * fopen();
  439. * extern savestring();
  440. * extern editstring();
  441. * 
  442. * extern int nextc;          /* next character from lexical analyzer          */
  443. * extern char Ktext[];       /* keywords from syntax analyzer                 */
  444. * extern char Klog[];        /* Keyword "log"                                 */
  445. * extern char Kdesc[];       /* Keyword for description                       */
  446. * extern FILE * frewrite;    /* new RCS file                                  */
  447. * extern FILE * fcopy;       /* result file during editing                    */
  448. * extern char * resultfile;  /* file name for fcopy                           */
  449. * extern int    rewriteflag; /* indicates whether to rewrite the input file   */
  450. * #if defined(MSDOS) || defined(OSK)
  451. * extern char tmpdir[NCPPN];
  452. * #endif /* MSDOS */
  453. * 
  454. * char    curlogmsg[logsize]; /* buffer for current log message                */
  455.  vsect
  456. curlogmsg: ds.b 4096
  457. * 
  458. * enum stringwork {copy, edit, expand, edit_expand };
  459. * /* parameter to scandeltatext() */
  460. * 
  461. * 
  462. * 
  463. * 
  464. * char * buildrevision(deltas, target, dir, expandflag)
  465. * struct hshentry ** deltas, * target;
  466.  ends
  467. * char * dir; int expandflag;
  468. * /* Function: Generates the revision given by target
  469. * {
  470.  ttl buildrev
  471. buildrevision:  link a5,#0
  472.  movem.l #_1!3,-(sp)
  473.  move.l #_3,d0 :6
  474.  bsr _stkcheck
  475. *         int i;
  476. * 
  477. *         if (deltas[0]==target) {
  478.  subq.l #4,sp :2
  479.  movea.l 4(sp),a0
  480.  move.l 8(sp),d0
  481.  cmp.l (a0),d0 :2
  482.  bne _6
  483. _5
  484. *                 /* only latest revision to generate */
  485. *                 if (dir==nil) {/* print directly to stdout */
  486.  tst.l 4+_2(sp)
  487.  bne _8
  488. _7
  489. *                         fcopy=stdout;
  490. *                         scandeltatext(target,expand);
  491. *                         return(char *) true;
  492.  lea _iob+28(a6),a0
  493.  move.l a0,fcopy(a6)
  494.  moveq.l #2,d1 :2
  495.  move.l 8(sp),d0
  496.  bsr scandeltatext
  497.  moveq.l #1,d0 :2
  498.  addq.l #4,sp :2
  499.  bra _4
  500. *                 } else {
  501.  bra _9
  502. _8
  503. *                         initeditfiles(dir);
  504. *                         scandeltatext(target,expandflag?expand:copy);
  505. *                         ffclose(fcopy);
  506. *                         return(resultfile);
  507.  move.l 4+_2(sp),d0
  508.  bsr initeditfiles
  509.  tst.l 8+_2(sp)
  510.  beq _10
  511. _11
  512.  moveq.l #2,d0 :2
  513.  bra _12
  514. _10
  515.  moveq.l #0,d0 :2
  516. _12
  517.  move.l d0,d1 :2
  518.  move.l 8(sp),d0
  519.  bsr scandeltatext
  520.  move.l fcopy(a6),d0
  521.  bsr ffclose
  522.  move.l resultfile(a6),d0
  523.  addq.l #4,sp :2
  524.  bra _4
  525. *                 }
  526. *         } else {
  527. _9
  528.  bra _13
  529. _6
  530. *                 /* several revisions to generate */
  531. * #if defined(MSDOS) || defined(OSK)
  532. *                 initeditfiles(dir?dir: tmpdir);
  533. * #else
  534. *                 initeditfiles(dir?dir:"/tmp/");
  535. * #endif /* MSDOS */
  536. *                 /* write initial revision into fcopy, no keyword expansion */
  537. *                 scandeltatext(deltas[0],copy);
  538. *                 i = 1;
  539. *                 while (deltas[i+1] != nil) {
  540.  tst.l 4+_2(sp)
  541.  beq _14
  542. _15
  543.  movea.l 4+_2(sp),a0
  544.  bra _16
  545. _14
  546.  lea tmpdir(a6),a0
  547. _16
  548.  move.l a0,d0 :2
  549.  bsr initeditfiles
  550.  moveq.l #0,d1 :2
  551.  movea.l 4(sp),a0
  552.  move.l (a0),d0 :2
  553.  bsr scandeltatext
  554.  moveq.l #1,d0 :2
  555.  move.l d0,(sp) :2
  556.  bra _18
  557. _19
  558. *                         /* do all deltas except last one */
  559. *                         scandeltatext(deltas[i++],edit);
  560. *                 }
  561.  moveq.l #1,d1 :2
  562.  move.l (sp),d0 :2
  563.  addq.l #1,(sp) :2
  564.  lsl.l #2,d0 :2
  565.  movea.l 4(sp),a0
  566.  move.l 0(a0,d0.l),d0
  567.  bsr scandeltatext
  568. *                 if (!expandflag) {
  569. _18
  570.  move.l (sp),d0 :2
  571.  addq.l #1,d0 :2
  572.  lsl.l #2,d0 :2
  573.  movea.l 4(sp),a0
  574.  tst.l 0(a0,d0.l)
  575.  bne _19
  576. _17
  577.  tst.l 8+_2(sp)
  578.  bne _21
  579. _20
  580. *                         /* no keyword expansion; only invoked from ci */
  581. *                         scandeltatext(deltas[i],edit);
  582. *                         finishedit((struct hshentry *)nil);
  583. *                         ffclose(fcopy);
  584. *                 } else {
  585.  moveq.l #1,d1 :2
  586.  move.l (sp),d0 :2
  587.  lsl.l #2,d0 :2
  588.  movea.l 4(sp),a0
  589.  move.l 0(a0,d0.l),d0
  590.  bsr scandeltatext
  591.  moveq.l #0,d0 :2
  592.  bsr finishedit
  593.  move.l fcopy(a6),d0
  594.  bsr ffclose
  595.  bra _22
  596. _21
  597. *                         /* perform keyword expansion*/
  598. *                         /* first, get to beginning of file*/
  599. *                         finishedit((struct hshentry *)nil); swapeditfiles(dir==nil);
  600. *                         scandeltatext(deltas[i],edit_expand);
  601. *                         finishedit(deltas[i]);
  602. *                         if (dir!=nil) ffclose(fcopy);
  603.  moveq.l #0,d0 :2
  604.  bsr finishedit
  605.  tst.l 4+_2(sp)
  606.  bne _25
  607. _26
  608.  moveq.l #1,d0 :2
  609.  bra _27
  610. _25
  611.  moveq.l #0,d0 :2
  612. _27
  613.  bsr swapeditfiles
  614.  moveq.l #3,d1 :2
  615.  move.l (sp),d0 :2
  616.  lsl.l #2,d0 :2
  617.  movea.l 4(sp),a0
  618.  move.l 0(a0,d0.l),d0
  619.  bsr scandeltatext
  620.  move.l (sp),d0 :2
  621.  lsl.l #2,d0 :2
  622.  movea.l 4(sp),a0
  623.  move.l 0(a0,d0.l),d0
  624.  bsr finishedit
  625.  tst.l 4+_2(sp)
  626.  beq _24
  627. _23
  628. *                 }
  629.  move.l fcopy(a6),d0
  630.  bsr ffclose
  631. _24
  632. *                 return(resultfile); /*doesn't matter for dir==nil*/
  633. _22
  634.  move.l resultfile(a6),d0
  635.  addq.l #4,sp :2
  636.  bra _4
  637. *         }
  638. * }
  639. _13
  640.  addq.l #4,sp :2
  641. _4
  642.  movem.l -4(a5),#_1
  643.  unlk a5
  644.  rts :2
  645. _3 equ 0xffffffb8 :0
  646. _1 equ 0x00000100 :0
  647. _2 equ 0x00000014 :0
  648. * 
  649. * 
  650. * 
  651. * scandeltatext(delta,func)
  652. * struct hshentry * delta; enum stringwork func;
  653. * /* Function: Scans delta text nodes up to and including the one given
  654. * {       struct hshentry * nextdelta;
  655.  ttl scandelt
  656. scandeltatext:  link a5,#0
  657.  movem.l #_28!3,-(sp)
  658.  move.l #_30,d0 :6
  659.  bsr _stkcheck
  660. * 
  661. *         do {
  662.  subq.l #4,sp :2
  663. _34
  664. *                 nextlex();
  665. *                 if (!(nextdelta=getnum())) {
  666.  bsr nextlex
  667.  bsr getnum
  668.  move.l d0,(sp) :2
  669.  bne _36
  670. _35
  671. *                         fatserror("Can't find delta for revision %s", delta->num);
  672. *                 }
  673.  movea.l 4(sp),a0
  674.  move.l (a0),d1 :2
  675.  lea _37(pc),a0
  676.  move.l a0,d0 :2
  677.  bsr fatserror
  678. *                 if (!getkey(Klog) || nexttok!=STRING)
  679. _36
  680. *                         serror("Missing log entry");
  681.  lea Klog(a6),a0
  682.  move.l a0,d0 :2
  683.  bsr getkey
  684.  tst.l d0 :2
  685.  beq _38
  686. _40
  687.  moveq.l #15,d0 :2
  688.  cmp.l nexttok(a6),d0
  689.  beq _39
  690. _38
  691. *                 elsif (delta==nextdelta) {
  692.  lea _41(pc),a0
  693.  move.l a0,d0 :2
  694.  bsr serror
  695.  bra _42
  696. _39
  697.  move.l 4(sp),d0
  698.  cmp.l (sp),d0 :2
  699.  bne _44
  700. _43
  701. *                         VOID savestring(curlogmsg,logsize);
  702. *                         delta->log=curlogmsg;
  703. *                 } else {readstring();
  704.  move.l #4096,d1 :6
  705.  lea curlogmsg(a6),a0
  706.  move.l a0,d0 :2
  707.  bsr savestring
  708.  lea curlogmsg(a6),a0
  709.  movea.l 4(sp),a1
  710.  move.l a0,16(a1)
  711.  bra _45
  712. _44
  713. *                         delta->log= "";
  714. *                 }
  715.  bsr readstring
  716.  lea _46(pc),a0
  717.  movea.l 4(sp),a1
  718.  move.l a0,16(a1)
  719. *                 nextlex();
  720. _45
  721. _42
  722. *                 if (!getkey(Ktext) || nexttok!=STRING)
  723. *                         fatserror("Missing delta text");
  724.  bsr nextlex
  725.  lea Ktext(a6),a0
  726.  move.l a0,d0 :2
  727.  bsr getkey
  728.  tst.l d0 :2
  729.  beq _47
  730. _49
  731.  moveq.l #15,d0 :2
  732.  cmp.l nexttok(a6),d0
  733.  beq _48
  734. _47
  735. * 
  736. *                 if(delta==nextdelta)
  737.  lea _50(pc),a0
  738.  move.l a0,d0 :2
  739.  bsr fatserror
  740. _48
  741. *                         /* got the one we're looking for */
  742. *                         switch (func) {
  743.  move.l 4(sp),d0
  744.  cmp.l (sp),d0 :2
  745.  bne _52
  746. _51
  747.  bra _54
  748. *                         case copy:      copystring();
  749. _55
  750. *                                         break;
  751.  bsr copystring
  752.  bra _53
  753. *                         case expand:    xpandstring(delta);
  754. _56
  755. *                                         break;
  756.  move.l 4(sp),d0
  757.  bsr xpandstring
  758.  bra _53
  759. *                         case edit:      editstring((struct hshentry *)nil);
  760. _57
  761. *                                         break;
  762.  moveq.l #0,d0 :2
  763.  bsr editstring
  764.  bra _53
  765. *                         case edit_expand: editstring(delta);
  766. _58
  767. *                                         break;
  768.  move.l 4(sp),d0
  769.  bsr editstring
  770.  bra _53
  771. *                         }
  772. *                 else    readstring(); /* skip over it */
  773. _54
  774.  move.l 8(sp),d0
  775.  cmpi.l #3,d0 :6
  776.  bhi _53
  777.  add.w d0,d0 :2
  778.  move.w _59(pcr,d0.w),d0
  779.  jmp _59(pcr,d0.w)
  780. _59
  781.  dc.w _55-_59 :2
  782.  dc.w _57-_59 :2
  783.  dc.w _56-_59 :2
  784.  dc.w _58-_59 :2
  785. _53
  786.  bra _60
  787. _52
  788. * 
  789. *         } while (delta!=nextdelta);
  790.  bsr readstring
  791. _60
  792. _32
  793.  move.l 4(sp),d0
  794.  cmp.l (sp),d0 :2
  795.  bne _34
  796. _33
  797. * }
  798.  addq.l #4,sp :2
  799. _31
  800.  movem.l -8(a5),#_28
  801.  unlk a5
  802.  rts :2
  803. _30 equ 0xffffffb8 :0
  804. _28 equ 0x00000300 :0
  805. _29 equ 0x00000018 :0
  806. * 
  807. * 
  808. * int stdinread; /* stdinread>0 if redirected stdin has been read once */
  809.  vsect
  810. stdinread: ds.l 1
  811. * 
  812. * int ttystdin()
  813. * {
  814.  ends
  815.  ttl ttystdin
  816. ttystdin:  link a5,#0
  817.  movem.l #_61!1,-(sp)
  818.  move.l #_63,d0 :6
  819.  bsr _stkcheck
  820. *     static int initialized, istty;
  821.  vsect
  822. _65 ds.l 1
  823. _66 ds.l 1
  824.  
  825. *     if (!initialized) {
  826.  ends
  827.  tst.l _65(a6)
  828.  bne _68
  829. _67
  830. *         istty = isatty(fileno(stdin));
  831. *         initialized = 1;
  832. *     }
  833.  movea.w _iob+14(a6),a0
  834.  move.l a0,d0 :2
  835.  bsr isatty
  836.  move.l d0,_66(a6)
  837.  moveq.l #1,d0 :2
  838.  move.l d0,_65(a6)
  839. *     return istty;
  840. _68
  841.  move.l _66(a6),d0
  842.  bra _64
  843. * }
  844.  nop :2
  845. _64
  846.  movem.l -4(a5),#_61
  847.  unlk a5
  848.  rts :2
  849. _63 equ 0xffffffbc :0
  850. _61 equ 0x00000100 :0
  851. _62 equ 0x00000010 :0
  852. * 
  853. * void putdesc(initflag,textflag,textfile,quietflag)
  854. * int initflag,textflag; char * textfile; int quietflag;
  855. * /* Function: puts the descriptive text into file frewrite.
  856. * {       register FILE * txt; register int c, old1, old2;
  857.  ttl putdesc
  858. putdesc:  link a5,#0
  859.  movem.l #_69!3,-(sp)
  860.  move.l #_71,d0 :6
  861.  bsr _stkcheck
  862. *     register FILE * frew;
  863. * #ifdef lint
  864. *     if (quietflag ==  0) initflag = quietflag; /* silencelint */
  865. * #endif
  866. * 
  867. *     frew = frewrite;
  868. *         if (!initflag && !textflag) {
  869.  movea.l frewrite(a6),a3
  870.  tst.l (sp) :2
  871.  bne _74
  872. _75
  873.  tst.l 4(sp)
  874.  bne _74
  875. _73
  876. *                 /* copy old description */
  877. *                 VOID fprintf(frew,"\n\n%s%c",Kdesc,nextc);
  878. *                 rewriteflag=true; getdesc(false);
  879. *         } else {
  880.  move.l nextc(a6),-(sp)
  881.  pea Kdesc(a6)
  882.  lea _76(pc),a0
  883.  move.l a0,d1 :2
  884.  move.l a3,d0 :2
  885.  bsr fprintf
  886.  addq.l #8,sp :2
  887.  moveq.l #1,d0 :2
  888.  move.l d0,rewriteflag(a6)
  889.  moveq.l #0,d0 :2
  890.  bsr getdesc
  891.  bra _77
  892. _74
  893. *                 /* get new description */
  894. *                if (!initflag) {
  895.  tst.l (sp) :2
  896.  bne _79
  897. _78
  898. *                         /*skip old description*/
  899. *                         rewriteflag=false; getdesc(false);
  900. *                 }
  901.  clr.l rewriteflag(a6)
  902.  moveq.l #0,d0 :2
  903.  bsr getdesc
  904. *                 VOID fprintf(frew,"\n\n%s\n%c",Kdesc,SDELIM);
  905. _79
  906. *                 if (textfile) {
  907.  pea 64.w
  908.  pea Kdesc(a6)
  909.  lea _82(pc),a0
  910.  move.l a0,d1 :2
  911.  move.l a3,d0 :2
  912.  bsr fprintf
  913.  addq.l #8,sp :2
  914.  tst.l -1048576+_70(sp)
  915.  beq _81
  916. _80
  917. *                         old1='\n';
  918. *                         /* copy textfile */
  919. *                         if ((txt=fopen(textfile,"r"))!=NULL) {
  920.  moveq.l #13,d5 :2
  921.  lea _85(pc),a0
  922.  move.l a0,d1 :2
  923.  move.l -1048576+_70(sp),d0
  924.  bsr fopen
  925.  movea.l d0,a2 :2
  926.  tst.l d0 :2
  927.  beq _84
  928. _83
  929. *                                 while ((c=getc(txt))!=EOF) {
  930.  bra _87
  931. _88
  932. *                                         if (c==SDELIM) VOID putc(c,frew); /*double up*/
  933.  moveq.l #64,d0 :2
  934.  cmp.l d4,d0 :2
  935.  bne _90
  936. _89
  937. *                                         VOID putc(c,frew);
  938.  move.l a3,d1 :2
  939.  move.l d4,d0 :2
  940.  bsr putc
  941. _90
  942. *                                         old1=c;
  943. *                                 }
  944.  move.l a3,d1 :2
  945.  move.l d4,d0 :2
  946.  bsr putc
  947.  move.l d4,d5 :2
  948. *                                 if (old1!='\n') VOID putc('\n',frew);
  949. _87
  950.  move.l a2,d0 :2
  951.  bsr getc
  952.  move.l d0,d4 :2
  953.  moveq.l #-1,d1 :2
  954.  cmp.l d0,d1 :2
  955.  bne _88
  956. _86
  957.  moveq.l #13,d0 :2
  958.  cmp.l d5,d0 :2
  959.  beq _92
  960. _91
  961. *                                 VOID fclose(txt);
  962.  move.l a3,d1 :2
  963.  moveq.l #13,d0 :2
  964.  bsr putc
  965. _92
  966. *                 VOID putc(SDELIM,frew);
  967. *                 VOID fputs("\n\n", frew);
  968. *                 return;
  969.  move.l a2,d0 :2
  970.  bsr fclose
  971.  move.l a3,d1 :2
  972.  moveq.l #64,d0 :2
  973.  bsr putc
  974.  move.l a3,d1 :2
  975.  lea _93(pc),a0
  976.  move.l a0,d0 :2
  977.  bsr fputs
  978.  bra _72
  979. *                         } else {
  980.  bra _94
  981. _84
  982. *                                 error("Can't open file %s with description",textfile);
  983. *                                 if (!ttystdin()) return;
  984.  move.l -1048576+_70(sp),d1
  985.  lea _97(pc),a0
  986.  move.l a0,d0 :2
  987.  bsr error
  988.  bsr ttystdin
  989.  tst.l d0 :2
  990.  bne _96
  991. _95
  992.  bra _72
  993. *                                 /* otherwise, get description from terminal */
  994. *                         }
  995. _96
  996. *                 }
  997. _94
  998. *                 /* read text from stdin */
  999. *                 if (ttystdin()) {
  1000. _81
  1001.  bsr ttystdin
  1002.  tst.l d0 :2
  1003.  beq _99
  1004. _98
  1005. * #ifdef MSDOS
  1006. *                     VOID fputs("enter description, terminated with ^Z or '.':\n",stderr);
  1007. * #else
  1008. * #ifdef OSK
  1009. *                     VOID fputs("entern description , terminated with ESC or '.':\n",stderr);
  1010. * #else
  1011. *                     VOID fputs("enter description, terminated with ^D or '.':\n",stderr);
  1012. * #endif /* OSK */                    
  1013. * #endif /* MSDOS */
  1014. *                     VOID fputs("NOTE: This is NOT the log message!\n>> ",stderr);
  1015. *                     fflush(stderr);
  1016. *             if (feof(stdin))
  1017. *                     clearerr(stdin);
  1018.  lea _iob+56(a6),a0
  1019.  move.l a0,d1 :2
  1020.  lea _102(pc),a0
  1021.  move.l a0,d0 :2
  1022.  bsr fputs
  1023.  lea _iob+56(a6),a0
  1024.  move.l a0,d1 :2
  1025.  lea _103(pc),a0
  1026.  move.l a0,d0 :2
  1027.  bsr fputs
  1028.  lea _iob+56(a6),a0
  1029.  move.l a0,d0 :2
  1030.  bsr fflush
  1031.  btst.b #4,_iob+13(a6) :6
  1032.  beq _101
  1033. _100
  1034. *                 } else {  /* redirected stdin */
  1035.  andi.w #-33,_iob+12(a6) :6
  1036. _101
  1037.  bra _104
  1038. _99
  1039. *                     if (stdinread>0)
  1040. *                         faterror("Can't reread redirected stdin for description; use -t<file>");
  1041.  tst.l stdinread(a6)
  1042.  ble _106
  1043. _105
  1044. *                     stdinread++;
  1045.  lea _107(pc),a0
  1046.  move.l a0,d0 :2
  1047.  bsr faterror
  1048. _106
  1049. *                 }
  1050.  addq.l #1,stdinread(a6)
  1051. *                 c = '\0'; old2= '\n';
  1052. _104
  1053. *                 if ((old1=getchar())==EOF) {
  1054.  moveq.l #0,d4 :2
  1055.  moveq.l #13,d6 :2
  1056.  lea _iob(a6),a0
  1057.  move.l a0,d0 :2
  1058.  bsr getc
  1059.  move.l d0,d5 :2
  1060.  moveq.l #-1,d1 :2
  1061.  cmp.l d0,d1 :2
  1062.  bne _109
  1063. _108
  1064. *                         if (ttystdin()) {
  1065.  bsr ttystdin
  1066.  tst.l d0 :2
  1067.  beq _111
  1068. _110
  1069. *                              VOID putc('\n',stderr);
  1070. * #ifdef OSK
  1071. *                              cleareof(stdin);
  1072. * #endif
  1073. *                              clearerr(stdin);
  1074. *             }
  1075.  lea _iob+56(a6),a0
  1076.  move.l a0,d1 :2
  1077.  moveq.l #13,d0 :2
  1078.  bsr putc
  1079.  andi.w #-17,_iob+12(a6) :6
  1080.  andi.w #-33,_iob+12(a6) :6
  1081. *         } else {
  1082. _111
  1083.  bra _112
  1084. _109
  1085. *              if (old1=='\n' && ttystdin())
  1086. *              VOID fputs(">> ",stderr);
  1087.  moveq.l #13,d0 :2
  1088.  cmp.l d5,d0 :2
  1089.  bne _114
  1090. _115
  1091.  bsr ttystdin
  1092.  tst.l d0 :2
  1093.  beq _114
  1094. _113
  1095. *              fflush(stderr);
  1096.  lea _iob+56(a6),a0
  1097.  move.l a0,d1 :2
  1098.  lea _116(pc),a0
  1099.  move.l a0,d0 :2
  1100.  bsr fputs
  1101. _114
  1102. *              for (;;) {
  1103.  lea _iob+56(a6),a0
  1104.  move.l a0,d0 :2
  1105.  bsr fflush
  1106. _117
  1107. *                 c=getchar();
  1108. *                 if (c==EOF) {
  1109.  lea _iob(a6),a0
  1110.  move.l a0,d0 :2
  1111.  bsr getc
  1112.  move.l d0,d4 :2
  1113.  moveq.l #-1,d0 :2
  1114.  cmp.l d4,d0 :2
  1115.  bne _120
  1116. _119
  1117. *                     if (ttystdin()) {
  1118.  bsr ttystdin
  1119.  tst.l d0 :2
  1120.  beq _122
  1121. _121
  1122. *                         VOID putc('\n',stderr);
  1123. * #ifdef OSK
  1124. *                         cleareof(stdin);
  1125. * #endif
  1126. *                         clearerr(stdin);
  1127. *                     }
  1128.  lea _iob+56(a6),a0
  1129.  move.l a0,d1 :2
  1130.  moveq.l #13,d0 :2
  1131.  bsr putc
  1132.  andi.w #-17,_iob+12(a6) :6
  1133.  andi.w #-33,_iob+12(a6) :6
  1134. *                                     VOID putc(old1,frew);
  1135. _122
  1136. *                                     if (old1!='\n') VOID putc('\n',frew);
  1137.  move.l a3,d1 :2
  1138.  move.l d5,d0 :2
  1139.  bsr putc
  1140.  moveq.l #13,d0 :2
  1141.  cmp.l d5,d0 :2
  1142.  beq _124
  1143. _123
  1144. *                                     break;
  1145.  move.l a3,d1 :2
  1146.  moveq.l #13,d0 :2
  1147.  bsr putc
  1148. _124
  1149.  bra _118
  1150. *                             }
  1151. *                             if (c=='\n' && old1=='.' && old2=='\n') {
  1152. _120
  1153.  moveq.l #13,d0 :2
  1154.  cmp.l d4,d0 :2
  1155.  bne _126
  1156. _128
  1157.  moveq.l #46,d0 :2
  1158.  cmp.l d5,d0 :2
  1159.  bne _126
  1160. _127
  1161.  moveq.l #13,d0 :2
  1162.  cmp.l d6,d0 :2
  1163.  bne _126
  1164. _125
  1165. *                                     break;
  1166.  bra _118
  1167. *                             }
  1168. *                             if (c=='\n' && ttystdin()) VOID fputs(">> ",stderr);
  1169. _126
  1170.  moveq.l #13,d0 :2
  1171.  cmp.l d4,d0 :2
  1172.  bne _130
  1173. _131
  1174.  bsr ttystdin
  1175.  tst.l d0 :2
  1176.  beq _130
  1177. _129
  1178. *                             fflush(stderr);
  1179.  lea _iob+56(a6),a0
  1180.  move.l a0,d1 :2
  1181.  lea _132(pc),a0
  1182.  move.l a0,d0 :2
  1183.  bsr fputs
  1184. _130
  1185. *                 if(old1==SDELIM) VOID putc(old1,frew); /* double up*/
  1186.  lea _iob+56(a6),a0
  1187.  move.l a0,d0 :2
  1188.  bsr fflush
  1189.  moveq.l #64,d0 :2
  1190.  cmp.l d5,d0 :2
  1191.  bne _134
  1192. _133
  1193. *                 VOID putc(old1,frew);
  1194.  move.l a3,d1 :2
  1195.  move.l d5,d0 :2
  1196.  bsr putc
  1197. _134
  1198. *                             old2=old1;
  1199. *                             old1=c;
  1200. *                     } /* end for */
  1201.  move.l a3,d1 :2
  1202.  move.l d5,d0 :2
  1203.  bsr putc
  1204.  move.l d5,d6 :2
  1205.  move.l d4,d5 :2
  1206. *         }
  1207.  bra _117
  1208. _118
  1209. *         VOID putc(SDELIM,frew); VOID fputs("\n\n",frew);
  1210. _112
  1211. *         }
  1212.  move.l a3,d1 :2
  1213.  moveq.l #64,d0 :2
  1214.  bsr putc
  1215.  move.l a3,d1 :2
  1216.  lea _135(pc),a0
  1217.  move.l a0,d0 :2
  1218.  bsr fputs
  1219. * }
  1220. _77
  1221. _72
  1222.  movem.l -24(a5),#_69
  1223.  unlk a5
  1224.  rts :2
  1225. _71 equ 0xffffffb4 :0
  1226. _69 equ 0x00000d70 :0
  1227. _70 equ 0x00000028 :0
  1228. _37 dc.b "Can't find delta for revision %s",$0
  1229. _41 dc.b "Missing log entry",$0
  1230. _46 dc.b $0
  1231. _50 dc.b "Missing delta text",$0
  1232. _76 dc.b $d,$d,"%s%c",$0
  1233. _82 dc.b $d,$d,"%s",$d,"%c",$0
  1234. _85 dc.b "r",$0
  1235. _93 dc.b $d,$d,$0
  1236. _97 dc.b "Can't open file %s with description",$0
  1237. _102 dc.b "entern description , terminated with ESC or '.':",$d,$0
  1238. _103 dc.b "NOTE: This is NOT the log message!",$d,">> ",$0
  1239. _107 dc.b "Can't reread redirected stdin for description; use -t<file>",$0
  1240. _116 dc.b ">> ",$0
  1241. _132 dc.b ">> ",$0
  1242. _135 dc.b $d,$d,$0
  1243.  ends
  1244.