home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / netsrcs / cpp_elif.txt < prev    next >
Encoding:
Internet Message Format  |  1986-06-04  |  11.9 KB
  1. From arnold@emory.UUCP (Arnold D. Robbins {EUCC}) Mon Jun  2 11:21:17 1986
  2. Path: seismo!columbia!caip!princeton!allegra!ulysses!mhuxr!mhuxn!mhuxm!mhuxf!mhuxi!mhuhk!mhuxt!houxm!mtuxo!mtune!akguc!akgua!emory!arnold
  3. From: arnold@emory.UUCP (Arnold D. Robbins {EUCC})
  4. Newsgroups: net.lang.c,net.lang.c++,net.unix-wizards,net.sources
  5. Subject: Patch to 4.2 /lib/cpp for #elif, and C++ style // comments
  6. Message-ID: <1645@emory.UUCP>
  7. Date: 2 Jun 86 15:21:17 GMT
  8. Distribution: net
  9. Organization: Math & Computer Science, Emory University, Atlanta
  10. Lines: 423
  11.  
  12. This bounced when I tried to send it to mod.sources, so I am just posting.
  13. It was announced in various groups last week.
  14. =============================================================================
  15. Below is a context diff, suitable for use with patch, to the 4.2 BSD /lib/cpp.
  16. It provides two enhancements:
  17.  
  18.     1) Code provided by Doug Gwyn of the Ballistics Research Lab to
  19.        implement the recent-SV/ANSI C #elif preprocessor directive. This
  20.        code is not dependant on any command line option, since I figure
  21.        it is something that everyone will want, and it is something
  22.        that will be a standard in the C community. (BTW, the crummy
  23.        indentation is my fault, not his -- it follows the current "style".)
  24.  
  25.     2) Code written by me, based loosely on the existing code, to recognize
  26.        C++ comments that start with // and continue to the end of line.
  27.        This feature must be enabled with the -B command line argument.
  28.        ("B" is reminiscent of the old B language which had the //
  29.        comment, which is where C++ took it back from. Not terribly
  30.        mnemonic, I know.)
  31.  
  32. Those of you with C++ should change your CC shell script to invoke /lib/cpp
  33. with the new -B option.
  34.  
  35. Enjoy,
  36.  
  37. Arnold Robbins
  38. CSNET:    arnold@emory    BITNET:    arnold@emoryu1
  39. ARPA:    arnold%emory.csnet@csnet-relay.arpa
  40. UUCP:    { akgua, decvax, gatech, sb1, sb6, sunatl }!emory!arnold
  41.  
  42. "All this digital stuff is just a fad. Analog is the way to go."
  43.     -- William M. Robbins, 1984
  44. -------- cut here, feed to patch in /usr/src/lib/cpp ------
  45. *** ./README    Tue May 27 14:07:10 1986
  46. --- ../ncpp/README    Tue May 27 15:28:08 1986
  47. ***************
  48. *** 1,6
  49.   #
  50.   # @(#)README 1.2 8/30/82
  51.   #
  52.   August 30, 1982
  53.   Fixed by Kurt Shoens, UCB
  54.   If the "#line n name" occurs, then all future references
  55.  
  56. --- 1,12 -----
  57.   #
  58.   # @(#)README 1.2 8/30/82
  59.   #
  60. + May 27, 1985
  61. + Modified by Arnold Robbins, Emory University Computing Center.
  62. + With the -B option, will recognize C++ style start with // and go to
  63. + the end of the line comments. Also added in code from Doug Gwyn of
  64. + the Ballistics Research Laboratory to implement #elif.
  65. + 
  66.   August 30, 1982
  67.   Fixed by Kurt Shoens, UCB
  68.   If the "#line n name" occurs, then all future references
  69. *** ./cpp.c    Tue May 27 14:07:09 1986
  70. --- ../ncpp/cpp.c    Tue May 27 15:16:12 1986
  71. ***************
  72. *** 153,158
  73.   STATIC    int    nd    = 1;
  74.   STATIC    int    pflag;    /* don't put out lines "# 12 foo.c" */
  75.   int    passcom;    /* don't delete comments */
  76.   STATIC    int rflag;    /* allow macro recursion */
  77.   STATIC    int    ifno;
  78.   # define NPREDEF 20
  79.  
  80. --- 153,159 -----
  81.   STATIC    int    nd    = 1;
  82.   STATIC    int    pflag;    /* don't put out lines "# 12 foo.c" */
  83.   int    passcom;    /* don't delete comments */
  84. + int eolcom;        /* allow // ... \n comments */
  85.   STATIC    int rflag;    /* allow macro recursion */
  86.   STATIC    int    ifno;
  87.   # define NPREDEF 20
  88. ***************
  89. *** 185,190
  90.   STATIC    struct symtab *udfloc;
  91.   STATIC    struct symtab *incloc;
  92.   STATIC    struct symtab *ifloc;
  93.   STATIC    struct symtab *elsloc;
  94.   STATIC    struct symtab *eifloc;
  95.   STATIC    struct symtab *ifdloc;
  96.  
  97. --- 186,192 -----
  98.   STATIC    struct symtab *udfloc;
  99.   STATIC    struct symtab *incloc;
  100.   STATIC    struct symtab *ifloc;
  101. + STATIC    struct symtab *eliloc;        /* DAG -- added */
  102.   STATIC    struct symtab *elsloc;
  103.   STATIC    struct symtab *eifloc;
  104.   STATIC    struct symtab *ifdloc;
  105. ***************
  106. *** 196,201
  107.   STATIC    struct symtab *uflloc;
  108.   STATIC    int    trulvl;
  109.   STATIC    int    flslvl;
  110.   
  111.   sayline() {
  112.       if (pflag==0) fprintf(fout,"# %d \"%s\"\n", lineno[ifno], fnames[ifno]);
  113.  
  114. --- 198,205 -----
  115.   STATIC    struct symtab *uflloc;
  116.   STATIC    int    trulvl;
  117.   STATIC    int    flslvl;
  118. + #define MAX_IF_NESTING    64        /* DAG -- added (must be at least 6) */
  119. + STATIC    int    ifdone[MAX_IF_NESTING];    /* DAG -- added */
  120.   
  121.   sayline() {
  122.       if (pflag==0) fprintf(fout,"# %d \"%s\"\n", lineno[ifno], fnames[ifno]);
  123. ***************
  124. *** 379,385
  125.           else {++p; break;}
  126.       } break;
  127.       case '/': for (;;) {
  128. !         if (*p++=='*') {/* comment */
  129.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  130.               for (;;) {
  131.                   while (!iscom(*p++));
  132.  
  133. --- 383,390 -----
  134.           else {++p; break;}
  135.       } break;
  136.       case '/': for (;;) {
  137. !         if (*p=='/' && eolcom) {/* C++ style comment to end of line */
  138. !             p++;
  139.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  140.               for (;;) {
  141.                   while (*p && *p++ != '\n');
  142. ***************
  143. *** 382,387
  144.           if (*p++=='*') {/* comment */
  145.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  146.               for (;;) {
  147.                   while (!iscom(*p++));
  148.                   if (p[-1]=='*') for (;;) {
  149.                       if (*p++=='/') goto endcom;
  150.  
  151. --- 387,411 -----
  152.               p++;
  153.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  154.               for (;;) {
  155. +                 while (*p && *p++ != '\n');
  156. +                 if (p[-1]=='\n') {
  157. +                     p--;
  158. +                     goto endcpluscom;
  159. +                 } else if (eob(--p)) {
  160. +                     if (!passcom) {inp=p; p=refill(p);}
  161. +                     else if ((p-inp)>=BUFSIZ) {/* split long comment */
  162. +                         inp=p; p=refill(p);
  163. +                     } else p=refill(p);
  164. +                 } else ++p; /* ignore null byte */
  165. +             }
  166. +         endcpluscom:
  167. +             if (!passcom) {outp=inp=p; --flslvl;}
  168. +             goto newline;
  169. +             break;
  170. +         }
  171. +         else if (*p++=='*') {/* comment */
  172. +             if (!passcom) {inp=p-2; dump(); ++flslvl;}
  173. +             for (;;) {
  174.                   while (!iscom(*p++));
  175.                   if (p[-1]=='*') for (;;) {
  176.                       if (*p++=='/') goto endcom;
  177. ***************
  178. *** 430,435
  179.           }
  180.       } break;
  181.       case '\n': {
  182.           ++lineno[ifno]; if (isslo) {state=LF; return(p);}
  183.   prevlf:
  184.           state=BEG;
  185.  
  186. --- 454,460 -----
  187.           }
  188.       } break;
  189.       case '\n': {
  190. + newline:
  191.           ++lineno[ifno]; if (isslo) {state=LF; return(p);}
  192.   prevlf:
  193.           state=BEG;
  194. ***************
  195. *** 710,716
  196.   #define fasscan() ptrtab=fastab+COFF
  197.   #define sloscan() ptrtab=slotab+COFF
  198.   
  199. ! char *
  200.   control(p) register char *p; {/* find and handle preprocessor control lines */
  201.       register struct symtab *np;
  202.   for (;;) {
  203.  
  204. --- 735,741 -----
  205.   #define fasscan() ptrtab=fastab+COFF
  206.   #define sloscan() ptrtab=slotab+COFF
  207.   
  208. ! void        /* DAG -- bug fix (was (char *)) */
  209.   control(p) register char *p; {/* find and handle preprocessor control lines */
  210.       register struct symtab *np;
  211.   for (;;) {
  212. ***************
  213. *** 723,729
  214.           if (flslvl==0) {p=doincl(p); continue;}
  215.       } else if (np==ifnloc) {/* ifndef */
  216.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  217. !         if (flslvl==0 && np->value==0) ++trulvl;
  218.           else ++flslvl;
  219.       } else if (np==ifdloc) {/* ifdef */
  220.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  221.  
  222. --- 748,758 -----
  223.           if (flslvl==0) {p=doincl(p); continue;}
  224.       } else if (np==ifnloc) {/* ifndef */
  225.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  226. !         if (flslvl==0)
  227. !             if (ifdone[trulvl] = np->value == 0)
  228. !                 ++trulvl;
  229. !             else
  230. !                 ++flslvl;
  231.           else ++flslvl;
  232.       } else if (np==ifdloc) {/* ifdef */
  233.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  234. ***************
  235. *** 727,733
  236.           else ++flslvl;
  237.       } else if (np==ifdloc) {/* ifdef */
  238.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  239. !         if (flslvl==0 && np->value!=0) ++trulvl;
  240.           else ++flslvl;
  241.       } else if (np==eifloc) {/* endif */
  242.           if (flslvl) {if (--flslvl==0) sayline();}
  243.  
  244. --- 756,766 -----
  245.           else ++flslvl;
  246.       } else if (np==ifdloc) {/* ifdef */
  247.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  248. !         if (flslvl==0)
  249. !             if (ifdone[trulvl] = np->value!=0)
  250. !                 ++trulvl;
  251. !             else
  252. !                 ++flslvl;
  253.           else ++flslvl;
  254.       } else if (np==eifloc) {/* endif */
  255.           if (flslvl) {if (--flslvl==0) sayline();}
  256. ***************
  257. *** 731,737
  258.           else ++flslvl;
  259.       } else if (np==eifloc) {/* endif */
  260.           if (flslvl) {if (--flslvl==0) sayline();}
  261. !         else if (trulvl) --trulvl;
  262.           else pperror("If-less endif",0);
  263.       } else if (np==elsloc) {/* else */
  264.           if (flslvl) {
  265.  
  266. --- 764,770 -----
  267.           else ++flslvl;
  268.       } else if (np==eifloc) {/* endif */
  269.           if (flslvl) {if (--flslvl==0) sayline();}
  270. !         else if (trulvl) ifdone[--trulvl] = 0;    /* DAG */
  271.           else pperror("If-less endif",0);
  272.       } else if (np==elsloc) {/* else */
  273.           if (flslvl) {
  274. ***************
  275. *** 735,741
  276.           else pperror("If-less endif",0);
  277.       } else if (np==elsloc) {/* else */
  278.           if (flslvl) {
  279. !             if (--flslvl!=0) ++flslvl;
  280.               else {++trulvl; sayline();}
  281.           }
  282.           else if (trulvl) {++flslvl; --trulvl;}
  283.  
  284. --- 768,774 -----
  285.           else pperror("If-less endif",0);
  286.       } else if (np==elsloc) {/* else */
  287.           if (flslvl) {
  288. !             if (--flslvl!=0 || ifdone[trulvl]) ++flslvl;
  289.               else {++trulvl; sayline();}
  290.           }
  291.           else if (trulvl) {++flslvl; --trulvl;}
  292. ***************
  293. *** 747,753
  294.       } else if (np==ifloc) {/* if */
  295.   #if tgp
  296.           pperror(" IF not implemented, true assumed", 0);
  297. !         if (flslvl==0) ++trulvl; else ++flslvl;
  298.   #else
  299.           newp=p;
  300.           if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  301.  
  302. --- 780,786 -----
  303.       } else if (np==ifloc) {/* if */
  304.   #if tgp
  305.           pperror(" IF not implemented, true assumed", 0);
  306. !         if (flslvl==0) ifdone[trulvl++] = 1; else ++flslvl;
  307.   #else
  308.           newp=p;
  309.           if (flslvl==0)
  310. ***************
  311. *** 750,756
  312.           if (flslvl==0) ++trulvl; else ++flslvl;
  313.   #else
  314.           newp=p;
  315. !         if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  316.           p=newp;
  317.   #endif
  318.       } else if (np==lneloc) {/* line */
  319.  
  320. --- 783,796 -----
  321.           if (flslvl==0) ifdone[trulvl++] = 1; else ++flslvl;
  322.   #else
  323.           newp=p;
  324. !         if (flslvl==0)
  325. !         {
  326. !             if (ifdone[trulvl] = yyparse())    /* DAG */
  327. !                 ++trulvl;
  328. !             else
  329. !                 ++flslvl;
  330. !         }
  331. !         else ++flslvl;
  332.           p=newp;
  333.   #endif
  334.       } else if (np==eliloc) {/* elif */    /* DAG -- added */
  335. ***************
  336. *** 753,758
  337.           if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  338.           p=newp;
  339.   #endif
  340.       } else if (np==lneloc) {/* line */
  341.           if (flslvl==0 && pflag==0) {
  342.               char *cp, *cp2, *savestring();
  343.  
  344. --- 793,839 -----
  345.           else ++flslvl;
  346.           p=newp;
  347.   #endif
  348. +     } else if (np==eliloc) {/* elif */    /* DAG -- added */
  349. + #if tgp
  350. +         pperror ( " ELIF not implemented, true assumed", (char *) 0, (char *) 0);
  351. +         if (flslvl)
  352. +         {
  353. +             if (--flslvl == 0 && !ifdeone[trulvl])
  354. +             {
  355. +                 ifdone[trulvl++] = 1;
  356. +                 sayline():
  357. +             }
  358. +             else
  359. +                 ++flslvl;
  360. +         }
  361. +         else if (trulvl)
  362. +         {
  363. +             ++flslvl;
  364. +             --trulvl;
  365. +         }
  366. +         else
  367. +             pperror ( "If-less elif"< (char *) 0, (char *) 0);
  368. + #else
  369. +         newp = p;
  370. +         if (flslvl)
  371. +         {
  372. +             if (--flslvl == 0 && !ifdone[trulvl] && yyparse())
  373. +             {
  374. +                 ifdone[trulvl++] = 1;
  375. +                 sayline();
  376. +             }
  377. +             else
  378. +                 ++flslvl;
  379. +         }
  380. +         else if (trulvl)
  381. +         {
  382. +             ++flslvl;
  383. +             --trulvl;
  384. +         }
  385. +         else
  386. +             pperror ("If-less elif", (char *) 0, (char *) 0);
  387. +         p = newp;
  388. + #endif
  389.       } else if (np==lneloc) {/* line */
  390.           if (flslvl==0 && pflag==0) {
  391.               char *cp, *cp2, *savestring();
  392. ***************
  393. *** 1067,1072
  394.                   case 'E': continue;
  395.                   case 'R': ++rflag; continue;
  396.                   case 'C': passcom++; continue;
  397.                   case 'D':
  398.                       if (predef>prespc+NPREDEF) {
  399.                           pperror("too many -D options, ignoring %s",argv[i]);
  400.  
  401. --- 1148,1154 -----
  402.                   case 'E': continue;
  403.                   case 'R': ++rflag; continue;
  404.                   case 'C': passcom++; continue;
  405. +                 case 'B': eolcom++; continue;
  406.                   case 'D':
  407.                       if (predef>prespc+NPREDEF) {
  408.                           pperror("too many -D options, ignoring %s",argv[i]);
  409. ***************
  410. *** 1141,1146
  411.       ifdloc=ppsym("ifdef");
  412.       ifnloc=ppsym("ifndef");
  413.       ifloc=ppsym("if");
  414.       lneloc=ppsym("line");
  415.       for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; ) macbit[i]=0;
  416.   # if unix
  417.  
  418. --- 1223,1229 -----
  419.       ifdloc=ppsym("ifdef");
  420.       ifnloc=ppsym("ifndef");
  421.       ifloc=ppsym("if");
  422. +     eliloc=ppsym("elif");
  423.       lneloc=ppsym("line");
  424.       for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; ) macbit[i]=0;
  425.   # if unix
  426.  
  427. -- 
  428. Arnold Robbins
  429. CSNET:    arnold@emory    BITNET:    arnold@emoryu1
  430. ARPA:    arnold%emory.csnet@csnet-relay.arpa
  431. UUCP:    { akgua, decvax, gatech, sb1, sb6, sunatl }!emory!arnold
  432.  
  433. "All this digital stuff is just a fad. Analog is the way to go."
  434.     -- William M. Robbins, 1984
  435.  
  436.  
  437.