home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2860 < prev    next >
Encoding:
Internet Message Format  |  1991-02-26  |  33.5 KB
  1. From: barnett@grymoire.crd.ge.com (Bruce Barnett)
  2. Newsgroups: alt.sources
  3. Subject: Ease 3.0 to Ease 3.1 patch
  4. Message-ID: <17109@crdgw1.crd.ge.com>
  5. Date: 26 Feb 91 04:04:58 GMT
  6.  
  7. This is the official "Patch1" for Ease 3.0 which will upgrade the
  8. release to Ease 3.1
  9.  
  10. It fixes some portability problems.
  11.  
  12. Use by typing:
  13.  
  14.     patch -p <Patch1
  15.  
  16.  
  17.  
  18. diff -c -r ../3.0/Makefile ./Makefile
  19. *** ../3.0/Makefile    Mon Feb 25 17:17:25 1991
  20. --- ./Makefile    Mon Feb 25 17:33:50 1991
  21. ***************
  22. *** 1,3 ****
  23. --- 1,13 ----
  24. + #    $Header: /home/kreskin/u0/barnett/Src/Ease/ease/RCS/Makefile,v 1.2 1991/02/25 22:07:29 barnett Exp $
  25. + #
  26. + #    $Log: Makefile,v $
  27. + # Revision 1.2  1991/02/25  22:07:29  barnett
  28. + # Added RCS header, amd specified value for MAKE variable
  29. + #
  30. + # Revision 1.1  1991/02/25  14:37:28  barnett
  31. + # Initial revision - release to net
  32. + #
  33. + #
  34.   # where do you want to place the binaries and scripts?
  35.   # the programs are: et cfc cfdiff cfstrip
  36.   BINDIR=`pwd`/bin
  37. ***************
  38. *** 8,14 ****
  39.   #ORIGINAL=/usr/lib/sendmail.main.cf
  40.   #ORIGINAL=/usr/lib/sendmail.subsidiary.cf
  41.   
  42. ! # What arguments to cfc do you want for cfc (see the file CONVERT)
  43.   CONVERT_FLAGS=-s -CV
  44.   
  45.   #what extenstion do you want for the manual pages?
  46. --- 18,24 ----
  47.   #ORIGINAL=/usr/lib/sendmail.main.cf
  48.   #ORIGINAL=/usr/lib/sendmail.subsidiary.cf
  49.   
  50. ! # What arguments to cfc do you want for cfc (see the file CONVERTING)
  51.   CONVERT_FLAGS=-s -CV
  52.   
  53.   #what extenstion do you want for the manual pages?
  54. ***************
  55. *** 16,22 ****
  56.   #EXT=l
  57.   EXT=n
  58.   SHELL=/bin/sh
  59. ! 
  60.   
  61.   all:
  62.       cd cfc; ${MAKE} ${FLAGS}  $@
  63. --- 26,32 ----
  64.   #EXT=l
  65.   EXT=n
  66.   SHELL=/bin/sh
  67. ! MAKE=make
  68.   
  69.   all:
  70.       cd cfc; ${MAKE} ${FLAGS}  $@
  71. diff -c -r ../3.0/src/Makefile ./src/Makefile
  72. *** ../3.0/src/Makefile    Mon Feb 25 17:18:23 1991
  73. --- ./src/Makefile    Mon Feb 25 17:35:59 1991
  74. ***************
  75. *** 1,8 ****
  76.   # Makefile for Ease Translator (et).
  77.   #
  78. ! #    $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/Makefile,v 2.1 1990/01/30 13:54:13 jeff Exp barnett $
  79.   #
  80.   #    $Log: Makefile,v $
  81.   # Revision 2.1  1990/01/30  13:54:13  jeff
  82.   # Updated for release 2.1 Aplha.
  83.   #
  84. --- 1,11 ----
  85.   # Makefile for Ease Translator (et).
  86.   #
  87. ! #    $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/Makefile,v 3.1 1991/02/25 22:09:52 barnett Exp $
  88.   #
  89.   #    $Log: Makefile,v $
  90. + # Revision 3.1  1991/02/25  22:09:52  barnett
  91. + # Fixed some portability problems
  92. + #
  93.   # Revision 2.1  1990/01/30  13:54:13  jeff
  94.   # Updated for release 2.1 Aplha.
  95.   #
  96. ***************
  97. *** 26,41 ****
  98.   OWNER = root
  99.   GROUP = staff
  100.   MODE = 755
  101.   #INSTALL = install -c -m ${MODE} -o ${OWNER} -g ${GROUP}
  102.   INSTALL=cp
  103. ! # define this for grammar debugging
  104.   #DEFS =-DYYDEBUG
  105. ! DEFS =
  106. ! # I had strange errors happen when I use SunOS Optimizer.....
  107. ! # In particular, with SunOS 4.0.3, Sparc, and -O (-O2)....
  108. ! # Maybe you better not use -O with SunOS
  109. ! CFLAGS = -g  ${DEFS} ${INCLUDE}
  110. ! #CFLAGS = -O ${DEFS} ${INCLUDE}
  111.   
  112.   LP = lpr
  113.   LPFLAGS = -J"Ease Source"
  114. --- 29,50 ----
  115.   OWNER = root
  116.   GROUP = staff
  117.   MODE = 755
  118. + # Some systems don't have a working version of install
  119.   #INSTALL = install -c -m ${MODE} -o ${OWNER} -g ${GROUP}
  120.   INSTALL=cp
  121. ! 
  122. ! # Special Debug flags
  123. ! # select this one to debug the grammar
  124.   #DEFS =-DYYDEBUG
  125. ! # The following are used with the SunOS malloc() debug package.
  126. ! #DEFS = -DMALLOC_DEBUG    #  Part of the SunOS malloc package
  127. ! #LIBS = /usr/lib/debug/malloc.o -ll
  128. ! #CFLAGS = -g  ${DEFS} ${INCLUDE}
  129. ! #
  130. ! # Normally, You will want the selections below 
  131. ! DEFS = 
  132. ! LIBS = -ll
  133. ! CFLAGS = -O ${DEFS} ${INCLUDE}
  134.   
  135.   LP = lpr
  136.   LPFLAGS = -J"Ease Source"
  137. ***************
  138. *** 51,57 ****
  139.   all: et
  140.   
  141.   et: ${OBJ}
  142. !     cc ${CFLAGS} -o et ${OBJ} -ll
  143.   
  144.   clean: FRC
  145.       rm -f et *.o lexan.c parser.c y.output yacc.acts yacc.tmp \
  146. --- 60,66 ----
  147.   all: et
  148.   
  149.   et: ${OBJ}
  150. !     cc ${CFLAGS} -o et ${OBJ} ${LIBS}
  151.   
  152.   clean: FRC
  153.       rm -f et *.o lexan.c parser.c y.output yacc.acts yacc.tmp \
  154. diff -c -r ../3.0/src/fixstrings.h ./src/fixstrings.h
  155. *** ../3.0/src/fixstrings.h    Mon Feb 25 17:17:52 1991
  156. --- ./src/fixstrings.h    Mon Feb 25 17:35:01 1991
  157. ***************
  158. *** 1,15 ****
  159.   /*
  160. !  * $Revision: 2.1 $
  161. !  * Check-in $Date: 90/01/30 14:28:33 $
  162.    * $State: Exp $
  163.    *
  164. !  * $Author: jeff $
  165.    *
  166. !  * $Log:    /isis/usr2/share/src/local/tc/ease/src/RCS/fixstrings.h,v $
  167. !  * Version 2.1  90/01/30  14:28:33  jeff
  168.    * Bring RCS version number in line with netwide version 2.1.  No code
  169.    * changes.
  170. !  * 
  171.    * Revision 2.0  88/06/15  14:41:57  root
  172.    * Baseline release for net posting. ADR.
  173.    */
  174. --- 1,18 ----
  175.   /*
  176. !  * $Revision: 3.1 $
  177. !  * Check-in $Date: 1991/02/25 22:09:52 $
  178.    * $State: Exp $
  179.    *
  180. !  * $Author: barnett $
  181.    *
  182. !  * $Log: fixstrings.h,v $
  183. !  * Revision 3.1  1991/02/25  22:09:52  barnett
  184. !  * Fixed some portability problems
  185. !  *
  186. !  * Revision 2.1  1990/01/30  14:28:33  jeff
  187.    * Bring RCS version number in line with netwide version 2.1.  No code
  188.    * changes.
  189. !  *
  190.    * Revision 2.0  88/06/15  14:41:57  root
  191.    * Baseline release for net posting. ADR.
  192.    */
  193. ***************
  194. *** 26,28 ****
  195. --- 29,35 ----
  196.   #define strlen    Xstrlen
  197.   #define index    Xindex
  198.   #define rindex    Xrindex
  199. + 
  200. + extern char *Xstrcpy();
  201. + extern char *Xindex();
  202. + extern char *Xstrcat();
  203. diff -c -r ../3.0/src/idman.c ./src/idman.c
  204. *** ../3.0/src/idman.c    Mon Feb 25 17:18:32 1991
  205. --- ./src/idman.c    Mon Feb 25 17:36:09 1991
  206. ***************
  207. *** 1,6 ****
  208.   #ifdef FLUKE
  209.   # ifndef LINT
  210. !     static char RCSid[] = "@(#)FLUKE  $Header: /tmp_mnt/home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/idman.c,v 3.0 1991/02/22 18:50:27 barnett Exp $";
  211.   # endif LINT
  212.   #endif FLUKE
  213.   
  214. --- 1,6 ----
  215.   #ifdef FLUKE
  216.   # ifndef LINT
  217. !     static char RCSid[] = "@(#)FLUKE  $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/idman.c,v 3.1 1991/02/25 22:09:52 barnett Exp $";
  218.   # endif LINT
  219.   #endif FLUKE
  220.   
  221. ***************
  222. *** 18,23 ****
  223. --- 18,26 ----
  224.    *    All rights reserved.
  225.    *
  226.    * $Log: idman.c,v $
  227. +  * Revision 3.1  1991/02/25  22:09:52  barnett
  228. +  * Fixed some portability problems
  229. +  *
  230.    * Revision 3.0  1991/02/22  18:50:27  barnett
  231.    * Added support for HP/UX and IDA sendmail.
  232.    *
  233. ***************
  234. *** 38,43 ****
  235. --- 41,47 ----
  236.             ErrorReport (),
  237.             PrintWarning (),
  238.             PrintError ();
  239. + extern char *      malloc ();
  240.   
  241.   
  242.   char    IDused[] = "                          "; /* 26 blanks */
  243. diff -c -r ../3.0/src/lexan.l ./src/lexan.l
  244. *** ../3.0/src/lexan.l    Mon Feb 25 17:18:47 1991
  245. --- ./src/lexan.l    Mon Feb 25 17:36:31 1991
  246. ***************
  247. *** 2,8 ****
  248.   
  249.   #ifdef FLUKE
  250.   # ifndef LINT
  251. !     static char RCSid[] = "@(#)FLUKE  $Header: /tmp_mnt/home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/lexan.l,v 3.0 1991/02/22 18:50:27 barnett Exp $";
  252.   # endif LINT
  253.   #endif FLUKE
  254.   
  255. --- 2,8 ----
  256.   
  257.   #ifdef FLUKE
  258.   # ifndef LINT
  259. !     static char RCSid[] = "@(#)FLUKE  $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/lexan.l,v 3.1 1991/02/25 22:09:52 barnett Exp $";
  260.   # endif LINT
  261.   #endif FLUKE
  262.   
  263. ***************
  264. *** 23,28 ****
  265. --- 23,31 ----
  266.    *    All rights reserved.
  267.    *
  268.    * $Log: lexan.l,v $
  269. +  * Revision 3.1  1991/02/25  22:09:52  barnett
  270. +  * Fixed some portability problems
  271. +  *
  272.    * Revision 3.0  1991/02/22  18:50:27  barnett
  273.    * Added support for HP/UX and IDA sendmail.
  274.    *
  275. ***************
  276. *** 54,59 ****
  277. --- 57,64 ----
  278.   extern struct he *LookupSymbol ();
  279.   extern void      ErrorReport ();
  280.   extern void      yymark();
  281. + extern void      PrintError();
  282. + extern char *      malloc ();
  283.   
  284.   int  Lcount;                /* line counter            */
  285.   char FNbuf[MaxFN];            /* file name buffer        */
  286. ***************
  287. *** 68,74 ****
  288.   #undef input
  289.   # define input() (((yytchar=yychar=yysptr>yysbuf?U(*--yysptr):Getc(yyin,yyout))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
  290.   
  291. ! char
  292.   Getc (yyin, yyout)
  293.       FILE *yyin, *yyout;
  294.   {
  295. --- 73,79 ----
  296.   #undef input
  297.   # define input() (((yytchar=yychar=yysptr>yysbuf?U(*--yysptr):Getc(yyin,yyout))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
  298.   
  299. ! int
  300.   Getc (yyin, yyout)
  301.       FILE *yyin, *yyout;
  302.   {
  303. ***************
  304. *** 88,94 ****
  305.       if (c == '\n') {
  306.           pc = linbuf;
  307.           if (fgets(linbuf, BUFSIZ, yyin) == NULL)
  308. !             *pc = EOF;
  309.           else
  310.               /* echo input as comment (except cpp comments) */
  311.               if (EchoInputAsComments) {
  312. --- 93,99 ----
  313.       if (c == '\n') {
  314.           pc = linbuf;
  315.           if (fgets(linbuf, BUFSIZ, yyin) == NULL)
  316. !             *pc = (char) EOF;
  317.           else
  318.               /* echo input as comment (except cpp comments) */
  319.               if (EchoInputAsComments) {
  320. ***************
  321. *** 96,102 ****
  322.                   (linbuf[0] == '#' ? "" : "# "), linbuf);
  323.               }
  324.       }
  325. !     return c;
  326.   }
  327.   
  328.   /*
  329. --- 101,107 ----
  330.                   (linbuf[0] == '#' ? "" : "# "), linbuf);
  331.               }
  332.       }
  333. !      return (c == (char) EOF) ? EOF : c;
  334.   }
  335.   
  336.   /*
  337. diff -c -r ../3.0/src/main.c ./src/main.c
  338. *** ../3.0/src/main.c    Mon Feb 25 17:18:37 1991
  339. --- ./src/main.c    Mon Feb 25 17:36:15 1991
  340. ***************
  341. *** 1,6 ****
  342.   #ifdef FLUKE
  343.   # ifndef LINT
  344. !     static char RCSid[] = "@(#)FLUKE  $Header: /isis/usr2/share/src/local/tc/ease/src/RCS/main.c,v 2.2 90/05/07 11:14:02 jeff Exp $";
  345.   # endif LINT
  346.   #endif FLUKE
  347.   
  348. --- 1,6 ----
  349.   #ifdef FLUKE
  350.   # ifndef LINT
  351. !     static char RCSid[] = "@(#)FLUKE  $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/main.c,v 3.1 1991/02/25 22:09:52 barnett Exp $";
  352.   # endif LINT
  353.   #endif FLUKE
  354.   
  355. ***************
  356. *** 16,26 ****
  357.    *
  358.    *    All rights reserved.
  359.    *
  360. !  * $Log:    /isis/usr2/share/src/local/tc/ease/src/RCS/main.c,v $
  361. !  * Version 2.2  90/05/07  11:14:02  jeff
  362.    * Add support for the "-q" flag which controls whether input lines
  363.    * are passed through as comments in the output stream.
  364. !  * 
  365.    * Version 2.1  90/01/30  15:37:16  jeff
  366.    * Filter input file through cpp before processing it.
  367.    * 
  368. --- 16,29 ----
  369.    *
  370.    *    All rights reserved.
  371.    *
  372. !  * $Log: main.c,v $
  373. !  * Revision 3.1  1991/02/25  22:09:52  barnett
  374. !  * Fixed some portability problems
  375. !  *
  376. !  * Revision 2.2  1990/05/07  11:14:02  jeff
  377.    * Add support for the "-q" flag which controls whether input lines
  378.    * are passed through as comments in the output stream.
  379. !  *
  380.    * Version 2.1  90/01/30  15:37:16  jeff
  381.    * Filter input file through cpp before processing it.
  382.    * 
  383. ***************
  384. *** 45,50 ****
  385. --- 48,57 ----
  386.   #include "fixstrings.h"
  387.   #include <stdio.h>
  388.   #include <ctype.h>
  389. + #ifdef MALLOC_DEBUG
  390. + extern int malloc_debug();
  391. + extern int malloc_verify();
  392. + #endif /* MALLOC_DEBUG */
  393.   
  394.   extern FILE *DIAGf;            /* diagnostic file */
  395.   char *infile = 0;            /* input file name */
  396. ***************
  397. *** 83,88 ****
  398. --- 90,98 ----
  399.   int argc;        /* argument count for "et"  */
  400.   char *argv[];        /* argument vector for "et" */
  401.   {
  402. + #ifdef MALLOC_DEBUG
  403. +         malloc_debug(1);
  404. + #endif MALLOC_DEBUG
  405.       InitError ();            /* initialize error conditions */
  406.       InitSymbolTable ();        /* initialize the symbol table */
  407.       PreLoad ();            /* preload special identifiers */
  408. ***************
  409. *** 131,137 ****
  410.   register int   margc;        /* argument count  */
  411.   register char **margv;        /* argument vector */
  412.   {
  413. -      register char  **argp;
  414.        int    cppflags = 0;
  415.        int    otherflags = 0;
  416.        int arg;
  417. --- 141,146 ----
  418. ***************
  419. *** 184,189 ****
  420. --- 193,200 ----
  421.       printf ("##           TO THIS FILE WILL DISAPPEAR THE     ##\n");
  422.       printf ("##           NEXT TIME THAT EASE IS RUN.         ##\n");
  423.       printf ("##                                               ##\n");
  424. +     printf ("##           $Revision: 3.1 $                    ##\n");
  425. +     printf ("##                                               ##\n");
  426.       printf ("###################################################\n");
  427.   }
  428.   
  429. ***************
  430. *** 209,215 ****
  431.       i+=strlen(*argp) + 1;
  432.       if ( ! (cmd = (char *) calloc(i + sizeof CPP, sizeof(char))))
  433.         return -1;    /* no room */
  434. !     (void *) strcpy(cmd,CPP);
  435.       for (argp = argv; *++argp; )
  436.         if (**argp == '-' &&
  437.         index(CPPARGS, (*argp)[1]))
  438. --- 220,226 ----
  439.       i+=strlen(*argp) + 1;
  440.       if ( ! (cmd = (char *) calloc(i + sizeof CPP, sizeof(char))))
  441.         return -1;    /* no room */
  442. !     (void ) strcpy(cmd,CPP);
  443.       for (argp = argv; *++argp; )
  444.         if (**argp == '-' &&
  445.         index(CPPARGS, (*argp)[1]))
  446. diff -c -r ../3.0/src/parser.y ./src/parser.y
  447. *** ../3.0/src/parser.y    Mon Feb 25 17:18:52 1991
  448. --- ./src/parser.y    Mon Feb 25 17:36:35 1991
  449. ***************
  450. *** 1,7 ****
  451.   %{
  452.   #ifdef FLUKE
  453.   # ifndef LINT
  454. !     static char RCSid[] = "@(#)FLUKE  $Header: /tmp_mnt/home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/parser.y,v 3.0 1991/02/22 18:50:27 barnett Exp $";
  455.   # endif LINT
  456.   #endif FLUKE
  457.   
  458. --- 1,7 ----
  459.   %{
  460.   #ifdef FLUKE
  461.   # ifndef LINT
  462. !     static char RCSid[] = "@(#)FLUKE  $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/parser.y,v 3.1 1991/02/25 22:09:52 barnett Exp $";
  463.   # endif LINT
  464.   #endif FLUKE
  465.   
  466. ***************
  467. *** 22,27 ****
  468. --- 22,30 ----
  469.    *    All rights reserved.
  470.    *
  471.    * $Log: parser.y,v $
  472. +  * Revision 3.1  1991/02/25  22:09:52  barnett
  473. +  * Fixed some portability problems
  474. +  *
  475.    * Revision 3.0  1991/02/22  18:50:27  barnett
  476.    * Added support for HP/UX and IDA sendmail.
  477.    *
  478. ***************
  479. *** 58,64 ****
  480.   extern void       AssignType ();
  481.   extern void       RemoveSymbol ();
  482.   extern void       yyerror ();
  483. - 
  484.   extern short RMatch;        /* ruleset match flag               */
  485.   
  486.   char *Cbuf = " ";        /* character buffer                 */
  487. --- 61,66 ----
  488. ***************
  489. *** 71,76 ****
  490. --- 73,90 ----
  491.   extern int yychar;
  492.   extern int    yydebug;
  493.   
  494. + static void    
  495. + Free( ptr )
  496. + char *ptr;
  497. +   {
  498. +       if (ptr == (char *)0) {
  499. + /*      fprintf(stderr,"Freeing a null pointer\n"); */
  500. +       } else {
  501. +       if (free(ptr) < 0 ) {
  502. +           fprintf(stderr,"Free() returned an error\n");
  503. +       }
  504. +       }
  505. +   };
  506.   static char *
  507.   yydisplay(ch)
  508.        register int ch;
  509. ***************
  510. *** 243,249 ****
  511.               }
  512.           |    strval SCONST {
  513.                   $$ = ListAppend ($1, $2, (char *) NULL);
  514. !                 free ($1);
  515.               }
  516.           ;
  517.   
  518. --- 257,263 ----
  519.               }
  520.           |    strval SCONST {
  521.                   $$ = ListAppend ($1, $2, (char *) NULL);
  522. !                 Free ($1);
  523.               }
  524.           ;
  525.   
  526. ***************
  527. *** 250,262 ****
  528.   /* conval specifies what can be in a concat() function */
  529.   conval        :    strval COMMA ifcon {
  530.                   $$ = ListAppend ($1, $3, (char *) NULL);
  531. !                 free ($1);
  532. !                 free ($3);
  533.               }
  534.           |    ifcon COMMA strval {
  535.                   $$ = ListAppend ($1, $3, (char *) NULL);
  536. !                 free ($1);
  537. !                 free ($3);
  538.               }
  539.           |    ifcon {
  540.                   $$ = $1;
  541. --- 264,276 ----
  542.   /* conval specifies what can be in a concat() function */
  543.   conval        :    strval COMMA ifcon {
  544.                   $$ = ListAppend ($1, $3, (char *) NULL);
  545. !                 Free ($1);
  546. !                 Free ($3);
  547.               }
  548.           |    ifcon COMMA strval {
  549.                   $$ = ListAppend ($1, $3, (char *) NULL);
  550. !                 Free ($1);
  551. !                 Free ($3);
  552.               }
  553.           |    ifcon {
  554.                   $$ = $1;
  555. ***************
  556. *** 274,281 ****
  557.   ifres        :    mval elseres {
  558.                   if ($2 != NULL) {
  559.                       $$ = ListAppend ($1, $2, "$|");
  560. !                     free ($1);
  561. !                     free ($2);
  562.                   } else
  563.                       $$ = $1;
  564.               }
  565. --- 288,295 ----
  566.   ifres        :    mval elseres {
  567.                   if ($2 != NULL) {
  568.                       $$ = ListAppend ($1, $2, "$|");
  569. !                     Free ($1);
  570. !                     Free ($2);
  571.                   } else
  572.                       $$ = $1;
  573.               }
  574. ***************
  575. *** 335,347 ****
  576.               }
  577.           |    namelist COMMA IDENT {
  578.                   $$ = ListAppend ($1, $3->psb, " ");
  579. !                 free ($1);
  580.                   RemoveSymbol ($3);
  581.               }
  582.           |    namelist COMMA strval {
  583.                   $$ = ListAppend ($1, $3, " ");
  584. !                 free ($1);
  585. !                 free ($3);
  586.               }
  587.           ;
  588.   
  589. --- 349,361 ----
  590.               }
  591.           |    namelist COMMA IDENT {
  592.                   $$ = ListAppend ($1, $3->psb, " ");
  593. !                 Free ($1);
  594.                   RemoveSymbol ($3);
  595.               }
  596.           |    namelist COMMA strval {
  597.                   $$ = ListAppend ($1, $3, " ");
  598. !                 Free ($1);
  599. !                 Free ($3);
  600.               }
  601.           ;
  602.   
  603. ***************
  604. *** 518,524 ****
  605.           |    tlist LBRACE IDENT idlist RBRACE SEMI {
  606.                   EmitDef (def_trusted, (struct he *) NULL, 
  607.                        ListAppend ($3->psb, $4, " "), (char *) NULL);
  608. !                 free ($4);
  609.                   RemoveSymbol ($3);
  610.               }
  611.           |    tlist LBRACE RBRACE SEMI
  612. --- 532,538 ----
  613.           |    tlist LBRACE IDENT idlist RBRACE SEMI {
  614.                   EmitDef (def_trusted, (struct he *) NULL, 
  615.                        ListAppend ($3->psb, $4, " "), (char *) NULL);
  616. !                 Free ($4); /* Gets a Null pointer */
  617.                   RemoveSymbol ($3);
  618.               }
  619.           |    tlist LBRACE RBRACE SEMI
  620. ***************
  621. *** 557,563 ****
  622.               }
  623.           |    mflags COMMA flagid {
  624.                   $$ = ListAppend ($1, ConvFlg($3), (char *) NULL);
  625. !                 free ($1);
  626.               }
  627.           ;
  628.   
  629. --- 571,577 ----
  630.               }
  631.           |    mflags COMMA flagid {
  632.                   $$ = ListAppend ($1, ConvFlg($3), (char *) NULL);
  633. !                 Free ($1);
  634.               }
  635.           ;
  636.   
  637. ***************
  638. *** 667,674 ****
  639.   
  640.   dlist        :    LPAREN strval COMMA catstringlist RPAREN {
  641.                   $$ = ListAppend ($2, MacScan ($4), " ");
  642. !                 free ($2);
  643. !                 free ($4);
  644.               }
  645.           |    LPAREN error RPAREN {
  646.                   $$ = NULL;
  647. --- 681,688 ----
  648.   
  649.   dlist        :    LPAREN strval COMMA catstringlist RPAREN {
  650.                   $$ = ListAppend ($2, MacScan ($4), " ");
  651. !                 Free ($2);
  652. !                 Free ($4);
  653.               }
  654.           |    LPAREN error RPAREN {
  655.                   $$ = NULL;
  656. ***************
  657. *** 680,686 ****
  658.               }
  659.           |    catstring COMMA catstringlist {
  660.                     $$ = ListAppend( $1, $3, (char *) NULL);
  661. !                   free($1);
  662.               }
  663.   catstring    :    SCONST {
  664.                   $$ = $1;
  665. --- 694,700 ----
  666.               }
  667.           |    catstring COMMA catstringlist {
  668.                     $$ = ListAppend( $1, $3, (char *) NULL);
  669. !                   Free($1);
  670.               }
  671.   catstring    :    SCONST {
  672.                   $$ = $1;
  673. ***************
  674. *** 710,723 ****
  675.               }
  676.           |    mdefs COMMA mtdef {
  677.                   $$ = ListAppend ($1, $3, ", ");
  678. !                 free ($1);
  679. !                 free ($3);
  680.               }
  681.           ;    
  682.   
  683.   mtdef        :    mvar ASGN mval {
  684.                   $$ = ListAppend (ConvMat ($1), MacScan ($3), "=");
  685. !                 free ($3);
  686.               }
  687.           |    MFLAGS ASGN LBRACE mflags RBRACE {
  688.                   $$ = ListAppend (ConvMat (mat_flags), $4, "=");
  689. --- 724,737 ----
  690.               }
  691.           |    mdefs COMMA mtdef {
  692.                   $$ = ListAppend ($1, $3, ", ");
  693. !                 Free ($1);
  694. !                 Free ($3);
  695.               }
  696.           ;    
  697.   
  698.   mtdef        :    mvar ASGN mval {
  699.                   $$ = ListAppend (ConvMat ($1), MacScan ($3), "=");
  700. !                 Free ($3);
  701.               }
  702.           |    MFLAGS ASGN LBRACE mflags RBRACE {
  703.                   $$ = ListAppend (ConvMat (mat_flags), $4, "=");
  704. ***************
  705. *** 730,737 ****
  706.                    Tsb = ListAppend (ConvMat(mat_sender), CheckRS ($3), "="),
  707.                    Tsb1 = ListAppend ("/", CheckRS ($5), (char *) NULL),
  708.                            (char *) NULL);
  709. !                 free (Tsb);
  710. !                 free (Tsb1);
  711.               }
  712.           |    MRECIPIENT ASGN IDENT {
  713.                   $$ = ListAppend (ConvMat (mat_recipient), CheckRS ($3), "=");
  714. --- 744,751 ----
  715.                    Tsb = ListAppend (ConvMat(mat_sender), CheckRS ($3), "="),
  716.                    Tsb1 = ListAppend ("/", CheckRS ($5), (char *) NULL),
  717.                            (char *) NULL);
  718. !                 Free (Tsb);
  719. !                 Free (Tsb1);
  720.               }
  721.           |    MRECIPIENT ASGN IDENT {
  722.                   $$ = ListAppend (ConvMat (mat_recipient), CheckRS ($3), "=");
  723. ***************
  724. *** 741,748 ****
  725.                    Tsb = ListAppend (ConvMat(mat_recipient), CheckRS ($3), "="),
  726.                    Tsb1 = ListAppend ("/", CheckRS ($5), (char *) NULL),
  727.                            (char *) NULL);
  728. !                 free (Tsb);
  729. !                 free (Tsb1);
  730.               }
  731.           |    error {
  732.                   $$ = NULL;
  733. --- 755,762 ----
  734.                    Tsb = ListAppend (ConvMat(mat_recipient), CheckRS ($3), "="),
  735.                    Tsb1 = ListAppend ("/", CheckRS ($5), (char *) NULL),
  736.                            (char *) NULL);
  737. !                 Free (Tsb);
  738. !                 Free (Tsb1);
  739.               }
  740.           |    error {
  741.                   $$ = NULL;
  742. ***************
  743. *** 781,788 ****
  744.           |    ruledefs IF LPAREN matchaddr RPAREN actionstmt {
  745.                   EmitDef (def_ruleset, (struct he *) NULL, 
  746.                        ListAppend ($4, $6, "\t"), (char *) NULL);
  747. !             free ($4);
  748. !             free ($6);
  749.               }
  750.                   |     ruledefs ASM LPAREN SCONST RPAREN SEMI {
  751.                     printf("%s\n",$4);
  752. --- 795,802 ----
  753.           |    ruledefs IF LPAREN matchaddr RPAREN actionstmt {
  754.                   EmitDef (def_ruleset, (struct he *) NULL, 
  755.                        ListAppend ($4, $6, "\t"), (char *) NULL);
  756. !             Free ($4);
  757. !             Free ($6);
  758.               }
  759.                   |     ruledefs ASM LPAREN SCONST RPAREN SEMI {
  760.                     printf("%s\n",$4);
  761. ***************
  762. *** 797,803 ****
  763.               }
  764.           |    matchaddr matchtok {
  765.                   $$ = ListAppend ($1, $2, (char *) NULL);
  766. !                 free ($1);
  767.               }
  768.           |    error {
  769.                   $$ = NULL;
  770. --- 811,817 ----
  771.               }
  772.           |    matchaddr matchtok {
  773.                   $$ = ListAppend ($1, $2, (char *) NULL);
  774. !                 Free ($1); /* NULL */
  775.               }
  776.           |    error {
  777.                   $$ = NULL;
  778. ***************
  779. *** 820,826 ****
  780.               }
  781.                   |       YPALIAS LPAREN matchtok RPAREN {
  782.                    $$ = ListAppend("${",$3,(char *) NULL);
  783. ! /*             free ($3); */
  784.           }
  785.                   |       YPPASSWD LPAREN matchtok RPAREN {
  786.                    $$ = ListAppend("$\"",$3,(char *) NULL);
  787. --- 834,840 ----
  788.               }
  789.                   |       YPALIAS LPAREN matchtok RPAREN {
  790.                    $$ = ListAppend("${",$3,(char *) NULL);
  791. ! /*             Free ($3); */
  792.           }
  793.                   |       YPPASSWD LPAREN matchtok RPAREN {
  794.                    $$ = ListAppend("$\"",$3,(char *) NULL);
  795. ***************
  796. *** 832,838 ****
  797.   
  798.   actionstmt    :    action LPAREN rwaddr RPAREN SEMI {
  799.                   $$ = ListAppend ($1, $3, (char *) NULL);
  800. !                 free ($3);
  801.               }
  802.           |    RESOLVE LPAREN resolution RPAREN SEMI {
  803.                   $$ = $3;
  804. --- 846,852 ----
  805.   
  806.   actionstmt    :    action LPAREN rwaddr RPAREN SEMI {
  807.                   $$ = ListAppend ($1, $3, (char *) NULL);
  808. !                 Free ($3);
  809.               }
  810.           |    RESOLVE LPAREN resolution RPAREN SEMI {
  811.                   $$ = $3;
  812. ***************
  813. *** 859,871 ****
  814.               }
  815.           |    rwaddr rwtok {
  816.                   $$ = ListAppend ($1, $2, (char *) NULL);
  817. !                 free ($1);
  818.               }
  819.           |    rwaddr IDENT LPAREN rwaddr RPAREN {
  820.                   $$ = ListAppend ($1, (Tsb = MakeRSCall ($2, $4)), (char *) NULL);
  821. !                 free ($1);
  822. !                 free ($4);
  823. !                 free (Tsb);
  824.               }
  825.           |    error {
  826.                   $$ = NULL;
  827. --- 873,885 ----
  828.               }
  829.           |    rwaddr rwtok {
  830.                   $$ = ListAppend ($1, $2, (char *) NULL);
  831. !                 Free ($1);    /* NULL */
  832.               }
  833.           |    rwaddr IDENT LPAREN rwaddr RPAREN {
  834.                   $$ = ListAppend ($1, (Tsb = MakeRSCall ($2, $4)), (char *) NULL);
  835. !                 Free ($1);    /* NULL */
  836. !                 Free ($4);
  837. !                 Free (Tsb);
  838.               }
  839.           |    error {
  840.                   $$ = NULL;
  841. ***************
  842. *** 892,901 ****
  843.                                   (char *)NULL),
  844.                           Tsb1 = ListAppend("$:", $6, "$)" ),
  845.                           (char *) NULL);
  846. !                 free (Tsb);
  847. !                 free (Tsb1);
  848. !                 free ($3);
  849. !                 free ($6);
  850.               }
  851.           |    reftok {
  852.                   $$ = $1;
  853. --- 906,915 ----
  854.                                   (char *)NULL),
  855.                           Tsb1 = ListAppend("$:", $6, "$)" ),
  856.                           (char *) NULL);
  857. !                 Free (Tsb);
  858. !                 Free (Tsb1);
  859. !                 Free ($3);
  860. !                 Free ($6);
  861.               }
  862.           |    reftok {
  863.                   $$ = $1;
  864. ***************
  865. *** 908,916 ****
  866.                   $$ = ListAppend(Tsb = ListAppend ("${", (char *)Cbuf, (char *)NULL),
  867.                           Tsb1 = ListAppend ($5, "$}", (char *) NULL),
  868.                            (char *) NULL);
  869. !                 free (Tsb);
  870. !                 free (Tsb1);
  871. !                 free ($5);
  872.               }
  873.   
  874.                   |    PROGRAM LPAREN IDENT COMMA rwaddr RPAREN {
  875. --- 922,930 ----
  876.                   $$ = ListAppend(Tsb = ListAppend ("${", (char *)Cbuf, (char *)NULL),
  877.                           Tsb1 = ListAppend ($5, "$}", (char *) NULL),
  878.                            (char *) NULL);
  879. !                 Free (Tsb);
  880. !                 Free (Tsb1);
  881. !                 Free ($5);
  882.               }
  883.   
  884.                   |    PROGRAM LPAREN IDENT COMMA rwaddr RPAREN {
  885. ***************
  886. *** 918,931 ****
  887.                   $$ = ListAppend(Tsb = ListAppend ("$<", (char *)Cbuf, (char *)NULL),
  888.                           Tsb1 = ListAppend ($5, "", (char *) NULL),
  889.                            (char *) NULL);
  890. !                 free (Tsb);
  891. !                 free (Tsb1);
  892. !                 free ($5);
  893.               }
  894.   
  895.                   |    action LPAREN rwaddr RPAREN {
  896.                   $$ = ListAppend ($1, $3, (char *) NULL);
  897. !                 free ($3);
  898.               }
  899.           ;
  900.   
  901. --- 932,945 ----
  902.                   $$ = ListAppend(Tsb = ListAppend ("$<", (char *)Cbuf, (char *)NULL),
  903.                           Tsb1 = ListAppend ($5, "", (char *) NULL),
  904.                            (char *) NULL);
  905. !                 Free (Tsb);
  906. !                 Free (Tsb1);
  907. !                 Free ($5);
  908.               }
  909.   
  910.                   |    action LPAREN rwaddr RPAREN {
  911.                   $$ = ListAppend ($1, $3, (char *) NULL);
  912. !                 Free ($3);
  913.               }
  914.           ;
  915.   
  916. ***************
  917. *** 932,938 ****
  918.   
  919.   cantok        :    CANON LPAREN canval RPAREN {
  920.                   $$ = Bracket ($3, TRUE);
  921. !                 free ($3);
  922.               }
  923.   
  924.                   ;
  925. --- 946,952 ----
  926.   
  927.   cantok        :    CANON LPAREN canval RPAREN {
  928.                   $$ = Bracket ($3, TRUE);
  929. !                 Free ($3);
  930.               }
  931.   
  932.                   ;
  933. ***************
  934. *** 941,948 ****
  935.               }
  936.           |    canval canvaltok {
  937.                   $$ = ListAppend ($1, $2, (char *) NULL);
  938. !                 free ($1);
  939. !                 free ($2);
  940.               }
  941.           ;
  942.   
  943. --- 955,962 ----
  944.               }
  945.           |    canval canvaltok {
  946.                   $$ = ListAppend ($1, $2, (char *) NULL);
  947. !                 Free ($1);
  948. ! /*                Free ($2); */
  949.               }
  950.           ;
  951.   
  952. ***************
  953. *** 952,958 ****
  954.               }
  955.           |    SCONST {
  956.                   $$ = ListAppend (MacScan ($1), (char *) NULL, (char *) NULL);
  957. !                 free ($1);
  958.               }
  959.                   |    NEXT LPAREN RPAREN {    /* I Used next earlier, but now use default - because it is clearer syntax */
  960.                   $$ = "$:";
  961. --- 966,972 ----
  962.               }
  963.           |    SCONST {
  964.                   $$ = ListAppend (MacScan ($1), (char *) NULL, (char *) NULL);
  965. !                 Free ($1);
  966.               }
  967.                   |    NEXT LPAREN RPAREN {    /* I Used next earlier, but now use default - because it is clearer syntax */
  968.                   $$ = "$:";
  969. ***************
  970. *** 975,981 ****
  971.               }
  972.           |    HOSTNUM LPAREN reftok RPAREN {
  973.                   $$ = Bracket ($3, FALSE);
  974. !                 free ($3);
  975.               }
  976.           ;
  977.   
  978. --- 989,995 ----
  979.               }
  980.           |    HOSTNUM LPAREN reftok RPAREN {
  981.                   $$ = Bracket ($3, FALSE);
  982. !                 Free ($3);
  983.               }
  984.           ;
  985.   
  986. ***************
  987. *** 1023,1030 ****
  988.   
  989.   resolution    :    mailerspec COMMA route {
  990.                   $$ = ListAppend ($1, $3, (char *) NULL);
  991. !                 free ($1);
  992. !                 free ($3);
  993.               }
  994.           |    mailerspec {
  995.               $$ = $1;
  996. --- 1037,1044 ----
  997.   
  998.   resolution    :    mailerspec COMMA route {
  999.                   $$ = ListAppend ($1, $3, (char *) NULL);
  1000. !                 Free ($1);
  1001. !                 Free ($3);
  1002.               }
  1003.           |    mailerspec {
  1004.               $$ = $1;
  1005. ***************
  1006. *** 1042,1051 ****
  1007.   route        :    HOST LPAREN hword RPAREN COMMA userspec {
  1008.                   $$ = ListAppend (Tsb = ListAppend ("$@", $3, (char *) NULL),
  1009.                            $6, (char *) NULL);
  1010. !                 free (Tsb);
  1011.   
  1012.   
  1013. !                 free ($6);
  1014.               }
  1015.           |    userspec {
  1016.                   $$ = $1;
  1017. --- 1056,1065 ----
  1018.   route        :    HOST LPAREN hword RPAREN COMMA userspec {
  1019.                   $$ = ListAppend (Tsb = ListAppend ("$@", $3, (char *) NULL),
  1020.                            $6, (char *) NULL);
  1021. !                 Free (Tsb);
  1022.   
  1023.   
  1024. !                 Free ($6);
  1025.               }
  1026.           |    userspec {
  1027.                   $$ = $1;
  1028. ***************
  1029. *** 1057,1063 ****
  1030.               }
  1031.           |    HOSTNUM LPAREN reftok RPAREN {
  1032.                   $$ = Bracket ($3, FALSE);
  1033. !                 free ($3);
  1034.               }
  1035.           ;
  1036.   
  1037. --- 1071,1077 ----
  1038.               }
  1039.           |    HOSTNUM LPAREN reftok RPAREN {
  1040.                   $$ = Bracket ($3, FALSE);
  1041. !                 Free ($3);
  1042.               }
  1043.           ;
  1044.   
  1045. ***************
  1046. *** 1067,1083 ****
  1047.           |    hostid IDENT {
  1048.                   $$ = ListAppend ($1, $2->psb, (char *) NULL);
  1049.                   RemoveSymbol ($2);
  1050. !                 free ($1);
  1051.               }
  1052.           |    hostid rwtok {
  1053.                   $$ = ListAppend ($1, $2, (char *) NULL);
  1054. !                 free ($1);
  1055.               }
  1056.           ;
  1057.   
  1058.   userspec    :    USER LPAREN rwaddr RPAREN {
  1059.                   $$ = ListAppend ("$:", $3, (char *) NULL);
  1060. !                 free ($3);
  1061.               }
  1062.           ;
  1063.   
  1064. --- 1081,1097 ----
  1065.           |    hostid IDENT {
  1066.                   $$ = ListAppend ($1, $2->psb, (char *) NULL);
  1067.                   RemoveSymbol ($2);
  1068. !                 Free ($1);
  1069.               }
  1070.           |    hostid rwtok {
  1071.                   $$ = ListAppend ($1, $2, (char *) NULL);
  1072. !                 Free ($1);    /* NULL */
  1073.               }
  1074.           ;
  1075.   
  1076.   userspec    :    USER LPAREN rwaddr RPAREN {
  1077.                   $$ = ListAppend ("$:", $3, (char *) NULL);
  1078. !                 Free ($3);
  1079.               }
  1080.           ;
  1081.   
  1082. ***************
  1083. *** 1092,1098 ****
  1084.   fdefs        :    /* empty */
  1085.           |    fdefs IDENT idlist COLON ftype SEMI {
  1086.                   AssignType (ListAppend ($2->psb, $3, " "), $5);
  1087. !                 free ($3);
  1088.               }
  1089.           |    error SEMI {
  1090.                   yyerrok;
  1091. --- 1106,1112 ----
  1092.   fdefs        :    /* empty */
  1093.           |    fdefs IDENT idlist COLON ftype SEMI {
  1094.                   AssignType (ListAppend ($2->psb, $3, " "), $5);
  1095. !                 Free ($3);    /* NULL */
  1096.               }
  1097.           |    error SEMI {
  1098.                   yyerrok;
  1099. ***************
  1100. *** 1104,1110 ****
  1101.               }
  1102.           |    idlist COMMA IDENT {
  1103.                   $$ = ListAppend ($1, $3->psb, " ");
  1104. !                 free ($1);
  1105.               }
  1106.           ;
  1107.   
  1108. --- 1118,1124 ----
  1109.               }
  1110.           |    idlist COMMA IDENT {
  1111.                   $$ = ListAppend ($1, $3->psb, " ");
  1112. !                 Free ($1);
  1113.               }
  1114.           ;
  1115.   
  1116. diff -c -r ../3.0/src/strops.c ./src/strops.c
  1117. *** ../3.0/src/strops.c    Mon Feb 25 17:18:49 1991
  1118. --- ./src/strops.c    Mon Feb 25 17:36:32 1991
  1119. ***************
  1120. *** 1,6 ****
  1121.   #ifdef FLUKE
  1122.   # ifndef LINT
  1123. !     static char RCSid[] = "@(#)FLUKE  $Header: /tmp_mnt/home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/strops.c,v 3.0 1991/02/22 18:50:27 barnett Exp $";
  1124.   # endif LINT
  1125.   #endif FLUKE
  1126.   
  1127. --- 1,6 ----
  1128.   #ifdef FLUKE
  1129.   # ifndef LINT
  1130. !     static char RCSid[] = "@(#)FLUKE  $Header: /home/kreskin/u0/barnett/Src/Ease/ease/src/RCS/strops.c,v 3.1 1991/02/25 22:09:52 barnett Exp $";
  1131.   # endif LINT
  1132.   #endif FLUKE
  1133.   
  1134. ***************
  1135. *** 18,23 ****
  1136. --- 18,26 ----
  1137.    *    All rights reserved.
  1138.    *
  1139.    * $Log: strops.c,v $
  1140. +  * Revision 3.1  1991/02/25  22:09:52  barnett
  1141. +  * Fixed some portability problems
  1142. +  *
  1143.    * Revision 3.0  1991/02/22  18:50:27  barnett
  1144.    * Added support for HP/UX and IDA sendmail.
  1145.    *
  1146. ***************
  1147. *** 42,47 ****
  1148. --- 45,51 ----
  1149.   extern void      FatalError (),
  1150.             PrintError (),
  1151.             ErrorReport ();
  1152. + extern char *      malloc ();
  1153.   
  1154.   short  Rformat = FALSE;            /* class read format flag      */
  1155.   static char   *Ptok   = "$  ";        /* positional token structure     */
  1156. ***************
  1157. *** 55,68 ****
  1158.    *
  1159.    *  Add the three new $%x, $%y, and $!x match operators that Sun introduced
  1160.    *  with release 3.0.
  1161. -  *
  1162. -  *  BUG (probably) - Sun has assigned a predefined meaning to the $y macro;
  1163. -  *  I imagine we will need to teach ease to avoid this letter.
  1164.    */
  1165. ! static char   *Hfield = "$%y";        /*    match in /etc/hosts */
  1166.   static char   *Mfield = "$% ";        /*    match in specified YP map */
  1167.   static char   *Nfield = "$! ";        /* no match in specified YP map */
  1168. - 
  1169.   static char   *Mtest  = "$? ";        /* conditional macro test string  */
  1170.   
  1171.   
  1172. --- 59,68 ----
  1173.    *
  1174.    *  Add the three new $%x, $%y, and $!x match operators that Sun introduced
  1175.    *  with release 3.0.
  1176.    */
  1177. ! 
  1178.   static char   *Mfield = "$% ";        /*    match in specified YP map */
  1179.   static char   *Nfield = "$! ";        /* no match in specified YP map */
  1180.   static char   *Mtest  = "$? ";        /* conditional macro test string  */
  1181.   
  1182.   
  1183. ***************
  1184. *** 208,215 ****
  1185.       register char *searchptr;    /* string search pointer     */
  1186.       register char *bptr, *eptr;    /* macro begin and end pointers */
  1187.       char macname [MAXNAME];        /* macro name buffer        */
  1188. !     char s[11];            /* temp storage for warning below */
  1189. !     int    quote;            /* flag for detecting a quote() function */
  1190.   
  1191.       if ((searchptr = pstring) == NULL)
  1192.           return ((char *) NULL);
  1193. --- 208,214 ----
  1194.       register char *searchptr;    /* string search pointer     */
  1195.       register char *bptr, *eptr;    /* macro begin and end pointers */
  1196.       char macname [MAXNAME];        /* macro name buffer        */
  1197. !     int    quote = 0;            /* flag for detecting a quote() function */
  1198.   
  1199.       if ((searchptr = pstring) == NULL)
  1200.           return ((char *) NULL);
  1201. ***************
  1202. *** 230,236 ****
  1203.                   quote=0;
  1204.                   *searchptr++='!'; /* insert a quote */
  1205.                   /* insert the macro letter */
  1206. !                 *searchptr++ = MakeMac (LookupSymbol (macname), ID_MACRO);
  1207.                   /* now looking at quote(   */
  1208.                   /* must skip over everything until )}, and then rewrite
  1209.                      the rest of the macro */
  1210. --- 229,236 ----
  1211.                   quote=0;
  1212.                   *searchptr++='!'; /* insert a quote */
  1213.                   /* insert the macro letter */
  1214. !                 *searchptr++ = MakeMac (LookupSymbol (macname),
  1215. !                             (unsigned) ID_MACRO);
  1216.                   /* now looking at quote(   */
  1217.                   /* must skip over everything until )}, and then rewrite
  1218.                      the rest of the macro */
  1219. ***************
  1220. *** 244,250 ****
  1221.                     *bptr++ = *eptr;
  1222.                   while (*eptr++ != '\0');
  1223.               } else {
  1224. !                 *searchptr++ = MakeMac (LookupSymbol (macname), ID_MACRO);
  1225.                   bptr = eptr = searchptr;
  1226.                   while (*eptr++ != '}')    /* delete until end of {name} */
  1227.                     /* empty */ ;
  1228. --- 244,251 ----
  1229.                     *bptr++ = *eptr;
  1230.                   while (*eptr++ != '\0');
  1231.               } else {
  1232. !                 *searchptr++ = MakeMac (LookupSymbol (macname),
  1233. !                             (unsigned) ID_MACRO);
  1234.                   bptr = eptr = searchptr;
  1235.                   while (*eptr++ != '}')    /* delete until end of {name} */
  1236.                     /* empty */ ;
  1237. ***************
  1238. *** 259,265 ****
  1239.                   PrintError ("Invalid macro format: %s", searchptr + 1);
  1240.                   return ((char *) NULL);
  1241.               } 
  1242. !             *searchptr++ = MakeMac (LookupSymbol (macname), ID_MACRO);
  1243.               bptr = eptr = searchptr;
  1244.               while (isupper(*eptr))    /* delete old macro chars */
  1245.                   eptr++;
  1246. --- 260,267 ----
  1247.                   PrintError ("Invalid macro format: %s", searchptr + 1);
  1248.                   return ((char *) NULL);
  1249.               } 
  1250. !             *searchptr++ = MakeMac (LookupSymbol (macname),
  1251. !                         (unsigned) ID_MACRO);
  1252.               bptr = eptr = searchptr;
  1253.               while (isupper(*eptr))    /* delete old macro chars */
  1254.                   eptr++;
  1255. ***************
  1256. *** 336,342 ****
  1257.   {
  1258.       register char *res;    /* resultant conditional string             */
  1259.   
  1260. !     Mtest[2] = MakeMac (testmac, ID_MACRO);       /* get one-char macro rep */
  1261.       res = (char *) malloc (strlen (ifstring) + 6);
  1262.       if (res == NULL)
  1263.           FatalError ("System out of string space in MakeCond ()", (char *) NULL);
  1264. --- 338,344 ----
  1265.   {
  1266.       register char *res;    /* resultant conditional string             */
  1267.   
  1268. !     Mtest[2] = MakeMac (testmac, (unsigned) ID_MACRO); /* get one-char macro rep */
  1269.       res = (char *) malloc (strlen (ifstring) + 6);
  1270.       if (res == NULL)
  1271.           FatalError ("System out of string space in MakeCond ()", (char *) NULL);
  1272. ***************
  1273. *** 474,484 ****
  1274.                        *  a simple macro name for a YP map.
  1275.                        *  FLUKE jps 25-apr-86
  1276.                        */
  1277. !                     Nfield[2] = MakeMac (class, ID_MACRO);
  1278.                       return (Nfield);
  1279.                   } else {
  1280.                   Cfield[1] = '~';
  1281. !                 Cfield[2] = MakeMac (class, ID_CLASS);
  1282.                   return (Cfield);
  1283.                 }
  1284.                 }
  1285. --- 476,486 ----
  1286.                        *  a simple macro name for a YP map.
  1287.                        *  FLUKE jps 25-apr-86
  1288.                        */
  1289. !                     Nfield[2] = MakeMac (class, (unsigned) ID_MACRO);
  1290.                       return (Nfield);
  1291.                   } else {
  1292.                   Cfield[1] = '~';
  1293. !                 Cfield[2] = MakeMac (class, (unsigned) ID_CLASS);
  1294.                   return (Cfield);
  1295.                 }
  1296.                 }
  1297. ***************
  1298. *** 493,503 ****
  1299.                        *  a simple macro name for a YP map.
  1300.                        *  FLUKE jps 25-apr-86
  1301.                        */
  1302. !                     Mfield[2] = MakeMac (class, ID_MACRO);
  1303.                       return (Mfield);
  1304.                   } else {
  1305.                   Cfield[1] = '=';
  1306. !                 Cfield[2] = MakeMac (class, ID_CLASS);
  1307.                   return (Cfield);
  1308.                   }
  1309.                 }
  1310. --- 495,505 ----
  1311.                        *  a simple macro name for a YP map.
  1312.                        *  FLUKE jps 25-apr-86
  1313.                        */
  1314. !                     Mfield[2] = MakeMac (class, (unsigned) ID_MACRO);
  1315.                       return (Mfield);
  1316.                   } else {
  1317.                   Cfield[1] = '=';
  1318. !                 Cfield[2] = MakeMac (class, (unsigned) ID_CLASS);
  1319.                   return (Cfield);
  1320.                   }
  1321.                 }
  1322.  
  1323. --
  1324. Bruce G. Barnett    barnett@crd.ge.com    uunet!crdgw1!barnett
  1325.