Lex Example


[\t]    { unput (' '); }
\n      {++num_lines; unput(' ');}
"#".*$  /* gobble up preproc directives */
"{"     {++in_funct; REJECT;}
"}"     {--in_funct; 
                if (in_loop = in_funct)
                    in_loop = 0; 
                REJECT;}
.       {++num_chars; }
for|while|until { 
        if (in_funct != 0) {
           if ((!in_comment) && 
               (num_lines != ignore)) {
            register int    q;
            q = input();
            if ((q == 40) || (q < 33)) {
               if (pre_is_funct(yytext -1)) {