Annotation of embedaddon/curl/packages/vms/curl_crtl_init.c, revision 1.1.1.1
1.1 misho 1: /***************************************************************************
2: * _ _ ____ _
3: * Project ___| | | | _ \| |
4: * / __| | | | |_) | |
5: * | (__| |_| | _ <| |___
6: * \___|\___/|_| \_\_____|
7: *
8: * Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
9: *
10: * This software is licensed as described in the file COPYING, which
11: * you should have received as part of this distribution. The terms
12: * are also available at https://curl.haxx.se/docs/copyright.html.
13: *
14: * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15: * copies of the Software, and permit persons to whom the Software is
16: * furnished to do so, under the terms of the COPYING file.
17: *
18: * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19: * KIND, either express or implied.
20: *
21: ***************************************************************************/
22: /* File: curl_crtl_init.c
23: *
24: * This file makes sure that the DECC Unix settings are correct for
25: * the mode the program is run in.
26: *
27: * The CRTL has not been initialized at the time that these routines
28: * are called, so many routines can not be called.
29: *
30: * This is a module that provides a LIB$INITIALIZE routine that
31: * will turn on some CRTL features that are not enabled by default.
32: *
33: * The CRTL features can also be turned on via logical names, but that
34: * impacts all programs and some aren't ready, willing, or able to handle
35: * those settings.
36: *
37: * On VMS versions that are too old to use the feature setting API, this
38: * module falls back to using logical names.
39: *
40: * Copyright 2013, John Malmberg
41: *
42: * Permission to use, copy, modify, and/or distribute this software for any
43: * purpose with or without fee is hereby granted, provided that the above
44: * copyright notice and this permission notice appear in all copies.
45: *
46: * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
47: * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
48: * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
49: * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
50: * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
51: * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
52: * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
53: *
54: */
55:
56: /* Unix headers */
57: #include <stdio.h>
58: #include <string.h>
59:
60: /* VMS specific headers */
61: #include <descrip.h>
62: #include <lnmdef.h>
63: #include <stsdef.h>
64:
65: #pragma member_alignment save
66: #pragma nomember_alignment longword
67: #pragma message save
68: #pragma message disable misalgndmem
69: struct itmlst_3 {
70: unsigned short int buflen;
71: unsigned short int itmcode;
72: void *bufadr;
73: unsigned short int *retlen;
74: };
75: #pragma message restore
76: #pragma member_alignment restore
77:
78: #ifdef __VAX
79: #define ENABLE "ENABLE"
80: #define DISABLE "DISABLE"
81: #else
82:
83: #define ENABLE TRUE
84: #define DISABLE 0
85: int decc$feature_get_index (const char *name);
86: int decc$feature_set_value (int index, int mode, int value);
87: #endif
88:
89: int SYS$TRNLNM(
90: const unsigned long * attr,
91: const struct dsc$descriptor_s * table_dsc,
92: struct dsc$descriptor_s * name_dsc,
93: const unsigned char * acmode,
94: const struct itmlst_3 * item_list);
95: int SYS$CRELNM(
96: const unsigned long * attr,
97: const struct dsc$descriptor_s * table_dsc,
98: const struct dsc$descriptor_s * name_dsc,
99: const unsigned char * acmode,
100: const struct itmlst_3 * item_list);
101:
102:
103: /* Take all the fun out of simply looking up a logical name */
104: static int sys_trnlnm
105: (const char * logname,
106: char * value,
107: int value_len)
108: {
109: const $DESCRIPTOR(table_dsc, "LNM$FILE_DEV");
110: const unsigned long attr = LNM$M_CASE_BLIND;
111: struct dsc$descriptor_s name_dsc;
112: int status;
113: unsigned short result;
114: struct itmlst_3 itlst[2];
115:
116: itlst[0].buflen = value_len;
117: itlst[0].itmcode = LNM$_STRING;
118: itlst[0].bufadr = value;
119: itlst[0].retlen = &result;
120:
121: itlst[1].buflen = 0;
122: itlst[1].itmcode = 0;
123:
124: name_dsc.dsc$w_length = strlen(logname);
125: name_dsc.dsc$a_pointer = (char *)logname;
126: name_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
127: name_dsc.dsc$b_class = DSC$K_CLASS_S;
128:
129: status = SYS$TRNLNM(&attr, &table_dsc, &name_dsc, 0, itlst);
130:
131: if ($VMS_STATUS_SUCCESS(status)) {
132:
133: /* Null terminate and return the string */
134: /*--------------------------------------*/
135: value[result] = '\0';
136: }
137:
138: return status;
139: }
140:
141: /* How to simply create a logical name */
142: static int sys_crelnm
143: (const char * logname,
144: const char * value)
145: {
146: int ret_val;
147: const char * proc_table = "LNM$PROCESS_TABLE";
148: struct dsc$descriptor_s proc_table_dsc;
149: struct dsc$descriptor_s logname_dsc;
150: struct itmlst_3 item_list[2];
151:
152: proc_table_dsc.dsc$a_pointer = (char *) proc_table;
153: proc_table_dsc.dsc$w_length = strlen(proc_table);
154: proc_table_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
155: proc_table_dsc.dsc$b_class = DSC$K_CLASS_S;
156:
157: logname_dsc.dsc$a_pointer = (char *) logname;
158: logname_dsc.dsc$w_length = strlen(logname);
159: logname_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
160: logname_dsc.dsc$b_class = DSC$K_CLASS_S;
161:
162: item_list[0].buflen = strlen(value);
163: item_list[0].itmcode = LNM$_STRING;
164: item_list[0].bufadr = (char *)value;
165: item_list[0].retlen = NULL;
166:
167: item_list[1].buflen = 0;
168: item_list[1].itmcode = 0;
169:
170: ret_val = SYS$CRELNM(NULL, &proc_table_dsc, &logname_dsc, NULL, item_list);
171:
172: return ret_val;
173: }
174:
175:
176: /* Start of DECC RTL Feature handling */
177:
178: /*
179: ** Sets default value for a feature
180: */
181: #ifdef __VAX
182: static void set_feature_default(const char *name, const char *value)
183: {
184: sys_crelnm(name, value);
185: }
186: #else
187: static void set_feature_default(const char *name, int value)
188: {
189: int index;
190:
191: index = decc$feature_get_index(name);
192:
193: if (index > 0)
194: decc$feature_set_value (index, 0, value);
195: }
196: #endif
197:
198: static void set_features(void)
199: {
200: int status;
201: char unix_shell_name[255];
202: int use_unix_settings = 1;
203:
204: status = sys_trnlnm("GNV$UNIX_SHELL",
205: unix_shell_name, sizeof unix_shell_name -1);
206: if (!$VMS_STATUS_SUCCESS(status)) {
207: use_unix_settings = 0;
208: }
209:
210: /* ACCESS should check ACLs or it is lying. */
211: set_feature_default("DECC$ACL_ACCESS_CHECK", ENABLE);
212:
213: /* We always want the new parse style */
214: set_feature_default ("DECC$ARGV_PARSE_STYLE" , ENABLE);
215:
216:
217: /* Unless we are in POSIX compliant mode, we want the old POSIX root
218: * enabled.
219: */
220: set_feature_default("DECC$DISABLE_POSIX_ROOT", DISABLE);
221:
222: /* EFS charset, means UTF-8 support */
223: /* VTF-7 support is controlled by a feature setting called UTF8 */
224: set_feature_default ("DECC$EFS_CHARSET", ENABLE);
225: set_feature_default ("DECC$EFS_CASE_PRESERVE", ENABLE);
226:
227: /* Support timestamps when available */
228: set_feature_default ("DECC$EFS_FILE_TIMESTAMPS", ENABLE);
229:
230: /* Cache environment variables - performance improvements */
231: set_feature_default ("DECC$ENABLE_GETENV_CACHE", ENABLE);
232:
233: /* Start out with new file attribute inheritance */
234: #ifdef __VAX
235: set_feature_default ("DECC$EXEC_FILEATTR_INHERITANCE", "2");
236: #else
237: set_feature_default ("DECC$EXEC_FILEATTR_INHERITANCE", 2);
238: #endif
239:
240: /* Don't display trailing dot after files without type */
241: set_feature_default ("DECC$READDIR_DROPDOTNOTYPE", ENABLE);
242:
243: /* For standard output channels buffer output until terminator */
244: /* Gets rid of output logs with single character lines in them. */
245: set_feature_default ("DECC$STDIO_CTX_EOL", ENABLE);
246:
247: /* Fix mv aa.bb aa */
248: set_feature_default ("DECC$RENAME_NO_INHERIT", ENABLE);
249:
250: if (use_unix_settings) {
251:
252: /* POSIX requires that open files be able to be removed */
253: set_feature_default ("DECC$ALLOW_REMOVE_OPEN_FILES", ENABLE);
254:
255: /* Default to outputting Unix filenames in VMS routines */
256: set_feature_default ("DECC$FILENAME_UNIX_ONLY", ENABLE);
257: /* FILENAME_UNIX_ONLY Implicitly sets */
258: /* decc$disable_to_vms_logname_translation */
259:
260: set_feature_default ("DECC$FILE_PERMISSION_UNIX", ENABLE);
261:
262: set_feature_default ("DECC$FILE_SHARING", ENABLE);
263:
264: set_feature_default ("DECC$FILE_OWNER_UNIX", ENABLE);
265: set_feature_default ("DECC$POSIX_SEEK_STREAM_FILE", ENABLE);
266:
267: } else {
268: set_feature_default("DECC$FILENAME_UNIX_REPORT", ENABLE);
269: }
270:
271: /* When reporting Unix filenames, glob the same way */
272: set_feature_default ("DECC$GLOB_UNIX_STYLE", ENABLE);
273:
274: /* The VMS version numbers on Unix filenames is incompatible with most */
275: /* ported packages. */
276: set_feature_default("DECC$FILENAME_UNIX_NO_VERSION", ENABLE);
277:
278: /* The VMS version numbers on Unix filenames is incompatible with most */
279: /* ported packages. */
280: set_feature_default("DECC$UNIX_PATH_BEFORE_LOGNAME", ENABLE);
281:
282: /* Set strtol to proper behavior */
283: set_feature_default("DECC$STRTOL_ERANGE", ENABLE);
284:
285: /* Commented here to prevent future bugs: A program or user should */
286: /* never ever enable DECC$POSIX_STYLE_UID. */
287: /* It will probably break all code that accesses UIDs */
288: /* do_not_set_default ("DECC$POSIX_STYLE_UID", TRUE); */
289: }
290:
291:
292: /* Some boilerplate to force this to be a proper LIB$INITIALIZE section */
293:
294: #pragma nostandard
295: #pragma extern_model save
296: #ifdef __VAX
297: #pragma extern_model strict_refdef "LIB$INITIALIZE" nowrt, long, nopic
298: #else
299: #pragma extern_model strict_refdef "LIB$INITIALIZE" nowrt, long
300: # if __INITIAL_POINTER_SIZE
301: # pragma __pointer_size __save
302: # pragma __pointer_size 32
303: # else
304: # pragma __required_pointer_size __save
305: # pragma __required_pointer_size 32
306: # endif
307: #endif
308: /* Set our contribution to the LIB$INITIALIZE array */
309: void (* const iniarray[])(void) = {set_features, } ;
310: #ifndef __VAX
311: # if __INITIAL_POINTER_SIZE
312: # pragma __pointer_size __restore
313: # else
314: # pragma __required_pointer_size __restore
315: # endif
316: #endif
317:
318:
319: /*
320: ** Force a reference to LIB$INITIALIZE to ensure it
321: ** exists in the image.
322: */
323: int LIB$INITIALIZE(void);
324: #ifdef __DECC
325: #pragma extern_model strict_refdef
326: #endif
327: int lib_init_ref = (int) LIB$INITIALIZE;
328: #ifdef __DECC
329: #pragma extern_model restore
330: #pragma standard
331: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to curl_crtl_init.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / packages / vms