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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#define import_kernel
#define import_knames
#define import_protect
#define import_spp
#include <iraf.h>
/* ZFMKCP -- Make a null length copy of a file. The new file inherits all
* attributes of the original file except the file owner (the copy belongs to
* the owner of the process which called us), the file size (this will be 0
* after the zfmkcp), and the owner write permission bit (the new file has
* to be writable by the owner to be useful).
*
* Since file protection is implemented by special techniques on UNIX,
* we must take special measures to pass the file protection attribute to
* the new copy.
*/
int
ZFMKCP (
PKCHAR *osfn,
PKCHAR *new_osfn,
XINT *status
)
{
struct stat statbuf;
int fd, mode;
XINT prot;
extern int ZFPROT(PKCHAR *fname, XINT *action, XINT *status);
/* Get directory information for the old file. Most of the file
* attributes reside in the st_mode field.
*/
if (stat ((char *)osfn, &statbuf) == ERR) {
*status = XERR;
return (XERR);
}
mode = statbuf.st_mode;
/* Create new file using mode bits from the existing file.
*/
if ((fd = creat ((char *)new_osfn, mode | 0600)) == ERR) {
*status = XERR;
return (XERR);
} else
close (fd);
/* Add file protection if the original file is protected. If new file
* cannot be protected delete new file and return ERR.
*/
prot = QUERY_PROTECTION;
ZFPROT (osfn, &prot, status);
if (*status == XYES) {
prot = SET_PROTECTION;
ZFPROT (new_osfn, &prot, status);
}
if (*status == XERR)
unlink ((char *)new_osfn);
return (XOK);
}
|
