diff options
Diffstat (limited to 'src/interfaces/ecpg/preproc')
| -rw-r--r-- | src/interfaces/ecpg/preproc/parse.pl | 3 | ||||
| -rw-r--r-- | src/interfaces/ecpg/preproc/pgc.l | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/interfaces/ecpg/preproc/parse.pl b/src/interfaces/ecpg/preproc/parse.pl index 36dce803863..7ae7acc6130 100644 --- a/src/interfaces/ecpg/preproc/parse.pl +++ b/src/interfaces/ecpg/preproc/parse.pl @@ -46,7 +46,8 @@ my %replace_string = ( 'WITH_LA' => 'with', 'TYPECAST' => '::', 'DOT_DOT' => '..', - 'COLON_EQUALS' => ':=',); + 'COLON_EQUALS' => ':=', + 'EQUALS_GREATER' => '=>',); # specific replace_types for specific non-terminals - never include the ':' # ECPG-only replace_types are defined in ecpg-replace_types diff --git a/src/interfaces/ecpg/preproc/pgc.l b/src/interfaces/ecpg/preproc/pgc.l index 530712efac6..a8cc3d877c0 100644 --- a/src/interfaces/ecpg/preproc/pgc.l +++ b/src/interfaces/ecpg/preproc/pgc.l @@ -236,6 +236,7 @@ array ({ident_cont}|{whitespace}|[\[\]\+\-\*\%\/\(\)\>\.])* typecast "::" dot_dot \.\. colon_equals ":=" +equals_greater "=>" /* * "self" is the set of chars that should be returned as single-character @@ -620,6 +621,7 @@ cppline {space}*#([^i][A-Za-z]*|{if}|{ifdef}|{ifndef}|{import})(.*\\{space})*. <SQL>{typecast} { return TYPECAST; } <SQL>{dot_dot} { return DOT_DOT; } <SQL>{colon_equals} { return COLON_EQUALS; } +<SQL>{equals_greater} { return EQUALS_GREATER; } <SQL>{informix_special} { /* are we simulating Informix? */ if (INFORMIX_MODE) |