Fri Jun 20 15:34:29 CEST 2003

- For Informix compatibility we have to accept a "free <cursor>".

- Synced scan.l and pgc.l.

- Set ecpg version to 3.0.0

- Set ecpg library to 4.0.0

- Set pgtypes library to 1.0.0

xcinside[^*/]+

digit[0-9]

letter[\200-\377_A-Za-z]

letter_or_digit [\200-\377_A-Za-z0-9]

ident_start[A-Za-z\200-\377_]

ident_cont[A-Za-z\200-\377_0-9\$]

identifier{letter}{letter_or_digit}*

identifier{ident_start}{ident_cont}*

array({letter_or_digit}|[\+\-\*\%\/\(\)])*

array({ident_cont}|[\+\-\*\%\/\(\)])*

self[,()\[\].;$\:\+\-\*\/\%\^\<\>\=]

op_chars[\~\!\@\#\^\&\|\`\?\$\+\-\*\/\%\<\>\=]

self[,()\[\].;\:\+\-\*\/\%\^\<\>\=]

op_chars[\~\!\@\#\^\&\|\`\?\+\-\*\/\%\<\>\=]

operator{op_chars}+

for (ic = nchars-2; ic >=0; ic--)

{

if (strchr("~!@#^&|`?$%", yytext[ic]))

if (strchr("~!@#^&|`?%", yytext[ic]))

break;

}

if (ic >=0)

if (nchars ==1 &&

strchr(",()[].;$:+-*/%^<>=", yytext[0]))

strchr(",()[].;:+-*/%^<>=", yytext[0]))

return yytext[0];

}

BEGIN(xskip);

}

<C,xskip>{informix_special}{endif}{space}*{

<C,xskip>{informix_special}{endif}{space}*";"{

if (compat == ECPG_COMPAT_INFORMIX)

{