Ignore:
Timestamp:
Apr 17, 2011, 10:28:20 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: populate LispSymbol? with symbol-related methods.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/gamma.cpp

    r481 r484  
    5757static char const *lang_string(char const *symbol)
    5858{
    59   void *v=find_symbol(symbol);
    60   if (!v || !DEFINEDP(symbol_value(v))) return "Language symbol missing!";
    61   else return lstring_value(symbol_value(v));
     59    LispSymbol *v = LispSymbol::Find(symbol);
     60    if (!v || !DEFINEDP(v->GetValue()))
     61        return "Language symbol missing!";
     62    return lstring_value(v->GetValue());
    6263}
    6364
     
    6869
    6970    // see if user has already done this routine
    70     Cell *gs = find_symbol("darkest_gray");
     71    LispSymbol *gs = LispSymbol::Find("darkest_gray");
    7172
    7273    if(old_pal)
     
    7778    }
    7879
    79     if(gs && DEFINEDP(symbol_value(gs)) && !force_menu)
    80     {
    81         dg = lnumber_value(symbol_value(gs));
     80    if(gs && DEFINEDP(gs->GetValue()) && !force_menu)
     81    {
     82        dg = lnumber_value(gs->GetValue());
    8283    }
    8384    else
    8485    {
    85         if(gs && DEFINEDP(symbol_value(gs)))
    86         {
    87             dg = old_dg = lnumber_value(symbol_value(gs));
     86        if(gs && DEFINEDP(gs->GetValue()))
     87        {
     88            dg = old_dg = lnumber_value(gs->GetValue());
    8889        }
    8990        // load in a fine gray palette they can chose from
     
    181182                int sp = current_space;
    182183                current_space = PERM_SPACE;
    183                 set_symbol_value(make_find_symbol("darkest_gray"), new_lisp_number(dg));
     184                LispSymbol::FindOrCreate("darkest_gray")->SetNumber(dg);
    184185
    185186                current_space = sp;
Note: See TracChangeset for help on using the changeset viewer.