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 : dates.lex

/*
 * dates.lex: An example of using start states to
 *            distinguish between different date formats.
 */

%{
#include <ctype.h>

char month[20],dow[20],day[20],year[20];

skip        of|the|[ \t,]*

mon	    (mon(day)?)
tue	    (tue(sday)?)
wed	    (wed(nesday)?)
thu	    (thu(rsday)?)
fri	    (fri(day)?)
sat	    (sat(urday)?)
sun	    (sun(day)?)

day_of_the_week	({mon}|{tue}|{wed}|{thu}|{fri}|{sat}|{sun})

jan	    (jan(uary)?)
feb	    (feb(ruary)?)
mar	    (mar(ch)?)
apr	    (apr(il)?)
may	    (may)
jun	    (jun(e)?)
jul	    (jul(y)?)
aug	    (aug(ust)?)
sep	    (sep(tember)?)
oct	    (oct(ober)?)
nov	    (nov(ember)?)
dec	    (dec(ember)?)

first_half  ({jan}|{feb}|{mar}|{apr}|{may}|{jun})
second_half ({jul}|{aug}|{sep}|{oct}|{nov}|{dec})
month 	    {first_half}|{second_half}

nday         [1-9]|[1-2][0-9]|3[0-1]
nmonth       [1-9]|1[0-2]
nyear        [0-9]{1,4}

year_ext    (ad|AD|bc|BC)?
day_ext     (st|nd|rd|th)?

%s LONG SHORT
%s DAY DAY_FIRST YEAR_FIRST YEAR_LAST YFMONTH YLMONTH

/* the default is month-day-year */

<LONG>{day_of_the_week}    strcpy(dow,yytext); 
<LONG>{month}              strcpy(month,yytext); BEGIN(DAY);

/* handle the form: day-month-year */

<LONG>{nday}{day_ext}      strcpy(day,yytext);   BEGIN(DAY_FIRST);
<DAY_FIRST>{month}         strcpy(month,yytext); BEGIN(LONG);
<DAY>{nday}{day_ext}       strcpy(day,yytext);   BEGIN(LONG);

<LONG>{nyear}{year_ext}  {
                           printf("Long:\n");
                           printf("  DOW   : %s \n",dow);
                           printf("  Day   : %s \n",day);
                           printf("  Month : %s \n",month);
                           printf("  Year  : %s \n",yytext);
                           strcpy(dow,"");
                           strcpy(day,"");
                           strcpy(month,"");
                         }

/* handle dates of the form: day-month-year */

<SHORT>{nday}              strcpy(day,yytext);  BEGIN(YEAR_LAST);
<YEAR_LAST>{nmonth}        strcpy(month,yytext);BEGIN(YLMONTH);
<YLMONTH>{nyear}           strcpy(year,yytext); BEGIN(SHORT);

/* handle dates of the form: year-month-day */

<SHORT>{nyear}             strcpy(year,yytext); BEGIN(YEAR_FIRST);
<YEAR_FIRST>{nmonth}       strcpy(month,yytext);BEGIN(YFMONTH);
<YFMONTH>{nday}            strcpy(day,yytext);  BEGIN(SHORT);

<SHORT>\n                {
                           printf("Short:\n");
                           printf("  Day   : %s \n",day);
                           printf("  Month : %s \n",month);
                           printf("  Year  : %s \n",year);
                           strcpy(year,""); 
                           strcpy(day,"");
                           strcpy(month,"");
                         }

long\n                      BEGIN(LONG);
short\n                     BEGIN(SHORT);

{skip}*
\n
.

${this.title}

Code Editor : dates.lex