Return to plex.l CVS log

Up to [Research Unix] / researchv10no / cmd / ap / apkeys

Annotation of researchv10no/cmd/ap/apkeys/plex.l, revision 1.1.1.1

1.1       root        1: %{
                      2: # define WORD 1
                      3: # define DOT 2
                      4: extern char *yylval, *sufstr();
                      5: char *svc();
                      6: # include "assert.h"
                      7: # include "ctype.h"
                      8: %}
                      9: %%
                     10: [-'A-Za-z0-9#]+        {lcase(yytext); cfree(yylval);
                     11:                yylval=svc(sufstr(yytext)); return(WORD);}
                     12: "."    return(DOT);
                     13: "!"    return(DOT);
                     14: "?"    return(DOT);
                     15: .      ;
                     16: \n     ;
                     17: %%
                     18: yywrap()
                     19: {
                     20: return(1); /* always stop on eof */
                     21: }
                     22: char *
                     23: svc(s)
                     24:        char *s;
                     25: {
                     26: char *p, *calloc();
                     27: p = calloc(strlen(s)+1,1);
                     28: assert(p!=0);
                     29: strcpy(p,s);
                     30: return(p);
                     31: }
                     32: trimnl(s)
                     33:        char *s;
                     34: {
                     35: while (*s)s++;
                     36: if (*--s=='\n') *s=0;
                     37: }
                     38: lcase(s)
                     39:        register char *s;
                     40: {
                     41: register int c;
                     42: register char *p;
                     43: if (*s==0) return;
                     44: for(p=s+1; c= *p; p++)
                     45:        if (isupper(c))
                     46:                return;
                     47: if (isupper(c = *s))
                     48:        *s= tolower(c);
                     49: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.