Changeset 387 for branches/thune/thread_safe/console.c

Timestamp:

05/17/07 16:25:27 (18 months ago)

Author:

krobillard

Message:

Thread safe Thune -

The only globals are now the static ur_global & ur_envGlobal.
Each thread has own data store.
Series data now accessed through functions which take thread pointer.
Word names now part of UrlanEnv? - no longer a binary!
Hold/release now implemented with a block.

Files:

• branches/thune/thread_safe/console.c (modified) (6 diffs)

branches/thune/thread_safe/console.c

@@ -21 +21 @@
 #include <assert.h>
 #include <stdio.h>
-#include "urlan.h"
+#include "env.h"
 
 
@@ -40 +40 @@
 #else
 
-#define APPNAME     "Thune"
+#define APPNAME     "Bloc3"
 #define CUSTOM_DT           0
 #define CUSTOM_DT_COUNT     0
@@ -77 +77 @@
 
 
-static void reportError( UThread* th )
+static void reportError( UThread* ut )
 {
     UString* str;
 #if 0
     UCell* val;
-    val = ur_result( th, 0 );
+    val = ur_result( ut, 0 );
     str = ur_binPtr( val->err.strN );
 
@@ -89 +89 @@
             str->ptr.c );
 #else
-    str = ur_binPtr( th->callTempBinN );
+    str = ur_threadTmp( ut );
     str->used = 0;
-    ur_toStr( ur_result(th, 0), str, 0 );
+    ur_toStr( ur_result(ut, 0), str, 0 );
     ur_termCStr( str );
     printf( str->ptr.c );
 #endif
 
-    //ur_threadReset( th );
+    //ur_threadReset( ut );
 }
 
@@ -132 +132 @@
     }
 #endif
+
+    ur_freezeEnv( env.threads, 128, 256 );
 
     if( argc > 1 )
@@ -255 +257 @@
 
                         ur_arrayInit( &str, 1, 0 );
-                        ur_toStr( val, &str, 0 );
+                        ur_toStrT( env.threads, val, &str, 0 );
                         if( str.ptr.c )
                         {