aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-os.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-os.boot')
-rw-r--r--src/interp/sys-os.boot7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot
index b79eff84..c8567d45 100644
--- a/src/interp/sys-os.boot
+++ b/src/interp/sys-os.boot
@@ -55,6 +55,13 @@ import oa__getcwd: () -> string for doGetWorkingDirectory
getWorkingDirectory() ==
ensureTrailingSlash doGetWorkingDirectory()
+++ Copy a file.
+import oa__copy__file: (string,string) -> int for doCopyFile
+
+copyFile(src,dst) ==
+ doCopyFile(src,dst) = 0 => nil
+ systemError ['"Could not copy file",:bright src,'"to",:bright dst]
+
++ change current working directory.
import oa__chdir: string -> int for changeDirectory
-- 0: success, -1: failure