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

lisp: populate LispSymbol? with symbol-related methods.

File:
1 edited

Legend:

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

    r481 r484  
    377377void show_sell(int abortable)
    378378{
    379   void *ss=make_find_symbol("sell_screens");
    380   if (!DEFINEDP(symbol_value(ss)))
     379  LispSymbol *ss = LispSymbol::FindOrCreate("sell_screens");
     380  if (!DEFINEDP(ss->GetValue()))
    381381  {
    382382    int sp=current_space;
     
    385385//    char *prog="((\"art/endgame.spe\" . \"credit\") (\"art/help.spe\" . \"sell6\"))";
    386386    char const *prog="((\"art/endgame.spe\" . \"credit\"))";
    387     set_symbol_value(ss,compile(prog));
     387    ss->SetValue(compile(prog));
    388388    current_space=sp;
    389389  }
    390390
    391   if (DEFINEDP(symbol_value(ss)))
     391  if (DEFINEDP(ss->GetValue()))
    392392  {
    393393    image blank(2,2); blank.clear();
    394394    wm->set_mouse_shape(blank.copy(),0,0);      // don't show mouse
    395395
    396     ss=symbol_value(ss);
     396    LispObject *tmp = (LispObject *)ss->GetValue();
    397397    int quit=0;
    398     while (ss && !quit)
    399     {
    400       int im=cache.reg_object("art/help.spe",CAR(ss),SPEC_IMAGE,1);
     398    while (tmp && !quit)
     399    {
     400      int im=cache.reg_object("art/help.spe",CAR(tmp),SPEC_IMAGE,1);
    401401      fade_in(cache.img(im),16);
    402402
     
    409409        quit=1;
    410410      fade_out(16);
    411       ss=CDR(ss);
     411      tmp = (LispObject *)CDR(tmp);
    412412    }
    413413    wm->set_mouse_shape(cache.img(c_normal)->copy(),1,1);
     
    469469    case ID_MEDIUM :
    470470    {
    471       set_symbol_value(l_difficulty,l_medium);
     471      l_difficulty->SetValue(l_medium);
    472472      save_difficulty();
    473473    } break;
    474474    case ID_HARD :
    475475    {
    476       set_symbol_value(l_difficulty,l_hard);
     476      l_difficulty->SetValue(l_hard);
    477477      save_difficulty();
    478478    } break;
    479479    case ID_EXTREME :
    480480    {
    481       set_symbol_value(l_difficulty,l_extreme);
     481      l_difficulty->SetValue(l_extreme);
    482482      save_difficulty();
    483483    } break;
    484484    case ID_EASY :
    485485    {
    486       set_symbol_value(l_difficulty,l_easy);
     486      l_difficulty->SetValue(l_easy);
    487487      save_difficulty();
    488488    } break;
     
    696696                if (!current_demo)
    697697                {
    698                     void *d=make_find_symbol("demos");
    699                     if (DEFINEDP(symbol_value(d)))
    700                         current_demo=symbol_value(d);
     698                    LispSymbol *d = LispSymbol::FindOrCreate("demos");
     699                    if (DEFINEDP(d->GetValue()))
     700                        current_demo = d->GetValue();
    701701                }
    702702                if (current_demo)
Note: See TracChangeset for help on using the changeset viewer.