Changeset 136 for trunk/orca/boot.r

Timestamp:

05/04/06 15:39:15 (3 years ago)

Author:

krobillard

Message:

Orca - Added os_call config option.

Files:

• trunk/orca/boot.r (modified) (2 diffs)

trunk/orca/boot.r

@@ -406 +406 @@
     getenv: native [name [string!]]
 
-    call: native [
-        command [string! block!]
-        ;/input
-        ;in [string! file! none!]    ; [any-string! port! file! url! none!]
-        /output
-        out [string! file! none!]    ; [string! port! file! url! none!]
-        /wait
-        ;/console
-        ;/shell
-        ;/info
-    ]
-
     change-dir: native [value]
     what-dir: native []
@@ -719 +707 @@
 if find config 'rebol [append boot load %rebol_compat.r]
 
+if find config 'os_call [
+    append natives [
+        call: native [
+            command [string! block!]
+            ;/input
+            ;in [string! file! none!]    ; [any-string! port! file! url! none!]
+            /output
+            out [string! file! none!]    ; [string! port! file! url! none!]
+            /wait
+            ;/console
+            ;/shell
+            ;/info
+        ]
+    ]
+]
+
 ;eof