diff options
| author | Tom Lane | 2015-03-10 15:48:34 +0000 |
|---|---|---|
| committer | Tom Lane | 2015-03-10 15:48:38 +0000 |
| commit | 2fbb286647fac2014abdf2fbf6c7b4134be91602 (patch) | |
| tree | 4fccedd11f8609b6046c4a5f7d96f99d9b23ac2e /src/interfaces | |
| parent | bb7b35caf78de80d2ff1643d042e62a71f83abbb (diff) | |
Clean up the mess from => patch.
Commit 865f14a2d31af23a05bbf2df04c274629c5d5c4d was quite a few bricks
shy of a load: psql, ecpg, and plpgsql were all left out-of-step with
the core lexer. Of these only the last was likely to be a fatal
problem; but still, a minimal amount of grepping, or even just reading
the comments adjacent to the places that were changed, would have found
the other places that needed to be changed.
Diffstat (limited to 'src/interfaces')
| -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) |