X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=jive.l;h=f8a1386d11506e58ae030bd40ea34684754f406a;hb=d4dc87b77101a2a27c66a315cebe1d0a98d0c881;hp=dcb99240b2bfcc52d71eab532eeb189e6b93c10e;hpb=7e3afbbacdd24f8c3fb87599eeda32b977fe6d6c;p=filters.git diff --git a/jive.l b/jive.l index dcb9924..f8a1386 100644 --- a/jive.l +++ b/jive.l @@ -7,6 +7,7 @@ * * Reproduction permitted so long as this notice is retained. */ + %} %e 1700 %p 4000 @@ -16,7 +17,13 @@ %o 1500 BW [ \t\(] EW [ \t.,;!\?$\)] +%option noyywrap %% + +%{ + void plastc(); +%} + @[Bb]egin(.*) | ".so ".*$ printf("%s", yytext); {BW}send printf("%ct'row",yytext[0]); @@ -194,9 +201,10 @@ against printf("agin'"); meta printf("meta-fuckin'"); cally printf("c'l"); %% -plastc() + +void plastc() { - unput(yytext[yyleng-1]); + unput(yytext[yyleng-1]); } caseify(c)