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