home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
C
/
LEX
/
CAP.LXI
< prev
next >
Wrap
Text File
|
1993-12-01
|
553b
|
35 lines
/*
* capitalise things
*/
letter = [A-Z];
open = ["'(];
close = ["')];
any = [\0-\377];
eos = [.?!];
%{
extern char *token();
main()
{
while (yylex())
;
}
%}
%%
%{
register char *cp;
char *et;
%}
(".PP\n"|eos close* " "* (" "|"\n"))open*letter {
cp = token(&et);
while (cp < et)
putchar(*cp++);
}
$letter {putchar(token(0)[1]);}
letter {putchar(*token(0)+'a'-'A');}
any {putchar(*token(0));}
%%