Changeset 94

Timestamp:

03/17/06 22:41:34 (3 years ago)

Author:

krobillard

Message:

All natives now use the OR_NATIVE macro.

Location:

trunk/orca

Files:

• context.c (modified) (8 diffs)
• error.c (modified) (1 diff)
• files.c (modified) (11 diffs)
• gc.c (modified) (1 diff)
• math.c (modified) (11 diffs)
• math3d.c (modified) (3 diffs)
• ovalue.c (modified) (32 diffs)
• parse.c (modified) (1 diff)
• print.c (modified) (2 diffs)
• series.c (modified) (27 diffs)
• stdio.c (modified) (5 diffs)

trunk/orca/context.c

@@ -630 +630 @@
    /copy
 */
-void orBindNative( OValue* a1 )
+OR_NATIVE_PUB( orBindNative )
 {
 #define REF_BIND_COPY   a1 + 2
@@ -672 +672 @@
 
 
-void orProtectNative( OValue* a1 )
+OR_NATIVE_PUB( orProtectNative )
 {
     OBlock* vblk;
@@ -715 +715 @@
    word   [word!]
 */
-void orInNative( OValue* a1 )
+OR_NATIVE_PUB( orInNative )
 {
     OValue* a2 = a1 + 1;
@@ -739 +739 @@
    body  [block!]
 */
-void orUseNative( OValue* a1 )
+OR_NATIVE_PUB( orUseNative )
 {
     OContext ctx;
@@ -799 +799 @@
    body         [block!]
 */
-void orForeachNative( OValue* a1 )
+OR_NATIVE_PUB( orForeachNative )
 {
 #ifdef OR_CONFIG_REBOL
@@ -1032 +1032 @@
 #else  // --------------------------------------------------------------
     // Foreach without context creation overhead.
-    // Executes in 25%-30% less time and does not allocate from heap.
+    // (Does not bind or allocate from heap).
 
     OBlock* blk;
@@ -1213 +1213 @@
 //see orForeachNative
 
-void orRemoveEachNative( OValue* a1 )
+OR_NATIVE_PUB( orRemoveEachNative )
 {
     int rlen;
@@ -1514 +1514 @@
 }
 
+
 /*EOF*/

trunk/orca/error.c

@@ -109 +109 @@
   Convert error! to object!.
 */
-void orDisarmNative( OValue* a1 )
+OR_NATIVE_PUB( orDisarmNative )
 {
     if( orIs(a1, OT_ERROR) )

trunk/orca/files.c

@@ -40 +40 @@
 
 
-void orOpenNative( OValue* a1 )
+OR_NATIVE( orOpenNative )
 {
     OArray* arr = &orEnv->devices;
@@ -68 +68 @@
 
 
-void orCloseNative( OValue* a1 )
+OR_NATIVE( orCloseNative )
 {
     OArray* arr = &orEnv->devices;
@@ -78 +78 @@
 
 
-void orExistsQNative( OValue* a1 )
+OR_NATIVE( orExistsQNative )
 {
     int logic = 0;
@@ -89 +89 @@
 
 
-void orSizeQNative( OValue* a1 )
+OR_NATIVE( orSizeQNative )
 {
     int size;
@@ -106 +106 @@
 
 
-void orDirQNative( OValue* a1 )
+OR_NATIVE( orDirQNative )
 {
     int status;
@@ -118 +118 @@
 
 
-void orModifiedQNative( OValue* a1 )
+OR_NATIVE( orModifiedQNative )
 {
     int status;
@@ -245 +245 @@
 #define REF_READ_SIZE       a1+6
 
-void orReadNative( OValue* a1 )
+OR_NATIVE( orReadNative )
 {
     if( a1->type == OT_FILE )
@@ -366 +366 @@
 #define REF_APPEND    a1+3
 
-void orWriteNative( OValue* a1 )
+OR_NATIVE( orWriteNative )
 {
     if( a1->type == OT_FILE )
@@ -477 +477 @@
 
 
-static void cleanPathNative( OValue* a1 )
+OR_NATIVE( cleanPathNative )
 {
     OString* str;
@@ -498 +498 @@
 
 
-void orCompressNative( OValue* a1 )
+OR_NATIVE( orCompressNative )
 {
     OString* str;
@@ -528 +528 @@
 
 
-void orDecompressNative( OValue* a1 )
+OR_NATIVE( orDecompressNative )
 {
 #define BUF_LOW     32

trunk/orca/gc.c

@@ -810 +810 @@
 
 
-void orMemoryNative( OValue* a1 )
+OR_NATIVE_PUB( orMemoryNative )
 {
     (void) a1;

trunk/orca/math.c

@@ -53 +53 @@
 
 
-static void orSineNative( OValue* a1 )
+OR_NATIVE( orSineNative )
 {
     TRIG_FUNC( mathSine )
@@ -59 +59 @@
 
 
-static void orCosineNative( OValue* a1 )
+OR_NATIVE( orCosineNative )
 {
     TRIG_FUNC( mathCosine )
@@ -65 +65 @@
 
 
-static void orTangentNative( OValue* a1 )
+OR_NATIVE( orTangentNative )
 {
     TRIG_FUNC( mathTan )
@@ -71 +71 @@
 
 
-static void orArcsineNative( OValue* a1 )
+OR_NATIVE( orArcsineNative )
 {
     TRIG_FUNC( mathASine )
@@ -77 +77 @@
 
 
-static void orArccosineNative( OValue* a1 )
+OR_NATIVE( orArccosineNative )
 {
     TRIG_FUNC( mathACosine )
@@ -83 +83 @@
 
 
-static void orArctangentNative( OValue* a1 )
+OR_NATIVE( orArctangentNative )
 {
     TRIG_FUNC( mathATan )
@@ -89 +89 @@
 
 
-static void orSquareRootNative( OValue* a1 )
+OR_NATIVE( orSquareRootNative )
 {
     double n;
@@ -109 +109 @@
 
 /* NOTE: random does not follow REBOL behavior. */
-static void orRandomNative( OValue* a1 )
+OR_NATIVE( orRandomNative )
 {
     if( orRefineSet(REF_RAND_SEED) )
@@ -266 +266 @@
 
 
-static void orComplementNative( OValue* a1 )
+OR_NATIVE( orComplementNative )
 {
     switch( a1->type )
@@ -295 +295 @@
 
 
-static void orAbsNative( OValue* a1 )
+OR_NATIVE( orAbsNative )
 {
     switch( a1->type )
@@ -323 +323 @@
 
 
-static void orNegateNative( OValue* a1 )
+OR_NATIVE( orNegateNative )
 {
     switch( a1->type )

trunk/orca/math3d.c

@@ -319 +319 @@
 
 
-void orDotNative( OValue* a1 )
+OR_NATIVE_PUB( orDotNative )
 {
     float* a = &a1->vec3.x;
@@ -329 +329 @@
 
 
-void orCrossNative( OValue* a1 )
+OR_NATIVE_PUB( orCrossNative )
 {
     float* a = &a1->vec3.x;
@@ -340 +340 @@
 
 
-void orNormalizeNative( OValue* a1 )
+OR_NATIVE_PUB( orNormalizeNative )
 {
     orNormalize( &a1->vec3.x );

trunk/orca/ovalue.c

@@ -936 +936 @@
 
 
-void orToNative( OValue* a1 )
+OR_NATIVE( orToNative )
 {
     OValue* res;
@@ -1213 +1213 @@
 
 
-void orLoadNative( OValue* a1 )
+OR_NATIVE( orLoadNative )
 {
     OBlock* blk;
@@ -1350 +1350 @@
 #define REF_DO_ARG      a1+2
 
-void orDoNative( OValue* a1 )
+OR_NATIVE_PUB( orDoNative )
 {
     if( orIs(a1, OT_BLOCK) || orIs(a1, OT_PAREN) )
@@ -1415 +1415 @@
 
 
-void orSetNative( OValue* a1 )
+OR_NATIVE( orSetNative )
 {
     if( orIsWord(a1->type) )
@@ -1432 +1432 @@
 
 
-void orUnsetNative( OValue* a1 )
+OR_NATIVE( orUnsetNative )
 {
     OValue* val;
@@ -1460 +1460 @@
 
 
-void orValueQNative( OValue* a1 )
+OR_NATIVE( orValueQNative )
 {
     int logic = 0;
@@ -1479 +1479 @@
 
 
-void orGetNative( OValue* a1 )
+OR_NATIVE( orGetNative )
 {
     if( orIsWord(a1->type) )
@@ -1495 +1495 @@
 
 
-void orNotNative( OValue* a1 )
+OR_NATIVE( orNotNative )
 {
     int logic;
@@ -1508 +1508 @@
 
 
-void orIfNative( OValue* a1 )
+OR_NATIVE( orIfNative )
 {
     if( orIfTrue(a1) )
@@ -1520 +1520 @@
 
 
-void orUnlessNative( OValue* a1 )
+OR_NATIVE( orUnlessNative )
 {
     if( orIfFalse(a1) )
@@ -1532 +1532 @@
 
 
-void orEitherNative( OValue* a1 )
+OR_NATIVE( orEitherNative )
 {
     OValue* blkArg = a1 + 2;;
@@ -1544 +1544 @@
 
 
-void orLoopNative( OValue* a1 )
+OR_NATIVE( orLoopNative )
 {
     OIndex body;
@@ -1564 +1564 @@
 
 
-void orRepeatNative( OValue* a1 )
+OR_NATIVE( orRepeatNative )
 {
     OValue* wval;
@@ -1632 +1632 @@
 
 
-void orUntilNative( OValue* a1 )
+OR_NATIVE( orUntilNative )
 {
     OValue* res;
@@ -1657 +1657 @@
 
 
-void orWhileNative( OValue* a1 )
+OR_NATIVE( orWhileNative )
 {
     OValue* res;
@@ -1725 +1725 @@
 
 
-void orBreakNative( OValue* a1 )
+OR_NATIVE( orBreakNative )
 {
     OValue* res = a1;
@@ -1732 +1732 @@
 
 
-void orReturnNative( OValue* a1 )
+OR_NATIVE( orReturnNative )
 {
     OValue* res = a1 + 1;
@@ -1739 +1739 @@
 
 
-void orExitNative( OValue* a1 )
+OR_NATIVE( orExitNative )
 {
     OValue* res = a1 + 1;
@@ -1771 +1771 @@
 
 
-void orRecycleNative( OValue* a1 )
+OR_NATIVE( orRecycleNative )
 {
 #define REF_REC_OFF  a1
@@ -1791 +1791 @@
 
 
-void orTypeQNative( OValue* a1 )
+OR_NATIVE( orTypeQNative )
 {
 #define REF_TYPEQ_WORD   a1+1
@@ -1819 +1819 @@
   try: native [ block [block!] ]
 */
-void orTryNative( OValue* a1 )
+OR_NATIVE( orTryNative )
 {
    orEvalBlock( orBLOCK( a1 ), a1->series.it );
@@ -1835 +1835 @@
   catch: native [ block [block!] /name word [word! block!] ]
 */
-void orCatchNative( OValue* a1 )
+OR_NATIVE( orCatchNative )
 {
     //OIndex nameBlk = 0;
@@ -1895 +1895 @@
   throw: native [ value /name word [word!] ]
 */
-void orThrowNative( OValue* a1 )
+OR_NATIVE( orThrowNative )
 {
 #define REF_NAME   a1+1
@@ -2892 +2892 @@
 
 
-void orReduceNative( OValue* a1 )
+OR_NATIVE_PUB( orReduceNative )
 {
     if( (a1->type == OT_BLOCK) ||
@@ -2966 +2966 @@
 
 
-void orComposeNative( OValue* a1 )
+OR_NATIVE( orComposeNative )
 {
 #define REF_COMP_DEEP     a1+1
@@ -2993 +2993 @@
    Result is the first value that is not false or none!
 */
-void orAnyNative( OValue* a1 )
+OR_NATIVE( orAnyNative )
 {
     OValue* res;
@@ -3028 +3028 @@
 
 
-void orAllNative( OValue* a1 )
+OR_NATIVE( orAllNative )
 {
     OValue* res;
@@ -3194 +3194 @@
 
 
-void orDumpNative( OValue* a1 )
+OR_NATIVE( orDumpNative )
 {
     if( orIsBlock(a1->type) || a1->type == OT_LIST )
@@ -4118 +4118 @@
 
 
-void orNativeNative( OValue* a1 )
+OR_NATIVE_PUB( orNativeNative )
 {
     if( a1->type == OT_BLOCK )
@@ -4219 +4219 @@
 //extern void orRebindClosure( OIndex blkN );
 
-void orDoesNative( OValue* a1 )
+OR_NATIVE( orDoesNative )
 {
     if( a1->type == OT_BLOCK )
@@ -4246 +4246 @@
 
 //void orMakeFunction( OBlock* spec, OBlock* body )
-void orFuncNative( OValue* a1 )
+OR_NATIVE( orFuncNative )
 {
     OContext ctx;
@@ -4454 +4454 @@
     orNative( orDumpNative,    "dump" );
 #endif
-
-
 }
 

trunk/orca/parse.c

@@ -972 +972 @@
    parse series rules
 */
-void orParseNative( OValue* a1 )
+OR_NATIVE_PUB( orParseNative )
 {
     OValue* rules = a1 + 1;

trunk/orca/print.c

@@ -1121 +1121 @@
   Converts a value to a string.
 */
-void orFormNative( OValue* a1 )
+OR_NATIVE_PUB( orFormNative )
 {
     OString* str = orMakeString( 0 );
@@ -1132 +1132 @@
   Converts a value to a parseable string.
 */
-void orMoldNative( OValue* a1 )
+OR_NATIVE_PUB( orMoldNative )
 {
     OString* str = orMakeString( 0 );

trunk/orca/series.c

@@ -108 +108 @@
 
 
-void orLengthQNative( OValue* a1 )
+OR_NATIVE( orLengthQNative )
 {
     int len;
@@ -142 +142 @@
 
 
-void orHeadNative( OValue* a1 )
+OR_NATIVE( orHeadNative )
 {
     if( a1->type == OT_LIST )
@@ -156 +156 @@
 
 
-void orTailNative( OValue* a1 )
+OR_NATIVE( orTailNative )
 {
     if( a1->type == OT_LIST )
@@ -173 +173 @@
 
 
-void orBackNative( OValue* a1 )
+OR_NATIVE( orBackNative )
 {
     if( a1->type == OT_LIST )
@@ -194 +194 @@
 
 
-void orNextNative( OValue* a1 )
+OR_NATIVE( orNextNative )
 {
     if( a1->type == OT_LIST )
@@ -215 +215 @@
 
 
-void orIndexQNative( OValue* a1 )
+OR_NATIVE( orIndexQNative )
 {
     if( a1->type == OT_LIST )
@@ -230 +230 @@
 
 
-void orHeadQNative( OValue* a1  )
+OR_NATIVE( orHeadQNative  )
 {
     int logic = OR_FALSE;
@@ -251 +251 @@
 
 
-void orTailQNative( OValue* a1  )
+OR_NATIVE( orTailQNative  )
 {
     int logic = OR_FALSE;
@@ -274 +274 @@
 
 
-void orClearNative( OValue* a1 )
+OR_NATIVE( orClearNative )
 {
     switch( a1->type )
@@ -413 +413 @@
 #define REF_INS_ONLY    a1+4
 
-void orInsertNative( OValue* a1 )
+OR_NATIVE( orInsertNative )
 {
     OValue* a2 = a1 + 1;
@@ -584 +584 @@
 #define REF_RM_RANGE   a1+2
 
-void orRemoveNative( OValue* a1 )
+OR_NATIVE( orRemoveNative )
 {
     int len;
@@ -827 +827 @@
 
 
-void orFirstNative( OValue* a1 )
+OR_NATIVE( orFirstNative )
 {
     if( a1->type == OT_OBJECT )
@@ -842 +842 @@
 
 
-void orSecondNative( OValue* a1 )
+OR_NATIVE( orSecondNative )
 {
     orPick( a1, 1, orRESULT );