Initial import of nuweb-1.62
This is just the following tarball expanded: https://sourceforge.net/projects/nuweb/files/nuweb-1.62.tar.gz/download
This commit is contained in:
234
pass1.c
Normal file
234
pass1.c
Normal file
@@ -0,0 +1,234 @@
|
||||
#include "global.h"
|
||||
void pass1(file_name)
|
||||
char *file_name;
|
||||
{
|
||||
if (verbose_flag)
|
||||
fprintf(stderr, "reading %s\n", file_name);
|
||||
source_open(file_name);
|
||||
init_scraps();
|
||||
macro_names = NULL;
|
||||
file_names = NULL;
|
||||
user_names = NULL;
|
||||
/* Scan the source file, looking for at-sequences */
|
||||
{
|
||||
int c = source_get();
|
||||
while (c != EOF) {
|
||||
if (c == nw_char)
|
||||
/* Scan at-sequence */
|
||||
{
|
||||
char quoted = 0;
|
||||
|
||||
c = source_get();
|
||||
switch (c) {
|
||||
case 'r':
|
||||
c = source_get();
|
||||
nw_char = c;
|
||||
update_delimit_scrap();
|
||||
break;
|
||||
case 'O':
|
||||
case 'o': {
|
||||
Name *name = collect_file_name(); /* returns a pointer to the name entry */
|
||||
int scrap = collect_scrap(); /* returns an index to the scrap */
|
||||
/* Add \verb|scrap| to \verb|name|'s definition list */
|
||||
{
|
||||
Scrap_Node *def = (Scrap_Node *) arena_getmem(sizeof(Scrap_Node));
|
||||
def->scrap = scrap;
|
||||
def->quoted = quoted;
|
||||
def->next = name->defs;
|
||||
name->defs = def;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'Q':
|
||||
case 'q': quoted = 1;
|
||||
case 'D':
|
||||
case 'd': {
|
||||
Name *name = collect_macro_name();
|
||||
int scrap = collect_scrap();
|
||||
/* Add \verb|scrap| to \verb|name|'s definition list */
|
||||
{
|
||||
Scrap_Node *def = (Scrap_Node *) arena_getmem(sizeof(Scrap_Node));
|
||||
def->scrap = scrap;
|
||||
def->quoted = quoted;
|
||||
def->next = name->defs;
|
||||
name->defs = def;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 's':
|
||||
/* Step to next sector */
|
||||
|
||||
prev_sector += 1;
|
||||
current_sector = prev_sector;
|
||||
c = source_get();
|
||||
|
||||
break;
|
||||
case 'S':
|
||||
/* Close the current sector */
|
||||
current_sector = 1;
|
||||
c = source_get();
|
||||
|
||||
break;
|
||||
case '<':
|
||||
case '(':
|
||||
case '[':
|
||||
case '{':
|
||||
{
|
||||
int c;
|
||||
int depth = 1;
|
||||
while ((c = source_get()) != EOF) {
|
||||
if (c == nw_char)
|
||||
/* Skip over at-sign or go to skipped */
|
||||
|
||||
{
|
||||
c = source_get();
|
||||
switch (c) {
|
||||
case '{': case '[': case '(': case '<':
|
||||
depth += 1;
|
||||
break;
|
||||
case '}': case ']': case ')': case '>':
|
||||
if (--depth == 0)
|
||||
goto skipped;
|
||||
case 'x': case '|': case ',':
|
||||
case '%': case '1': case '2':
|
||||
case '3': case '4': case '5': case '6':
|
||||
case '7': case '8': case '9': case '_':
|
||||
case 'f': case '#': case '+': case '-':
|
||||
case 'v': case '*': case 'c': case '\'':
|
||||
case 's':
|
||||
break;
|
||||
default:
|
||||
if (c != nw_char) {
|
||||
fprintf(stderr, "%s: unexpected %c%c in text at (%s, %d)\n",
|
||||
command_name, nw_char, c, source_name, source_line);
|
||||
exit(-1);
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
fprintf(stderr, "%s: unexpected EOF in text at (%s, %d)\n",
|
||||
command_name, source_name, source_line);
|
||||
exit(-1);
|
||||
|
||||
skipped: ;
|
||||
}
|
||||
|
||||
break;
|
||||
case 'c': {
|
||||
char * p = blockBuff;
|
||||
char * e = blockBuff + (sizeof(blockBuff)/sizeof(blockBuff[0])) - 1;
|
||||
|
||||
/* Skip whitespace */
|
||||
while (source_peek == ' '
|
||||
|| source_peek == '\t'
|
||||
|| source_peek == '\n')
|
||||
(void)source_get();
|
||||
|
||||
while (p < e)
|
||||
{
|
||||
/* Add one char to the block buffer */
|
||||
int c = source_get();
|
||||
|
||||
if (c == nw_char)
|
||||
{
|
||||
/* Add an at character to the block or break */
|
||||
int cc = source_peek;
|
||||
|
||||
if (cc == 'c')
|
||||
{
|
||||
do
|
||||
c = source_get();
|
||||
while (c <= ' ');
|
||||
|
||||
break;
|
||||
}
|
||||
else if (cc == 'd'
|
||||
|| cc == 'D'
|
||||
|| cc == 'q'
|
||||
|| cc == 'Q'
|
||||
|| cc == 'o'
|
||||
|| cc == 'O'
|
||||
|| cc == EOF)
|
||||
{
|
||||
source_ungetc(&c);
|
||||
break;
|
||||
}
|
||||
else
|
||||
{
|
||||
*p++ = c;
|
||||
*p++ = source_get();
|
||||
}
|
||||
|
||||
}
|
||||
else if (c == EOF)
|
||||
{
|
||||
source_ungetc(&c);
|
||||
break;
|
||||
}
|
||||
else
|
||||
{
|
||||
/* Add any other character to the block */
|
||||
|
||||
/* Perhaps skip white-space */
|
||||
if (c == ' ')
|
||||
{
|
||||
while (source_peek == ' ')
|
||||
c = source_get();
|
||||
}
|
||||
if (c == '\n')
|
||||
{
|
||||
if (source_peek == '\n')
|
||||
{
|
||||
do
|
||||
c = source_get();
|
||||
while (source_peek == '\n');
|
||||
}
|
||||
else
|
||||
c = ' ';
|
||||
}
|
||||
|
||||
*p++ = c;
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
if (p == e)
|
||||
{
|
||||
/* Skip to the next nw-char */
|
||||
int c;
|
||||
|
||||
while ((c = source_get()), c != nw_char && c != EOF)/* Skip */
|
||||
source_ungetc(&c);
|
||||
}
|
||||
*p = '\000';
|
||||
}
|
||||
|
||||
break;
|
||||
case 'x':
|
||||
case 'v':
|
||||
case 'u':
|
||||
case 'm':
|
||||
case 'f': /* ignore during this pass */
|
||||
break;
|
||||
default: if (c==nw_char) /* ignore during this pass */
|
||||
break;
|
||||
fprintf(stderr,
|
||||
"%s: unexpected %c sequence ignored (%s, line %d)\n",
|
||||
command_name, nw_char, source_name, source_line);
|
||||
break;
|
||||
}
|
||||
}
|
||||
c = source_get();
|
||||
}
|
||||
}
|
||||
if (tex_flag)
|
||||
search();
|
||||
/* Reverse cross-reference lists */
|
||||
{
|
||||
reverse_lists(file_names);
|
||||
reverse_lists(macro_names);
|
||||
reverse_lists(user_names);
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user