Changeset 33 for trunk/orca/gl/gx.c

Timestamp:

02/08/06 19:36:45 (3 years ago)

Author:

krobillard

Message:

GL version compiles again.

Files:

• trunk/orca/gl/gx.c (modified) (4 diffs)

trunk/orca/gl/gx.c

@@ -803 +803 @@
     int code;
     int ch;
+    int strLen;
     const char* cp;
-    OString* str;
     OValue* it  = blk->values;
     OValue* end = blk->values + blk->used;
@@ -814 +814 @@
         if( it->type == OT_WORD )
         {
-            str = orAtomString( it->word.atom );
-            cp = str->charArray;
-            ch = (str->used == 1) ? *cp : 0;
+            cp = orAtomCString( it->word.atom );
+            strLen = 0;
+            while( cp[ strLen ] )
+                ++strLen;
+            ch = (strLen == 1) ? *cp : 0;
         }
         else if( it->type == OT_CHAR )
@@ -881 +883 @@
             }
         }
-        else if( str->used == 2 )
+        else if( strLen == 2 )
         {
                  if( strnequ( cp, "up", 2 ) ) code = KEY_Up;
@@ -894 +896 @@
             else if( strnequ( cp, "f9", 2 ) ) code = KEY_F9;
         }
-        else if( str->used == 3 )
+        else if( strLen == 3 )
         {
                  if( strnequ( cp, "spc", 3 ) ) code = KEY_Space;