Changeset 157 for trunk/thune/make.c

Timestamp:

05/25/06 15:20:35 (3 years ago)

Author:

krobillard

Message:

Thune - Words can now be created as unbound. Start of support for non-ascii
string encodings.

Files:

• trunk/thune/make.c (modified) (5 diffs)

trunk/thune/make.c

@@ -597 +597 @@
 
 /**
-  Append word!, lit-word!, or set-word! value to block.
+  Append word!, lit-word!, set-word!, or get-word! value to block.
 */
 UCell* ur_appendWord( UBlock* blk, int type, const char* name, int len )
@@ -607 +607 @@
     cell->word.wordBlk = 0;     //GLOBAL_WORD_BLKN;
     cell->word.valBlk  = GLOBAL_VAL_BLKN;
-    //cell->word.index   = -1;
+    cell->word.index   = UR_UNBOUND;
     cell->word.atom    = ur_intern( name, len );
 
-    //if( type == UT_SETWORD )
+    if( type != UT_LITWORD )
     {
         // Add word to global context.
@@ -839 +839 @@
                 binN = ur_makeBinary( ur_int(tos) );
                 ur_setType(res, UT_STRING);
+                //ur_setEncoding(res, UR_ENC_ASCII);
                 ur_setSeries(res, binN, 0);
             }
@@ -852 +853 @@
 
                 ur_setType(res, UT_STRING);
+                //ur_setEncoding(res, UR_ENC_ASCII);
                 ur_setSeries(res, binN, 0);
             }
@@ -864 +866 @@
 
                 ur_setType(res, UT_STRING);
+                //ur_setEncoding(res, UR_ENC_ASCII);
                 ur_setSeries(res, binN, 0);
             }