Mercurial > hg > octave-nkf
diff src/lex.l @ 777:a2f9d3fd720c
[project @ 1994-10-07 14:01:53 by jwe]
author | jwe |
---|---|
date | Fri, 07 Oct 1994 14:13:44 +0000 |
parents | 42731861ee09 |
children | dd56ccefdc5c |
line wrap: on
line diff
--- a/src/lex.l +++ b/src/lex.l @@ -726,36 +726,46 @@ case 'a': *p1 = '\a'; break; + case 'b': // backspace *p1 = '\b'; break; + case 'f': // formfeed *p1 = '\f'; break; + case 'n': // newline *p1 = '\n'; break; + case 'r': // carriage return *p1 = '\r'; break; + case 't': // horizontal tab *p1 = '\t'; break; + case 'v': // vertical tab *p1 = '\v'; break; + case '\\': // backslash *p1 = '\\'; break; + case '\'': // quote *p1 = '\''; break; + case '"': // double quote *p1 = '"'; break; + default: - warning ("unrecognized escape sequence `\\%c' -- converting to `%c'", - *p2, *p2); + warning ("unrecognized escape sequence `\\%c' --\ + converting to `%c'", *p2, *p2); *p1 = *p2; break; } @@ -1137,9 +1147,12 @@ case '%': case '#': in_comment = 1; + break; + case ' ': case '\t': break; + default: goto done; } @@ -1235,8 +1248,12 @@ switch (c0) { - case '+': case '-': case '/': - case ':': case '\\': case '^': + case '+': + case '-': + case '/': + case ':': + case '\\': + case '^': spc_next = (c1 == ' ' || c1 == '\t'); break; @@ -1275,7 +1292,9 @@ spc_next = (c1 == ' ' || c1 == '\t'); break; - case '~': case '!': case '=': + case '~': + case '!': + case '=': if (c1 == '=') spc_next = next_char_is_space (); else @@ -1492,14 +1511,17 @@ case ';': case ',': break; + case '\n': if (in_comment) in_comment = 0; break; + case '%': case '#': in_comment = 1; break; + default: if (in_comment) break;