示例 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 值。