%o 1500
BW [ \t\(]
EW [ \t.,;!\?$\)]
-%%
+%option noyywrap
+
%{
- void plastc()
- {
- unput(yytext[yyleng-1]);
- }
+ void plastc(void);
+ char caseify(char);
+ void expletive(void);
+ void thing(char);
%}
+
+%%
+
@[Bb]egin(.*) |
".so ".*$ printf("%s", yytext);
{BW}send printf("%ct'row",yytext[0]);
cally printf("c'l");
%%
-caseify(c)
+void plastc()
+{
+ unput(yytext[yyleng-1]);
+}
+
+char caseify(c)
char c;
{
if (yytext[0] <= 'Z')
return (c);
}
-thing(c)
+void thing(c)
char c;
{
static short count = 0;
break;
}
}
-expletive()
+
+void expletive()
{
static short count = 0;
static short which = 0;