8.10 Функции ввода

(LOAD file-name display)

Загружает SYS-файл с диска в оперативную память и переда-

ет ему управление. Или , если указан не SYS - файл , то

содержимое файла загружается и интерпретируется. Возвра-

щает Т , если файл существует. Если display не NIL , то

результаты интерпретации отображаются на экране.

(LOAD 'A:\\COPY.SYS)

- 29 -

(LOAD 'A:\\PROG.LSP) --> T

(OPEN-INPUT-FILE file-name)

Открывает входной файл для считывания информации. Резуль-

тат - имя открытого файла, или NIL - если файл не найден.

(OPEN-INPUT-FILE 'A:\\ANIMAL.LSP) --> A:\ANIMAL.LSP

(CLOSE-INPUT-FILE file-name)

Закрывает входной файл для считывания информации. Резуль-

тат - Т , если операция прошла успешно , иначе - NIL.

(CLOSE-INPUT-FILE 'A:\\ANIMAL.LSP) --> T

(READ input eof-p eof)

Считывает S-выражение с input и возвращает его в качестве

значения.

(READ 'A:\\ANIMAL.LSP) --> (A B C)

(READ-ATOM input eof-p eof)

Считывает один атом с input и возвращает его в качестве

значения.

$(READ-ATOM T) 132CAT

123

(READ-LINE input eof-p eof)

Считывает строку до символа "Return" с input и возвращает

ее в качестве значения.

$(READ-LINE T) У ПОПА БЫЛА СОБАКА

|У ПОПА БЫЛА СОБАКА|

(READ-CHAR input eof-p eof)

Считывает текущий символ с input и возвращает его в ка-

честве значения.

$(READ-CHAR T) a

/a

(READ-BYTE input)

- 30 -

Считывает текущий символ с input и возвращает его

ASCII-код в качестве значения.

$(READ-BYTE T) a

97

$(ASCII (READ-BYTE T) ) a

a

8.11 Функции вывода 2.

(SAVE file-name)

Позволяет сохранить содержимое памяти в виде SYS или COM

файла, которые могут быть вновь загружены по команде LOAD.

(SAVE 'A:\\COPY.SYS) --> T

(OPEN-OUTPUT-FILE file-name overwrite)

Открывает выходной файл file-name для вывода информации.

Если файл не существует, то он создается с именем

file-name. В противном случае старая информация уничтожа-

ется и вывод начинается с начала файла. Так происходит

если параметр overtime не равен NIL. Иначе создается вре-

менный файл, который только после закрытия будет иметь

имя file-name. Если файл существовал, то он сохраняется с

расширением BAK.

(OPEN-OUTPUT-FILE 'A:\\ANINAL.TXT T) --> A:\ANIMAL.TXT

(CLOSE-OUTPUT-FILE file-name)

Закрывает открытый выходной файл file-name для вывода ин-

формации и выдаёт значение Т. Иначе NIL.

(CLOSE-OUTPUT-FILE 'A:\\ANINAL.TXT) --> T

(WRITE object output)

Выводит S-выражение object в output.

$ (WRITE '(A B C))

(A B C)

- 31 -

(WRITE-LINE object output)

Выводит атомарный object в output и добавляет символы

конца строки (linefeed + return). Результат - object.

$ (WRITE-LINE |MULISP|)

MULISP

|MULISP|

(PRIN1 object output)

Выводит S-выражение object в output. В случае наличия в

object нестандартных символов или символов разделителей

выводимый текст заключается в символы "|". Результат -

object.

$ (PRIN1 '(A B C)) (A B C)

(A B C)

(PRINT object output)

Выводит S-выражение object в output и добавляет символы

конца строки (linefeed + return). В случае наличия в

object нестандартных символов или символов разделителей

выводимый текст заключается в символы "|". Результат -

object.

$ (PRINT '(A B C))

(A B C)

(A B C)

(PRINC object output)

Выводит S-выражение object в output. В случае наличия в

object нестандартных символов или символов разделителей

выводимый текст не заключается в символы "|".Результат -

object.

$ (PRINC |СЛАВА КПСС !|)

СЛАВА КПСС !|СЛАВА КПСС !|

(TERPRI n output)

Посылает n пар символов конца строки (linefeed + return)

в output. Результат всегда NIL.

- 32 -

$ (PRINC |СЛАВА КПСС |)(TERPRI 1)

СЛАВА КПСС

|СЛАВА КПСС |

(SPACES n output)

Посылает n пробелов в output. Результат всегда NIL.