25   register int ch;  in text_getc()  local
27   ch = getc(file);  in text_getc()
28   if (ch == '#') {  in text_getc()
30       ch = getc(file);  in text_getc()
31     } while (ch != '\n' && ch != EOF);  in text_getc()
33   return ch;  in text_getc()
42   register int ch;  in read_text_integer()  local
47     ch = text_getc(file);  in read_text_integer()
48     if (ch == EOF) {  in read_text_integer()
49       *termchar = ch;  in read_text_integer()
52   } while (isspace(ch));  in read_text_integer()
54   if (! isdigit(ch)) {  in read_text_integer()
55     *termchar = ch;  in read_text_integer()
59   val = ch - '0';  in read_text_integer()
60   while ((ch = text_getc(file)) != EOF) {  in read_text_integer()
61     if (! isdigit(ch))  in read_text_integer()
64     val += ch - '0';  in read_text_integer()
67   *termchar = ch;  in read_text_integer()
134   register int ch;  in read_scan_integer()  local
138   ch = *termchar;  in read_scan_integer()
139   while (ch != EOF && isspace(ch))  in read_scan_integer()
140     ch = text_getc(file);  in read_scan_integer()
141   if (isdigit(ch)) {		/* oops, put it back */  in read_scan_integer()
142     if (ungetc(ch, file) == EOF)  in read_scan_integer()
144     ch = ' ';  in read_scan_integer()
149     if (ch != EOF && ch != ';' && ch != ':')  in read_scan_integer()
150       ch = ' ';  in read_scan_integer()
152   *termchar = ch;  in read_scan_integer()
274   char ch;  in set_quant_slots()  local
278       ch = ',';			/* if not set by sscanf, will be ',' */  in set_quant_slots()
279       if (sscanf(arg, "%d%c", &val, &ch) < 1)  in set_quant_slots()
281       if (ch != ',')		/* syntax check */  in set_quant_slots()