char id_symlnk[] = "@(#)symlnk_.c 1.1";
* make a symbolic link to a file
* ierror = symlnk(name1, name2)
* name1 is the pathname of an existing file
* name2 is a pathname that will become a symbolic link to name1
* ierror will be 0 if successful; a system error code otherwise.
#include "../libI77/f_errno.h"
long symlnk_(name1
, name2
, n1len
, n2len
)
if (n1len
>= sizeof buf1
|| n2len
>= sizeof buf2
)
return((long)(errno
=F_ERARG
));
g_char(name1
, n1len
, buf1
);
g_char(name2
, n2len
, buf2
);
if (buf1
[0] == '\0' || buf2
[0] == '\0')
return((long)(errno
=F_ERARG
));
if (symlink(buf1
, buf2
) != 0)