diff options
author | dos-reis <gdr@axiomatics.org> | 2011-07-04 04:39:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-07-04 04:39:13 +0000 |
commit | dc5f09ca9fe80896ec7fd8677a3e517ce9213285 (patch) | |
tree | a99f1bd7f2174ea4d71a3edb7fdfcc085483c3b6 /src/interp/record.boot | |
parent | 67a9b503724a4390abf08baa367959713483f363 (diff) | |
download | open-axiom-dc5f09ca9fe80896ec7fd8677a3e517ce9213285.tar.gz |
* interp/vmlisp.lisp (PRINTEXP): Remove.
* interp/br-data.boot: Use writeString, writeChar, and writeLine.
* interp/c-util.boot: Likewise.
* interp/diagnostics.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/record.boot: Likewise.
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include
%writeString, %writeNewline, %writeLine.
* interp/lisp-backend.boot: Translate them.
Diffstat (limited to 'src/interp/record.boot')
-rw-r--r-- | src/interp/record.boot | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/src/interp/record.boot b/src/interp/record.boot index 594a6131..e334d210 100644 --- a/src/interp/record.boot +++ b/src/interp/record.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- Copyright (C) 2007-2011, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -182,11 +182,9 @@ testInput2Output(lines,n) == evaluateLines lines == file := MAKE_-OUTSTREAM '"/tmp/temp.input" for line in lines repeat --- stringPrefix?('")read ",line) => 'skip stringPrefix?('")r",line) => 'skip stringPrefix?('")undo )redo",line) => 'skip - PRINTEXP(line, file) - TERPRI file + writeLine(line, file) SHUT file _/EDITFILE: local := '"/tmp/temp.input" _/RF() @@ -223,15 +221,14 @@ htFile2InputFile(pathname,:option) == SHUT $htStream outStream := MAKE_-OUTSTREAM opathname for [pageName,:commands] in alist repeat - PRINTEXP('"-- ",outStream) - PRINTEXP(pageName,outStream) - TERPRI outStream - PRINTEXP('")cl all",outStream) - TERPRI outStream + writeString('"-- ",outStream) + PRINC(pageName,outStream) + writeNewline outStream + writeLine('")cl all",outStream) for x in commands repeat - PRINTEXP(htCommandToInputLine x,outStream) - TERPRI outStream - TERPRI outStream + PRINC(htCommandToInputLine x,outStream) + writeNewline outStream + writeNewline outStream SHUT outStream opathname |