home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume7 / 4.3cpp.patch next >
Encoding:
Internet Message Format  |  1986-11-30  |  8.5 KB
  1. Subject:  v07i023:  #elif patch to 4.3BSD cpp
  2. Newsgroups: mod.sources
  3. Approved: mirror!rs
  4.  
  5. Submitted by: linus!gatech!emoryu1!emoryu2!arnold (Arnold D. Robbins)
  6. Mod.sources: Volume 7, Issue 23
  7. Archive-name: 4.3cpp.patch
  8.  
  9. [  This is a modification of the V6#44 cpp.patch for 4.3BSD.  --r$  ]
  10.  
  11. Basically, with these patches are installed, /lib/cpp gains two new
  12. capabilities: The #elif found in recent versions of System V and in the
  13. draft ANSI standard, and the ability to recognize C++ // comments,
  14. which start with the // delimiter, and go to the end of the line.
  15.  
  16. #elif is automatic: it is fast becoming a standard C feature, and I
  17. feel that everyone would want it. // comments require that the new -B
  18. option be given, for their recognition to be turned on. Sites with C++
  19. should modify their CC shell script to call /lib/cpp with this option.
  20. (I chose -B as sort of mnemonic for the BCPL programming language, from
  21. which // was re-instituted.)
  22.  
  23. Credits: Doug Gwyn of BRL implemented #elif for his System V emulation;
  24. however I typed it in to make the "style" consistent; all typos are
  25. mine. I wrote the // processing code. Enjoy.
  26.  
  27. Unpack this file and feed it to patch while in a cpp source directory,
  28. then run make / "make install".
  29.  
  30. --------------------CUT HERE--------------------
  31. *** cpp.c.orig    Mon Aug 11 17:58:06 1986
  32. --- cpp.c    Mon Aug 11 17:50:28 1986
  33. ***************
  34. *** 1,4 ****
  35. --- 1,24 ----
  36.   #ifndef lint
  37. + static char *RCSid = "$Header: cpp.c,v 1.3 86/08/11 17:49:38 root Locked $";
  38. + #endif
  39. + 
  40. + /*
  41. +  * $Log:    cpp.c,v $
  42. +  * Revision 1.3  86/08/11  17:49:38  root
  43. +  * Bug fix to #elif stuff due to a typo. Fixed new code to call sayline()
  44. +  * with an argument. ADR.
  45. +  * 
  46. +  * Revision 1.2  86/08/07  17:55:56  root
  47. +  * Added Doug Gwyn's code to handle #elif. This is always on. Also
  48. +  * added my code that takes a -B option, to recognize C++ // ... \n
  49. +  * style of comments. ADR.
  50. +  * 
  51. +  * Revision 1.1  86/08/07  16:15:52  root
  52. +  * Initial revision
  53. +  * 
  54. +  */
  55. + 
  56. + #ifndef lint
  57.   static char sccsid[] = "@(#)cpp.c    1.14 4/27/86";
  58.   #endif lint
  59.   
  60. ***************
  61. *** 153,158 ****
  62. --- 173,179 ----
  63.   STATIC    int    nd    = 1;
  64.   STATIC    int    pflag;    /* don't put out lines "# 12 foo.c" */
  65.   int    passcom;    /* don't delete comments */
  66. + int    eolcom;        /* allow // ... \n comments */
  67.   int    incomment;    /* True if parsing a comment */
  68.   STATIC    int rflag;    /* allow macro recursion */
  69.   STATIC    int mflag;    /* generate makefile dependencies */
  70. ***************
  71. *** 192,197 ****
  72. --- 213,219 ----
  73.   STATIC    struct symtab *udfloc;
  74.   STATIC    struct symtab *incloc;
  75.   STATIC    struct symtab *ifloc;
  76. + STATIC    struct symtab *eliloc;        /* DAG -- added */
  77.   STATIC    struct symtab *elsloc;
  78.   STATIC    struct symtab *eifloc;
  79.   STATIC    struct symtab *ifdloc;
  80. ***************
  81. *** 204,209 ****
  82. --- 226,233 ----
  83.   STATIC    struct symtab *identloc;    /* Sys 5r3 compatibility */
  84.   STATIC    int    trulvl;
  85.   STATIC    int    flslvl;
  86. + #define MAX_IF_NESTING    64        /* DAG -- added (must be at least6) */
  87. + STATIC    int    ifdone[MAX_IF_NESTING];    /* DAG -- added */
  88.   
  89.   sayline(where)
  90.       int where;
  91. ***************
  92. *** 393,402 ****
  93.           else {++p; break;}
  94.       } break;
  95.       case '/': for (;;) {
  96. !         if (*p++=='*') {/* comment */
  97.               incomment++;
  98.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  99.               for (;;) {
  100.                   while (!iscom(*p++));
  101.                   if (p[-1]=='*') for (;;) {
  102.                       if (*p++=='/') goto endcom;
  103. --- 417,448 ----
  104.           else {++p; break;}
  105.       } break;
  106.       case '/': for (;;) {
  107. !         if (*p=='/' && eolcom) {
  108. !             p++;
  109.               incomment++;
  110.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  111.               for (;;) {
  112. +                 while (*p && *p++ != '\n');
  113. +                 if (p[-1]=='\n') {
  114. +                     p--;
  115. +                     goto endcpluscom;
  116. +                 } else if (eob(--p)) {
  117. +                     if(!passcom) {inp=p; p=refill(p);}
  118. +                     else if ((p-inp) >= BUFSIZ) {/* split long comment */
  119. +                         inp=p; refill(p);
  120. +                     } else p=refill(p);
  121. +                 } else ++p; /* ignore null byte */
  122. +             }
  123. +         endcpluscom:
  124. +             if (!passcom) {outp=inp=p; --flslvl;}
  125. +             incomment--;
  126. +             goto newline;
  127. +             break;
  128. +         }
  129. +         else if (*p++=='*') {/* comment */
  130. +             incomment++;
  131. +             if (!passcom) {inp=p-2; dump(); ++flslvl;}
  132. +             for (;;) {
  133.                   while (!iscom(*p++));
  134.                   if (p[-1]=='*') for (;;) {
  135.                       if (*p++=='/') goto endcom;
  136. ***************
  137. *** 446,451 ****
  138. --- 492,498 ----
  139.           }
  140.       } break;
  141.       case '\n': {
  142. + newline:
  143.           ++lineno[ifno]; if (isslo) {state=LF; return(p);}
  144.   prevlf:
  145.           state=BEG;
  146. ***************
  147. *** 746,752 ****
  148.   #define fasscan() ptrtab=fastab+COFF
  149.   #define sloscan() ptrtab=slotab+COFF
  150.   
  151. ! char *
  152.   control(p) register char *p; {/* find and handle preprocessor control lines */
  153.       register struct symtab *np;
  154.   for (;;) {
  155. --- 793,799 ----
  156.   #define fasscan() ptrtab=fastab+COFF
  157.   #define sloscan() ptrtab=slotab+COFF
  158.   
  159. ! void    /* DAG -- bug fix (was (char *)) */
  160.   control(p) register char *p; {/* find and handle preprocessor control lines */
  161.       register struct symtab *np;
  162.   for (;;) {
  163. ***************
  164. *** 759,777 ****
  165.           if (flslvl==0) {p=doincl(p); continue;}
  166.       } else if (np==ifnloc) {/* ifndef */
  167.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  168. !         if (flslvl==0 && np->value==0) ++trulvl;
  169.           else ++flslvl;
  170.       } else if (np==ifdloc) {/* ifdef */
  171.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  172. !         if (flslvl==0 && np->value!=0) ++trulvl;
  173.           else ++flslvl;
  174.       } else if (np==eifloc) {/* endif */
  175.           if (flslvl) {if (--flslvl==0) sayline(CONT);}
  176. !         else if (trulvl) --trulvl;
  177.           else pperror("If-less endif",0);
  178.       } else if (np==elsloc) {/* else */
  179.           if (flslvl) {
  180. !             if (--flslvl!=0) ++flslvl;
  181.               else {++trulvl; sayline(CONT);}
  182.           }
  183.           else if (trulvl) {++flslvl; --trulvl;}
  184. --- 806,832 ----
  185.           if (flslvl==0) {p=doincl(p); continue;}
  186.       } else if (np==ifnloc) {/* ifndef */
  187.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  188. !         if (flslvl==0)
  189. !             if(ifdone[trulvl] = np->value==0)
  190. !                 ++trulvl;
  191. !             else
  192. !                 ++flslvl;
  193.           else ++flslvl;
  194.       } else if (np==ifdloc) {/* ifdef */
  195.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  196. !         if (flslvl==0)
  197. !             if (ifdone[trulvl] = np->value!=0)
  198. !                 ++trulvl;
  199. !             else
  200. !                 ++flslvl;
  201.           else ++flslvl;
  202.       } else if (np==eifloc) {/* endif */
  203.           if (flslvl) {if (--flslvl==0) sayline(CONT);}
  204. !         else if (trulvl) ifdone[--trulvl] = 0;    /* DAG */
  205.           else pperror("If-less endif",0);
  206.       } else if (np==elsloc) {/* else */
  207.           if (flslvl) {
  208. !             if (--flslvl!=0 || ifdone[trulvl]) ++flslvl;
  209.               else {++trulvl; sayline(CONT);}
  210.           }
  211.           else if (trulvl) {++flslvl; --trulvl;}
  212. ***************
  213. *** 783,794 ****
  214.       } else if (np==ifloc) {/* if */
  215.   #if tgp
  216.           pperror(" IF not implemented, true assumed", 0);
  217. !         if (flslvl==0) ++trulvl; else ++flslvl;
  218.   #else
  219.           newp=p;
  220. !         if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  221.           p=newp;
  222.   #endif
  223.       } else if (np==lneloc) {/* line */
  224.           if (flslvl==0 && pflag==0) {
  225.               char *savestring();
  226. --- 838,897 ----
  227.       } else if (np==ifloc) {/* if */
  228.   #if tgp
  229.           pperror(" IF not implemented, true assumed", 0);
  230. !         if (flslvl==0) ifdone[trulvl++] = 1; else ++flslvl;
  231.   #else
  232.           newp=p;
  233. !         if (flslvl==0)
  234. !         {
  235. !             if (ifdone[trulvl] = yyparse())    /* DAG */
  236. !                 ++trulvl;
  237. !             else
  238. !                 ++flslvl;
  239. !         }
  240. !         else ++flslvl;
  241.           p=newp;
  242.   #endif
  243. +     } else if (np==eliloc) {/* elif */    /* DAG -- added */
  244. + #if tgp
  245. +         pperror (" ELIF not implemented, true assumed", (char *) 0, (char *) 0);
  246. +         if (flslvl)
  247. +         {
  248. +             if (--flslvl == 0 && !ifdone[trulvl])
  249. +             {
  250. +                 ifdone[trulvl++] = 1;
  251. +                 sayline (CONT);
  252. +             }
  253. +             else
  254. +                 ++flslvl;
  255. +         }
  256. +         else if (trulvl)
  257. +         {
  258. +             ++flslvl;
  259. +             --trulvl;
  260. +         }
  261. +         else
  262. +             pperror ( "If-less elif", (char *) 0, (char *) 0);
  263. + #else
  264. +         newp = p;
  265. +         if (flslvl)
  266. +         {
  267. +             if (--flslvl == 0 && !ifdone[trulvl] && yyparse ())
  268. +             {
  269. +                 ifdone[trulvl++] = 1;
  270. +                 sayline (CONT);
  271. +             }
  272. +             else
  273. +                 ++flslvl;
  274. +         }
  275. +         else if (trulvl)
  276. +         {
  277. +             ++flslvl;
  278. +             --trulvl;
  279. +         }
  280. +         else
  281. +             pperror ( "If-less elif", (char *) 0, (char *) 0);
  282. +         p = newp;
  283. + #endif
  284.       } else if (np==lneloc) {/* line */
  285.           if (flslvl==0 && pflag==0) {
  286.               char *savestring();
  287. ***************
  288. *** 1137,1142 ****
  289. --- 1240,1246 ----
  290.                   case 'E': continue;
  291.                   case 'R': ++rflag; continue;
  292.                   case 'C': passcom++; continue;
  293. +                 case 'B': eolcom++; continue;
  294.                   case 'D':
  295.                       if (predef>prespc+NPREDEF) {
  296.                           pperror("too many -D options, ignoring %s",argv[i]);
  297. ***************
  298. *** 1235,1240 ****
  299. --- 1339,1345 ----
  300.       ifdloc=ppsym("ifdef");
  301.       ifnloc=ppsym("ifndef");
  302.       ifloc=ppsym("if");
  303. +     eliloc=ppsym("elif");
  304.       lneloc=ppsym("line");
  305.       identloc=ppsym("ident");    /* Sys 5r3 compatibility */
  306.       for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; ) macbit[i]=0;
  307.