qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-23 04:42:32 +00:00
Code Issues Projects Releases Packages Wiki Activity

Added support for comments

Browse source
This commit is contained in:
Brian Koropoff 2005-05-08 21:51:16 +00:00
parent 07cd150677
commit 6a9adafa8d
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
ruamoko/scheme/Lexer.r
View file

@ -17,9 +17,14 @@ BOOL isspace (string x)
return (x == " " || x == "\t" || x == "\n" || x == "\r");
}
BOOL isjunk (string x)
{
return isspace (x) || x == ";";
}
BOOL issymbol (string x)
{
return (x != "" && x != "(" && x !=")" && !isspace (x));
return (x != "" && x != "(" && x !=")" && !isjunk (x));
}
@implementation Lexer
@ -47,7 +52,12 @@ BOOL issymbol (string x)
local String str;
local Boolean bl;
for (len = 0; isspace(str_mid(source, len, len+1)); len++) {
for (len = 0; isjunk(str_mid(source, len, len+1)); len++) {
if (str_mid(source, len, len+1) == ";") {
while (str_mid(source, len, len+1) != "\n") {
len++;
}
}
if (str_mid(source, len, len+1) == "\n") {
linenum++;
}