config.l,v

来自「TCP-IP红宝书源代码」· L,V 代码 · 共 126 行

head	1.2;
access;
symbols;
locks
	dls:1.2; strict;
comment	@ * @;


1.2
date	97.09.21.19.24.14;	author dls;	state Dist;
branches;
next	1.1;

1.1
date	94.05.08.19.13.55;	author dls;	state Old;
branches;
next	;


desc
@@


1.2
log
@,
@
text
@A		[a-z_A-Z]
M		[a-z_A-Z0-9]
	int skipping;
%%
"/*"			{skipping = 1;}
"*/"			{skipping = 0;}
"%"			{extern	int	brkcount;
			 if (! skipping)
				if (++brkcount == 2)
					return 0; /* end-of-file */
				else
					return DEFBRK;
			}
":"			{if (! skipping) return COLON;}
[1-9][0-9]*		{if (! skipping) return INTEGER;}
0[0-7]*			{if (! skipping) return INTEGER;}
0x[0-9A-Fa-f]+		{if (! skipping) return INTEGER;}
is			{if (! skipping) return IS;}
on			{if (! skipping) return ON;}
"="			;
-?iint			{if (! skipping) return IINT;}
-?oint			{if (! skipping) return OINT;}
-?csr			{if (! skipping) return CSR;}
-?ivec			{if (! skipping) return IVEC;}
-?irq			{if (! skipping) return IRQ;}
-?ovec			{if (! skipping) return OVEC;}
-?i			{if (! skipping) return INIT;}
-?o			{if (! skipping) return OPEN;}
-?c			{if (! skipping) return CLOSE;}
-?r			{if (! skipping) return READ;}
-?g			{if (! skipping) return GETC;}
-?p			{if (! skipping) return PUTC;}
-?w			{if (! skipping) return WRITE;}
-?s			{if (! skipping) return SEEK;}
-?n			{if (! skipping) return CNTL;}
[ \t]+			;
"\n"			{extern int linectr;
			 linectr++;
			}
{A}{M}*			{if (! skipping) return IDENT;}
.			{if (! skipping) return yytext[0];}
@


1.1
log
@Initial revision
@
text
@d10 1
a10 1
					return(0); /* end-of-file */
d12 1
a12 1
					return(DEFBRK);
d14 6
a19 5
":"			{if (! skipping) return(COLON);}
0[0-9]*			{if (! skipping) return(OCTAL);}
[1-9][0-9]+		{if (! skipping) return(INTEGER);}
is			{if (! skipping) return(IS);}
on			{if (! skipping) return(ON);}
d21 15
a35 28
"iint"			{if (! skipping) return(IINT);}
"-iint"			{if (! skipping) return(IINT);}
"oint"			{if (! skipping) return(OINT);}
"-oint"			{if (! skipping) return(OINT);}
"-csr"			{if (! skipping) return(CSR);}
"csr"			{if (! skipping) return(CSR);}
"-ivec"			{if (! skipping) return(IVEC);}
"ivec"			{if (! skipping) return(IVEC);}
"-ovec"			{if (! skipping) return(OVEC);}
"ovec"			{if (! skipping) return(OVEC);}
"-i"			{if (! skipping) return(INIT);}
"i"			{if (! skipping) return(INIT);}
"-o"			{if (! skipping) return(OPEN);}
"o"			{if (! skipping) return(OPEN);}
"-c"			{if (! skipping) return(CLOSE);}
"c"			{if (! skipping) return(CLOSE);}
"-r"			{if (! skipping) return(READ);}
"r"			{if (! skipping) return(READ);}
"-g"			{if (! skipping) return(GETC);}
"g"			{if (! skipping) return(GETC);}
"-p"			{if (! skipping) return(PUTC);}
"p"			{if (! skipping) return(PUTC);}
"-w"			{if (! skipping) return(WRITE);}
"w"			{if (! skipping) return(WRITE);}
"-s"			{if (! skipping) return(SEEK);}
"s"			{if (! skipping) return(SEEK);}
"-n"			{if (! skipping) return(CNTL);}
"n"			{if (! skipping) return(CNTL);}
d40 2
a41 2
{A}{M}*			{if (! skipping) return(IDENT);}
.			{if (! skipping) return(yytext[0]);}
@