diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
| commit | c849886ef096a445a65041c0e54ab02728b7b512 (patch) | |
| tree | c8e791d6c78d6146c393d4e9358deb1f4aa3c725 /src/interp/i-syscmd.boot | |
| parent | d0c0f05a363c11d57c7d70baa224dccb92687ae3 (diff) | |
| download | open-axiom-c849886ef096a445a65041c0e54ab02728b7b512.tar.gz | |
* interp/c-util.boot: Miscellaneous cleanup.
* interp/compiler.boot: Likewise.
* interp/database.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/format.boot: Likewise.
* interp/g-timer.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/macros.lisp: Likewise.
* interp/monitor.lisp: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nlib.lisp: Likewise.
* interp/parsing.lisp: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sfsfun.boot: Likewise.
* interp/util.lisp: Likewise.
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 611a3db6..63cda3aa 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2772,7 +2772,7 @@ doSystemCommand string == handleNoParseCommands(unab, string) == string := stripSpaces string - spaceIndex := SEARCH('" ", string) + spaceIndex := findChar(char " ", string) unab is "lisp" => if (null spaceIndex) then sayKeyedMsg("S2IV0005", nil) @@ -2805,9 +2805,9 @@ handleNoParseCommands(unab, string) == npboot str == sex := string2BootTree str - FORMAT(true, '"~&~S~%", sex) + formatToStdout('"~&~S~%", sex) $ans := eval sex - FORMAT(true, '"~&Value = ~S~%", $ans) + formatToStdout('"~&Value = ~S~%", $ans) stripLisp str == found := false @@ -2821,16 +2821,16 @@ stripLisp str == nplisp str == $ans := eval READ_-FROM_-STRING str - FORMAT(true, '"~&Value = ~S~%", $ans) + formatToStdout('"~&Value = ~S~%", $ans) npsystem(unab, str) == - spaceIndex := SEARCH('" ", str) + spaceIndex := findChar(char " ", str) null spaceIndex => sayKeyedMsg('"S2IZ0080", [str]) sysPart := subSequence(str, 0, spaceIndex) -- The following is a hack required by the fact that unAbbreviateKeyword -- returns the word "system" for unknown words - null SEARCH(sysPart, STRING unab) => + null findString(sysPart, STRING unab) => sayKeyedMsg('"S2IZ0080", [sysPart]) command := subSequence(str, spaceIndex+1) runCommand command @@ -2902,7 +2902,7 @@ handleParsedSystemCommands(unabr, optionList) == systemCommand parcmd parseSystemCmd opt == - spaceIndex := SEARCH('" ", opt) + spaceIndex := findChar(char " ", opt) spaceIndex => commandString := stripSpaces subSequence(opt, 0, spaceIndex) argString := stripSpaces subSequence(opt, spaceIndex) @@ -2923,7 +2923,7 @@ handleTokensizeSystemCommands(unabr, optionList) == parcmd => tokenSystemCommand(unabr, parcmd) getFirstWord string == - spaceIndex := SEARCH('" ", string) + spaceIndex := findChar(char " ", string) null spaceIndex => string stripSpaces subSequence(string, 0, spaceIndex) |