home *** CD-ROM | disk | FTP | other *** search
/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / c / Docs / cxref-1.4a.lha / cpp / cccp.c.diff < prev    next >
Encoding:
Text File  |  1997-07-05  |  5.0 KB  |  162 lines
  1. *** cccp.c    1997/04/25 18:13:41    1.1
  2. --- cccp.c    1997/05/26 15:11:14    1.4
  3. ***************
  4. *** 3,8 ****
  5. --- 3,12 ----
  6.      Written by Paul Rubin, June 1986
  7.      Adapted to ANSI C, Richard Stallman, Jan 1987
  8.   
  9. +    Modified by Andrew M. Bishop to provide better input to
  10. +    C documentation program `cxref' 1995,1996.
  11. +    All AMB hacks are indicated as such in the code (grep AMB).
  12. + 
  13.   This program is free software; you can redistribute it and/or modify it
  14.   under the terms of the GNU General Public License as published by the
  15.   Free Software Foundation; either version 2, or (at your option) any
  16. ***************
  17. *** 406,411 ****
  18. --- 410,425 ----
  19.   static enum {dump_none, dump_only, dump_names, dump_definitions}
  20.        dump_macros = dump_none;
  21.   
  22. + /* Start new option added by AMB */
  23. + 
  24. + /* Nonzero means that the #include lines are to be passed through to
  25. +    output.
  26. + */
  27. + 
  28. + static int dump_includes = 0;
  29. + 
  30. + /* End new option added by AMB */
  31. + 
  32.   /* Nonzero means pass all #define and #undef directives which we actually
  33.      process through to the output stream.  This feature is used primarily
  34.      to allow cc1 to record the #defines and #undefs for the sake of
  35. ***************
  36. *** 964,970 ****
  37.   /* Here is the actual list of #-directives, most-often-used first.  */
  38.   
  39.   static struct directive directive_table[] = {
  40. !   {  6, do_define, "define", T_DEFINE, 0, 1},
  41.     {  2, do_if, "if", T_IF},
  42.     {  5, do_xifdef, "ifdef", T_IFDEF},
  43.     {  6, do_xifdef, "ifndef", T_IFNDEF},
  44. --- 978,984 ----
  45.   /* Here is the actual list of #-directives, most-often-used first.  */
  46.   
  47.   static struct directive directive_table[] = {
  48. !   {  6, do_define, "define", T_DEFINE, 0, 1, 1}, /* The last 1 is in future cccp.c added by AMB. */
  49.     {  2, do_if, "if", T_IF},
  50.     {  5, do_xifdef, "ifdef", T_IFDEF},
  51.     {  6, do_xifdef, "ifndef", T_IFNDEF},
  52. ***************
  53. *** 1355,1360 ****
  54. --- 1369,1377 ----
  55.     no_line_directives = 0;
  56.     no_trigraphs = 1;
  57.     dump_macros = dump_none;
  58. + /* Start new option added by AMB */
  59. +   dump_includes = 0;
  60. + /* End new option added by AMB */
  61.     no_output = 0;
  62.     cplusplus = 0;
  63.     cplusplus_comments = 1;
  64. ***************
  65. *** 1666,1671 ****
  66. --- 1683,1693 ----
  67.           case 'D':
  68.             dump_macros = dump_definitions;
  69.             break;
  70. + /* Start new option added by AMB */
  71. +         case 'I':
  72. +           dump_includes = 1;
  73. +           break;
  74. + /* End new option added by AMB */
  75.           }
  76.         }
  77.       }
  78. ***************
  79. *** 3841,3850 ****
  80.           bp = ip->bufp;
  81.           /* No need to copy the directive because of a comment at the end;
  82.              just don't include the comment in the directive.  */
  83. !         if (bp == limit || *bp == '\n') {
  84. !           bp = obp;
  85. !           goto endloop1;
  86.           }
  87.           /* Don't remove the comments if -traditional.  */
  88.           if (! keep_comments)
  89.             copy_directive++;
  90. --- 3863,3879 ----
  91.           bp = ip->bufp;
  92.           /* No need to copy the directive because of a comment at the end;
  93.              just don't include the comment in the directive.  */
  94. ! /* Start of code from future cccp.c added by AMB */
  95. !         if (!put_out_comments) {
  96. !           U_CHAR *p;
  97. !           for (p = bp;  *p == ' ' || *p == '\t';  p++)
  98. !         continue;
  99. !           if (*p == '\n') {
  100. !         bp = obp;
  101. !         goto endloop1;
  102. !           }
  103.           }
  104. + /* End of code from future cccp.c added by AMB */
  105.           /* Don't remove the comments if -traditional.  */
  106.           if (! keep_comments)
  107.             copy_directive++;
  108. ***************
  109. *** 3874,3880 ****
  110.   
  111.         /* If a directive should be copied through, and -E was given,
  112.        pass it through before removing comments.  */
  113. !       if (!no_output && kt->pass_thru && put_out_comments) {
  114.           int len;
  115.   
  116.       /* Output directive name.  */
  117. --- 3903,3912 ----
  118.   
  119.         /* If a directive should be copied through, and -E was given,
  120.        pass it through before removing comments.  */
  121. !       if (!no_output && put_out_comments &&
  122. ! /* Start new option added by AMB */
  123. !           (kt->pass_thru || (kt->type == T_INCLUDE && dump_includes))) {
  124. ! /* End new option added by AMB */
  125.           int len;
  126.   
  127.       /* Output directive name.  */
  128. ***************
  129. *** 4002,4007 ****
  130. --- 4034,4043 ----
  131.   
  132.         if (!no_output && already_output == 0
  133.         && (kt->pass_thru
  134. + /* Start new option added by AMB */
  135. +           || (kt->type == T_INCLUDE
  136. +           && dump_includes)
  137. + /* End new option added by AMB */
  138.             || (kt->type == T_DEFINE
  139.             && (dump_macros == dump_names
  140.                 || dump_macros == dump_definitions)))) {
  141. ***************
  142. *** 4013,4019 ****
  143.           bcopy (kt->name, (char *) op->bufp, kt->length);
  144.           op->bufp += kt->length;
  145.   
  146. !     if (kt->pass_thru || dump_macros == dump_definitions) {
  147.         /* Output arguments.  */
  148.         len = (cp - buf);
  149.         check_expand (op, len);
  150. --- 4049,4059 ----
  151.           bcopy (kt->name, (char *) op->bufp, kt->length);
  152.           op->bufp += kt->length;
  153.   
  154. !     if (kt->pass_thru || dump_macros == dump_definitions
  155. ! /* Start new option added by AMB */
  156. !           || dump_includes
  157. ! /* End new option added by AMB */
  158. !             ) {
  159.         /* Output arguments.  */
  160.         len = (cp - buf);
  161.         check_expand (op, len);
  162.