test

Sun Studio 12：Fortran 库参考

1.4.52 ttynam 和 isatty：获取终端端口的名称

ttynam 和 isatty 处理终端端口的名称。

1.4.52.1 ttynam：获取终端端口的名称

函数 ttynam 返回与逻辑单元 lunit 关联的终端设备的空白填充路径名。

该函数的调用方式如下所示：

CHARACTER ttynam*24

name = ttynam( lunit )

lunit

INTEGER*4

输入 

逻辑单元 

返回值 

character*n

输出 

如果返回非空白字符串：name 为 lunit 中设备的路径名。大小 n 必须足够大，以便能容纳最长的路径名。

如果返回空白字符串（全部为空白）：lunit 与目录 /dev 中的终端设备没有关联。

1.4.52.2 isatty：确定单元是否为终端

函数 isatty 根据逻辑单元 lunit 是否为终端设备返回 true 或 false。

该函数的调用方式如下所示：

terminal = isatty( lunit )

lunit

INTEGER*4

输入 

逻辑单元 

返回值 

LOGICAL*4

输出 

terminal=true：是终端设备

terminal=false：不是终端设备

示例：确定 lunit 是否为 tty：


       character*12 name, ttynam
       INTEGER*4 lunit /5/
       logical*4 isatty, terminal
       terminal = isatty( lunit )
       name = ttynam( lunit )
       write(*,*) ’terminal = ’, terminal, ’, name = "’, name, ’"’
       end

输出为：


 terminal = T, name = "/dev/ttyp1  "