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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
/***
*chmod.c - OS/2 change file attributes
*
* Copyright (c) 1989-1991, Microsoft Corporation. All rights reserved.
*
*Purpose:
* Defines _chmod() - change file attributes
*
*Revision History:
* 06-06-89 PHG Module created, based on asm version
* 11-10-89 JCR Replaced DOS32QUERYFILEMODE with DOS32QUERYPATHINFO
* 03-07-90 GJF Made calling type _CALLTYPE2 (for now), added #include
* <cruntime.h>, fixed copyright and fixed compiler
* warnings. Also, cleaned up the formatting a bit.
* 03-30-90 GJF Now _CALLTYPE1.
* 07-24-90 SBM Removed '32' from API names
* 09-27-90 GJF New-style function declarator.
* 12-04-90 SRW Changed to include <oscalls.h> instead of <doscalls.h>
* 12-06-90 SRW Added _CRUISER_ and _WIN32 conditionals.
* 01-16-91 GJF ANSI naming.
*
*******************************************************************************/
#include <cruntime.h>
#include <oscalls.h>
#include <internal.h>
#include <io.h>
#include <sys\types.h>
#include <sys\stat.h>
/***
*int _chmod(path, mode) - change file mode
*
*Purpose:
* Changes file mode permission setting to that specified in
* mode. The only XENIX mode bit supported is user write.
*
*Entry:
* char *path - file name
* int mode - mode to change to
*
*Exit:
* returns 0 if successful
* returns -1 and sets errno if not successful
*
*Exceptions:
*
*******************************************************************************/
int _CALLTYPE1 _chmod (
const char *path,
int mode
)
{
#ifdef _CRUISER_
ULONG dosretval;
FILESTATUS fs;
/* query OS/2 for file attribute */
if (dosretval = DOSQUERYPATHINFO((char *)path, 1, &fs, sizeof(fs))) {
/* error occured -- map error code and return */
_dosmaperr(dosretval);
return -1;
}
if (mode & _S_IWRITE) {
/* clear read only bit */
fs.attrFile &= ~FILE_READONLY;
}
else {
/* set read only bit */
fs.attrFile |= FILE_READONLY;
}
/* set new attribute */
if (dosretval = DOSSETPATHINFO((char *)path, 1, &fs, sizeof(fs),0)) {
/* error occured -- map error code and return */
_dosmaperr(dosretval);
return -1;
}
#else /* ndef _CRUISER_ */
#ifdef _WIN32_
DWORD attr;
attr = GetFileAttributes((LPSTR)path);
if (attr == 0xffffffff) {
/* error occured -- map error code and return */
_dosmaperr(GetLastError());
return -1;
}
if (mode & _S_IWRITE) {
/* clear read only bit */
attr &= ~FILE_ATTRIBUTE_READONLY;
}
else {
/* set read only bit */
attr |= FILE_ATTRIBUTE_READONLY;
}
/* set new attribute */
if (!SetFileAttributes((LPSTR)path, attr)) {
/* error occured -- map error code and return */
_dosmaperr(GetLastError());
return -1;
}
#else /* ndef _WIN32_ */
#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
#endif /* _WIN32_ */
#endif /* _CRUISER_ */
return 0;
}
|
