Changeset 94 for trunk/orca/ovalue.c

Timestamp:

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

Author:

krobillard

Message:

All natives now use the OR_NATIVE macro.

Files:

• trunk/orca/ovalue.c (modified) (32 diffs)

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
-
-
 }