diff options
| -rw-r--r-- | src/interp/nlib.lisp | 8 | ||||
| -rw-r--r-- | src/interp/sys-os.boot | 7 |
2 files changed, 8 insertions, 7 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 0e76b5b8..243987a0 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -241,16 +241,10 @@ (name2 (|makeFullFilePath| filespec2))) (if (library-file name1) (copy-lib-directory name1 name2) - (copy-file name1 name2)))) + (|copyFile| name1 name2)))) #+ :AKCL (defun copy-lib-directory (name1 name2) (|checkMkdir| name2) (system (concat "sh -c 'cp " name1 "/* " name2 "'"))) - -#+ :AKCL -(defun copy-file (namestring1 namestring2) - (system (concat "cp " namestring1 " " namestring2))) - - 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 |