/* * formlc.lxi - convert floating formats to lower case */ digit = [0-9]; integer = ""|digit|digit digit; number = integer|integer . integer; flet = [EF]; format = "%" number flet; any = [\0-\377]; %{ extern char *token(); main() { while (yylex()); } %} %% %{ register char *cp; char *et; %} format {cp = token(&et); while (cp < et - 1) putchar(*cp++); putchar(tolower(*cp)); } any {putchar(*token(0));} %%