home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / pascal / PTC / _PtC1 / ansi-patch next >
Encoding:
Text File  |  1991-04-25  |  2.5 KB  |  89 lines
  1. *** $.gtoal.ansii_pcc.c.toansi Thu Jul 13 15:13:52 1989
  2. --- c.toansip                  Thu Jul 13 15:13:52 1989
  3. ***************
  4. *** 41,46 ****
  5. --- 41,48 ----
  6.   #define  HEADER_BRKLEN    72
  7.   #define  DEPTH_STACKSZ    50
  8.   
  9. + static char cur_hdr[256];
  10. + 
  11.   static FILE *in_file, *out_file;
  12.   
  13.   static int next_ch, copied_line_len, line_no, brace_depth, depth_sp;
  14. ***************
  15. *** 145,150 ****
  16. --- 147,165 ----
  17.       if (brace_depth != temp)
  18.         errf("confused by mismatched, conditionally included braces...\n");
  19.     }
  20. +   else if (strcmp(pp, "ptcheader") == 0)
  21. +   {
  22. +     lookaside = NULL;
  23. +     fprintf(out_file, "#include \"%s\"\n", cur_hdr);
  24. + #ifdef NEVER
  25. +     if ((strcmp(cur_hdr, "PTC.h") == 0) || (strcmp(cur_hdr, "PTCPAS.h") == 0)) {
  26. +       fprintf(out_file, "#include \"argvgt.h\"\n");
  27. +       fprintf(out_file, "#include \"fopen.h\"\n");
  28. +       fprintf(out_file, "#include \"getl.h\"\n");
  29. +       fprintf(out_file, "#include \"ptcerror.h\"\n");
  30. +     }
  31. + #endif
  32. +   }
  33.   }
  34.   
  35.   static int get_tokch(int ch)
  36. ***************
  37. *** 164,173 ****
  38. --- 179,194 ----
  39.           /* pre-processor directive */
  40.           int j = 0, last_ch;
  41.           char pp[ID_MAX];
  42. +         lookaside = lookaside_buf;
  43.           ch = skip1_blanks(ch);
  44.           do {pp[j++] = ch;  ch = getch(ch);} while (char_class[ch] & ID_CL);
  45.           pp[j] = 0;
  46.           pp_directive(pp);
  47. +         if (lookaside != NULL) {
  48. +           *lookaside = '\0';
  49. +           fputs(lookaside_buf, out_file);
  50. +           lookaside = NULL;
  51. +         }
  52.           last_ch = 0;
  53.           while ((ch != '\n' || last_ch == '\\') && ch != EOF)
  54.             last_ch = ch, ch = getch(ch);
  55. ***************
  56. *** 674,681 ****
  57.     if (in_file == NULL)
  58.     { in_file = stdin;
  59.       cur_name = "<stdin>";
  60.     }
  61. !   else cur_name = in_name;
  62.   
  63.     if (out_name) out_file = fopen(out_name, "w");
  64.     else out_file = NULL;
  65. --- 695,717 ----
  66.     if (in_file == NULL)
  67.     { in_file = stdin;
  68.       cur_name = "<stdin>";
  69. +     cur_hdr[0] = '\0';
  70. +   }
  71. +   else
  72. +   {  char *cp;
  73. +      char leaf[256];
  74. +      cur_name = in_name;
  75. +      strcpy(cur_hdr, cur_name);
  76. +      cp = strrchr(cur_hdr, '.');
  77. +      if (cp == NULL) errf("cannot generate header file for %s", cur_name);
  78. +      strcpy(leaf, cp+1);
  79. +      cp -= 2;
  80. +      if (!(cp[0] == '.' && tolower(cp[1]) == 'c'))
  81. +        errf("cannot generate header file for %s", cur_name);
  82. +      sprintf(cur_hdr, "%s.h", leaf);
  83.     }
  84. ! 
  85. ! 
  86.   
  87.     if (out_name) out_file = fopen(out_name, "w");
  88.     else out_file = NULL;
  89.