diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-11 23:39:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-11 23:39:57 +0000 |
| commit | 9db6b61081ac23786139c664988260b81195378e (patch) | |
| tree | 5f0333cc5aa17be7576ff293031270c2dac55b62 /src/interp/c-doc.boot | |
| parent | 8a33c76f87483d4b01e666c0013e21b3cf3b7266 (diff) | |
| download | open-axiom-9db6b61081ac23786139c664988260b81195378e.tar.gz | |
* interp/obey.lisp: Remove.
* interp/Makefile.pamphlet (OBJS): Don't include obey.$(FASLEXT).
* interp/br-data.boot: Replace OBEY with runCommand.
* interp/br-saturn.boot: Likewise.
* interp/br-search.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/compat.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/g-util.boot: Likewise.
* interp/ht-root.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/patches.lisp: Likewise.
* interp/spad.lisp: Likewise.
* interp/util.lisp: Likewise.
* interp/vmlisp.lisp: Likewise.
Diffstat (limited to 'src/interp/c-doc.boot')
| -rw-r--r-- | src/interp/c-doc.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index 5c199b50..811a6db3 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -1216,11 +1216,11 @@ checkAlphabetic c == docreport(nam) == --creates a report for person "nam" using file "whofiles" removeFile '"docreport.input" - OBEY STRCONC('"echo _")bo setOutStream('",STRINGIMAGE nam,'")_" > temp.input") - OBEY '"cat docreport.header temp.input > docreport.input" - OBEY STRCONC('"awk '/",STRINGIMAGE nam,'"/ {printf(_")co %s.spad\n_",$2)}' whofiles > temp.input") - OBEY '"cat docreport.input temp.input > temp1.input" - OBEY '"cat temp1.input docreport.trailer > docreport.input" + runCommand STRCONC('"echo _")bo setOutStream('",STRINGIMAGE nam,'")_" > temp.input") + runCommand '"cat docreport.header temp.input > docreport.input" + runCommand STRCONC('"awk '/",STRINGIMAGE nam,'"/ {printf(_")co %s.spad\n_",$2)}' whofiles > temp.input") + runCommand '"cat docreport.input temp.input > temp1.input" + runCommand '"cat temp1.input docreport.trailer > docreport.input" removeFile '"temp.input" removeFile '"temp1.input" SETQ(_/EDITFILE,'"docreport.input") @@ -1235,7 +1235,7 @@ whoOwns(con) == --con=constructor name (id beginning with a capital), returns owner as a string filename := getConstructorSourceFileFromDB con quoteChar := char '_" - OBEY STRCONC('"awk '$2 == ",quoteChar,filename,quoteChar,'" {print $1}' whofiles > /tmp/temp") + runCommand STRCONC('"awk '$2 == ",quoteChar,filename,quoteChar,'" {print $1}' whofiles > /tmp/temp") instream := MAKE_-INSTREAM '"/tmp/temp" value := EOFP instream => nil |