diff options
author | dos-reis <gdr@axiomatics.org> | 2007-09-10 03:30:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-09-10 03:30:13 +0000 |
commit | b8d7cd431a779551cf2c6eac94f6b4463db97273 (patch) | |
tree | e52ce35bd564ae64db8623410f6414f0d16f72ea /src/interp/obey.lisp | |
parent | 383b2385eb1f3fb00f5856a2ddf593ec42c03189 (diff) | |
download | open-axiom-b8d7cd431a779551cf2c6eac94f6b4463db97273.tar.gz |
* Makefile.pamphlet (DEP): Adjust path to comp.lisp.
(${DEPSYS}): Likewise for def.lisp, bootlex.lisp, postprop.lisp,
metalex.lisp. Use |compileLispFile| instead of COMPILE-FILE.
* Makefile.in: Regenerate.
* union.lisp: New.
* union.lisp.pamphlet: Move content to union.lisp. Remove.
* obey.lisp: New.
* obey.lisp.pamphlet: Move content to obey.lisp. Remove.
* nspadaux.lisp: New.
* nspadaux.lisp.pamphlet: Move content to nspadaux.lisp. Remove.
* fname.lisp: New.
* fname.lisp.pamphlet: Move content to fname.lisp. Remove.
* def.lisp: New.
* def.lisp.pamphlet: Move content to def.lisp. Remove.
* comp.lisp: New.
* comp.lisp.pamphlet: Move content to comp.lisp. Remove.
* bootlex.lisp: New.
* bootlex.lisp.pamphlet: Move content to bootlex.lisp. Remove.
* postprop.lisp: New.
* postprop.lisp.pamphlet: Move content to postprop.lisp. Remove.
* metalex.lisp: New.
* metalex.lisp.pamphlet: Move content to metalex.lisp. Remove.
* parsing.lisp: New.
* parsing.lisp.pamphlet: Move content to parsing.lisp. Remove.
Diffstat (limited to 'src/interp/obey.lisp')
-rw-r--r-- | src/interp/obey.lisp | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/src/interp/obey.lisp b/src/interp/obey.lisp new file mode 100644 index 00000000..6e105f2b --- /dev/null +++ b/src/interp/obey.lisp @@ -0,0 +1,64 @@ +;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. +;; All rights reserved. +;; +;; Redistribution and use in source and binary forms, with or without +;; modification, are permitted provided that the following conditions are +;; met: +;; +;; - Redistributions of source code must retain the above copyright +;; notice, this list of conditions and the following disclaimer. +;; +;; - Redistributions in binary form must reproduce the above copyright +;; notice, this list of conditions and the following disclaimer in +;; the documentation and/or other materials provided with the +;; distribution. +;; +;; - Neither the name of The Numerical ALgorithms Group Ltd. nor the +;; names of its contributors may be used to endorse or promote products +;; derived from this software without specific prior written permission. +;; +;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS +;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A +;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER +;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + +(in-package "VMLISP") + +#+ (and :lucid :unix) +(defun OBEY (S) + (system:run-aix-program (make-absolute-filename "/lib/obey") + :arguments (list "-c" S))) + +#+ (and :lucid :unix) +(defun makedir (fname) + (system:run-aix-program "mkdir" :arguments (list fname))) + +#+ (and :lucid :unix) +(defun delete-directory (dirname) + (system:run-aix-program "rm" :arguments (list "-r" dirname))) + +#+ (and :lucid :unix) +(defun move-file (namestring1 namestring2) + (system:run-aix-program "mv" :arguments (list namestring1 namestring2))) + +#+ (and :lucid :unix) +(defun copy-lib-directory (name1 name2) + (vmlisp::makedir name2) + (system:run-aix-program "sh" :arguments + (list "-c" (concat "cp " name1 "/* " name2)))) + +#+ (and :lucid :unix) +(defun copy-file (namestring1 namestring2) + (system:run-aix-program "cp" :arguments (list namestring1 namestring2))) + +(setq |$algebraOutputStream| *terminal-io*) + + |