mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-06 05:01:26 +00:00
90 lines
1.4 KiB
R
90 lines
1.4 KiB
R
#include "Symbol.h"
|
|
#include "hash.h"
|
|
#include "defs.h"
|
|
|
|
string SymbolGetKey (void [] ele, void [] data)
|
|
{
|
|
local Symbol []s = (Symbol[]) ele;
|
|
|
|
return [s stringValue];
|
|
}
|
|
|
|
void SymbolFree (void [] ele, void [] data)
|
|
{
|
|
local Symbol []s = (Symbol[]) ele;
|
|
|
|
[s release];
|
|
}
|
|
|
|
hashtab_t symbols;
|
|
Symbol []lparen;
|
|
Symbol []rparen;
|
|
Symbol []quote;
|
|
Symbol []dot;
|
|
|
|
Symbol []symbol (string str)
|
|
{
|
|
return [Symbol forString: str];
|
|
}
|
|
|
|
@implementation Symbol
|
|
+ (void) initialize
|
|
{
|
|
symbols = Hash_NewTable (1024, SymbolGetKey, SymbolFree, nil);
|
|
lparen = [Symbol forString: "("];
|
|
rparen = [Symbol forString: ")"];
|
|
quote = [Symbol forString: "'"];
|
|
dot = symbol(".");
|
|
[lparen retain];
|
|
[rparen retain];
|
|
[quote retain];
|
|
[dot retain];
|
|
}
|
|
|
|
+ (Symbol[]) forString: (string) s
|
|
{
|
|
local Symbol []res;
|
|
|
|
if ((res = Hash_Find (symbols, s))) {
|
|
return res;
|
|
} else {
|
|
res = (Symbol[]) [self newFromString: s];
|
|
Hash_Add (symbols, res);
|
|
return res;
|
|
}
|
|
}
|
|
|
|
+ (Symbol[]) leftParen
|
|
{
|
|
return lparen;
|
|
}
|
|
|
|
+ (Symbol[]) rightParen
|
|
{
|
|
return rparen;
|
|
}
|
|
|
|
+ (Symbol[]) quote
|
|
{
|
|
return quote;
|
|
}
|
|
|
|
+ (Symbol[]) dot
|
|
{
|
|
return dot;
|
|
}
|
|
|
|
- (string) printForm
|
|
{
|
|
return value;
|
|
}
|
|
|
|
- (void) dealloc
|
|
{
|
|
if (Hash_Find (symbols, value) == self) {
|
|
Hash_Del (symbols, value);
|
|
}
|
|
[super dealloc];
|
|
}
|
|
|
|
@end
|