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

lisp: implement LispString::Create.

File:
1 edited

Legend:

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

    r486 r488  
    725725    } break;
    726726    case 18 :
    727     { return new_lisp_string(object_names[current_object->otype]); } break;
     727    { return LispString::Create(object_names[current_object->otype]); } break;
    728728    case 19 :
    729729    { return current_object->float_tick(); } break;
     
    810810    case 26 :
    811811    {
    812       return new_lisp_string(current_level->name());
     812      return LispString::Create(current_level->name());
    813813    } break;
    814814    case 27 : return ant_ai(); break;
     
    855855      char nm[50];
    856856      last_savegame_name(nm);
    857       return new_lisp_string(nm);
     857      return LispString::Create(nm);
    858858    } break;
    859859    case 45 :
     
    863863//      get_savegame_name(nm);
    864864      the_game->reset_keymap();
    865       return new_lisp_string(nm);
     865      return LispString::Create(nm);
    866866    } break;
    867867    case 46 :
    868868    {
    869       return new_lisp_string(start_argv[lnumber_value(eval(CAR(args)))]);
     869      return LispString::Create(start_argv[lnumber_value(eval(CAR(args)))]);
    870870    } break;
    871871    case 47 :
     
    935935        lbreak("object is not a player, cannot return name");
    936936      else
    937         return new_lisp_string(c->name);
     937        return LispString::Create(c->name);
    938938    } break;
    939939    case 54 :
     
    941941      char cd[150];
    942942      getcwd(cd,100);
    943       return new_lisp_string(cd);
     943      return LispString::Create(cd);
    944944    } break;
    945945    case 55 :
     
    964964    *tp=0;
    965965      }
    966       return new_lisp_string(tmp);
     966      return LispString::Create(tmp);
    967967    } break;
    968968    case 58 :
     
    976976    p_ref r1(fl),r2(dl);
    977977   
    978     for (i=tfiles-1;i>=0;i--) { push_onto_list(new_lisp_string(files[i]),fl); free(files[i]); }
     978    for (i=tfiles-1;i>=0;i--) { push_onto_list(LispString::Create(files[i]),fl); free(files[i]); }
    979979    free(files);
    980980
    981     for (i=tdirs-1;i>=0;i--) { push_onto_list(new_lisp_string(dirs[i]),dl); free(dirs[i]); }
     981    for (i=tdirs-1;i>=0;i--) { push_onto_list(LispString::Create(dirs[i]),dl); free(dirs[i]); }
    982982    free(dirs);
    983983   
     
    10121012        {
    10131013          sprintf(name2,"%s%04ld.pcx",name,i);
    1014           push_onto_list(new_lisp_string(name2),ret);
     1014          push_onto_list(LispString::Create(name2),ret);
    10151015        }
    10161016      } else
     
    10191019        {
    10201020          sprintf(name2,"%s%04ld.pcx",name,i);
    1021           push_onto_list(new_lisp_string(name2),ret);
     1021          push_onto_list(LispString::Create(name2),ret);
    10221022        }
    10231023      }
Note: See TracChangeset for help on using the changeset viewer.