long stchars
; /* counts number of chars at most recent \n read */
int newline
; /* counts number of lines read so far in file */
extern int rdfree(), comfree(),labfree(), contfree();
extern int rdstand(), comstand(), labstand(), contstand();
extern int (*comment
[])();
extern int (*getlabel
[])();
extern int (*chkcont
[])();
getline(lastline
,lastchar
,linecom
,charcom
)
long *lastchar
, *charcom
;
/* set *lastline to number of last line of statement,
set *lastchar to number of last char of statement,
set *linecom to number of last line of comment preceding statement */
while ( unput1(input1()) != EOF
)
while ( (*comment
[inputform
])(0) || blankline() )
(*rline
[inputform
])(addchar
);
/* set charcom to number of last char of comment, starting at 0
if at start of file and no comment, will be -1 */
if (unput1(input1()) == EOF
) break;
(*getlabel
[inputform
])(addchar
);
(*rline
[inputform
])(addchar
);
while ( blankline() || ( !(*comment
[inputform
])(0) && (*chkcont
[inputform
])() ))
(*rline
[inputform
])(addchar
);
fprintf(stderr
,"line %d; bufcount: %d\n",newline
,bufcount
);
for (i
= 5; i
< bufcount
; ++i
)
if (buffer
[i
] == ' ' || buffer
[i
] == '\t' || buffer
[i
] == '\n')
int linechars
; /* counts number of chars read so far in current line */
long newchar
; /* counts number of chars read so far in file */
if (c
== '\n') linechars
= 0;
ostchars
=stchars
; stchars
=ftell(infd
);