|
@@ -240,13 +240,13 @@ begin
|
|
end else if buf[idx] = IdStart then begin
|
|
end else if buf[idx] = IdStart then begin
|
|
token:=weIdent;
|
|
token:=weIdent;
|
|
resText:=ScanWhile(buf, idx, IdBody);
|
|
resText:=ScanWhile(buf, idx, IdBody);
|
|
|
|
+ end else if buf[idx] in NumericChars then begin
|
|
|
|
+ token:=weNumber;
|
|
|
|
+ resText:=ScanWhile(buf, idx, NumericChars);
|
|
end else if buf[idx] in AlphaNumChars then begin
|
|
end else if buf[idx] in AlphaNumChars then begin
|
|
resText:=ScanWhile(buf, idx, GrammarChars);
|
|
resText:=ScanWhile(buf, idx, GrammarChars);
|
|
GetGrammar(resText, token, instrCode);
|
|
GetGrammar(resText, token, instrCode);
|
|
done:=true;
|
|
done:=true;
|
|
- end else if buf[idx] in NumericChars then begin
|
|
|
|
- token:=weNumber;
|
|
|
|
- resText:=ScanWhile(buf, idx, NumericChars);
|
|
|
|
end else begin
|
|
end else begin
|
|
token:=weError;
|
|
token:=weError;
|
|
inc(idx);
|
|
inc(idx);
|