Kaydet (Commit) 05dba8e2 authored tarafından Oliver Bolte's avatar Oliver Bolte

INTEGRATION: CWS jl5vba (1.4.94); FILE MERGED

2004/01/21 09:08:10 ab 1.4.94.1: #111934# Merge to src680, for tasks see message INTEGRATION: CWS ab02vba (1.4.6)
üst 6e6f4b16
......@@ -2,9 +2,9 @@
*
* $RCSfile: token.cxx,v $
*
* $Revision: 1.4 $
* $Revision: 1.5 $
*
* last change: $Author: rt $ $Date: 2003-04-23 16:57:17 $
* last change: $Author: obo $ $Date: 2004-03-17 13:34:05 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
......@@ -92,12 +92,14 @@ static TokenTable aTokTable_Basic [] = { // Token-Tabelle:
{ BASE, "Base" },
{ BINARY, "Binary" },
{ TBOOLEAN, "Boolean" },
{ BYREF, "ByRef", },
{ BYVAL, "ByVal", },
{ CALL, "Call" },
{ CASE, "Case" },
{ _CDECL_, "Cdecl" },
{ CLOSE, "Close" },
{ COMPARE, "Compare" },
{ COMPATIBLE,"Compatible" },
{ _CONST_, "Const" },
{ TCURRENCY,"Currency" },
{ TDATE, "Date" },
......@@ -545,7 +547,7 @@ SbiToken SbiTokenizer::Next()
} while( delta );
// Symbol? Wenn nicht >= Token
sal_Unicode ch = aSym.GetBuffer()[0];
if( !BasicSimpleCharClass::isAlpha( ch ) && !bSymbol )
if( !BasicSimpleCharClass::isAlpha( ch, bCompatible ) && !bSymbol )
return eCurTok = (SbiToken) (ch & 0x00FF);
return eCurTok = SYMBOL;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment