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

Timestamp:

Apr 11, 2008, 12:09:19 PM (14 years ago)

Author:

Sam Hocevar

Message:

• Removed 800 lines of unused code.

File:

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

abuse/trunk/src/clisp.cpp

@@ -30 +30 @@
 #include "demo.hpp"
 #include "chat.hpp"
-#include "text_gui.hpp"
 #include "jdir.hpp"
 #include "netcfg.hpp"
@@ -475 +474 @@
   add_c_bool_fun("draw_rect",5,5,             283);  // x1,y1,x2,y2,color
   add_c_bool_fun("get_option",1,1,            284);
-  add_c_bool_fun("dir_exsist",1,1,            285);
-  add_c_bool_fun("chdir",1,1,                 286);
-  add_c_bool_fun("nice_copy",3,3,             287);  // source file, dest file
   add_c_bool_fun("set_delay_on",1,1,          288);  // T or nil
   add_c_bool_fun("set_login",1,1,             289);  // name
@@ -550 +546 @@
   add_lisp_function("get_main_font",0,0,        51);
   add_lisp_function("player_name",0,0,          52);
-  add_lisp_function("nice_input",3,3,           53);  // title, prompt, default -> returns input
   add_lisp_function("get_cwd",0,0,              54);
   add_lisp_function("system",1,1,               55);
   add_lisp_function("convert_slashes",2,2,      56);
-  add_lisp_function("show_yes_no",4,4,          57);
   add_lisp_function("get_directory",1,1,        58);  // path
-  add_lisp_function("nice_menu",3,3,            59);  // title, menu_title, list -> return selection number
   add_lisp_function("respawn_ai",0,0,           60);
 
@@ -939 +932 @@
         return new_lisp_string(c->name);
     } break;
-    case 53 :
-    {
-      char tit[100],prompt[100],def[100];
-      strcpy(tit,lstring_value(eval(CAR(args))));  args=CDR(args);
-      strcpy(prompt,lstring_value(eval(CAR(args))));  args=CDR(args);
-      strcpy(def,lstring_value(eval(CAR(args))));  args=CDR(args);
-      return nice_input(tit,prompt,def);
-    } break;
     case 54 :
     {
@@ -976 +961 @@
       return new_lisp_string(tmp);
     } break;
-    case 57 :
-    {
-      return show_yes_no(CAR(args),CAR(CDR(args)),CAR(CDR(CDR(args))),CAR(CDR(CDR(CDR(args)))));
-    } break;
     case 58 :
     {
@@ -1001 +982 @@
 
       return rl;
-    } break;
-    case 59 :
-    {
-      return nice_menu(CAR(args),CAR(CDR(args)),CAR(CDR(CDR(args))));
     } break;
     case 60 : return respawn_ai(); break;
@@ -2238 +2215 @@
       else return 0;
     } break;
-    case 285 :
-    {
-      char cd[100];
-      getcwd(cd,100);
-      int t=change_dir(lstring_value(CAR(args)));
-      change_dir(cd);
-      return t;
-    } break;
-    case 286 :
-    {
-      if (change_dir(lstring_value(CAR(args))))
-        return 1;
-      else return 0;
-    } break;
-    case 287 :
-    {
-      void *title=CAR(args); args=CDR(args);
-      void *source=CAR(args); args=CDR(args);
-      void *dest=CAR(args); args=CDR(args);
-
-      return nice_copy(lstring_value(title),lstring_value(source),lstring_value(dest));
-    } break;
     case 288 :
     {