ttynam と isatty は、端末ポート名に関する処理を行います。
関数 ttynam は論理装置 lunit に結合されている端末デバイスのパス名を空白で埋めて返します。
関数は、次のように呼び出します。
CHARACTER ttynam*24 name = ttynam( lunit ) |
|||
lunit |
INTEGER*4 |
入力 |
論理装置 |
戻り値 |
character*n |
出力 |
空白でない場合: name は lunit 上のデバイスのパス名。サイズ n は、もっとも長いパス名が入るのに十分な大きさにする 空の文字列 (すべて空白): lunit はディレクトリ /dev の中の端末デバイスと結合されていない |
関数 isatty は、論理装置 lunit が端末装置かどうかによって、true または false を返します。
関数は、次のように呼び出します。
terminal = isatty( lunit ) |
|||
lunit |
INTEGER*4 |
入力 |
論理装置 |
戻り値 |
LOGICAL*4 |
出力 |
terminal = 真: 端末デバイスである terminal = 偽: 端末デバイスではない |
例: lunit が tty であるかどうかを確認します。
character*12 name, ttynam INTEGER*4 lunit /5/ logical*4 isatty, terminal terminal = isatty( lunit ) name = ttynam( lunit ) write(*,*) '端末 = ', terminal, ', 名前 = "', name, '"' end |
出力は次のように表示されます。
端末 = T, 名前 = "/dev/ttyp1 " |