2 Commits

Author SHA1 Message Date
a00e33176b Update bootstrap files. 2024-03-15 15:24:08 +00:00
72e2ca0e8e Give all functions a formal prototype.
This makes the code C89 compliant, and removes all warnings on macOS.
2024-03-15 15:24:02 +00:00
4 changed files with 15 additions and 15 deletions

View File

@@ -183,7 +183,7 @@ extern void write_files(Name *files);
#line 3889 "nuweb.w"
extern void source_open(char *name);
/* pass in the name of the source file */
extern int source_get(void);
extern int source_get(void);
/* no args; returns the next char or EOF */
extern int source_last; /* what last source_get() returned. */
extern int source_peek; /* The next character to get */
@@ -194,7 +194,7 @@ extern void source_ungetc(int*);
#line 4173 "nuweb.w"
extern void init_scraps(void);
extern int collect_scrap(void);
extern int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
extern int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
int global_indent, char *indent_chars,
char debug_flag, char tab_flag, char indent_flag,
unsigned char comment_flag, Arglist *inArgs,

View File

@@ -461,7 +461,7 @@ void write_tex(char *file_name, char *tex_name)
char * p = label_name;
while (c =
#line 2750 "nuweb.w"
source_get(), c != nw_char) /* Here is 151a-01 */
source_get(), c != nw_char) /* Here is 148c-01 */
*p++ = c;
*p = '\0';
c =
@@ -761,7 +761,7 @@ static void copy_scrap(FILE *file, int prefix, Name *name)
char * p = label_name;
while (c =
#line 2750 "nuweb.w"
source_get(), c != nw_char) /* Here is 151a-01 */
source_get(), c != nw_char) /* Here is 148c-01 */
*p++ = c;
*p = '\0';
c =

10
nuweb.w
View File

@@ -3888,7 +3888,7 @@ We need two routines to handle reading the source files.
@d Function pro...
@{extern void source_open(char *name);
/* pass in the name of the source file */
extern int source_get(void);
extern int source_get(void);
/* no args; returns the next char or EOF */
extern int source_last; /* what last source_get() returned. */
extern int source_peek; /* The next character to get */
@@ -4172,7 +4172,7 @@ int num_scraps(void)
@d Function pro...
@{extern void init_scraps(void);
extern int collect_scrap(void);
extern int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
extern int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
int global_indent, char *indent_chars,
char debug_flag, char tab_flag, char indent_flag,
unsigned char comment_flag, Arglist *inArgs,
@@ -4637,8 +4637,8 @@ a->next = next;@}
}@}
@o scraps.c -cc -d
@{int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
int global_indent, char *indent_chars, char debug_flag,
@{int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
int global_indent, char *indent_chars, char debug_flag,
char tab_flag, char indent_flag,
unsigned char comment_flag, Arglist *inArgs,
char *inParams[9], Parameters parameters, char *title)
@@ -4954,7 +4954,7 @@ comment_ArglistElement(FILE * file, Arglist * args, int quote)
@d Include an embedded scrap in comment
@{Embed_Node * e = (Embed_Node *)q;
fputc('{', file);
write_scraps(file, "", e->defs, -1, "", 0, 0, 0, 0, e->args, 0,
write_scraps(file, "", e->defs, -1, "", 0, 0, 0, 0, e->args, 0,
(Parameters)1, "");
fputc('}', file);@}

View File

@@ -60,7 +60,7 @@ comment_ArglistElement(FILE * file, Arglist * args, int quote)
#line 4955 "nuweb.w"
Embed_Node * e = (Embed_Node *)q;
fputc('{', file);
write_scraps(file, "", e->defs, -1, "", 0, 0, 0, 0, e->args, 0,
write_scraps(file, "", e->defs, -1, "", 0, 0, 0, 0, e->args, 0,
(Parameters)1, "");
fputc('}', file);
#line 4947 "nuweb.w"
@@ -408,7 +408,7 @@ int collect_scrap(void)
char * p = label_name;
while (c =
#line 4388 "nuweb.w"
source_get(), c != nw_char) /* Here is 151a-01 */
source_get(), c != nw_char) /* Here is 148c-01 */
*p++ = c;
*p = '\0';
c =
@@ -718,8 +718,8 @@ static Arglist *pop_scrap_name(Manager *manager, Parameters *parameters)
}
#line 4640 "nuweb.w"
int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
int global_indent, char *indent_chars, char debug_flag,
int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
int global_indent, char *indent_chars, char debug_flag,
char tab_flag, char indent_flag,
unsigned char comment_flag, Arglist *inArgs,
char *inParams[9], Parameters parameters, char *title)
@@ -1026,7 +1026,7 @@ int write_scraps(FILE *file, char *spelling, Scrap_Node *defs,
char * p = label_name;
while (c =
#line 4821 "nuweb.w"
pop(&reader), c != nw_char) /* Here is 151a-01 */
pop(&reader), c != nw_char) /* Here is 148c-01 */
*p++ = c;
*p = '\0';
c =
@@ -2059,7 +2059,7 @@ static int reject_match(Name *name, char post, ArgManager *reader)
if (sym_char(first) && sym_char(prev)) return TRUE;
if (op_char(last) && op_char(post)) return TRUE;
if (op_char(first) && op_char(prev)) return TRUE;
return FALSE; /* Here is 150b-01 */
return FALSE; /* Here is 148b-01 */
}
#line 6407 "nuweb.w"