mirror of
https://github.com/PDP-10/its.git
synced 2026-04-05 05:36:05 +00:00
34 lines
414 B
Plaintext
34 lines
414 B
Plaintext
/*
|
|
* 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));}
|
|
%%
|