ストリームと入出力

ストリーム

定義済みストリームは次のものであり、 echo-streamとconcatenated-streamは利用できない。

*standard-input*

標準入力 stdin fd=0

*standard-output*

標準出力 stdout fd=1

*error-output*

標準エラー出力 stderr fd=2 bufsize=1

*terminal-io*

*standard-input*と*standard-output* で作られる入出力ストリーム

streamp object [関数]

objectがstream, io-streamかそのサブクラスから 作られているときTを返す。

input-stream-p object [関数]

objectがストリームで読み込み可能であれば、Tを返す。

output-stream-p object [関数]

objectがストリームで書き込み可能であれば、Tを返す。

io-stream-p object [関数]

objectが読み書き可能なストリームであれば、Tを返す。

open   [関数] 

path &key (direction :input) 

(if-exists :new-version) 

(if-does-not-exist 'default) 

(permission #o644) 

(buffer-size 512)

openは、pathで指定されたファイルと結合されるストリームを作る。 pathは、文字列かパス名でよい。 :directionは、:input, :outputまたは:ioのどれか 1つでなければならない。 いくつかのopenオプション:append, :new-version, :overwrite, :error とNILが:if-existsのパラメータとして許される。 しかしながら、このパラメータは:directionが:inputのとき無視される。 :if-does-not-existには、 :error, :createかNILのどれか1つをとる。 :new-version, :renameと:supersedeは認識されない。 デフォルトとして、:directionが :outputか:ioでファイルが存在するとき、そのファイルに上書きする。 :inputにおいて、ファイルがないとき、エラーが報告される。 ファイルの存在を知るために、probe-fileを使うことができる。 :buffer-sizeのデフォルト値は512バイト、 :permissionのデフォルト値は#O644である。 SunOS4は、同時に60ファイルのオープンを許可している。

with-open-file (svar path &rest open-options) &rest forms [マクロ]

pathという名のファイルが、open-optionsでオープンされ、 そのストリームはsvarにバインドされる。 それからformsが評価される。 ストリームは、formsの評価が終るかまたは throw, return-fromやエラーで脱出したとき、自動的にクローズされる。 with-open-fileは、unwind-protectによってcloseとその内部書式を 一緒にして定義されるマクロである。

close stream [関数]

streamがクローズされ、成功したらTを返す。 streamが既にクローズされていた場合、NILが返される。 ストリームは、そのストリームオブジェクトが参照するものがないなら、GCによって 自動的にクローズされる。

make-string-input-stream string [関数]

stringから入力ストリームを作る。

make-string-output-stream &optional size [関数]

size長さの文字列のために出力ストリームを作る。 その長さは自動的に拡張される。そのため、sizeは初期化時に配置する 文字列のための補助情報である。

get-output-stream-string string-stream [関数]

string-streamに文字列を出力する。

make-broadcast-stream &rest output-streams [関数]

広報(broadcast)ストリームを作り、このストリームに書かれたメッセージはすべての output-streamsへ転送される。

リーダ(reader)

リーダのグローバル変数は：

*read-base*

読み込時の基数；デフォルトは10

*readtable*

reader構文を決定するカレント読み込みテーブル

Readerのデフォルトマクロ文字は：

(   リスト読み込み 

" 		  文字列読み込み 

' 		  引用符表現読み込み 

# 		  マクロ変換 

; 		  コメント

` 		  back-quote 

, 		  list-time eval 

@ 		  追加 

% 		  C言語表記の数式読み込み 

エスケープ文字：

$\backslash$   単一文字エスケープ

$\vert...\vert$ 		  多重文字エスケープ

エスケープされていないsymbolが読まれると、 全ての構成される文字はデフォルトで大文字に変換され、 そして大文字のsymbolは内部に蓄えられる。 例えば、'abcと'ABCは同じsymbolとみなされる。 エスケープは、それらを区別するのに必要である。 'ABC, 'ABCと'abcは同一であるが、 'abcと'abcは違うsymbolである。 デフォルトとして、大文字のsymbolを入力したときでさえ、 そのsymbolを表示するときは EusLispのプリンタが内部の大文字表現から小文字に変換する。 この変換は、プリンタによって実行されている。 この変換は、 :UPCASEを*print-case*に設定することにより、禁止される。

10.は整数の10として読まれ、実数の10.0ではない。 ':'がパッケージマーカーとして予約されているので、 '$\vert g:pcube\vert$のようにsymbolを構成するものとして使うとき、エスケープ化しなければ ならない。 この制限は、文字':'の構文により強制されないが、 アルファベット順やletterの意味を決定する属性により強制される。 その文字の属性は、リーダから堅く結ばれる(hardwired)。 したがって、copy-readtableで新しいreadtableを作ったり、 set-syntax-from-charで文字のための構文的意味を組み直したりすることにより、 ある文字の構文を変更可能であるが、 その属性はどのようにしても変更することができない。 その一方で、数字はいつも数字であり、アルファベットはアルファベットで、 数値を表現するために'#$%@'の様な文字を使用することはできない。

%は、EusLispで拡張read-macro文字となっている。 挿入記述により書かれた数式の前に%を付けることにより、 その数式はlisp用の式に変換される。 具体例を上げると、 %(1 + 2 * 3 / 4.0)は (+ 1 (/ (* 2 3) 4.0))に変換され、結果は2.5となる。 Cの様な関数呼出や行列参照も、lisp形式に変換される。 従って、%(sin(x) + a[1])は (+ (sin x) (aref a 1))として評価される。 1つ以上の引数を持つ関数や2次元以上の行列は、 func(a b c ...)やary[1 2 3 ...]のように記述し、 func(a,b,c)やary[1][2][3]のように書かない。 相対表現や割り当てもまた、正しく扱われる。 それで、%(a $<$ b)は($<$ a b)に変換され、 %(a[0] = b[0] * c[0])は (setf (aref a 0) (* (aref b 0) (aref c 0)))として得られる。 単純な最適化は、重複した関数呼出や行列参照をなくすことである。 %(sin(x) + cos(x) / sin(x))は (let* ((temp (sin x))) (+ temp (/ (cos x) temp)))のように変換される。

マクロ変換は#文字が前に付いている。 数値(integer)引数は、#とマクロ変換文字の間に与えられる。 これは、どの数字(0 .. 9)もマクロ変換文字として定義できないことを意味する。 リーダの標準のマクロ変換文字は次の通り：

#nA(..)

行列

#B

2進数

#D

[度]から[ラジアン]への変換; #D180 = 3.14

#F(...)

実数ベクトル

#nF((..))

実数行列; #2F((..) (..)) is matrix

#I(...)

整数ベクトル

#nI((...))

整数行列

#J(...)

一般オブジェクト #J(myclass ....); 古い定義

#O

8進数

#P

パス名

#R

[ラジアン]から[度]への変換; #R3.14 = 180.0

#S(classname slotname1 val1 slotname2 val2 ...)

構造体 (あらゆるオブジェクト)

#V(...)

ベクトル #V(vectorclass ...)

#X

16進数

#(...)

ベクトル

#n#

ラベル参照

#n=

ラベル定義

#'

関数; コンパイルコードあるいはlambda-closure

# $\backslash$

文字

#,

読み込み時に評価

#+

条件読みだし(positive)

#-

条件読みだし(negative)

#*

ビットベクトル

#:

収容されてないsymbol

#...#

コメント; 入れ子可能

いくつかのリーダ関数は、eof-error-p, eof-valueや recursive-pのパラメータを持っている。 最初の2つのパラメータは、リーダがend-of-fileに出会ったときの動作を制御する。 eof-error-pのデフォルトは、Tである。これは、eof時のエラーの原因となる。 eofの発生を知りたかったり、snatch controlにシステムエラーを渡したくないなら、 eof-error-pにNILを指定すること。 それで、読み込みの最中にeofが現れたとき、リーダはエラーループに入る代りに eof-valueを返す。 eof-valueのデフォルトは、NILである。 そのため、実際にNILが読まれたのかeofが現れたのか判別できない。 それらを判別するためには、ストリームに決して現れない値を与えること。 そのような特殊データオブジェクトを作るには、consかgensymを 使用すること。

recursive-pは、read-macro関数にしばしば使用される。 それは、リーダを再帰的に呼び出す。 recursive-pのnon-NIL値は、読み込み処理がどこかで始まっていて、 #n=や#n#によってラベル付けされる書式の読み込みのために 内部テーブルを初期化 すべきでないことをリーダに告げている。

read &optional stream (eof-error-p t) (eof-value nil) recursive-p [関数]

s表現を1つ読み込む。

read-delimited-list delim-char &optional stream recursive-p [関数]

delim-charで終了するs表現を読み込む。 これは、コンマで区切られたリストや # $\backslash$]のような特殊文字で終る数列を読むために役立つ。

read-line &optional stream (eof-error-p t) (eof-value nil) [関数]

# $\backslash$newline(改行)で終了する1行を読み込む。 返された文字列には、最後の改行文字を含まない。

read-char &optional stream (eof-error-p t) (eof-value nil) [関数]

1文字読み込み、その整数表現を返す。

read-from-string string &optional (eof-error-p t) (eof-value nil) [関数]

stringからs表現を読み込む。 最初のs表現のみ読み込むことができる。 もし、複数のs表現を持つstringからの連続読み込み処理が必要であるならば、 make-string-input-streamで作られるstring-streamを用いること。

unread-char char &optional stream [関数]

streamにcharを戻す。 1文字を越えて連続に戻すことはできない。

peek-char &optional stream (eof-error-p t) (eof-value nil) [関数]

streamから1文字を読み込むが、streamのバッファからその文字を削除しない。 これはread-charに続いてunread-charを実行したものと 同じである。

y-or-n-p &optional format-string &rest args [関数]

format-stringとargsを画面に表示して、“yかnか”を尋ねる。 答えが“y”または“n”で始まらない場合、質問を繰り返す。 yならTそしてnならNILを返す。 それ以外は起こらない。

yes-or-no-p &optional stream [関数]

format-stringとargsを画面に表示して、“yesかnoか”を尋ねる。 答えが“yes”または“no”でない場合、質問を繰り返す。 yesならTそしてnoならNILを返す。 それ以外は起こらない。

以下に示すreadtableの操作関数の中で、readtableのデフォルト値は グローバル変数*readtable*の値である。

readtablep x [関数]

xがreadtableなら、Tを返す。

copy-readtable &optional from-readtable to-readtable [関数]

to-readtableが書かれていなければ、新しいreadtableを作る。 from-readtableのすべての情報がto-readtableに移される。 含まれる情報は、syntax table, read-macro tableと dispatch-macro tableでそれぞれ256個の要素を持つ。

set-syntax-from-char from-char to-char &optional to-readtable from-readtable [関数]

from-readtableの中のfrom-charのsyntaxとread-macro定義を to-readtableの中のto-charにコピーする。

set-macro-character char func &optional non-teminating-p readtable [関数]

charのread-macro関数としてfuncを定義する。

get-macro-character char &optional readtable [関数]

charのread-macro関数を返す。

set-dispatch-macro-character dispchar char func &optional readtable [関数]

dispcharとcharの組み合せの dispatch read-macro関数としてfuncを定義する。

get-dispatch-macro-character dispchar char &optional readtable [関数]

dispcharとcharの組み合せの dispatch read-macro関数を返す。

プリンタ(printer)

以下に示すものは、プリンタの行動を制御するための特殊変数である。

*print-case*

この定数が:downcaseなら、 全てのsymbolは小文字で印刷される。 しかし、symbolは内部的に大文字で表現されたままである。

*print-circle*

再帰的参照を残したオブジェクトを印刷する。

*print-object*

全てのオブジェクトの詳細を印刷する。

*print-structure*

#書式を使ってオブジェクトを印刷する。

*print-level*

数列の印刷可能深さ

*print-length*

数列の印刷可能長さ

*print-escape*

現在使用されていない。

*print-pretty*

現在使用されていない。

*print-base*

印刷時の基数；デフォルトは10進数

再帰的参照を持つオブジェクトを印刷するためには、 再度読み戻しが必要なため、 *print-circle*と *print-structure*を両方Tに設定し、オブジェクトを印刷すること。 ユーザーが定義するほとんどのオブジェクトは再読み込み可能な書式に 表示されるが、 クラス, オブジェクトモジュールやパッケージをその方法でdumpすることはできない。 なぜなら、クラスとオブジェクトモジュールは再配置不可能な実行コードを含み、 パッケージの再読みだしは、構成されるsymbol中に影響があるからである。

print obj &optional stream [関数]

prin1に続いてterpriを行う。

prin1 obj &optional stream [関数]

書式に沿ってs表現を1つ出力する。その出力は、 readによって再度読み戻しが可能である。 書式には、スラッシュ（エスケープ）や引用符を含んでいる。

princ obj &optional stream [関数]

エスケープ（escape）や引用符（quote）の追加(add)がないことを除いて、 printと同じである。 princによるオブジェクト表示は、読み戻しできない。 例えば、(princ 'abc)の出力は、(princ "abc")の出力と 同じであるため、リーダはそれらを区別することができない。

terpri &optional stream [関数]

# $\backslash$newline(改行)を出力して、 streamを空にする。

finish-output &optional stream [関数]

出力streamを空にする。

princ-to-string x &optional (l 16) [関数]

prin1-to-string x &optional (l 16) [関数]

文字列への出力ストリームを作り、xを書き込む。そして、 get-output-stream-stringを実行する。

format stream format-string &rest args [関数]

$\sim$A(ascii), $\sim$S(S-表現), $\sim$D(10進数), $\sim$X(16進数), $\sim$O(8進数), $\sim$C(文字), $\sim$F(実数表現), $\sim$E(指数表現), $\sim$G(general float), $\sim$V(dynamic number parameter), $\sim$T(タブ) と$\sim$% (改行)のフォーマット識別子のみ認識する。

       (format t "~s ~s ~a ~a ~10,3f~%" "abc" 'a#b "abc" 'a#b 1.2)
       --->  "abc" |A#B| abc a#b     1.200

pprint obj &optional (stream *standard-output*) (tab 0) (platen 75) [関数]

objの最後の空白を除いたものを整形表示する。.

print-functions file &rest fns [関数]

fileにfnsの関数定義の"defun"書式を書き出す。

write-byte integer stream [関数]

write-word integer stream [関数]

write-long integer stream [関数]

integerを1, 2または4バイトにして書く。

spaces n &optional stream [関数]

空白をn回出力する。

pf func &optional stream *standard-output*) [マクロ]

関数funcを整形表示する。コンパイルされた関数は、印刷できない。

pp-method class selector &optional (stream *standard-output*) [関数]

classクラスの中に定義されたselectorメソッドを整形表示する。

tprint obj tab &optional (indent 0) (platen 79) (cpos 0) [関数]

表形式でobjを印刷する。

print-size obj [関数]

印刷のときのobjの大体の長さを返す。

プロセス間通信とネットワーク

EusLispは、4種類のIPC機能（ 共有メモリ, メッセージキュー, FIFOやソケット）を備えている。 一般的に、この命令により性能が悪くなる。 もし、マルチスレッド機能を使用するならば、 12節に記述されている同期関数も通信手段として 用いることができる。 これらの機能のうちで使用できるものは、Unixのバージョンや構成に依存する。

共有メモリ

Euslispは、System5のshmemではなく、SunOSのmmapによって共有メモリを提供する。 共有メモリは、map-file関数によって配置される。 map-fileは、EusLispのプロセスメモリ空間内にファイルを配置し、 foreign-stringのインスタンスを返す。 データはこのforeign-stringに対する文字列関数を用いることにより 書き込みと読みだしができる。 共有メモリは、システム依存のページ境界に配置されるので、 配置アドレスを指定すべきではない。 :shareのキーパラメータがNILに設定されているかまたは :privateがTに設定されているファイルを配置することは、 ファイルをプライベート(排他的)にアクセスすべきであることを意味する。 しかし、メモリの共有化の目的から外れるため、 :shareのデフォルト値はTである。 2人のユーザーでファイルが共有されるとき、読み書きの許可は 両方のユーザーに正確に設定されなければならない。 残念なことにSunOSは、ネットワークを通して異なったワークステーション間の ファイルの共有ををサポートしていない。

64バイト長のファイルを2つのEusLispで共有するプログラム例を下に示す。

;; 64バイトのファイルを作る
(with-open-file (f "afile" :direction :output)  (princ (make-string 64) f))
;; 配置する
(setq shared-string1 (map-file "afile" :direction :io))
;;
;; 他のプロセスの中で
(setq shared-string2 (map-file "afile" :direction :io))

その後、shared-string1に書かれたデータは すぐにshared-string2へ現れる。 foreign stringへの書き込みは、 replaceかsetfにarefを組み合せることにより可能である。

map-file filename &key (direction :input) length (offset 0) (share t) (address 0) [関数]

filenameという名のファイルをメモリ空間に配置する。 filenameは、ローカルファイル、NFSでマウントされたリモートファイル、 または/devの中のメモリデバイスのどれでも可能である。 この関数の結果としてforeign-stringが返される。その要素は、arefによってアクセス可能である。map-fileによって:direction=:inputという条件で 配置されたforeign-stringにデータを書き込むことは、segmentation faultの原因となる。

メッセージキューとFIFO

メッセージキューは、make-msgq-input-streamかmake-msgq-output-streamで 作られる。 それぞれファイルストリームのインスタンスを返す。 そのストリームは、ファイルに接続された他のストリームと同じように、 読みだしや書き込み処理が許可されている。 メッセージキューのストリームのfnameは、作られるときに、keyから設定する。

FIFOに対するストリームを作るために、 最初にunix:mknod関数で、 2番目の引数をmode=#o10000に設定した上で FIFOノードを作り、ノーマルファイルとしてオープンする。 メッセージキューとFIFOは、機械の上でローカルに作られ、 機械内での通信チャンネルとしてのみ与えられる。

メッセージキューとFIFOは、自分のプロセスが終了した後でさえも システムから削除されない。 削除するためには、unix:msgctlかipcrmコマンドが必要である。

make-msgq-input-stream key &optional (buffer-size 128) [関数]

keyで示すメッセージキューに繋がる入力ファイルストリームを返す。

make-msgq-output-stream key &optional (buffer-size 128) [関数]

keyで示すメッセージキューに繋がる出力ファイルストリームを返す。

ソケット

ソケットは、他の通信手段に比べて多才な機能を持っている。 なぜなら、UNIX領域の狭いホスト内とインターネット領域の 広いネットーワーク内の両方で機能することができるためである。 通信指向のソケット(SOCK_STREAM)と接続されない ソケット(SOCK_DGRAM)の2つがサポートされている。 両方ともまずmake-socket-address関数で ソケットアドレスのオブジェクトを作らなければならない。 make-socket-addressは、socket-addressのインスタンスを返す。 UNIX領域では、ソケットアドレスにUNIXファイルシステム内のパス名を 入れる。 インターネット内では、ソケットアドレスに ホスト名とポート番号と必要ならプロトコル番号を結合 したものを入れる。 もし、ポート番号が/etc/servicesに定義されていれば、 service名によって指定されたsymbolを通して参照される。 unix:getservbyname関数がsymbol化されたservice名からポート番号を 引き出すために使用される。 1024より小さいポート番号は、rootユーザーのために予約されている。 特権のないユーザーは、1024より大きなポート番号を個人的なソケットとして 使用することを推奨する。

接続されたストリームは、両方向通信チャンネルとして供給されるが、 接続確定処理は、入力・出力で別々である。 片方がサーバーとして参照され、もう一方がクライアントとして参照される。 サーバーとなった端(service access point)は、最初に確定される。 これは、make-socket-port関数により作成される。 この関数は、socket-portのインスタンスを返す。 ソケットポートのオブジェクトは、make-server-socket-streamによって １つまたは複数のクライアントからの接続を受けるために使用される。 make-server-socket-streamへの呼び出しは、クライアントからの 接続要求が実際に起こるまで実行待ち状態となる。 クライアントは、ソケットアドレスを指定することによって make-client-socket-streamでソケットストリーム を複数作ることができる。

;;; an example of IPC through a socket stream:
;;; server side
(setq saddr  (make-socket-address :domain af_inet :host "etlic2" :port 2000))
(setq sport  (make-socket-port saddr))
(setq sstream (make-server-socket-stream sport))
;;;
;;; client side
(setq caddr (make-socket-address :domain af_inet :host "etlic2" :port 2000))
(setq cstream (make-client-socket-stream caddr))

データベースや移動ロボットの環境シミュレータのようなアプリケーション では、1つのサーバーと複数のクライアント間の multiple connection service（多重接続サービス）が要求される。 この型のサーバーは、open-server関数によりプログラム することができる。 カレントホスト名と与えられたポート番号から open-serverは、接続要求にしたがってソケットポート(service access point) を作る。 このポートは非同期なので、 open-serverは遮断されず、直ちに返信する。 その後、接続要求はそれぞれEuslispのメインループを中断し、 ソケットストリーム が非同期に作成される。 このソケットストリームも非同期モードで働く。 open-serverの2番目の引き数にある非同期入力処理は、 新しいデータがこのストリームに現れたときはいつでも呼び出される。 30以上の接続が可能であるため、同時に多くのクライアントがサーバーの データにアクセスすることができる。

;; server side
(defun server-func (s) 
   (case (read s) ...    ;do appropriate jobs according to inputs
(open-server 3000 #'server-func)
... do other jobs in parallel
;; client-1 through client-N
(setq s (connect-server "etlmmd" 3000))
(format s "..." ...) (finish-output s)	;issue a command to the server
(read s)                                ;receive response

確実な通信チャンネルとして供給される接続指向 ストリームと対照的に 非接続 ソケットは、不確実な通信チャンネルである。 メッセージがなくなったり、重複したり、故障したりする可能性がある。 しかしながら、非接続 ソケットは、それぞれの接続にファイルディスクリプタを 割り当てる必要が無いし、 また、データやバッファのオーバーフローの読み込みをしないレシーバーでさえ 送信処理を中断することができないという利点がある。

非接続ソケットを作るためには、以下の命令を使用する。 メッセージはunix:sendtoとunix:recvfromによって変換される。

;;; receiver side
(setq saddr  (make-socket-address :domain af_inet :host "etlic2" :port 2001))
(setq sock   (make-dgram-socket saddr))
(unix:recvfrom sock)
;;;
;;; client side
(setq caddr (make-socket-address :domain af_inet :host "etlic2" :port 2001))
(setq sock (unix:socket (send caddr :domain) 2 0))
(unix:sendto sock caddr "this is a message")
;;;
;;; how to use echo service which is registered in /etc/services.
(setq caddr (make-socket-address :domain af_inet :host "etlic2"
                                 :port (car (unix:getservbyname "echo"))))
(setq echosock (unix:socket (send caddr :domain) 2 0))
(unix:sendto echosock caddr "this is a message")
(unix:recvfrom echosock)  --> "this is a messge"

make-socket-address &key domain pathname host port proto service [関数]

ソケットアドレスのオブジェクトを作る。

make-socket-port sockaddr [関数]

サーバー側のソケットポートを作る。 この関数は、クライアントとの接続を確立するために使用される。

make-server-socket-stream sockport &optional (size 100) [関数]

クライアントからの接続要求を受けて、双方向ストリームを返す。

make-client-socket-stream sockaddr &optional (timeout 5) (size 512) [関数]

サーバーのポートと接続をし、双方向ストリームを返す。

open-server port remote-func [関数]

インターネット領域内でホスト名とportで指定されるソケットポートを 準備し、非同期に接続要求を待つ。 接続が要求されたとき、それを受け新しいソケットストリームがオープンされる。 ソケットポートにメッセージが到着したとき、remote-funcは、 ソケットポートを引き数として呼び出される。

connect-server host port [関数]

make-socket-addressとmake-client-socket-streamを連続的に呼び出しを 行うための関数である。 hostとportで指定されるソケットストリームを返す。このソケットストリーム は、クライアントがサーバーと通信を行うためのものである。 ポートは、インターネット領域内用に作られる。

非同期入出力

select-stream stream-list timeout [関数]

stream-listの中で、入力処理が準備されているストリームを見つけリストで返す。 もし、timeout秒が経つまでにどのストリームも準備が出来ないときは、 NILを返す。 select-streamは、入力ストリームのリストからアクティブなストリーム を選ぶときに役立つ。そのストリームでは、入力処理が非同期で可能となる。 timeoutは、選択処理が失敗するまでの時間を示す。 これは、実数でもよい。 もし、timeoutの指定がないときは、最低１つのストリームから入力が到着するまで select-streamは続けられる。 もし、timeoutが指定されどのストリームからも入力が現れなかったならば、 select-streamは失敗しNILを返す。

def-async stream function [マクロ]

streamにデータが到着したときに呼び出されるfunction を定義する。streamは、ファイルストリームかソケットストリームのどちらかである。 ファイルストリームにデータが来たとき又はソケットポートに接続要求が現れたとき、 そのストリームを引き数としてfunctionが呼び出される。 このマクロは、SIGIO ハンドラーとして装備され、ユーザーから与えられる 実際の入力処理を実行するためのfunctionに置き換えられる。 そして、streamが読み込み可能となったとき、非同期にSIGIOを発する ためにstreamに関してunix:fnctlが使用される。

パス名

パス名は、OSに依存しないようにファイル名を解析あるいは構成する方法として 与えられるものである。 典型的なパス名は、次のような構成で成り立っていると仮定されている。 host:device/directory1/.../directory-n/name.type.version。 Euslispは、UNIXの上で動作している限り、ホスト・デバイス・バージョンを無視する。 pathname関数は、文字列をディレクトリ要素・名前・型に分解し、パス名 オブジェクトを返す。そのパス名は、#Pを先頭につけた文字列として表示される。

pathnamep name [関数]

もしnameがパス名ならば、Tを返す。

pathname name [関数]

nameはパス名または文字列で、パス名に変換される。 最後の名前がディレクトリ名を示すためにnameの最後に"/"をつけることを 忘れないこと。 逆変換はnamestringで実現される。

pathname-directory path [関数]

pathからディレクトリ名のリストを返す。 "/"ディレクトリは:ROOTと表現される。 pathは、文字列あるいはパス名である。

pathname-name path [関数]

pathからファイル名の部分を返す。 pathは、文字列あるいはパス名である。

pathname-type path [関数]

pathからファイルの型の部分を取り出す。 pathは、文字列あるいはパス名である。

make-pathname &key host device directory name type version defaults [関数]

directiory,nameとtypeから新しいパス名を作る。 UNIX上では、他のパラメータは無視される。

merge-pathnames name &optional (defaults *default-pathname-defaults*) [関数]

namestring path [関数]

pathの文字列表現を返す。

parse-namestring name [関数]

truename path [関数]

pathで名前付けされているファイルの絶対パス名を見つける。

ファイルシステムインターフェース

probe-file path [関数]

pathという名のファイルがあるかどうかをチェックする。

file-size path [関数]

pathという名のファイルのサイズをバイト数で返す。

directory-p path [関数]

pathがディレクトリならば、Tを返す。 そうでなかったとき（pathが存在しなかったときを含める） はNILを返す。

find-executable file [関数]

fileという名のUNIXコマンドを探し、フルパス名で返す。 find-executableは、自分のpath-listから実行できるファイルを探す UNIXのwhichコマンドとほとんど同じ関数である。

file-write-date file [関数]

fileが最後に変更された日時を整数表現で返す。 (unix:asctime (unix:localtime (file-write-date file))) で文字列表現が得られる。

file-newer new old [関数]

もし、newファイルがoldファイルよりも最近に変更されているならば、 Tを返す。

object-file-p file [関数]

もし、fileがヘッダー内のファイルのmagic numberを見ることにより オブジェクトファイルであったならば、Tを返す。

directory &optional (path ".") [関数]

pathの中の全てのファイルのリストを作る。

dir &optional (dir ".") [関数]

dirで指定されたディレクトリ内のファイル名を表示する。