Changeset 484 for abuse/trunk/src/gamma.cppTweet

Timestamp:

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

Author:

Sam Hocevar

Message:

lisp: populate LispSymbol? with symbol-related methods.

File:

• abuse/trunk/src/gamma.cpp (modified) (4 diffs)

abuse/trunk/src/gamma.cpp

@@ -57 +57 @@
 static char const *lang_string(char const *symbol)
 {
-  void *v=find_symbol(symbol);
-  if (!v || !DEFINEDP(symbol_value(v))) return "Language symbol missing!";
-  else return lstring_value(symbol_value(v));
+    LispSymbol *v = LispSymbol::Find(symbol);
+    if (!v || !DEFINEDP(v->GetValue()))
+        return "Language symbol missing!";
+    return lstring_value(v->GetValue());
 }
 
@@ -68 +69 @@
 
     // see if user has already done this routine
-    Cell *gs = find_symbol("darkest_gray");
+    LispSymbol *gs = LispSymbol::Find("darkest_gray");
 
     if(old_pal)
@@ -77 +78 @@
     }
 
-    if(gs && DEFINEDP(symbol_value(gs)) && !force_menu)
-    {
-        dg = lnumber_value(symbol_value(gs));
+    if(gs && DEFINEDP(gs->GetValue()) && !force_menu)
+    {
+        dg = lnumber_value(gs->GetValue());
     }
     else
     {
-        if(gs && DEFINEDP(symbol_value(gs)))
-        {
-            dg = old_dg = lnumber_value(symbol_value(gs));
+        if(gs && DEFINEDP(gs->GetValue()))
+        {
+            dg = old_dg = lnumber_value(gs->GetValue());
         }
         // load in a fine gray palette they can chose from
@@ -181 +182 @@
                 int sp = current_space;
                 current_space = PERM_SPACE;
-                set_symbol_value(make_find_symbol("darkest_gray"), new_lisp_number(dg));
+                LispSymbol::FindOrCreate("darkest_gray")->SetNumber(dg);
 
                 current_space = sp;