Changeset 455 for branches/thune

Timestamp:

08/27/07 21:05:56 (15 months ago)

Author:

krobillard

Message:

Added ur_sizeofUrlanEnv() & ur_thread() to hide UrlanEnv? structure.
ur_makeStringT() now returns UString*.

Location:

branches/thune/thread_safe

Files:

• make.c (modified) (4 diffs)
• urlan.c (modified) (1 diff)
• urlan.h (modified) (3 diffs)

branches/thune/thread_safe/make.c

@@ -668 +668 @@
   Special characters are translated.
 */
-UIndex ur_makeStringT( UThread* ut, UCell* res, const char* txt, int len )
+UString* ur_makeStringT( UThread* ut, UCell* res, const char* txt, int len )
 {
     UIndex strN;
@@ -711 +711 @@
                 ur_initString( res, strN, 0 );
                 ur_setEncoding( res, UR_ENC_UTF16 );
-                return strN;
+                return str;
             }
             *out++ = ch;
@@ -723 +723 @@
 
     ur_initString( res, strN, 0 );
-    return strN;
+    return str;
 }
 
@@ -1783 +1783 @@
                 if( spA )
                 {
-                    binN = ur_makeString( res, spA, spB - spA );
+                    ur_makeString( res, spA, spB - spA );
                 }
                 else

branches/thune/thread_safe/urlan.c

@@ -444 +444 @@
 #endif
 
+
+int ur_sizeofUrlanEnv()
+{
+    return sizeof(UrlanEnv);
+}
+
+
+UThread* ur_thread( UrlanEnv* env )
+{
+    return env->threads;
+}
+
+
 /**
   Initialize UrlanEnv.

branches/thune/thread_safe/urlan.h

@@ -509 +509 @@
 extern int ur_encodingCharSize[UR_ENC_COUNT];
 
+int     ur_sizeofUrlanEnv();
 int     ur_startup( UrlanEnv*, UDatatype* custom, int customCount );
 void    ur_shutdown( UrlanEnv* );
@@ -514 +515 @@
 void    ur_disable( UrlanEnv*, int envFlags );
 void    ur_freezeEnv( UThread*, int binCount, int blkCount );
+UThread* ur_thread( UrlanEnv* );
 UThread* ur_threadMake( UrlanEnv*, int binCount, int blkCount );
 void     ur_threadFree( UThread* );
@@ -551 +553 @@
 UIndex  ur_makeBinaryT( UThread*, int size, UBinary** ptr );
 UIndex  ur_makeBinaryFrom( UThread*, const UCell* );
-UIndex  ur_makeStringT( UThread*, UCell*, const char* txt, int len );
+UString* ur_makeStringT( UThread*, UCell*, const char* txt, int len );
 UIndex  ur_makeVectorT( UThread*, int size, UArray** ptr );
 UIndex  ur_makeResourceT( UThread*, int dataType, int size, UResource** );