Файловый ввод/вывод

Файловый ввод/вывод

Файловый ввод/вывод

Тема доклада Файловый ввод/вывод.

Функциональный язык программирования Лисп поддерживает широкие возможности для работы с файлами. При этом вводится понятие потока, с которым связан файл с одной стороны и какой-то символ с другой. Поток представляет собой некий абстрактный объект, с которым мы можем работать, не углубляясь в аппаратную и программную реализацию работы с данными.
Рассмотрим основные функции для работы с файлами
OPEN filespec &key direction element-type if-exists if-does-not-exist external-format
Функция создает, открывает и возвращает поток файла заданного в filespec.
filespec – путь к файлу
direction — одно из input, output, io, или probe. По умолчанию input. Режим открытия файла (чтение, запись, чтение/запись, поток создан но закрыт)
element-type – тип данных с которыми поддерживает работу файл. По умолчанию Character.
if-exists – поведение если файл уже существует ( error, new-version, rename, rename-and-delete, overwrite, append, supersede).
if-does-not-exist — поведение если файл не существует ( error, create).
external-format – Внешний указатель формата файла. The default is default.
Возвращает поток (stream).
(setq s (open “example.txt” direction io)); создает файл дле чтения/записи и связывает с ним символ s.
LOAD filespec
Эта функция загружает файл выражений и выполняет эти выражения. filespec — это строковая константа, которая представляет собой имя файла может включать префикс директории, например /function/test1″. Если операция успешно завершина, LOAD возвращает имя последней функции, определенной в файле. Если операция не выполнена, LOAD возвращает имя файла в виде строкового выражения.
WRITE-BYTE byte stream
Записывает байт в выходной поток. Тип данных должен быть изменен на unsigned-byte;
_(with-open-file (s «temp-byte» direction output element-type ‘unsigned-byte)(write-byte 101 s))
=> 101 ; в файле символ ‘е‘

WRITE-CHAR char stream
Записывает символ в выходной поток;
_(with-open-file (s «temp» direction output)(write-char #B s))
ð B

WRITE-LINE string &optional stream &key start end

Записывает строку (ключевые слова start и end позволяют задавать диапазон записываемой строки (отсчет с нуля)); производит перевод каретки на новую строку.
_(with-open-file (s «temp» direction output )(write-line “Hello, world” s))
=>“Hello, world”
WRITE-STRING string &optional stream &key start end
Записывает строку но не добавляет новую линию в выходной поток;
_(with-open-file (s «temp» direction output )(write-string “Hello, world” s start 3 end 6))
=>“lo,”

READ-BYTE stream &optional eof-error-p eof-value
Читает байт с входного потока.
eof-error-p – по умолчанию nil. Oбобщенная булева переменная (nil – false , все остальное true).
eof-value—признак конца файла.
_(with-open-file (s «temp-bytes» element-type ‘unsigned-byte)(read-byte s))
=>101
READ-CHAR &optional stream eof-error-p eof-value recursive-p
Читает символ с входного потока. Возвращает (целое) ASCII код считываемого символа. Если не задано <описателя файла> и в буфере ввода клавиатуры нет символов, READ-CHAR ждет, чтобы вы ввели что-либо с клавиатуры (заканчивающееся RETURN). Hапример, добустим, что буфер клавиатуры пуст
(read-char)
будет ждать какого-либо ввода. Если вы набрали «АВС», завершив ввод RETURN, READ-CHAR возвратит 65 (код AS0CII буквы «А» (латинской)). Следующие три обращения к READ-CHAR возвратят 66,67 и 10 (переход на новую строку) соответственно. Если затем последует еще одно обращение к READ-CHAR, она будет ждать ввода;
_(with-open-file (s «temp-bytes»)(read-byte s))
=>#e
READ-LINE &optional stream eof-error-p eof-value recursive-p
Читает строку. READ-LINE возвращает nil, иначе она возвращает строковое значение, которое было считано. Hапример, допустим, что F — это разрешенный указатель открытого файла
(read-line f)
возвратит следующую введенную строку из файла или (если достигнут конец файла) nil.
PEEK-CHAR &optional peek-type stream eof-error-p eof-value recursive-p
Читает символ с потока так, что он доступен для следующей операции чтения. Аргумент peek-type позволяет перескочить к пробелу (Т) или какомуто отдельному символу(a character); /* ??? */
UNREAD-CHAR character &optional stream
Помещает символ назад на переднюю сторону входного потока, где он остается пока не прочитается снова;
LISTEN &optional stream
Возвращает Т если данные доступны на входном потоке;
READ-CHAR-NO-HANG &optional stream eof-error-p eof-value recursive-p
Если символ доступен на входном потоке, функция возвращает символ, иначе nil;
CLEAR-INPUT &optional stream
Флеширует входной поток, если это нужно;
FINISH-OUTPUT &optional stream
Флеширует выходной поток и ждет результата от адресата;
FORCE-OUTPUT &optional stream
То же что и FINISH-OUTPUT но не ждет результата;
CLEAR-OUTPUT &optional stream
Очистка буфера потока;
DELETE-FILE filespec
Удаляет файл;
_(with-open-file (s «delete-me.text» direction output if-exists error) (delete-file s)); создает и удаляет файл
=> T
FILE-POSITION &optional stream
Возвращает текущую позицию в файле связанным с потоком srteam;
FILE-POSITION &optional stream position-spec
Производит позиционирование в файле связанным с потоком srteam.
и возвращает Т если позиционирование удалость и NIL при неудаче;
(FILE-POSITION s 0) ; возврат к началу файла.
CLOSE &optional stream
Закрывает поток.
Для работы с файлами можно использовать и функции PRINТ, PRINС, PRIN1 и READ. Приведем простенький пример
; открываем поток для записи
(setq out-stream (open «temp.txt» direction output))
(print ‘abc out-stream) ;запись строки abc
ABC
(close out-stream)
T

; открываем поток для чтения
(setq in-stream (open «temp.txt» direction input)) #<INPUT-STREAM «temp.txt»>
(read in-stream); считаем все с потока
ABC
(close in-stream)
T

«