diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-17 09:00:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-17 09:00:41 +0000 |
| commit | 0f8d3e4c660cc6177e57b21579ac40733b82b940 (patch) | |
| tree | 815ca8b520f594bcbbe2fd4c23a30b1e4e1c9f92 /src/interp/br-data.boot | |
| parent | d9b9f67266bcb24e7bec1a26afaf062b376d450e (diff) | |
| download | open-axiom-0f8d3e4c660cc6177e57b21579ac40733b82b940.tar.gz | |
* lib/cfuns-c.c (oa_chdir): Define.
(is_dot_or_dotdot): New.
(oa_unlink): Define.
(oa_rename): Likewise.
(oa_mkdir): Likewise.
* interp/sys-os.boot: New file.
* interp/util.lisp (MAKE-TAGS-FILE): Use changeDirectory.
(MAKELIB): Likewise.
(MAKESPAD): Likewise.
(LIBCHECK): Likewise.
* interp/sys-utility.boot ($ERASE): Define here. Use removeFile.
($REPLACE): Likewise.
(checkMkdir): Define.
* interp/obey.lisp (MAKEDIR): Remove definition.
* interp/nlib.lisp (RDEFIOSTREAM): Use checkMkdir.
(MAKEDIR): Remove.
(RPACKFILE): Use removeFile.
($ERASE): Remove Lisp definition.
($REPLACE): Likewise.
* interp/i-syscmd.boot (cd): Use changeDirectory.
(compileAsharpArchiveCmd): Use mkdir.
(histFileErase): Likewise.
* interp/fortcall.boot (fortCall): Use removeFile.
(invokeNagman): Likewise.
* interp/daase.lisp (|library|): Use changeDirectory.
(LOCALDATABASE): Likewise.
(DaaseName): Use removeFile.
* interp/construc.lisp (mergelibs): Use removeFile.
(mergeall): Use changeDirectory.
* interp/c-doc.boot (docreport): Use removeFile.
* interp/br-search.boot (getTempPath): Likewise.
* interp/br-saturn.boot (dbSort): Likewise.
* interp/br-data.boot (buildLibdb): Likewise
(dbSplitLibdb): Likewise.
(buildGloss): Likewise.
(purgeLocalLibdb): Likewise.
* interp/as.boot (asList): Likewise.
* interp/Makefile.pamphlet (OBJS): Include sys-os.$(FASLEXT).
(sys-os.$(FASLEXT)): New rule.
(sys-utility.$(FASLEXT)): Require sys-os.$(FASLEXT).
* include/cfuns.h (oa_chdir): Declare.
(oa_unlink): Likewise.
(oa_rename): Likewise.
(oad_mkdir): Likewise.
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 58c13a83..86b71b8b 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007, Gabriel Dos Reis. +-- Copyright (C) 2007-2008, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -94,8 +94,7 @@ buildLibdb(:options) == --called by buildDatabase (database.boot) $machineType = 'RIOS => '"sort -f -T /tmp -y200 _"temp.text_" > _"libdb.text_"" $machineType = 'SPARC => '"sort -f _"temp.text_" > _"libdb.text_"" '"sort _"temp.text_" > _"libdb.text_"" - --OBEY '"mv libdb.text olibdb.text" - RENAME_-FILE('"libdb.text", '"olibdb.text") + renameFile('"libdb.text", '"olibdb.text") deleteFile '"temp.text" buildLibdbConEntry conname == @@ -303,7 +302,7 @@ dbSplitLibdb() == SHUT instream SHUT outstream SHUT comstream - OBEY '"rm olibdb.text" + removeFile '"olibdb.text" dbSplit(line,n,k) == k := charPosition($tick,line,k + 1) @@ -332,10 +331,10 @@ buildGloss() == --called by buildDatabase (database.boot) pathname := STRCONC(systemRootDirectory(),'"/algebra/gloss.text") instream := MAKE_-INSTREAM pathname keypath := '"glosskey.text" - OBEY STRCONC('"rm -f ",keypath) + removeFile keypath outstream:= MAKE_-OUTSTREAM keypath htpath := '"gloss.ht" - OBEY STRCONC('"rm -f ",htpath) + removeFile htpath htstream:= MAKE_-OUTSTREAM htpath defpath := '"glossdef.text" defstream:= MAKE_-OUTSTREAM defpath @@ -783,6 +782,6 @@ extendLocalLibdb conlist == -- called by astran purgeLocalLibdb() == --used for debugging purposes only $newConstructorList := nil - obey '"rm libdb.text" + removeFile '"libdb.text" |