Initial revision
This commit is contained in:
ceriel
775
lang/a68s/util/xref.c
Normal file
775
lang/a68s/util/xref.c
Normal file
@@ -0,0 +1,775 @@
|
||||
/*
|
||||
* xref makes cross references.
|
||||
* November 1977 Johan Stevenson
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <signal.h>
|
||||
#include <setjmp.h>
|
||||
|
||||
/* type of flags() calls */
|
||||
#define HEAD 0
|
||||
#define TAIL 1
|
||||
|
||||
FILE *input;
|
||||
FILE *output;
|
||||
FILE *hashin;
|
||||
jmp_buf env; /* used by setjmp and longjmp */
|
||||
int scanout[2]; /* descriptor of output of scan */
|
||||
int postin[2]; /* descriptor of input of post */
|
||||
int ch; /*last char*/
|
||||
int chsy; /*type of last char*/
|
||||
char id[80]; /*last identifier*/
|
||||
char fl[80]; /*last filename (see post) */
|
||||
char buf[80]; /*work space*/
|
||||
int proc = 0; /*process id of sort*/
|
||||
int nflag; /*line number flag*/
|
||||
int nfiles;
|
||||
int argc;
|
||||
char **argv;
|
||||
char *procname;
|
||||
char *file; /*points to current file*/
|
||||
int pass1 = 1;
|
||||
int pass2 = 1;
|
||||
int only = 0; /* 1 if only selected words needed */
|
||||
int useroif = 0; /* 1 if user supplied ignore/only file*/
|
||||
char *oifile = "/usr/lib/xrefign.\0";
|
||||
int oifsuf = 0; /* index in oifile of last char */
|
||||
int linecount;
|
||||
int width = 72; /*line width*/
|
||||
int type; /* which scanner must be used */
|
||||
int forced = 0; /* scanner type chosen by user */
|
||||
|
||||
stop()
|
||||
{
|
||||
if (proc!=0)
|
||||
kill(proc,9);
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
main(narg,args) char **args;
|
||||
int narg;
|
||||
{
|
||||
argc=narg;
|
||||
argv = args;
|
||||
argc--;
|
||||
argv++;
|
||||
if (signal(SIGHUP,stop) != SIG_DFL)
|
||||
signal(SIGHUP,SIG_IGN);
|
||||
if (signal(SIGINT,stop) != SIG_DFL)
|
||||
signal(SIGINT,SIG_IGN);
|
||||
while (argc && argv[0][0]=='-' && argv[0][1]!='\0')
|
||||
{
|
||||
argc--;
|
||||
flags(*argv++,HEAD);
|
||||
}
|
||||
if (argc==0) {
|
||||
argc++;
|
||||
*--argv = "-";
|
||||
}
|
||||
if (pass1 && pass2) {
|
||||
if (pipe(scanout)<0 || pipe(postin)<0)
|
||||
fatal("pipe failed");
|
||||
if ((proc=fork()) == 0) {
|
||||
close(0);
|
||||
close(1);
|
||||
dup(scanout[0]);
|
||||
dup(postin[1]);
|
||||
close(scanout[0]);
|
||||
close(scanout[1]);
|
||||
close(postin[0]);
|
||||
close(postin[1]);
|
||||
execl("/bin/sort","xref","+1","-3","+0n",0);
|
||||
execl("/usr/bin/sort","xref","+1","-3","+0n",0);
|
||||
fatal("sort not found");
|
||||
}
|
||||
if (proc == -1) fatal("fork failed");
|
||||
close(scanout[0]);
|
||||
close(postin[1]);
|
||||
}
|
||||
else if (pass1)
|
||||
scanout[1] = dup(1);
|
||||
else if (pass2)
|
||||
postin[0] = dup(0);
|
||||
if (pass1) {
|
||||
if (useroif) {
|
||||
if ((hashin = fopen(oifile, "r")) == NULL)
|
||||
fatal("bad ignore/only file: %s",oifile);
|
||||
buildhash();
|
||||
fclose(hashin);
|
||||
}
|
||||
input = stdin;
|
||||
output = fdopen(scanout[1], "w");
|
||||
nfiles = argc;
|
||||
setjmp(env);
|
||||
while (argc--)
|
||||
if (argv[0][0] == '-' && argv[0][1] != '\0')
|
||||
flags(*argv++,TAIL);
|
||||
else
|
||||
scan(*argv++);
|
||||
fclose(input);
|
||||
fclose(output);
|
||||
}
|
||||
if (pass2) {
|
||||
input = fdopen(postin[0], "r");
|
||||
output = stdout;
|
||||
post();
|
||||
}
|
||||
exit(0);
|
||||
}
|
||||
|
||||
flags(s,ftype) register char *s;
|
||||
{
|
||||
register c;
|
||||
|
||||
s++; /* skip - */
|
||||
switch (c = *s++) {
|
||||
case 'p':
|
||||
case '8':
|
||||
case 'c':
|
||||
case 's':
|
||||
case 'x':
|
||||
forced++;
|
||||
type = c;
|
||||
break;
|
||||
case '1':
|
||||
if (ftype == TAIL)
|
||||
fatal("-1 must precede file arguments");
|
||||
pass2=0;
|
||||
pass1++;
|
||||
break;
|
||||
case '2':
|
||||
if (ftype == TAIL)
|
||||
fatal("-2 must precede file arguments");
|
||||
pass1=0;
|
||||
pass2++;
|
||||
break;
|
||||
case 'i':
|
||||
case 'o':
|
||||
only = (c == 'o');
|
||||
useroif++;
|
||||
if (*s == '\0')
|
||||
fatal("more args expected");
|
||||
oifile = s;
|
||||
return;
|
||||
case 'w':
|
||||
if (*s == '\0')
|
||||
fatal("more args expected");
|
||||
width=atoi(s);
|
||||
return;
|
||||
default:
|
||||
fatal("possible flags: cpsxio12w");
|
||||
}
|
||||
if (*s != '\0')
|
||||
fatal("flags should be given as separate arguments");
|
||||
}
|
||||
|
||||
char *tail(s)
|
||||
register char *s;
|
||||
{
|
||||
register char *t;
|
||||
|
||||
t = s;
|
||||
while (*s)
|
||||
if (*s++ == '/')
|
||||
t = s;
|
||||
return(t);
|
||||
}
|
||||
|
||||
scan(s) char *s;
|
||||
{
|
||||
register lastc;
|
||||
|
||||
linecount = 0;
|
||||
nflag = 0;
|
||||
chsy = 0;
|
||||
if (nfiles==1)
|
||||
file = "";
|
||||
else
|
||||
file = tail(s);
|
||||
if (forced==0) {
|
||||
lastc = suffix(s);
|
||||
if (lastc=='h')
|
||||
lastc = 'c';
|
||||
if (lastc=='c' || lastc=='p' || lastc=='s' || lastc=='8')
|
||||
type=lastc;
|
||||
else
|
||||
type='x';
|
||||
} else
|
||||
lastc = type;
|
||||
if (useroif==0) {
|
||||
if (oifsuf == 0)
|
||||
while (oifile[oifsuf] != '\0')
|
||||
oifsuf++;
|
||||
if (lastc != oifile[oifsuf] ) {
|
||||
oifile[oifsuf] = lastc;
|
||||
if ((hashin = fopen(oifile, "r")) == NULL) {
|
||||
oifile[oifsuf] = 'x';
|
||||
if ((hashin = fopen(oifile, "r")) == NULL)
|
||||
fatal("cannot open %s",oifile);
|
||||
}
|
||||
buildhash();
|
||||
fclose(hashin);
|
||||
}
|
||||
}
|
||||
if (s[0]=='-' && s[1]=='\0')
|
||||
input = stdin;
|
||||
else
|
||||
if ((input = fopen(s, "r")) == NULL)
|
||||
fatal("cannot open %s",s);
|
||||
switch (type) {
|
||||
case 'x':
|
||||
x_scan();
|
||||
break;
|
||||
case 'p':
|
||||
p_scan();
|
||||
break;
|
||||
case '8':
|
||||
a_scan();
|
||||
break;
|
||||
case 'c':
|
||||
c_scan();
|
||||
break;
|
||||
case 's':
|
||||
s_scan();
|
||||
break;
|
||||
}
|
||||
/*this place is never reached*/
|
||||
}
|
||||
|
||||
suffix(s)
|
||||
register char *s;
|
||||
{
|
||||
while (*s) s++;
|
||||
if (*(s-2) == '.')
|
||||
return(*--s);
|
||||
return('x');
|
||||
}
|
||||
|
||||
fatal(s) char *s;
|
||||
{
|
||||
fprintf(stderr, "xref: %s",s);
|
||||
fprintf(stderr, "\n");
|
||||
stop();
|
||||
}
|
||||
|
||||
/*============================================*/
|
||||
|
||||
#define HSIZE 79
|
||||
|
||||
struct {
|
||||
int integ;
|
||||
};
|
||||
|
||||
struct link {
|
||||
struct link *next;
|
||||
char word[];
|
||||
}
|
||||
*hashtab[HSIZE];
|
||||
|
||||
buildhash()
|
||||
{
|
||||
register struct link *p,*q;
|
||||
register char *s;
|
||||
int i;
|
||||
|
||||
for (i=0; i<HSIZE; i++)
|
||||
{
|
||||
p = hashtab[i];
|
||||
hashtab[i] = 0;
|
||||
while (q = p)
|
||||
{
|
||||
p = q->next;
|
||||
free(q);
|
||||
}
|
||||
}
|
||||
ch = getc(hashin);
|
||||
while (ch != EOF) {
|
||||
s = id;
|
||||
do {
|
||||
*s++ = ch;
|
||||
ch = getc(hashin);
|
||||
} while (ch>' ');
|
||||
*s++ = '\0';
|
||||
h_add(id,s-id);
|
||||
while (ch!='\n' && ch!=EOF)
|
||||
ch = getc(hashin);
|
||||
ch = getc(hashin);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
h_add(s,l) char *s;
|
||||
int l;
|
||||
{
|
||||
register struct link *q,**p;
|
||||
char temp[80];
|
||||
char *s2;
|
||||
|
||||
if (h_in(s)) return;
|
||||
s2 = temp;
|
||||
strcpy(s2,s);
|
||||
if (strlen(s2)<=2)
|
||||
strcat(s2,"zz\0");
|
||||
p = &hashtab[ s2->integ % HSIZE ];
|
||||
l += 4+((4-(l & 3) & 3));
|
||||
if ((q = malloc(l)) == 0)
|
||||
fatal("out of space");
|
||||
q->next = *p;
|
||||
*p = q;
|
||||
strcpy(q->word, s);
|
||||
}
|
||||
|
||||
h_in(s) char *s;
|
||||
{
|
||||
register struct link *p;
|
||||
char temp[80];
|
||||
char *s2;
|
||||
|
||||
s2 = temp;
|
||||
strcpy(s2,s);
|
||||
if (strlen(s)<= 2)
|
||||
strcat(s2,"zz\0");
|
||||
p = hashtab[ s2->integ % HSIZE ];
|
||||
while (p) {
|
||||
if (strcmp(s, p->word) == 0)
|
||||
return(1);
|
||||
p = p->next;
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
|
||||
/*=====================================*/
|
||||
|
||||
#define NL -1
|
||||
#define ERROR 0
|
||||
#define LETTER 1
|
||||
#define DIGIT 2
|
||||
#define QUOTE 3
|
||||
#define LPAR 4
|
||||
#define LBRACE 5
|
||||
#define DQUOTE 6
|
||||
#define SLASH 7
|
||||
#define POINT 9
|
||||
#define LESS 10
|
||||
#define USCORE 11
|
||||
#define OTHER 12
|
||||
#define HASH 13
|
||||
|
||||
|
||||
char cs[128] = {
|
||||
/*NUL*/ ERROR, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
|
||||
/*010*/ OTHER, OTHER, NL, OTHER, OTHER, OTHER, OTHER, OTHER,
|
||||
/*020*/ OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
|
||||
/*030*/ OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
|
||||
/*' '*/ OTHER, OTHER, DQUOTE, HASH, OTHER, OTHER, OTHER, QUOTE,
|
||||
/*'('*/ LPAR, OTHER, OTHER, OTHER, OTHER, OTHER, POINT, SLASH,
|
||||
/*'0'*/ DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT,
|
||||
/*'8'*/ DIGIT, DIGIT, OTHER, OTHER, LESS, OTHER, OTHER, OTHER,
|
||||
/*'@'*/ OTHER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
|
||||
/*'H'*/ LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
|
||||
/*'P'*/ LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
|
||||
/*'X'*/ LETTER, LETTER, LETTER, OTHER, OTHER, OTHER, OTHER, USCORE,
|
||||
/*'`'*/ OTHER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
|
||||
/*'h'*/ LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
|
||||
/*'p'*/ LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
|
||||
/*'x'*/ LETTER, LETTER, LETTER, LBRACE, OTHER, OTHER, OTHER, OTHER
|
||||
};
|
||||
|
||||
nextch()
|
||||
{
|
||||
if (linecount == 0) {
|
||||
if ((ch=getc(input))==EOF) {
|
||||
fclose(input);
|
||||
longjmp(env,0);
|
||||
}
|
||||
else {
|
||||
chsy = cs[ch];
|
||||
if (chsy != DIGIT)
|
||||
linecount++;
|
||||
else {
|
||||
nflag = 1;
|
||||
linecount = ch-'0';
|
||||
chsy = cs[(ch=getc(input))];
|
||||
while (chsy == DIGIT) {
|
||||
linecount = linecount*10+ch-'0';
|
||||
chsy = cs[(ch=getc(input))];
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
if ((ch=getc(input))==EOF) {
|
||||
fclose(input);
|
||||
longjmp(env,0);
|
||||
}
|
||||
if (chsy < 0) {
|
||||
if (nflag == 0)
|
||||
linecount++;
|
||||
else {
|
||||
linecount = ch-'0';
|
||||
chsy = cs[(ch=getc(input))];
|
||||
while (chsy == DIGIT) {
|
||||
linecount = linecount*10+ch-'0';
|
||||
chsy = cs[(ch=getc(input))];
|
||||
}
|
||||
}
|
||||
}
|
||||
if (ch >= 128)
|
||||
fatal("bad chars on file %s",*--argv);
|
||||
chsy = cs[ch];
|
||||
}
|
||||
}
|
||||
|
||||
out(p)
|
||||
char *p;
|
||||
{
|
||||
fprintf(output, "%d %s %s\n",linecount,p,file);
|
||||
}
|
||||
|
||||
scannumber()
|
||||
{
|
||||
do nextch(); while (chsy == DIGIT);
|
||||
if (ch == '.') {
|
||||
nextch();
|
||||
if (chsy!=DIGIT) return;
|
||||
do nextch(); while (chsy == DIGIT);
|
||||
}
|
||||
if (ch == 'e') {
|
||||
nextch();
|
||||
if (ch == '+' || ch == '-')
|
||||
nextch();
|
||||
while (chsy == DIGIT)
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
scansymbol(ok1,ok2) {
|
||||
register char *p;
|
||||
|
||||
p = id;
|
||||
do {
|
||||
*p++ = ch;
|
||||
nextch();
|
||||
} while (chsy==LETTER || chsy==DIGIT || ch==ok1 || ch==ok2);
|
||||
*p = '\0';
|
||||
if (h_in(id) == only)
|
||||
out(id);
|
||||
}
|
||||
|
||||
scanusymbol(ok1,ok2) {
|
||||
register char *p;
|
||||
|
||||
p = id;
|
||||
do {
|
||||
if (ch >= 'a' && ch <= 'z')
|
||||
ch += 'A'-'a';
|
||||
*p++ = ch;
|
||||
nextch();
|
||||
} while (chsy==LETTER || chsy==DIGIT || ch==ok1 || ch==ok2);
|
||||
*p = '\0';
|
||||
if (h_in(id) == only)
|
||||
out(id);
|
||||
}
|
||||
|
||||
escaped() {
|
||||
if (ch=='\\') nextch();
|
||||
nextch();
|
||||
}
|
||||
|
||||
comment(lastch) {
|
||||
nextch();
|
||||
if (ch=='*') {
|
||||
nextch();
|
||||
do {
|
||||
while(ch!='*') nextch();
|
||||
nextch();
|
||||
} while (ch!=lastch);
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
acmnt1() {
|
||||
|
||||
/* handle a .COMMENT ..... .COMMENT */
|
||||
|
||||
register char *p;
|
||||
register int cont;
|
||||
|
||||
p = id;
|
||||
nextch();
|
||||
if (chsy==DIGIT) scannumber();
|
||||
else {
|
||||
do {
|
||||
*p++ = ch;
|
||||
nextch();
|
||||
} while (chsy==LETTER);
|
||||
/* see if the word is COMMENT */
|
||||
*p = '\0';
|
||||
p = id;
|
||||
if (strcmp("COMMENT",p)) { /* skip to next .COMMENT */
|
||||
cont = 1;
|
||||
while (cont) {
|
||||
while (chsy != POINT) nextch();
|
||||
nextch();
|
||||
p = id;
|
||||
do {
|
||||
*p++ = ch;
|
||||
nextch();
|
||||
} while (chsy==LETTER);
|
||||
*p = '\0';
|
||||
p = id;
|
||||
cont = strcmp("COMMENT",p);
|
||||
}
|
||||
}
|
||||
else { /* do hash lookup - could be pragmat (ignore) or record field */
|
||||
if (h_in(id)==only)
|
||||
out(id);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
acmnt2() {
|
||||
register char *p;
|
||||
int cont;
|
||||
|
||||
/* handle a CO ..... CO comment */
|
||||
|
||||
p = id;
|
||||
*p++ = 'C';
|
||||
nextch();
|
||||
if (ch!='O') { /* do a scansymbol */
|
||||
do {
|
||||
*p++ =ch;
|
||||
nextch();
|
||||
} while (chsy==LETTER || chsy==DIGIT || chsy==USCORE);
|
||||
if (h_in(id)==only)
|
||||
out(id);
|
||||
}
|
||||
else { /* found a CO .... CO */
|
||||
cont = 1;
|
||||
while (cont) {
|
||||
while (ch!='C') nextch();
|
||||
nextch();
|
||||
cont = (ch!='O');
|
||||
}
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
p_scan() {
|
||||
nextch();
|
||||
for(;;) switch (chsy) {
|
||||
case LETTER:
|
||||
case USCORE:
|
||||
scanusymbol('_','\0');
|
||||
break;
|
||||
case DIGIT:
|
||||
scannumber();
|
||||
break;
|
||||
case QUOTE:
|
||||
do nextch(); while (ch!='\'');
|
||||
nextch();
|
||||
break;
|
||||
case DQUOTE:
|
||||
do nextch(); while (ch!='"');
|
||||
nextch();
|
||||
break;
|
||||
case LPAR:
|
||||
comment(')');
|
||||
break;
|
||||
case LBRACE:
|
||||
do nextch(); while (ch!='}');
|
||||
default:
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
a_scan() {
|
||||
nextch();
|
||||
for(;;) switch (chsy) {
|
||||
case LETTER:
|
||||
if (ch=='C') acmnt2();
|
||||
else
|
||||
scanusymbol('_','\0');
|
||||
break;
|
||||
case DIGIT:
|
||||
scannumber();
|
||||
break;
|
||||
case QUOTE:
|
||||
do nextch(); while (ch!='\'');
|
||||
nextch();
|
||||
break;
|
||||
case DQUOTE:
|
||||
do nextch(); while (ch!='"');
|
||||
nextch();
|
||||
break;
|
||||
case HASH:
|
||||
nextch();
|
||||
while (ch!='#') nextch();
|
||||
nextch();
|
||||
break;
|
||||
case POINT:
|
||||
acmnt1();
|
||||
break;
|
||||
default:
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
c_scan()
|
||||
{
|
||||
nextch();
|
||||
for (;;) switch (chsy) {
|
||||
case LETTER:
|
||||
case USCORE:
|
||||
scansymbol('_','\0');
|
||||
break;
|
||||
case DIGIT:
|
||||
scannumber();
|
||||
break;
|
||||
case SLASH:
|
||||
comment('/');
|
||||
break;
|
||||
case QUOTE:
|
||||
do escaped(); while (ch!='\'');
|
||||
nextch();
|
||||
break;
|
||||
case DQUOTE:
|
||||
do escaped(); while (ch!='"');
|
||||
default:
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
s_scan()
|
||||
{
|
||||
nextch();
|
||||
for(;;) switch(chsy) {
|
||||
case LETTER:
|
||||
case POINT:
|
||||
scansymbol('_','.');
|
||||
break;
|
||||
case DIGIT:
|
||||
do nextch(); while (chsy==DIGIT);
|
||||
if (ch=='.' || ch=='f' || ch=='b') nextch();
|
||||
break;
|
||||
case DQUOTE:
|
||||
nextch();
|
||||
case QUOTE:
|
||||
escaped();
|
||||
escaped();
|
||||
break;
|
||||
case SLASH:
|
||||
do nextch(); while (ch!='\n');
|
||||
break;
|
||||
case LESS:
|
||||
nextch();
|
||||
do escaped(); while (ch!='>');
|
||||
break;
|
||||
default:
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
x_scan()
|
||||
{
|
||||
register char *p;
|
||||
nextch();
|
||||
for (;;) switch (chsy) {
|
||||
case LETTER:
|
||||
p=id;
|
||||
do {
|
||||
if (ch<'A' || ch>'Z') *p++ = ch;
|
||||
else *p++ = ch - 'A' + 'a';
|
||||
nextch();
|
||||
if (ch=='-') {
|
||||
nextch();
|
||||
if (ch=='\n')
|
||||
do nextch(); while (chsy!=LETTER);
|
||||
else *p++ = '-';
|
||||
}
|
||||
} while (chsy==LETTER || chsy==DIGIT);
|
||||
*p = '\0';
|
||||
if (h_in(id) == only) out(id);
|
||||
break;
|
||||
default:
|
||||
nextch();
|
||||
}
|
||||
}
|
||||
|
||||
/*=========================================*/
|
||||
|
||||
int N;
|
||||
|
||||
post()
|
||||
{
|
||||
register n,l,i;
|
||||
int first,newid,newfl,withfile;
|
||||
|
||||
first = 1;
|
||||
id[0] = '\0';
|
||||
ch = getc(input);
|
||||
while (ch != EOF) {
|
||||
l = getfld('\t');
|
||||
if ((i=atoi(buf)) == 0)
|
||||
fatal("line number expected");
|
||||
l = getfld('\t');
|
||||
newid = strcmp(id,buf);
|
||||
if (newid) {
|
||||
strcpy(id,buf);
|
||||
if (first == 0)
|
||||
putc('\n',output);
|
||||
fprintf(output,"%s",id);
|
||||
if (l > 7)
|
||||
putc('\n',output);
|
||||
putc('\t',output);
|
||||
fl[0] = '\0';
|
||||
}
|
||||
l = getfld('\n');
|
||||
newfl = strcmp(fl,buf);
|
||||
if (newfl) {
|
||||
strcpy(fl,buf);
|
||||
if (newid == 0)
|
||||
fprintf(output,"\n\t");
|
||||
fprintf(output,"%s",fl);
|
||||
if (l > 7)
|
||||
fprintf(output,"\n\t");
|
||||
putc('\t',output);
|
||||
}
|
||||
if (first) {
|
||||
first = 0;
|
||||
withfile = newfl;
|
||||
N = width - 12;
|
||||
if (withfile) N -= 8;
|
||||
if (N<0) fatal("line width too small");
|
||||
N = (N/5) + 1;
|
||||
}
|
||||
if (newid || newfl)
|
||||
n = N;
|
||||
else if (n==0) {
|
||||
fprintf(output,"\n\t");
|
||||
if (withfile)
|
||||
putc('\t',output);
|
||||
n = N;
|
||||
}
|
||||
else
|
||||
putc(' ',output);
|
||||
n--;
|
||||
fprintf(output,"%4d",i);
|
||||
}
|
||||
putc('\n',output);
|
||||
}
|
||||
|
||||
getfld(stopch) {
|
||||
register char *p;
|
||||
|
||||
p = buf;
|
||||
while (ch!=EOF && ch!=stopch) {
|
||||
*p++ = ch;
|
||||
ch = getc(input);
|
||||
}
|
||||
*p = '\0';
|
||||
ch = getc(input);
|
||||
return(p-buf);
|
||||
}
|
||||
Reference in New Issue
Block a user