From 33c428e6a78582ca4b8ea11c1da089f8837e5aad Mon Sep 17 00:00:00 2001 From: Ken Thompson Date: Tue, 24 Jun 2008 17:16:06 -0700 Subject: middle dot as alpha package separator SVN=124419 --- src/cmd/cc/lexbody | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'src/cmd/cc') diff --git a/src/cmd/cc/lexbody b/src/cmd/cc/lexbody index f7ba6d0fc..3a38e2ae9 100644 --- a/src/cmd/cc/lexbody +++ b/src/cmd/cc/lexbody @@ -232,6 +232,16 @@ lookup(void) return s; } +int +ISALPHA(int c) +{ + if(isalpha(c)) + return 1; + if(c >= Runeself) + return 1; + return 0; +} + long yylex(void) { @@ -259,7 +269,7 @@ l1: } goto l0; } - if(isalpha(c)) + if(ISALPHA(c)) goto talph; if(isdigit(c)) goto tnum; @@ -275,7 +285,7 @@ l1: case '.': c = GETC(); - if(isalpha(c)) { + if(ISALPHA(c)) { cp = symb; *cp++ = '.'; goto aloop; @@ -296,7 +306,7 @@ l1: aloop: *cp++ = c; c = GETC(); - if(isalpha(c) || isdigit(c) || c == '_' || c == '$') + if(ISALPHA(c) || isdigit(c) || c == '_' || c == '$') goto aloop; *cp = 0; peekc = c; -- cgit v1.2.3