Changeset 497


Ignore:
Timestamp:
Apr 17, 2011, 11:56:59 PM (10 years ago)
Author:
Sam Hocevar
Message:

lisp: implement LSymbol::EvalFunction? and ensure all local pointers are
protected against collection.

Location:
abuse/trunk/src
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • abuse/trunk/src/cache.cpp

    r495 r497  
    387387    push_onto_list(LNumber::Create(type),call_with);
    388388
    389     void *CacheList=eval_function((LSymbol *)cache_fun,call_with);
     389    void *CacheList = ((LSymbol *)cache_fun)->EvalFunction(call_with);
    390390    PtrRef r1(CacheList);
    391391

  • abuse/trunk/src/clisp.cpp

    r496 r497  
    582582    exit(0);
    583583      }
    584       return eval_function((LSymbol *)ai,NULL);
     584      return ((LSymbol *)ai)->EvalFunction(NULL);
    585585    } break;
    586586    case 1 :
    … …  
    710710      void *f=figures[current_object->otype]->get_fun(OFUN_USER_FUN);
    711711      if (!f) return NULL;
    712       return eval_function((LSymbol *)f,args);
     712      return ((LSymbol *)f)->EvalFunction(args);
    713713    } break;
    714714    case 17 :
    … …  
    22652265    current_object=v->focus;
    22662266
    2267     eval_function((LSymbol *)l_restart_player,NULL);
     2267    ((LSymbol *)l_restart_player)->EvalFunction(NULL);
    22682268    v->reset_player();
    22692269    v->focus->set_aistate(0);

  • abuse/trunk/src/cop.cpp

    r496 r497  
    234234  push_onto_list(LNumber::Create(type),list);
    235235  push_onto_list(LPointer::Create(o->get_object(0)),list);
    236   eval_function((LSymbol *)l_fire_object,list);
     236  ((LSymbol *)l_fire_object)->EvalFunction(list);
    237237  o->lvars[top_just_fired]=1;
    238238  other->lvars[just_fired]=1;
    … …  
    663663
    664664      current_object=top;
    665       void *ret=eval_function((LSymbol *)figures[top->otype]->get_fun(OFUN_USER_FUN),args);
     665      void *ret = ((LSymbol *)figures[top->otype]->get_fun(OFUN_USER_FUN))->EvalFunction(args);
    666666      current_object=o;
    667667      v->add_ammo(v->current_weapon,lnumber_value(ret));
    … …  
    673673      {
    674674        // call the user function to reset the player
    675     eval_function((LSymbol *)l_restart_player,NULL);
     675    ((LSymbol *)l_restart_player)->EvalFunction(NULL);
    676676    o->controller()->reset_player();
    677677    o->set_aistate(0);
    … …  
    767767      o->draw_predator();
    768768      } else
    769         eval_function((LSymbol *)l_player_draw,ret);
     769        ((LSymbol *)l_player_draw)->EvalFunction(ret);
    770770
    771771      o->y=oldy;
    … …  
    830830      case FAST_POWER :
    831831      {
    832     eval_function((LSymbol *)l_draw_fast,NULL);
     832    ((LSymbol *)l_draw_fast)->EvalFunction(NULL);
    833833    int old_state=o->state;
    834834    switch (o->state)

  • abuse/trunk/src/game.cpp

    r496 r497  
    691691    screen->dirt_off();
    692692    clear_tmp();
    693     eval_function(l_post_render, NULL);
     693    l_post_render->EvalFunction(NULL);
    694694    clear_tmp();
    695695    screen->dirt_on();
    … …  
    23452345    int sp = current_space;
    23462346    current_space = PERM_SPACE;
    2347     eval_function((LSymbol *)l_next_song, NULL);
     2347    ((LSymbol *)l_next_song)->EvalFunction(NULL);
    23482348    current_space = sp;
    23492349      } */

  • abuse/trunk/src/level.cpp

    r494 r497  
    15121512    PtrRef r1(arg_list);
    15131513    push_onto_list(LString::Create(n),arg_list);
    1514     eval_function((LSymbol *)l_level_loaded,arg_list);
     1514    ((LSymbol *)l_level_loaded)->EvalFunction(arg_list);
    15151515
    15161516    current_space=sp;
    … …  
    18391839      current_object=f->focus;
    18401840      void *m=mark_heap(TMP_SPACE);
    1841       eval_function(fun,NULL);
     1841      fun->EvalFunction(NULL);
    18421842      restore_heap(m,TMP_SPACE);
    18431843    }

  • abuse/trunk/src/lisp/lisp.cpp

    r496 r497  
    180180void *lmalloc(int size, int which_space)
    181181{
    182   return malloc(size);
     182  return malloc(size); /* XXX: temporary hack */
    183183
    184184#ifdef WORD_ALIGN
    … …  
    14311431void *eval_sys_function(LSysFunction *fun, void *arg_list);
    14321432
    1433 void *eval_function(LSymbol *sym, void *arg_list)
     1433LObject *LSymbol::EvalFunction(void *arg_list)
    14341434{
    14351435#ifdef TYPE_CHECKING
    1436   int args, req_min, req_max;
    1437   if (item_type(sym)!=L_SYMBOL)
    1438   {
    1439     sym->Print();
    1440     lbreak("EVAL : is not a function name (not symbol either)");
    1441     exit(0);
    1442   }
    1443 #endif
    1444 
    1445   void *fun=(LSysFunction *)(((LSymbol *)sym)->function);
    1446   PtrRef ref2( fun  );
    1447 
    1448   // make sure the arguments given to the function are the correct number
    1449   ltype t=item_type(fun);
     1436    int args, req_min, req_max;
     1437    if (item_type(this) != L_SYMBOL)
     1438    {
     1439        Print();
     1440        lbreak("EVAL: is not a function name (not symbol either)");
     1441        exit(0);
     1442    }
     1443#endif
     1444
     1445    LObject *fun = function;
     1446    PtrRef ref2(fun);
     1447    PtrRef ref3(arg_list);
     1448
     1449    // make sure the arguments given to the function are the correct number
     1450    ltype t = item_type(fun);
    14501451
    14511452#ifdef TYPE_CHECKING
    1452   switch (t)
    1453   {
    1454     case L_SYS_FUNCTION :
    1455     case L_C_FUNCTION :
    1456     case L_C_BOOL :
    1457     case L_L_FUNCTION :
    1458     {
    1459       req_min=((LSysFunction *)fun)->min_args;
    1460       req_max=((LSysFunction *)fun)->max_args;
    1461     } break;
    1462     case L_USER_FUNCTION :
    1463     {
    1464       return eval_user_fun(sym, arg_list);
    1465     } break;
    1466     default :
    1467     {
    1468       sym->Print();
    1469       lbreak(" is not a function name");
    1470       exit(0);
    1471     } break;
    1472   }
    1473 
    1474   if (req_min!=-1)
    1475   {
    1476     void *a=arg_list;
    1477     for (args=0; a; a=CDR(a)) args++;    // count number of paramaters
    1478 
    1479     if (args<req_min)
    1480     {
    1481       ((LObject *)arg_list)->Print();
    1482       sym->name->Print();
    1483       lbreak("\nToo few parameters to function\n");
    1484       exit(0);
    1485     } else if (req_max!=-1 && args>req_max)
    1486     {
    1487       ((LObject *)arg_list)->Print();
    1488       sym->name->Print();
    1489       lbreak("\nToo many parameters to function\n");
    1490       exit(0);
    1491     }
    1492   }
     1453    switch (t)
     1454    {
     1455    case L_SYS_FUNCTION:
     1456    case L_C_FUNCTION:
     1457    case L_C_BOOL:
     1458    case L_L_FUNCTION:
     1459        req_min = ((LSysFunction *)fun)->min_args;
     1460        req_max = ((LSysFunction *)fun)->max_args;
     1461        break;
     1462    case L_USER_FUNCTION:
     1463        return (LObject *)eval_user_fun(this, arg_list);
     1464    default:
     1465        Print();
     1466        lbreak(" is not a function name");
     1467        exit(0);
     1468        break;
     1469    }
     1470
     1471    if (req_min != -1)
     1472    {
     1473        void *a = arg_list;
     1474        for (args = 0; a; a = CDR(a))
     1475            args++; // count number of parameters
     1476
     1477        if (args < req_min)
     1478        {
     1479            ((LObject *)arg_list)->Print();
     1480            name->Print();
     1481            lbreak("\nToo few parameters to function\n");
     1482            exit(0);
     1483        }
     1484        else if (req_max != -1 && args > req_max)
     1485        {
     1486            ((LObject *)arg_list)->Print();
     1487            name->Print();
     1488            lbreak("\nToo many parameters to function\n");
     1489            exit(0);
     1490        }
     1491    }
    14931492#endif
    14941493
    14951494#ifdef L_PROFILE
    1496   time_marker start;
    1497 #endif
    1498 
    1499 
    1500   PtrRef ref1(arg_list);
    1501   void *ret=NULL;
    1502 
    1503   switch (t)
    1504   {
    1505     case L_SYS_FUNCTION :
    1506     { ret=eval_sys_function( ((LSysFunction *)fun), arg_list); } break;
    1507     case L_L_FUNCTION :
    1508     { ret=l_caller( ((LSysFunction *)fun)->fun_number, arg_list); } break;
    1509     case L_USER_FUNCTION :
    1510     {
    1511       return eval_user_fun(sym, arg_list);
    1512     } break;
    1513     case L_C_FUNCTION :
    1514     case L_C_BOOL :
    1515     {
    1516       void *first=NULL, *cur=NULL, *tmp;
    1517       PtrRef r1(first), r2(cur);
    1518       while (arg_list)
    1519       {
    1520         if (first) {
    1521           tmp = LList::Create();
    1522           ((LList *)cur)->cdr = (LObject *)tmp;
    1523           cur=tmp;
    1524         } else
    1525           cur=first = LList::Create();
    1526 
    1527         LObject *val = CAR(arg_list)->Eval();
    1528         ((LList *)cur)->car = val;
    1529         arg_list=lcdr(arg_list);
    1530       }
    1531       if(t == L_C_FUNCTION)
    1532         ret = LNumber::Create(c_caller( ((LSysFunction *)fun)->fun_number, first));
    1533       else if (c_caller( ((LSysFunction *)fun)->fun_number, first))
    1534         ret=true_symbol;
    1535       else ret=NULL;
    1536     } break;
    1537     default :
    1538       fprintf(stderr, "not a fun, shouldn't happen\n");
    1539   }
     1495    time_marker start;
     1496#endif
     1497
     1498    LObject *ret = NULL;
     1499
     1500    switch (t)
     1501    {
     1502    case L_SYS_FUNCTION:
     1503        ret = (LObject *)eval_sys_function(((LSysFunction *)fun), arg_list);
     1504        break;
     1505    case L_L_FUNCTION:
     1506        ret = (LObject *)l_caller(((LSysFunction *)fun)->fun_number, arg_list);
     1507        break;
     1508    case L_USER_FUNCTION:
     1509        return (LObject *)eval_user_fun(this, arg_list);
     1510    case L_C_FUNCTION:
     1511    case L_C_BOOL:
     1512    {
     1513        LList *first = NULL, *cur = NULL;
     1514        PtrRef r1(first), r2(cur), r3(arg_list);
     1515        while (arg_list)
     1516        {
     1517            LList *tmp = LList::Create();
     1518            if (first)
     1519                cur->cdr = tmp;
     1520            else
     1521                first = tmp;
     1522            cur = tmp;
     1523
     1524            LObject *val = CAR(arg_list)->Eval();
     1525            ((LList *)cur)->car = val;
     1526            arg_list = lcdr(arg_list);
     1527        }
     1528        if (t == L_C_FUNCTION)
     1529            ret = LNumber::Create(c_caller(((LSysFunction *)fun)->fun_number, first));
     1530        else if (c_caller(((LSysFunction *)fun)->fun_number, first))
     1531            ret = true_symbol;
     1532        else
     1533            ret = NULL;
     1534        break;
     1535    }
     1536    default:
     1537        fprintf(stderr, "not a fun, shouldn't happen\n");
     1538    }
    15401539
    15411540#ifdef L_PROFILE
    1542   time_marker end;
    1543   ((LSymbol *)sym)->time_taken+=end.diff_time(&start);
    1544 #endif
    1545 
    1546   return ret;
     1541    time_marker end;
     1542    time_taken += end.diff_time(&start);
     1543#endif
     1544
     1545    return ret;
    15471546}
    15481547
    … …  
    15761575  switch ((short)item_type(sym))
    15771576  {
    1578     case L_SYS_FUNCTION :
    1579     case L_USER_FUNCTION :
    1580     case L_SYMBOL :
    1581     break;
    1582     default :
    1583     {
    1584       ((LObject *)sym)->Print();
     1577    case L_SYS_FUNCTION:
     1578    case L_USER_FUNCTION:
     1579    case L_SYMBOL:
     1580      break;
     1581    default:
     1582    {
     1583      sym->Print();
    15851584      lbreak(" is not a function\n");
    15861585      exit(0);
    … …  
    16371636    {
    16381637      LList *c = LList::Create();
    1639       c->car = (LObject *)eval_function((LSymbol *)sym, first);
     1638      c->car = ((LSymbol *)sym)->EvalFunction(first);
    16401639      if (return_list)
    16411640        last_return->cdr=c;
    … …  
    22592258    {
    22602259      void *n1 = CAR(arg_list)->Eval();
    2261       ret=eval_function((LSymbol *)n1, CDR(arg_list));
     2260      ret = ((LSymbol *)n1)->EvalFunction(CDR(arg_list));
    22622261    } break;
    22632262    case SYS_FUNC_GT:
    … …  
    22992298    break;
    23002299    case SYS_FUNC_SYMBOL_NAME:
    2301       void *symb;
    2302       symb = CAR(arg_list)->Eval();
     2300      LSymbol *symb;
     2301      symb = (LSymbol *)CAR(arg_list)->Eval();
    23032302#ifdef TYPE_CHECKING
    23042303      if (item_type(symb)!=L_SYMBOL)
    23052304      {
    2306     ((LObject *)symb)->Print();
    2307     lbreak(" is not a symbol (symbol-name)\n");
    2308     exit(0);
    2309       }
    2310 #endif
    2311       ret=((LSymbol *)symb)->name;
     2305        symb->Print();
     2306        lbreak(" is not a symbol (symbol-name)\n");
     2307        exit(0);
     2308      }
     2309#endif
     2310      ret = symb->name;
    23122311    break;
    23132312    case SYS_FUNC_TRACE:
    … …  
    29422941    {
    29432942      if (!arg_list)
    2944       { ((LObject *)sym)->Print(); lbreak("too few parameter to function\n"); exit(0); }
     2943      { sym->Print(); lbreak("too few parameter to function\n"); exit(0); }
    29452944      l_user_stack.push(CAR(arg_list)->Eval());
    29462945      f_arg=CDR(f_arg);
    … …  
    29592958
    29602959  if (f_arg)
    2961   { ((LObject *)sym)->Print(); lbreak("too many parameter to function\n"); exit(0); }
     2960  { sym->Print(); lbreak("too many parameter to function\n"); exit(0); }
    29622961
    29632962
    … …  
    29772976#ifdef L_PROFILE
    29782977  time_marker end;
    2979   ((LSymbol *)sym)->time_taken+=end.diff_time(&start);
     2978  sym->time_taken += end.diff_time(&start);
    29802979#endif
    29812980
    … …  
    30303029            break;
    30313030        case L_CONS_CELL:
    3032             ret = (LObject *)eval_function((LSymbol *)CAR(this), CDR(this));
     3031            ret = ((LSymbol *)CAR(this))->EvalFunction(CDR(this));
    30333032            break;
    30343033        default :

  • abuse/trunk/src/lisp/lisp.h

    r496 r497  
    117117
    118118    /* Methods */
     119    LObject *EvalFunction(void *arg_list);
     120
    119121    LString *GetName();
    120122    LObject *GetFunction();
    … …  
    214216void *lisp_equal(void *n1, void *n2);
    215217void *eval_block(void *list);
    216 void *eval_function(LSymbol *sym, void *arg_list);
    217218void *eval_user_fun(LSymbol *sym, void *arg_list);
    218219void *assoc(void *item, void *list);

  • abuse/trunk/src/lisp/lisp_gc.cpp

    r494 r497  
    261261void collect_space(int which_space) // should be tmp or permanent
    262262{
    263   return; /* XXX */
     263  return; /* XXX: temporary hack */
    264264
    265265  int old_space = current_space;

  • abuse/trunk/src/objects.cpp

    r494 r497  
    266266
    267267    void *m=mark_heap(TMP_SPACE);
    268     eval_function((LSymbol *)ns,NULL);
     268    ((LSymbol *)ns)->EvalFunction(NULL);
    269269    restore_heap(m,TMP_SPACE);
    270270
    … …  
    280280        current_object = this;
    281281        void *m = mark_heap( TMP_SPACE );
    282         (void)eval_function( (LSymbol *)ns, NULL );
     282        ((LSymbol *)ns)->EvalFunction(NULL);
    283283        restore_heap( m, TMP_SPACE );
    284284    }
    … …  
    420420      prof1=new time_marker;
    421421
    422     Cell *ret=(Cell *)eval_function((LSymbol *)figures[otype]->get_fun(OFUN_AI),NULL);
     422    LObject *ret = ((LSymbol *)figures[otype]->get_fun(OFUN_AI))->EvalFunction(NULL);
    423423    if (profiling())
    424424    {
    … …  
    636636      prof1=new time_marker;
    637637
    638     eval_function((LSymbol *)figures[otype]->get_fun(OFUN_DRAW),NULL);
     638    ((LSymbol *)figures[otype]->get_fun(OFUN_DRAW))->EvalFunction(NULL);
    639639    if (profiling())
    640640    {
    … …  
    663663      prof1=new time_marker;
    664664
    665     eval_function((LSymbol *)figures[otype]->get_fun(OFUN_MAP_DRAW),NULL);
     665    ((LSymbol *)figures[otype]->get_fun(OFUN_MAP_DRAW))->EvalFunction(NULL);
    666666    if (profiling())
    667667    {
    … …  
    11701170      prof1=new time_marker;
    11711171
    1172     eval_function((LSymbol *)figures[type]->get_fun(OFUN_CONSTRUCTOR),NULL);
     1172    ((LSymbol *)figures[type]->get_fun(OFUN_CONSTRUCTOR))->EvalFunction(NULL);
    11731173    if (profiling())
    11741174    {
    … …  
    12351235      prof1=new time_marker;
    12361236
    1237     void *r=eval_function((LSymbol *)figures[otype]->get_fun(OFUN_MOVER),
    1238               (void *)lcx);
     1237    LObject *r = ((LSymbol *)figures[otype]->get_fun(OFUN_MOVER))->EvalFunction(lcx);
    12391238    if (profiling())
    12401239    {
    … …  
    16381637      prof1=new time_marker;
    16391638
    1640     eval_function((LSymbol *)figures[new_type]->get_fun(OFUN_CONSTRUCTOR),NULL);
     1639    ((LSymbol *)figures[new_type]->get_fun(OFUN_CONSTRUCTOR))->EvalFunction(NULL);
    16411640    if (profiling())
    16421641    {

  • abuse/trunk/src/view.cpp

    r494 r497  
    335335/*    if( DEFINEDP( symbol_function( l_get_local_input ) ) )
    336336    {
    337         void *ret = eval_function((LSymbol *)l_get_local_input, NULL );
     337        void *ret = ((LSymbol *)l_get_local_input->EvalFunction(NULL);
    338338        sug_x = lnumber_value( CAR( ret ) );
    339339        ret = CDR( ret );
    … …  
    462462      void *list=NULL;
    463463      push_onto_list(LString::Create(chat_buf),list);
    464       eval_function((LSymbol *)l_chat_input,list);
     464      ((LSymbol *)l_chat_input)->EvalFunction(list);
    465465      restore_heap(m,TMP_SPACE);
    466466
Note: See TracChangeset for help on using the changeset viewer.