home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / MPW / MPW noweb 2.7 / src / c / notangle.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-30  |  5.3 KB  |  190 lines  |  [TEXT/MPS ]
  1. #line 18 "notangle.nw"
  2. #define MAX_MODNAME 255
  3. #line 21 "notangle.nw"
  4. #include <stdio.h>
  5. #include <string.h>
  6. #include <stdlib.h>
  7. #include <ctype.h>
  8. #include "strsave.h"
  9. #include "getline.h"
  10. #include "modules.h"
  11. #include "modtrees.h"
  12. #include "errors.h"
  13. #include "match.h"
  14. #include "notangle.h"
  15.  
  16. #line 165 "notangle.nw"
  17. static void warn_dots(char *modname);          /* warn about names ending in ... */
  18.  
  19. #line 185 "notangle.nw"
  20. void insist(char *line, char *keyword, char *msg);
  21.  
  22. #line 35 "notangle.nw"
  23. void notangle (FILE* in, FILE *out, char *rootname, char *locformat) {
  24.     Module root = NULL; /* ptr to root module */
  25.  
  26.     read_defs(in);              /* read all the definitions */
  27.  
  28.     apply_each_module(remove_final_newline);
  29.                                 /* pretty up the module texts */
  30.  
  31.     root = lookup(rootname);
  32.     
  33. #line 169 "notangle.nw"
  34. if (root==NULL) {
  35.     errormsg(Fatal, "The root module <<%s>> was not defined.", rootname);
  36.     return;
  37. }
  38. #line 45 "notangle.nw"
  39.     (void) expand(root,0,0,0,locformat,out);
  40.     putc('\n',out);                     /* make output end with newline */
  41. }
  42. #line 60 "notangle.nw"
  43. void read_defs(FILE *in) {
  44.     char modname[MAX_MODNAME+1] = ""; /* name of module currently being read, 
  45.                                          [[""]] if no module is being read */ 
  46.     Module modptr = NULL;       /* ptr to current module, or NULL */
  47.     char *line = NULL;          /* buffer for input */
  48.     Location loc;
  49.  
  50.     while ((line = getline(in)) != NULL) {
  51.         
  52. #line 104 "notangle.nw"
  53. if (is_keyword(line, "nl") || is_index(line, "nl")) {
  54.     loc.lineno++;
  55. #line 116 "notangle.nw"
  56. } else if (is_keyword(line,"file")) {
  57.     
  58. #line 129 "notangle.nw"
  59. { char temp[MAX_MODNAME+1];
  60.   if (strlen(line) >= MAX_MODNAME + strlen("@file "))
  61.     overflow("file name size");
  62.   strcpy(temp,line+strlen("@file "));
  63.   temp[strlen(temp)-1]='\0';
  64.   loc.filename = strsave(temp);
  65. }
  66. #line 118 "notangle.nw"
  67.     loc.lineno = 1;
  68. } else if (is_keyword(line, "line")) {
  69.     
  70. #line 137 "notangle.nw"
  71. { char temp[MAX_MODNAME+1];
  72.   if (strlen(line) >= MAX_MODNAME + strlen("@line "))
  73.     overflow("file name size");
  74.   strcpy(temp,line+strlen("@line "));
  75.   temp[strlen(temp)-1]='\0';
  76.   
  77. #line 146 "notangle.nw"
  78. { char *p;
  79.   for (p = temp; *p; p++)
  80.     if (!isdigit(*p)) 
  81.       errormsg(Error, "non-numeric line number in `@line %s'", temp);
  82. }
  83. #line 143 "notangle.nw"
  84.   loc.lineno = atoi(temp);
  85. }
  86. #line 121 "notangle.nw"
  87.     loc.lineno--;
  88. #line 107 "notangle.nw"
  89. } 
  90. if (!is_begin(line, "code"))
  91.     continue;
  92. #line 69 "notangle.nw"
  93.         
  94. #line 100 "notangle.nw"
  95. do { line = getline(in);
  96. } while (line != NULL && !is_keyword(line,"defn") && !is_keyword(line,"text"));
  97. #line 70 "notangle.nw"
  98.         insist(line,"defn","code chunk had no definition line");
  99.         
  100. #line 126 "notangle.nw"
  101. strcpy(modname,line+strlen("@defn "));
  102. modname[strlen(modname)-1]='\0';
  103. #line 72 "notangle.nw"
  104.         warn_dots(modname);       /* names ending in ... aren't like web */
  105.         modptr = insert(modname); /* find or add module in table */
  106.  
  107.         line = getline(in);
  108.         insist(line,"nl","definition line not followed by newline");
  109.         loc.lineno++;
  110.         line = getline(in);
  111.         while (line != NULL && !is_end(line,"code")) {
  112.             if (is_keyword(line,"nl")) {
  113.                 addnewline(modptr);
  114.                 loc.lineno++;
  115.             } else if (is_keyword(line,"text")) {
  116.                 addstring(modptr,line+1+4+1,loc);
  117.             } else if (is_keyword(line,"use")) {
  118.                 warn_dots(line+1+3+5);
  119.                 addmodule(modptr,line+1+3+1);
  120.             } else if (is_index(line, "nl")) {
  121.                 loc.lineno++;
  122.             
  123. #line 116 "notangle.nw"
  124. } else if (is_keyword(line,"file")) {
  125.     
  126. #line 129 "notangle.nw"
  127. { char temp[MAX_MODNAME+1];
  128.   if (strlen(line) >= MAX_MODNAME + strlen("@file "))
  129.     overflow("file name size");
  130.   strcpy(temp,line+strlen("@file "));
  131.   temp[strlen(temp)-1]='\0';
  132.   loc.filename = strsave(temp);
  133. }
  134. #line 118 "notangle.nw"
  135.     loc.lineno = 1;
  136. } else if (is_keyword(line, "line")) {
  137.     
  138. #line 137 "notangle.nw"
  139. { char temp[MAX_MODNAME+1];
  140.   if (strlen(line) >= MAX_MODNAME + strlen("@line "))
  141.     overflow("file name size");
  142.   strcpy(temp,line+strlen("@line "));
  143.   temp[strlen(temp)-1]='\0';
  144.   
  145. #line 146 "notangle.nw"
  146. { char *p;
  147.   for (p = temp; *p; p++)
  148.     if (!isdigit(*p)) 
  149.       errormsg(Error, "non-numeric line number in `@line %s'", temp);
  150. }
  151. #line 143 "notangle.nw"
  152.   loc.lineno = atoi(temp);
  153. }
  154. #line 121 "notangle.nw"
  155.     loc.lineno--;
  156. #line 91 "notangle.nw"
  157.             } else if (!is_keyword(line, "index"))
  158.                 
  159. #line 187 "notangle.nw"
  160. errorat(loc.filename, loc.lineno, Error, "botched code chunk `%s'", line);
  161. #line 93 "notangle.nw"
  162.             line = getline(in);
  163.         }
  164.         
  165. #line 181 "notangle.nw"
  166. if (line==NULL) {
  167.     impossible("End of file occurred in mid-module");
  168. }
  169. #line 96 "notangle.nw"
  170.     }
  171. }
  172. #line 157 "notangle.nw"
  173. static
  174. void warn_dots(char *modname) {
  175.   if (!strcmp(modname+strlen(modname)-3,"...")) 
  176.     errormsg(Warning, "Module name <<%s>> isn't completed as in web", 
  177.              modname);
  178. }
  179. #line 174 "notangle.nw"
  180. void insist(char *line, char *keyword, char *msg) {
  181.   
  182. #line 181 "notangle.nw"
  183. if (line==NULL) {
  184.     impossible("End of file occurred in mid-module");
  185. }
  186. #line 176 "notangle.nw"
  187.   if (!is_keyword(line,keyword))
  188.     impossible(msg);
  189. }
  190.