blob: 34b5a780020eee745366271b6b25a95b58ebfbc5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
#include <stdio.h>
#define import_kernel
#define import_knames
#define import_spp
#include <iraf.h>
/* ZFLINK -- Create a file symlink.
*/
int
ZFLINK (
PKCHAR *path1,
PKCHAR *path2,
XINT *status
)
{
/* Create a symlink 'path2' pointing to 'path1'.
*/
*status = (symlink ((char *) path1, (char *) path2) < 0) ? XERR : XOK;
return (*status);
}
/* ZFULNK -- Remove a file symlink.
*/
int
ZFULNK (
PKCHAR *path,
XINT *status
)
{
/* Remove the link at 'path'.
*/
*status = (unlink ((char *) path) < 0) ? XERR : XOK;
return (*status);
}
|
