share/contrib/operatingsystem/operatingsystem.mac

   1 /* SPDX-License-Identifier: GPL-2.0-or-later */
   2
   3 load("operatingsystem.lisp");
   4
   5 /* maxima-getenv() is an existing lisp-function. Just assign a consistent name
   6    for a maxima function for it (callable without a leading '?' and the need to
   7    quote the "-" by "\-". */
   8
   9 getenv(s) := ?maxima\-getenv(s) $
  10
  11
  12 setenv(s, t) := ?getenv(s, t) $
  13
  14 putenv(s, t) := setenv(s, t) $
  15
  16 getcurrentdirectory() := ?os\-getcurrentdirectory() $
  17
  18 delete_file(s) := ?delete\-file(s)$
  19
  20 chdir(s) := ?os\-chdir(os_endwithslash(s)) $
  21
  22 mkdir(s) := ?os\-mkdir(os_endwithslash(s)) $
  23
  24 rmdir(s) := ?os\-rmdir(os_endwithslash(s)) $
  25
  26 /* currently works only with files; TODO: allow directories too.
  27 (CLISP: (ext:rename-directory "testdir1/" "testdir2/") (with trailing slashes) */
  28 rename_file(f, t) := ?rename\-file(f, t)$
  29
  30 copy_file(f, t) := ?os\-copy\-file(f, t)$
  31
  32 /* ensure that the directoryname ends with an slash */
  33 os_endwithslash(s) := if charat(s, slength(s)) = "/" then s else concat (s, "/")$