fteqcc's \{number\} string control sequences

diff --git a/lexer.c b/lexer.c
index a349e0efacf3fc79a9587a00de2d359cd9319545..295cb5b1955b1d506f41396bc4c5acd60ffef2a5 100644 (file)
--- a/lexer.c
+++ b/lexer.c
@@ -822,6 +822,16 @@ static int GMQCC_WARN lex_finish_string(lex_file *lex, int quote)
             case '>':  ch = 31; break;
             case '[':  ch = 16; break;
             case ']':  ch = 17; break;
+            case '{':
+                ch = 0;
+                for (nextch = lex_getch(lex); nextch != '}'; nextch = lex_getch(lex)) {
+                    ch = ch * 10 + nextch - '0';
+                    if (nextch < '0' || nextch > '9' || ch > 255) {
+                        lexerror(lex, "bad character code");
+                        return (lex->tok.ttype = TOKEN_ERROR);
+                    }
+                }
+                break;
             case '\n':  ch = '\n'; break;
 
             default: