Changeset 488 for abuse/trunk/src/clisp.cppTweet

Timestamp:

Apr 17, 2011, 10:28:36 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LispString::Create.

File:

• abuse/trunk/src/clisp.cpp (modified) (10 diffs)

abuse/trunk/src/clisp.cpp

@@ -725 +725 @@
     } break;
     case 18 :
-    { return new_lisp_string(object_names[current_object->otype]); } break;
+    { return LispString::Create(object_names[current_object->otype]); } break;
     case 19 :
     { return current_object->float_tick(); } break;
@@ -810 +810 @@
     case 26 :
     {
-      return new_lisp_string(current_level->name());
+      return LispString::Create(current_level->name());
     } break;
     case 27 : return ant_ai(); break;
@@ -855 +855 @@
       char nm[50];
       last_savegame_name(nm);
-      return new_lisp_string(nm);
+      return LispString::Create(nm);
     } break;
     case 45 :
@@ -863 +863 @@
 //      get_savegame_name(nm);
       the_game->reset_keymap();
-      return new_lisp_string(nm);
+      return LispString::Create(nm);
     } break;
     case 46 :
     {
-      return new_lisp_string(start_argv[lnumber_value(eval(CAR(args)))]);
+      return LispString::Create(start_argv[lnumber_value(eval(CAR(args)))]);
     } break;
     case 47 :
@@ -935 +935 @@
         lbreak("object is not a player, cannot return name");
       else
-        return new_lisp_string(c->name);
+        return LispString::Create(c->name);
     } break;
     case 54 :
@@ -941 +941 @@
       char cd[150];
       getcwd(cd,100);
-      return new_lisp_string(cd);
+      return LispString::Create(cd);
     } break;
     case 55 :
@@ -964 +964 @@
     *tp=0;
       }
-      return new_lisp_string(tmp);
+      return LispString::Create(tmp);
     } break;
     case 58 :
@@ -976 +976 @@
     p_ref r1(fl),r2(dl);
     
-    for (i=tfiles-1;i>=0;i--) { push_onto_list(new_lisp_string(files[i]),fl); free(files[i]); }
+    for (i=tfiles-1;i>=0;i--) { push_onto_list(LispString::Create(files[i]),fl); free(files[i]); }
     free(files);
 
-    for (i=tdirs-1;i>=0;i--) { push_onto_list(new_lisp_string(dirs[i]),dl); free(dirs[i]); }
+    for (i=tdirs-1;i>=0;i--) { push_onto_list(LispString::Create(dirs[i]),dl); free(dirs[i]); }
     free(dirs);
     
@@ -1012 +1012 @@
         {
           sprintf(name2,"%s%04ld.pcx",name,i);
-          push_onto_list(new_lisp_string(name2),ret);
+          push_onto_list(LispString::Create(name2),ret);
         }
       } else
@@ -1019 +1019 @@
         {
           sprintf(name2,"%s%04ld.pcx",name,i);
-          push_onto_list(new_lisp_string(name2),ret);
+          push_onto_list(LispString::Create(name2),ret);
         }
       }