char id_link[] = "@(#)link_.c 1.2";
* make a link to an existing file
* ierror = link(name1, name2)
* name1 is the pathname of an existing file
* name2 is a pathname to be linked to file name1
* ierror will be 0 if successful; a system error code otherwise.
#include "../libI77/f_errno.h"
long link_(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 (link(buf1
, buf2
) != 0)