Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ChangeLog	709 B	-rw-r--r--
Makefile	15.25 KB	-rw-r--r--
Makefile.am	1.39 KB	-rw-r--r--
Makefile.examples	1.86 KB	-rw-r--r--
Makefile.in	14.65 KB	-rw-r--r--
README	349 B	-rw-r--r--
cat.lex	849 B	-rw-r--r--
dates.lex	2.8 KB	-rw-r--r--
datetest.dat	343 B	-rw-r--r--
eof_rules.lex	1.3 KB	-rw-r--r--
eof_test01.txt	367 B	-rw-r--r--
eof_test02.txt	104 B	-rw-r--r--
eof_test03.txt	87 B	-rw-r--r--
expr.lex	619 B	-rw-r--r--
expr.y	988 B	-rw-r--r--
front.lex	1.21 KB	-rw-r--r--
front.y	2.58 KB	-rw-r--r--
j2t.lex	12.06 KB	-rw-r--r--
myname.lex	287 B	-rw-r--r--
myname.txt	170 B	-rw-r--r--
myname2.lex	443 B	-rw-r--r--
numbers.lex	4.96 KB	-rw-r--r--
pas_include.lex	1.63 KB	-rw-r--r--
pascal.lex	3.12 KB	-rw-r--r--
reject.lex	245 B	-rw-r--r--
replace.lex	529 B	-rw-r--r--
string1.lex	2.5 KB	-rw-r--r--
string2.lex	3 KB	-rw-r--r--
strtest.dat	733 B	-rw-r--r--
unput.lex	429 B	-rw-r--r--
user_act.lex	303 B	-rw-r--r--
userinit.lex	514 B	-rw-r--r--
wc.lex	2.67 KB	-rw-r--r--
yymore.lex	566 B	-rw-r--r--
yymore2.lex	720 B	-rw-r--r--
yymoretest.dat	115 B	-rw-r--r--

Code Editor : pascal.lex

/*
 * pascal.lex: An example PASCAL scanner
 *
 */

%{
#include <stdio.h>
#include "y.tab.h"

int line_number = 0;

void yyerror(char *message);

%x COMMENT1 COMMENT2

white_space       [ \t]*
digit             [0-9]
alpha             [A-Za-z_]
alpha_num         ({alpha}|{digit})
hex_digit         [0-9A-F]
identifier        {alpha}{alpha_num}*
unsigned_integer  {digit}+
hex_integer       ${hex_digit}{hex_digit}*
exponent          e[+-]?{digit}+
i                 {unsigned_integer}
real              ({i}\.{i}?|{i}?\.{i}){exponent}?
string            \'([^'\n]|\'\')+\'
bad_string        \'([^'\n]|\'\')+

"{"                  BEGIN(COMMENT1);
<COMMENT1>[^}\n]+
<COMMENT1>\n            ++line_number;
<COMMENT1><<EOF>>    yyerror("EOF in comment");
<COMMENT1>"}"        BEGIN(INITIAL);

"(*"                 BEGIN(COMMENT2);
<COMMENT2>[^)*\n]+
<COMMENT2>\n            ++line_number;
<COMMENT2><<EOF>>    yyerror("EOF in comment");
<COMMENT2>"*)"       BEGIN(INITIAL);
<COMMENT2>[*)]

/* note that FILE and BEGIN are already 
  * defined in FLEX or C so they can't  
  * be used. This can be overcome in                               
  * a cleaner way by defining all the
  * tokens to start with TOK_ or some
  * other prefix.
  */

and                  return(AND);
array                return(ARRAY);
begin                return(_BEGIN);
case                 return(CASE);
const                return(CONST);
div                  return(DIV);
do                   return(DO);
downto               return(DOWNTO);
else                 return(ELSE);
end                  return(END);
file                 return(_FILE);
for                  return(FOR);
function             return(FUNCTION);
goto                 return(GOTO);
if                   return(IF);
in                   return(IN);
label                return(LABEL);
mod                  return(MOD);
nil                  return(NIL);
not                  return(NOT);
of                   return(OF);
packed               return(PACKED);
procedure            return(PROCEDURE);
program              return(PROGRAM);
record               return(RECORD);
repeat               return(REPEAT);
set                  return(SET);
then                 return(THEN);
to                   return(TO);
type                 return(TYPE);
until                return(UNTIL);
var                  return(VAR);
while                return(WHILE);
with                 return(WITH);

"<="|"=<"            return(LEQ);
"=>"|">="            return(GEQ);
"<>"                 return(NEQ);
"="                  return(EQ);

".."                 return(DOUBLEDOT);

{unsigned_integer}   return(UNSIGNED_INTEGER);
{real}               return(REAL);
{hex_integer}        return(HEX_INTEGER);
{string}             return{STRING};
{bad_string}         yyerror("Unterminated string");

{identifier}         return(IDENTIFIER);

[*/+\-,^.;:()\[\]]   return(yytext[0]);

{white_space}        /* do nothing */
\n                   line_number += 1;
.                    yyerror("Illegal input");

void yyerror(char *message)
{
   fprintf(stderr,"Error: \"%s\" in line %d. Token = %s\n",
           message,line_number,yytext);
   exit(1);
}

${this.title}

Code Editor : pascal.lex