quakeforge/ruamoko/scheme/Symbol.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