home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 418.lha / BerkeleyYacc / diffs < prev    next >
Text File  |  1990-09-12  |  27KB  |  1,274 lines
  1. [ These diffs apply to the berkeley_yacc postings from comp.sources.unix,
  2.   volume 21, to produce the amiga sources.  ...tad ]
  3.  
  4.  
  5.  
  6. diff -c -r unix/ACKNOWLEDGEMENTS amiga/ACKNOWLEDGEMENTS
  7. *** unix/ACKNOWLEDGEMENTS    Sun Aug 19 16:20:36 1990
  8. --- amiga/ACKNOWLEDGEMENTS    Sat Jul 14 14:56:12 1990
  9. ***************
  10. *** 11,16 ****
  11. --- 11,17 ----
  12.   
  13.         Benson I. Margulies
  14.         Dave Gentzel
  15. +       Antoine Verheijen
  16.         Peter S. Housel
  17.         Dale Smith
  18.         Ozan Yigit
  19. diff -c -r unix/Makefile amiga/Makefile
  20. *** unix/Makefile    Sun Aug 19 16:20:37 1990
  21. --- amiga/Makefile    Sat Jul 14 17:58:33 1990
  22. ***************
  23. *** 2,14 ****
  24.   
  25.   HDRS          = defs.h
  26.   
  27. ! CFLAGS          = -O
  28.   
  29.   LDFLAGS          =
  30.   
  31. ! LIBS          =
  32.   
  33. ! LINKER          = cc
  34.   
  35.   MAKEFILE      = Makefile
  36.   
  37. --- 2,14 ----
  38.   
  39.   HDRS          = defs.h
  40.   
  41. ! CFLAGS          =  -cwus
  42.   
  43.   LDFLAGS          =
  44.   
  45. ! LIBS          = lib:lc.lib lib:amiga.lib
  46.   
  47. ! LINKER          = blink
  48.   
  49.   MAKEFILE      = Makefile
  50.   
  51. ***************
  52. *** 45,86 ****
  53.   all:        $(PROGRAM)
  54.   
  55.   $(PROGRAM):     $(OBJS) $(LIBS)
  56. !         @echo -n "Loading $(PROGRAM) ... "
  57. !         @$(LINKER) $(LDFLAGS) $(OBJS) $(LIBS) -o $(PROGRAM)
  58.           @echo "done"
  59.   
  60. ! clean:;        @rm -f $(OBJS)
  61.   
  62. ! depend:;    @mkmf -f $(MAKEFILE) PROGRAM=$(PROGRAM) DEST=$(DEST)
  63.   
  64. ! index:;        @ctags -wx $(HDRS) $(SRCS)
  65.   
  66.   install:    $(PROGRAM)
  67.           @echo Installing $(PROGRAM) in $(DEST)
  68.           @install -s $(PROGRAM) $(DEST)
  69.   
  70. ! listing:;    @$(PRINT) Makefile $(HDRS) $(SRCS) | lpr
  71.   
  72. ! lint:;        @lint $(SRCS)
  73.   
  74.   program:        $(PROGRAM)
  75.   
  76.   tags:           $(HDRS) $(SRCS); @ctags $(HDRS) $(SRCS)
  77.   
  78. - update:        $(DEST)/$(PROGRAM)
  79. - 
  80. - $(DEST)/$(PROGRAM): $(SRCS) $(LIBS) $(HDRS)
  81. -         @make -f $(MAKEFILE) DEST=$(DEST) install
  82.   ###
  83. ! closure.o: defs.h
  84. ! error.o: defs.h
  85. ! lalr.o: defs.h
  86. ! lr0.c: defs.h
  87. ! main.o: defs.h
  88. ! mkpar.o: defs.h
  89. ! output.o: defs.h
  90. ! reader.o: defs.h
  91. ! skeleton.o: defs.h
  92. ! symtab.o: defs.h
  93. ! verbose.o: defs.h
  94. ! warshall.o: defs.h
  95. --- 45,90 ----
  96.   all:        $(PROGRAM)
  97.   
  98.   $(PROGRAM):     $(OBJS) $(LIBS)
  99. !         @echo "Loading $(PROGRAM) ... "
  100. !         @$(LINKER) to $(PROGRAM) from lib:c.o $(OBJS) lib $(LIBS) $(LDFLAGS)
  101.           @echo "done"
  102.   
  103. ! clean:
  104. !         @rm -f $(OBJS)
  105.   
  106. ! clobber:
  107. !         @rm -f $(OBJS) $(PROGRAM)
  108.   
  109. ! depend:
  110. !         @mkmf -f $(MAKEFILE) PROGRAM=$(PROGRAM) DEST=$(DEST)
  111.   
  112. + index:
  113. +         @ctags -wx $(HDRS) $(SRCS)
  114. + 
  115.   install:    $(PROGRAM)
  116.           @echo Installing $(PROGRAM) in $(DEST)
  117.           @install -s $(PROGRAM) $(DEST)
  118.   
  119. ! listing:
  120. !         @$(PRINT) Makefile $(HDRS) $(SRCS) | lpr
  121.   
  122. ! lint:
  123. !         @lint $(SRCS)
  124.   
  125.   program:        $(PROGRAM)
  126.   
  127.   tags:           $(HDRS) $(SRCS); @ctags $(HDRS) $(SRCS)
  128.   
  129.   ###
  130. ! closure.o: closure.c defs.h
  131. ! error.o: error.c defs.h
  132. ! lalr.o: lalr.c defs.h
  133. ! lr0.o: lr0.c defs.h
  134. ! main.o: main.c defs.h
  135. ! mkpar.o: mkpar.c defs.h
  136. ! output.o: output.c defs.h
  137. ! reader.o: reader.c defs.h
  138. ! skeleton.o: skeleton.c defs.h
  139. ! symtab.o: symtab.c defs.h
  140. ! verbose.o: verbose.c defs.h
  141. ! warshall.o: warshall.c defs.h
  142. diff -c -r unix/defs.h amiga/defs.h
  143. *** unix/defs.h    Sun Aug 19 16:20:40 1990
  144. --- amiga/defs.h    Sat Jul 14 17:41:52 1990
  145. ***************
  146. *** 7,13 ****
  147.   /*  the following definitions are for the VAX        */
  148.   /*  they might have to be changed for other machines    */
  149.   
  150. ! /*  MAXCHAR is the largest character value        */
  151.   /*  MAXSHORT is the largest value of a C short        */
  152.   /*  MINSHORT is the most negative value of a C short    */
  153.   /*  MAXTABLE is the maximum table size            */
  154. --- 7,13 ----
  155.   /*  the following definitions are for the VAX        */
  156.   /*  they might have to be changed for other machines    */
  157.   
  158. ! /*  MAXCHAR is the largest unsigned character value    */
  159.   /*  MAXSHORT is the largest value of a C short        */
  160.   /*  MINSHORT is the most negative value of a C short    */
  161.   /*  MAXTABLE is the maximum table size            */
  162. ***************
  163. *** 24,31 ****
  164.   #define MAXTABLE    32500
  165.   #define BITS_PER_WORD    32
  166.   #define    WORDSIZE(n)    (((n)+(BITS_PER_WORD-1))/BITS_PER_WORD)
  167. ! #define    BIT(r, n)    ((((r)[(n) >> 5]) >> ((n) & 31)) & 1)
  168. ! #define    SETBIT(r, n)    ((r)[(n) >> 5] |= (1 << ((n) & 31)))
  169.   
  170.   
  171.   /*  character names  */
  172. --- 24,31 ----
  173.   #define MAXTABLE    32500
  174.   #define BITS_PER_WORD    32
  175.   #define    WORDSIZE(n)    (((n)+(BITS_PER_WORD-1))/BITS_PER_WORD)
  176. ! #define    BIT(r, n)    ((((r)[(n)>>5])>>((n)&31))&1)
  177. ! #define    SETBIT(r, n)    ((r)[(n)>>5]|=((unsigned)1<<((n)&31)))
  178.   
  179.   
  180.   /*  character names  */
  181. ***************
  182. *** 98,103 ****
  183. --- 98,104 ----
  184.   
  185.   /*  storage allocation macros  */
  186.   
  187. + #define CALLOC(k,n)    (calloc((unsigned)(k),(unsigned)(n)))
  188.   #define    FREE(x)        (free((char*)(x)))
  189.   #define MALLOC(n)    (malloc((unsigned)(n)))
  190.   #define    NEW(t)        ((t*)allocate(sizeof(t)))
  191. ***************
  192. *** 278,283 ****
  193. --- 279,289 ----
  194.   
  195.   extern void free();
  196.   extern char *calloc();
  197. + #ifdef AMIGA
  198. + extern void *malloc();
  199. + extern void *realloc();
  200. + #else
  201.   extern char *malloc();
  202.   extern char *realloc();
  203. + #endif
  204.   extern char *strcpy();
  205. diff -c -r unix/lr0.c amiga/lr0.c
  206. *** unix/lr0.c    Sun Aug 19 16:20:47 1990
  207. --- amiga/lr0.c    Sat Jul 14 14:56:44 1990
  208. ***************
  209. *** 12,17 ****
  210. --- 12,18 ----
  211.   int get_state();
  212.   core *new_state();
  213.   
  214. + static core **state_set;
  215.   static core *this_state;
  216.   static core *last_state;
  217.   static shifts *last_shift;
  218. ***************
  219. *** 27,35 ****
  220.   static short **kernel_end;
  221.   static short *kernel_items;
  222.   
  223. - static core **state_table;
  224.   
  225. - 
  226.   allocate_itemsets()
  227.   {
  228.     register short *itemp;
  229. --- 28,34 ----
  230. ***************
  231. *** 79,85 ****
  232.   
  233.     shiftset = NEW2(nsyms, short);
  234.     redset = NEW2(nrules + 1, short);
  235. !   state_table = NEW2(nitems, core *);
  236.   }
  237.   
  238.   
  239. --- 78,84 ----
  240.   
  241.     shiftset = NEW2(nsyms, short);
  242.     redset = NEW2(nrules + 1, short);
  243. !   state_set = NEW2(nitems, core *);
  244.   }
  245.   
  246.   
  247. ***************
  248. *** 122,128 ****
  249.     FREE(kernel_base);
  250.     FREE(kernel_end);
  251.     FREE(kernel_items);
  252. !   FREE(state_table);
  253.   }
  254.   
  255.   
  256. --- 121,127 ----
  257.     FREE(kernel_base);
  258.     FREE(kernel_end);
  259.     FREE(kernel_items);
  260. !   FREE(state_set);
  261.   }
  262.   
  263.   
  264. ***************
  265. *** 177,183 ****
  266.   
  267.     key = *isp1;
  268.     assert(0 <= key && key < nitems);
  269. !   sp = state_table[key];
  270.     if (sp)
  271.       {
  272.         found = 0;
  273. --- 176,182 ----
  274.   
  275.     key = *isp1;
  276.     assert(0 <= key && key < nitems);
  277. !   sp = state_set[key];
  278.     if (sp)
  279.       {
  280.         found = 0;
  281. ***************
  282. *** 212,218 ****
  283.       }
  284.     else
  285.       {
  286. !       state_table[key] = sp = new_state(symbol);
  287.       }
  288.   
  289.     return (sp->number);
  290. --- 211,217 ----
  291.       }
  292.     else
  293.       {
  294. !       state_set[key] = sp = new_state(symbol);
  295.       }
  296.   
  297.     return (sp->number);
  298. diff -c -r unix/main.c amiga/main.c
  299. *** unix/main.c    Sun Aug 19 16:20:41 1990
  300. --- amiga/main.c    Sat Jul 14 17:35:01 1990
  301. ***************
  302. *** 3,14 ****
  303.   
  304.   char dflag;
  305.   char lflag;
  306.   char tflag;
  307.   char vflag;
  308.   
  309. ! char *prefix = "y";
  310.   char *myname = "yacc";
  311.   char *temp_form = "yacc.XXXXXXX";
  312.   
  313.   int lineno;
  314.   int outline;
  315. --- 3,19 ----
  316.   
  317.   char dflag;
  318.   char lflag;
  319. + char rflag;
  320.   char tflag;
  321.   char vflag;
  322.   
  323. ! char *file_prefix = "y";
  324.   char *myname = "yacc";
  325. + #ifndef AMIGA
  326.   char *temp_form = "yacc.XXXXXXX";
  327. + #else
  328. + char *temp_form = "t:yacc";
  329. + #endif
  330.   
  331.   int lineno;
  332.   int outline;
  333. ***************
  334. *** 92,98 ****
  335.   
  336.   usage()
  337.   {
  338. !     fprintf(stderr, "usage: %s [-dltv] [-b prefix] filename\n", myname);
  339.       exit(1);
  340.   }
  341.   
  342. --- 97,103 ----
  343.   
  344.   usage()
  345.   {
  346. !     fprintf(stderr, "usage: %s [-dlrtv] [-b file_prefix] filename\n", myname);
  347.       exit(1);
  348.   }
  349.   
  350. ***************
  351. *** 116,128 ****
  352.           if (i + 1 < argc) usage();
  353.           return;
  354.   
  355. !     case '_':
  356.           ++i;
  357.           goto no_more_options;
  358.   
  359.       case 'b':
  360. !         if (*++s || ++i >= argc) usage();
  361. !         prefix = argv[i];
  362.           continue;
  363.   
  364.       case 'd':
  365. --- 121,137 ----
  366.           if (i + 1 < argc) usage();
  367.           return;
  368.   
  369. !     case '-':
  370.           ++i;
  371.           goto no_more_options;
  372.   
  373.       case 'b':
  374. !         if (*++s)
  375. !          file_prefix = s;
  376. !         else if (++i < argc)
  377. !         file_prefix = argv[i];
  378. !         else
  379. !         usage();
  380.           continue;
  381.   
  382.       case 'd':
  383. ***************
  384. *** 133,138 ****
  385. --- 142,151 ----
  386.           lflag = 1;
  387.           break;
  388.   
  389. +     case 'r':
  390. +         rflag = 1;
  391. +         break;
  392. + 
  393.       case 't':
  394.           tflag = 1;
  395.           break;
  396. ***************
  397. *** 160,165 ****
  398. --- 173,182 ----
  399.           lflag = 1;
  400.           break;
  401.   
  402. +         case 'r':
  403. +         rflag = 1;
  404. +         break;
  405. + 
  406.           case 't':
  407.           tflag = 1;
  408.           break;
  409. ***************
  410. *** 187,197 ****
  411.   {
  412.       register char *p;
  413.   
  414. !     p = calloc((unsigned) 1, n);
  415. !     if (!p) no_space();
  416.       return (p);
  417.   }
  418.   
  419.   
  420.   create_file_names()
  421.   {
  422. --- 204,230 ----
  423.   {
  424.       register char *p;
  425.   
  426. !     p = NULL;
  427. !     if (n)
  428. !     {
  429. !     p = CALLOC(1, n);
  430. !     if (!p) no_space();
  431. !     }
  432.       return (p);
  433.   }
  434.   
  435. + #ifdef AMIGA
  436. + char *                                                                        
  437. + TmpFileName(template)                                                         
  438. + char *template;                                                               
  439. + {                                                                             
  440. +     static char Template[256];                                                
  441. +     static unsigned short Idx;                                                
  442. +                                                                               
  443. +     sprintf(Template, "%s%08lx.TMP", template, (long)FindTask(NULL) + Idx++);
  444. +     return(Template);                                                         
  445. + }
  446. + #endif
  447.   
  448.   create_file_names()
  449.   {
  450. ***************
  451. *** 198,210 ****
  452. --- 231,250 ----
  453.       int i, len;
  454.       char *tmpdir;
  455.   
  456. + #ifndef AMIGA
  457.       tmpdir = getenv("TMPDIR");
  458.       if (tmpdir == 0) tmpdir = "/tmp";
  459. + #else
  460. +     if (tmpdir == 0) tmpdir = "t:";
  461. + #endif
  462.   
  463.       len = strlen(tmpdir);
  464.       i = len + 13;
  465. + 
  466. + #ifndef AMIGA
  467.       if (len && tmpdir[len-1] != '/')
  468.       ++i;
  469. + #endif
  470.   
  471.       action_file_name = MALLOC(i);
  472.       if (action_file_name == 0) no_space();
  473. ***************
  474. *** 217,222 ****
  475. --- 257,263 ----
  476.       strcpy(text_file_name, tmpdir);
  477.       strcpy(union_file_name, tmpdir);
  478.   
  479. + #ifndef AMIGA
  480.       if (len && tmpdir[len - 1] != '/')
  481.       {
  482.       action_file_name[len] = '/';
  483. ***************
  484. *** 224,229 ****
  485. --- 265,271 ----
  486.       union_file_name[len] = '/';
  487.       ++len;
  488.       }
  489. + #endif
  490.   
  491.       strcpy(action_file_name + len, temp_form);
  492.       strcpy(text_file_name + len, temp_form);
  493. ***************
  494. *** 233,243 ****
  495.       text_file_name[len + 5] = 't';
  496.       union_file_name[len + 5] = 'u';
  497.   
  498.       mktemp(action_file_name);
  499.       mktemp(text_file_name);
  500.       mktemp(union_file_name);
  501.   
  502. !     len = strlen(prefix);
  503.       if (dflag)
  504.       {
  505.       /*  the number 7 below is the size of ".tab.h"; sizeof is not used  */
  506. --- 275,291 ----
  507.       text_file_name[len + 5] = 't';
  508.       union_file_name[len + 5] = 'u';
  509.   
  510. + #ifndef AMIGA
  511.       mktemp(action_file_name);
  512.       mktemp(text_file_name);
  513.       mktemp(union_file_name);
  514. + #else
  515. +     strcpy(action_file_name, TmpFileName(action_file_name));
  516. +     strcpy(text_file_name, TmpFileName(text_file_name));
  517. +     strcpy(union_file_name, TmpFileName(union_file_name));
  518. + #endif
  519.   
  520. !     len = strlen(file_prefix);
  521.       if (dflag)
  522.       {
  523.       /*  the number 7 below is the size of ".tab.h"; sizeof is not used  */
  524. ***************
  525. *** 244,256 ****
  526.       /*  because of a C compiler that thinks sizeof(".tab.h") == 6        */
  527.       defines_file_name = MALLOC(len + 7);
  528.       if (defines_file_name == 0) no_space();
  529. !     strcpy(defines_file_name, prefix);
  530.       strcpy(defines_file_name + len, DEFINES_SUFFIX);
  531.       }
  532.   
  533.       output_file_name = MALLOC(len + 7);
  534.       if (output_file_name == 0) no_space();
  535. !     strcpy(output_file_name, prefix);
  536.       strcpy(output_file_name + len, OUTPUT_SUFFIX);
  537.   
  538.       if (vflag)
  539. --- 292,304 ----
  540.       /*  because of a C compiler that thinks sizeof(".tab.h") == 6        */
  541.       defines_file_name = MALLOC(len + 7);
  542.       if (defines_file_name == 0) no_space();
  543. !     strcpy(defines_file_name, file_prefix);
  544.       strcpy(defines_file_name + len, DEFINES_SUFFIX);
  545.       }
  546.   
  547.       output_file_name = MALLOC(len + 7);
  548.       if (output_file_name == 0) no_space();
  549. !     strcpy(output_file_name, file_prefix);
  550.       strcpy(output_file_name + len, OUTPUT_SUFFIX);
  551.   
  552.       if (vflag)
  553. ***************
  554. *** 257,263 ****
  555.       {
  556.       verbose_file_name = MALLOC(len + 8);
  557.       if (verbose_file_name == 0) no_space();
  558. !     strcpy(verbose_file_name, prefix);
  559.       strcpy(verbose_file_name + len, VERBOSE_SUFFIX);
  560.       }
  561.   }
  562. --- 305,311 ----
  563.       {
  564.       verbose_file_name = MALLOC(len + 8);
  565.       if (verbose_file_name == 0) no_space();
  566. !     strcpy(verbose_file_name, file_prefix);
  567.       strcpy(verbose_file_name + len, VERBOSE_SUFFIX);
  568.       }
  569.   }
  570. diff -c -r unix/manpage amiga/manpage
  571. *** unix/manpage    Sun Aug 19 16:20:42 1990
  572. --- amiga/manpage    Sat Jul 14 14:56:37 1990
  573. ***************
  574. *** 1,11 ****
  575.   .\"    %W%    %R% (Berkeley) %E%
  576.   .\"
  577. ! .TH YACC 1 "December 10, 1989"
  578.   .UC 6
  579.   .SH NAME
  580.   Yacc \- an LALR(1) parser generator
  581.   .SH SYNOPSIS
  582. ! .B yacc [ -dltv ] [ -b
  583.   .I prefix
  584.   .B ]
  585.   .I filename
  586. --- 1,11 ----
  587.   .\"    %W%    %R% (Berkeley) %E%
  588.   .\"
  589. ! .TH YACC 1 "June 3, 1990"
  590.   .UC 6
  591.   .SH NAME
  592.   Yacc \- an LALR(1) parser generator
  593.   .SH SYNOPSIS
  594. ! .B yacc [ -dlrtv ] [ -b
  595.   .I prefix
  596.   .B ]
  597.   .I filename
  598. ***************
  599. *** 50,59 ****
  600.   will not insert the \#line directives.
  601.   \&\#line directives specified by the user will be retained.
  602.   .TP
  603.   .B -t
  604.   The
  605.   .B -t
  606. ! option will change the preprocessor directives generated by
  607.   .I yacc
  608.   so that debugging statements will be incorporated in the compiled code.
  609.   .TP
  610. --- 50,74 ----
  611.   will not insert the \#line directives.
  612.   \&\#line directives specified by the user will be retained.
  613.   .TP
  614. + .B -r
  615. + The
  616. + .B -r
  617. + option causes
  618. + .I yacc
  619. + to produce separate files for code and tables.  The code file
  620. + is named
  621. + .IR
  622. + y.code.c,
  623. + and the tables file is named
  624. + .IR y.tab.c.
  625. + (The
  626. + .B -r
  627. + option has not yet been implemented.)
  628. + .TP
  629.   .B -t
  630.   The
  631.   .B -t
  632. ! option changes the preprocessor directives generated by
  633.   .I yacc
  634.   so that debugging statements will be incorporated in the compiled code.
  635.   .TP
  636. diff -c -r unix/output.c amiga/output.c
  637. *** unix/output.c    Sun Aug 19 16:20:49 1990
  638. --- amiga/output.c    Sat Jul 14 14:56:17 1990
  639. ***************
  640. *** 511,519 ****
  641.   
  642.           newmax = maxtable;
  643.           do { newmax += 200; } while (newmax <= loc);
  644. !         table = (short *) realloc(table, newmax*sizeof(short));
  645.           if (table == 0) no_space();
  646. !         check = (short *) realloc(check, newmax*sizeof(short));
  647.           if (check == 0) no_space();
  648.           for (l  = maxtable; l < newmax; ++l)
  649.           {
  650. --- 511,519 ----
  651.   
  652.           newmax = maxtable;
  653.           do { newmax += 200; } while (newmax <= loc);
  654. !         table = (short *) REALLOC(table, newmax*sizeof(short));
  655.           if (table == 0) no_space();
  656. !         check = (short *) REALLOC(check, newmax*sizeof(short));
  657.           if (check == 0) no_space();
  658.           for (l  = maxtable; l < newmax; ++l)
  659.           {
  660. ***************
  661. *** 807,812 ****
  662. --- 807,815 ----
  663.   
  664.       symnam = (char **) MALLOC((max+1)*sizeof(char *));
  665.       if (symnam == 0) no_space();
  666. + 
  667. +     /* Note that it is  not necessary to initialize the element        */
  668. +     /* symnam[max].                            */
  669.       for (i = 0; i < max; ++i)
  670.       symnam[i] = 0;
  671.       for (i = ntokens - 1; i >= 2; --i)
  672. ***************
  673. *** 825,840 ****
  674.           k = 7;
  675.           while (*++s != '"')
  676.           {
  677.               if (*s == '\\')
  678.               {
  679.               k += 2;
  680.               if (*++s == '\\')
  681. -                 k += 2;
  682. -             else
  683.                   ++k;
  684.               }
  685. -             else
  686. -             ++k;
  687.           }
  688.           j += k;
  689.           if (j > 80)
  690. --- 828,840 ----
  691.           k = 7;
  692.           while (*++s != '"')
  693.           {
  694. +             ++k;
  695.               if (*s == '\\')
  696.               {
  697.               k += 2;
  698.               if (*++s == '\\')
  699.                   ++k;
  700.               }
  701.           }
  702.           j += k;
  703.           if (j > 80)
  704. ***************
  705. *** 862,867 ****
  706. --- 862,868 ----
  707.           }
  708.           else if (s[0] == '\'')
  709.           {
  710. + fprintf(stderr, "s[0] = %c, s[1] = %c, s[2] = %c\n", s[0], s[1], s[2]);
  711.           if (s[1] == '"')
  712.           {
  713.               j += 7;
  714. ***************
  715. *** 878,894 ****
  716.               k = 5;
  717.               while (*++s != '\'')
  718.               {
  719.               if (*s == '\\')
  720.               {
  721.                   k += 2;
  722. -                 ++s;
  723.                   if (*++s == '\\')
  724. -                 k += 2;
  725. -                 else
  726.                   ++k;
  727.               }
  728. !             else
  729. !                 ++k;
  730.               }
  731.               j += k;
  732.               if (j > 80)
  733. --- 879,893 ----
  734.               k = 5;
  735.               while (*++s != '\'')
  736.               {
  737. + fprintf(stderr, "k = %d, *s = %c\n", k, *s);
  738. +             ++k;
  739.               if (*s == '\\')
  740.               {
  741.                   k += 2;
  742.                   if (*++s == '\\')
  743.                   ++k;
  744.               }
  745. ! fprintf(stderr, "k = %d, *s = %c\n", k, *s);
  746.               }
  747.               j += k;
  748.               if (j > 80)
  749. diff -c -r unix/reader.c amiga/reader.c
  750. *** unix/reader.c    Sun Aug 19 16:20:52 1990
  751. --- amiga/reader.c    Sat Jul 14 14:56:22 1990
  752. ***************
  753. *** 406,412 ****
  754.           }
  755.           }
  756.       }
  757. -     putc('/', f);
  758.       need_newline = 1;
  759.       goto loop;
  760.   
  761. --- 406,411 ----
  762. ***************
  763. *** 1105,1111 ****
  764.       if (!last_was_action && plhs[nrules]->tag)
  765.       {
  766.       for (i = nitems - 1; pitem[i]; --i) continue;
  767. !     if (pitem[i+1]->tag != plhs[nrules]->tag)
  768.           default_action_warning();
  769.       }
  770.   
  771. --- 1104,1110 ----
  772.       if (!last_was_action && plhs[nrules]->tag)
  773.       {
  774.       for (i = nitems - 1; pitem[i]; --i) continue;
  775. !     if (pitem[i+1] == 0 || pitem[i+1]->tag != plhs[nrules]->tag)
  776.           default_action_warning();
  777.       }
  778.   
  779. ***************
  780. *** 1217,1223 ****
  781.           c = *cptr;
  782.           if (c == '$')
  783.           {
  784. !         fprintf(f, "yyval.%s ", tag);
  785.           ++cptr;
  786.           FREE(d_line);
  787.           goto loop;
  788. --- 1216,1222 ----
  789.           c = *cptr;
  790.           if (c == '$')
  791.           {
  792. !         fprintf(f, "yyval.%s", tag);
  793.           ++cptr;
  794.           FREE(d_line);
  795.           goto loop;
  796. ***************
  797. *** 1226,1232 ****
  798.           {
  799.           i = get_number();
  800.           if (i > n) dollar_warning(d_lineno, i);
  801. !         fprintf(f, "yyvsp[%d].%s ", i - n, tag);
  802.           FREE(d_line);
  803.           goto loop;
  804.           }
  805. --- 1225,1231 ----
  806.           {
  807.           i = get_number();
  808.           if (i > n) dollar_warning(d_lineno, i);
  809. !         fprintf(f, "yyvsp[%d].%s", i - n, tag);
  810.           FREE(d_line);
  811.           goto loop;
  812.           }
  813. ***************
  814. *** 1234,1240 ****
  815.           {
  816.           ++cptr;
  817.           i = -get_number() - n;
  818. !         fprintf(f, "yyvsp[%d].%s ", i, tag);
  819.           FREE(d_line);
  820.           goto loop;
  821.           }
  822. --- 1233,1239 ----
  823.           {
  824.           ++cptr;
  825.           i = -get_number() - n;
  826. !         fprintf(f, "yyvsp[%d].%s", i, tag);
  827.           FREE(d_line);
  828.           goto loop;
  829.           }
  830. ***************
  831. *** 1247,1256 ****
  832.           {
  833.           tag = plhs[nrules]->tag;
  834.           if (tag == 0) untyped_lhs();
  835. !         fprintf(f, "yyval.%s ", tag);
  836.           }
  837.           else
  838. !         fprintf(f, "yyval ");
  839.           cptr += 2;
  840.           goto loop;
  841.       }
  842. --- 1246,1255 ----
  843.           {
  844.           tag = plhs[nrules]->tag;
  845.           if (tag == 0) untyped_lhs();
  846. !         fprintf(f, "yyval.%s", tag);
  847.           }
  848.           else
  849. !         fprintf(f, "yyval");
  850.           cptr += 2;
  851.           goto loop;
  852.       }
  853. ***************
  854. *** 1264,1270 ****
  855.               unknown_rhs(i);
  856.           tag = pitem[nitems + i - n - 1]->tag;
  857.           if (tag == 0) untyped_rhs(i, pitem[nitems + i - n - 1]->name);
  858. !         fprintf(f, "yyvsp[%d].%s ", i - n, tag);
  859.           }
  860.           else
  861.           {
  862. --- 1263,1269 ----
  863.               unknown_rhs(i);
  864.           tag = pitem[nitems + i - n - 1]->tag;
  865.           if (tag == 0) untyped_rhs(i, pitem[nitems + i - n - 1]->name);
  866. !         fprintf(f, "yyvsp[%d].%s", i - n, tag);
  867.           }
  868.           else
  869.           {
  870. diff -c -r unix/skeleton.c amiga/skeleton.c
  871. *** unix/skeleton.c    Sun Aug 19 16:20:48 1990
  872. --- amiga/skeleton.c    Sat Jul 14 14:56:05 1990
  873. ***************
  874. *** 10,16 ****
  875.   char *banner[] =
  876.   {
  877.       "#ifndef lint",
  878. !     "char yysccsid[] = \"@(#)yaccpar    1.4 (Berkeley) 02/25/90\";",
  879.       "#endif",
  880.       0
  881.   };
  882. --- 10,16 ----
  883.   char *banner[] =
  884.   {
  885.       "#ifndef lint",
  886. !     "char yysccsid[] = \"@(#)yaccpar    1.5 (Berkeley) 06/03/90\";",
  887.       "#endif",
  888.       0
  889.   };
  890. ***************
  891. *** 198,204 ****
  892.       "    yym = yylhs[yyn];",
  893.       "    if (yystate == 0 && yym == 0)",
  894.       "    {",
  895. !     "#ifdef YYDEBUG",
  896.       "        if (yydebug)",
  897.       "            printf(\"yydebug: after reduction, shifting from state 0 to\\",
  898.       " state %d\\n\", YYFINAL);",
  899. --- 198,204 ----
  900.       "    yym = yylhs[yyn];",
  901.       "    if (yystate == 0 && yym == 0)",
  902.       "    {",
  903. !     "#if YYDEBUG",
  904.       "        if (yydebug)",
  905.       "            printf(\"yydebug: after reduction, shifting from state 0 to\\",
  906.       " state %d\\n\", YYFINAL);",
  907. ***************
  908. *** 228,234 ****
  909.       "        yystate = yytable[yyn];",
  910.       "    else",
  911.       "        yystate = yydgoto[yym];",
  912. !     "#ifdef YYDEBUG",
  913.       "    if (yydebug)",
  914.       "        printf(\"yydebug: after reduction, shifting from state %d \\",
  915.       "to state %d\\n\", *yyssp, yystate);",
  916. --- 228,234 ----
  917.       "        yystate = yytable[yyn];",
  918.       "    else",
  919.       "        yystate = yydgoto[yym];",
  920. !     "#if YYDEBUG",
  921.       "    if (yydebug)",
  922.       "        printf(\"yydebug: after reduction, shifting from state %d \\",
  923.       "to state %d\\n\", *yyssp, yystate);",
  924. diff -c -r unix/test/error.tab.c amiga/test/error.tab.c
  925. *** unix/test/error.tab.c    Sun Aug 19 16:20:43 1990
  926. --- amiga/test/error.tab.c    Mon Jun  4 00:42:01 1990
  927. ***************
  928. *** 1,5 ****
  929.   #ifndef lint
  930. ! char yysccsid[] = "@(#)yaccpar    1.4 (Berkeley) 02/25/90";
  931.   #endif
  932.   #define YYERRCODE 256
  933.   short yylhs[] = {                                        -1,
  934. --- 1,5 ----
  935.   #ifndef lint
  936. ! char yysccsid[] = "@(#)yaccpar    1.5 (Berkeley) 06/03/90";
  937.   #endif
  938.   #define YYERRCODE 256
  939.   short yylhs[] = {                                        -1,
  940. ***************
  941. *** 214,220 ****
  942.       yym = yylhs[yyn];
  943.       if (yystate == 0 && yym == 0)
  944.       {
  945. ! #ifdef YYDEBUG
  946.           if (yydebug)
  947.               printf("yydebug: after reduction, shifting from state 0 to\
  948.    state %d\n", YYFINAL);
  949. --- 214,220 ----
  950.       yym = yylhs[yyn];
  951.       if (yystate == 0 && yym == 0)
  952.       {
  953. ! #if YYDEBUG
  954.           if (yydebug)
  955.               printf("yydebug: after reduction, shifting from state 0 to\
  956.    state %d\n", YYFINAL);
  957. ***************
  958. *** 244,250 ****
  959.           yystate = yytable[yyn];
  960.       else
  961.           yystate = yydgoto[yym];
  962. ! #ifdef YYDEBUG
  963.       if (yydebug)
  964.           printf("yydebug: after reduction, shifting from state %d \
  965.   to state %d\n", *yyssp, yystate);
  966. --- 244,250 ----
  967.           yystate = yytable[yyn];
  968.       else
  969.           yystate = yydgoto[yym];
  970. ! #if YYDEBUG
  971.       if (yydebug)
  972.           printf("yydebug: after reduction, shifting from state %d \
  973.   to state %d\n", *yyssp, yystate);
  974. diff -c -r unix/test/ftp.tab.c amiga/test/ftp.tab.c
  975. *** unix/test/ftp.tab.c    Sun Aug 19 16:20:55 1990
  976. --- amiga/test/ftp.tab.c    Mon Jun  4 00:42:30 1990
  977. ***************
  978. *** 1,5 ****
  979.   #ifndef lint
  980. ! char yysccsid[] = "@(#)yaccpar    1.4 (Berkeley) 02/25/90";
  981.   #endif
  982.   #line 26 "ftp.y"
  983.   
  984. --- 1,5 ----
  985.   #ifndef lint
  986. ! char yysccsid[] = "@(#)yaccpar    1.5 (Berkeley) 06/03/90";
  987.   #endif
  988.   #line 26 "ftp.y"
  989.   
  990. ***************
  991. *** 7,18 ****
  992.   static char sccsid[] = "@(#)ftpcmd.y    5.20.1.1 (Berkeley) 3/2/89";
  993.   #endif /* not lint */
  994.   
  995. ! #include <sys//param.h>
  996. ! #include <sys//socket.h>
  997.   
  998. ! #include <netinet//in.h>
  999.   
  1000. ! #include <arpa//ftp.h>
  1001.   
  1002.   #include <stdio.h>
  1003.   #include <signal.h>
  1004. --- 7,18 ----
  1005.   static char sccsid[] = "@(#)ftpcmd.y    5.20.1.1 (Berkeley) 3/2/89";
  1006.   #endif /* not lint */
  1007.   
  1008. ! #include <sys/param.h>
  1009. ! #include <sys/socket.h>
  1010.   
  1011. ! #include <netinet/in.h>
  1012.   
  1013. ! #include <arpa/ftp.h>
  1014.   
  1015.   #include <stdio.h>
  1016.   #include <signal.h>
  1017. ***************
  1018. *** 20,26 ****
  1019.   #include <pwd.h>
  1020.   #include <setjmp.h>
  1021.   #include <syslog.h>
  1022. ! #include <sys//stat.h>
  1023.   #include <time.h>
  1024.   
  1025.   extern    struct sockaddr_in data_dest;
  1026. --- 20,26 ----
  1027.   #include <pwd.h>
  1028.   #include <setjmp.h>
  1029.   #include <syslog.h>
  1030. ! #include <sys/stat.h>
  1031.   #include <time.h>
  1032.   
  1033.   extern    struct sockaddr_in data_dest;
  1034. ***************
  1035. *** 1495,1501 ****
  1036.   case 49:
  1037.   #line 493 "ftp.y"
  1038.    {
  1039. !             *(char **)&(yyval ) = "";
  1040.           }
  1041.   break;
  1042.   case 52:
  1043. --- 1495,1501 ----
  1044.   case 49:
  1045.   #line 493 "ftp.y"
  1046.    {
  1047. !             *(char **)&(yyval) = "";
  1048.           }
  1049.   break;
  1050.   case 52:
  1051. ***************
  1052. *** 1513,1531 ****
  1053.   case 53:
  1054.   #line 516 "ftp.y"
  1055.    {
  1056. !         yyval  = FORM_N;
  1057.       }
  1058.   break;
  1059.   case 54:
  1060.   #line 520 "ftp.y"
  1061.    {
  1062. !         yyval  = FORM_T;
  1063.       }
  1064.   break;
  1065.   case 55:
  1066.   #line 524 "ftp.y"
  1067.    {
  1068. !         yyval  = FORM_C;
  1069.       }
  1070.   break;
  1071.   case 56:
  1072. --- 1513,1531 ----
  1073.   case 53:
  1074.   #line 516 "ftp.y"
  1075.    {
  1076. !         yyval = FORM_N;
  1077.       }
  1078.   break;
  1079.   case 54:
  1080.   #line 520 "ftp.y"
  1081.    {
  1082. !         yyval = FORM_T;
  1083.       }
  1084.   break;
  1085.   case 55:
  1086.   #line 524 "ftp.y"
  1087.    {
  1088. !         yyval = FORM_C;
  1089.       }
  1090.   break;
  1091.   case 56:
  1092. ***************
  1093. *** 1586,1622 ****
  1094.   case 64:
  1095.   #line 572 "ftp.y"
  1096.    {
  1097. !         yyval  = STRU_F;
  1098.       }
  1099.   break;
  1100.   case 65:
  1101.   #line 576 "ftp.y"
  1102.    {
  1103. !         yyval  = STRU_R;
  1104.       }
  1105.   break;
  1106.   case 66:
  1107.   #line 580 "ftp.y"
  1108.    {
  1109. !         yyval  = STRU_P;
  1110.       }
  1111.   break;
  1112.   case 67:
  1113.   #line 586 "ftp.y"
  1114.    {
  1115. !         yyval  = MODE_S;
  1116.       }
  1117.   break;
  1118.   case 68:
  1119.   #line 590 "ftp.y"
  1120.    {
  1121. !         yyval  = MODE_B;
  1122.       }
  1123.   break;
  1124.   case 69:
  1125.   #line 594 "ftp.y"
  1126.    {
  1127. !         yyval  = MODE_C;
  1128.       }
  1129.   break;
  1130.   case 70:
  1131. --- 1586,1622 ----
  1132.   case 64:
  1133.   #line 572 "ftp.y"
  1134.    {
  1135. !         yyval = STRU_F;
  1136.       }
  1137.   break;
  1138.   case 65:
  1139.   #line 576 "ftp.y"
  1140.    {
  1141. !         yyval = STRU_R;
  1142.       }
  1143.   break;
  1144.   case 66:
  1145.   #line 580 "ftp.y"
  1146.    {
  1147. !         yyval = STRU_P;
  1148.       }
  1149.   break;
  1150.   case 67:
  1151.   #line 586 "ftp.y"
  1152.    {
  1153. !         yyval = MODE_S;
  1154.       }
  1155.   break;
  1156.   case 68:
  1157.   #line 590 "ftp.y"
  1158.    {
  1159. !         yyval = MODE_B;
  1160.       }
  1161.   break;
  1162.   case 69:
  1163.   #line 594 "ftp.y"
  1164.    {
  1165. !         yyval = MODE_C;
  1166.       }
  1167.   break;
  1168.   case 70:
  1169. ***************
  1170. *** 1628,1641 ****
  1171.            * This is a valid reply in some cases but not in others.
  1172.            */
  1173.           if (logged_in && yyvsp[0] && strncmp((char *) yyvsp[0], "~", 1) == 0) {
  1174. !             *(char **)&(yyval ) = *glob((char *) yyvsp[0]);
  1175.               if (globerr != NULL) {
  1176.                   reply(550, globerr);
  1177. !                 yyval  = NULL;
  1178.               }
  1179.               free((char *) yyvsp[0]);
  1180.           } else
  1181. !             yyval  = yyvsp[0];
  1182.       }
  1183.   break;
  1184.   case 72:
  1185. --- 1628,1641 ----
  1186.            * This is a valid reply in some cases but not in others.
  1187.            */
  1188.           if (logged_in && yyvsp[0] && strncmp((char *) yyvsp[0], "~", 1) == 0) {
  1189. !             *(char **)&(yyval) = *glob((char *) yyvsp[0]);
  1190.               if (globerr != NULL) {
  1191.                   reply(550, globerr);
  1192. !                 yyval = NULL;
  1193.               }
  1194.               free((char *) yyvsp[0]);
  1195.           } else
  1196. !             yyval = yyvsp[0];
  1197.       }
  1198.   break;
  1199.   case 72:
  1200. ***************
  1201. *** 1660,1666 ****
  1202.               multby *= 8;
  1203.               dec /= 10;
  1204.           }
  1205. !         yyval  = ret;
  1206.       }
  1207.   break;
  1208.   case 73:
  1209. --- 1660,1666 ----
  1210.               multby *= 8;
  1211.               dec /= 10;
  1212.           }
  1213. !         yyval = ret;
  1214.       }
  1215.   break;
  1216.   case 73:
  1217. ***************
  1218. *** 1667,1676 ****
  1219.   #line 647 "ftp.y"
  1220.    {
  1221.           if (logged_in)
  1222. !             yyval  = 1;
  1223.           else {
  1224.               reply(530, "Please login with USER and PASS.");
  1225. !             yyval  = 0;
  1226.           }
  1227.       }
  1228.   break;
  1229. --- 1667,1676 ----
  1230.   #line 647 "ftp.y"
  1231.    {
  1232.           if (logged_in)
  1233. !             yyval = 1;
  1234.           else {
  1235.               reply(530, "Please login with USER and PASS.");
  1236. !             yyval = 0;
  1237.           }
  1238.       }
  1239.   break;
  1240. ***************
  1241. *** 1682,1688 ****
  1242.       yym = yylhs[yyn];
  1243.       if (yystate == 0 && yym == 0)
  1244.       {
  1245. ! #ifdef YYDEBUG
  1246.           if (yydebug)
  1247.               printf("yydebug: after reduction, shifting from state 0 to\
  1248.    state %d\n", YYFINAL);
  1249. --- 1682,1688 ----
  1250.       yym = yylhs[yyn];
  1251.       if (yystate == 0 && yym == 0)
  1252.       {
  1253. ! #if YYDEBUG
  1254.           if (yydebug)
  1255.               printf("yydebug: after reduction, shifting from state 0 to\
  1256.    state %d\n", YYFINAL);
  1257. ***************
  1258. *** 1712,1718 ****
  1259.           yystate = yytable[yyn];
  1260.       else
  1261.           yystate = yydgoto[yym];
  1262. ! #ifdef YYDEBUG
  1263.       if (yydebug)
  1264.           printf("yydebug: after reduction, shifting from state %d \
  1265.   to state %d\n", *yyssp, yystate);
  1266. --- 1712,1718 ----
  1267.           yystate = yytable[yyn];
  1268.       else
  1269.           yystate = yydgoto[yym];
  1270. ! #if YYDEBUG
  1271.       if (yydebug)
  1272.           printf("yydebug: after reduction, shifting from state %d \
  1273.   to state %d\n", *yyssp, yystate);
  1274.