test

Sun Studio 12：Fortran 库参考

1.4.31 link 和 symlnk：创建指向现有文件的链接

link 创建指向现有文件的链接。symlink 创建指向现有文件的符号链接。

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

status = link( name1, name2 )

INTEGER*4 symlnk

status = symlnk( name1, name2 )

name1

character*n

输入 

现有文件的路径名 

name2

character*n

输入 

要链接到文件 name1 的路径名。

name2 不得已存在。

返回值 

INTEGER*4

输出 

status=0：OK

status>0：系统错误代码

1.4.31.1 link：创建指向现有文件的链接

示例 1：link：创建一个指向文件 tlink.db.data.1 的链接 data1：


demo% cat tlink.f
        character*34 name1/’tlink.db.data.1’/, name2/’data1’/
        integer*4 link, status
        status = link( name1, name2 )
        if ( status .ne. 0 ) stop ’link: error’
        end
demo% f95 tlink.f
demo% ls -l data1
data1 not found
demo% a.out
demo% ls -l data1
-rw-rw-r-- 2 generic 2 Aug 11 08:50 data1
demo%

1.4.31.2 symlnk:：创建指向现有文件的符号链接

示例 2：symlnk：创建一个指向文件 tlink.db.data.1 的符号链接 data1：


demo% cat tsymlnk.f
       character*34 name1/’tlink.db.data.1’/, name2/’data1’/
       INTEGER*4 status, symlnk
       status = symlnk( name1, name2 )
       if ( status .ne. 0 ) stop ’symlnk: error’
       end
demo% f95 tsymlnk.f
demo% ls -l data1
data1 not found
demo% a.out
demo% ls -l data1
lrwxrwxrwx 1 generic 15 Aug 11 11:09 data1 -> tlink.db.data.1
demo%

另请参见：link(2)、symlink(2)、perror(3F) 和 unlink(3F)。

注意：路径名长度不能超过 <sys/param.h> 中定义的 MAXPATHLEN 值。