qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-03-21 18:01:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Scheme: The lexer now actually supports true/false constants.

Browse source
This commit is contained in:
Brian Koropoff 2005-05-08 10:14:27 +00:00
parent 9683888e70
commit 2ebd2e0c2a
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
ruamoko/scheme/Lexer.r
View file

@ -1,6 +1,8 @@
#include "Lexer.h"
#include "Number.h"
#include "string.h"
#include "Boolean.h"
#include "Error.h"
#include "defs.h"
BOOL isdigit (string x)
@ -43,6 +45,7 @@ BOOL issymbol (string x)
local Number num;
local Symbol sym;
local String str;
local Boolean bl;
for (len = 0; isspace(str_mid(source, len, len+1)); len++) {
if (str_mid(source, len, len+1) == "\n") {
@ -82,6 +85,22 @@ BOOL issymbol (string x)
case ".":
str_copy (source, str_mid (source, 1));
return [Symbol dot];
case "#":
str_copy (source, str_mid (source, 1));
switch (str_mid (source, 0, 1)) {
case "t":
bl = [Boolean trueConstant];
str_copy (source, str_mid (source, 1));
return bl;
case "f":
bl = [Boolean falseConstant];
str_copy (source, str_mid (source, 1));
return bl;
default:
return [Error type: "parse"
message: "Invalid # constant"
by: self];
}
case "":
return NIL;
default:
@ -97,4 +116,14 @@ BOOL issymbol (string x)
return linenum;
}
- (integer) line
{
return linenum;
}
- (string) source
{
return filename;
}
@end