mirror of
https://github.com/PDP-10/its.git
synced 2026-03-23 01:16:20 +00:00
33 lines
407 B
C
33 lines
407 B
C
/*
|
|
* Bob Denny 28-Aug-82 Remove reference to stdio.h
|
|
*/
|
|
#ifdef vms
|
|
#include "c:lex.h"
|
|
#else
|
|
#include <lex.h>
|
|
#endif
|
|
|
|
/*)LIBRARY
|
|
*/
|
|
|
|
comment(mat)
|
|
char *mat;
|
|
{
|
|
register c;
|
|
register char *cp;
|
|
int lno;
|
|
|
|
lno = yyline;
|
|
c = 1;
|
|
for (cp = mat; *cp && c>=0;) {
|
|
if ((c = lexchar())=='\n')
|
|
yyline++;
|
|
if (c!=*cp++)
|
|
cp = mat;
|
|
}
|
|
if (c < 0) {
|
|
yyline = lno;
|
|
lexerror("End of file in comment");
|
|
}
|
|
}
|