26 #if defined(__DECC) && !defined(__VAX) && \ 27 defined(__CRTL_VER) && (__CRTL_VER >= 70301000) 31 #define ENABLE_CURLX_PRINTF 39 void decc$__posix_exit(
int __status);
40 void decc$exit(
int __status);
42 static int vms_shell = -1;
48 int is_vms_shell(
void)
65 if(strcmp(shell,
"DCL") == 0) {
91 void vms_special_exit(
int code,
int vms_show)
96 #if __CRTL_VER >= 70000000 97 if(is_vms_shell() == 0) {
98 decc$__posix_exit(code);
106 vms_code =
vms_cond[code] | vms_show;
111 #if defined(__DECC) && !defined(__VAX) && \ 112 defined(__CRTL_VER) && (__CRTL_VER >= 70301000) 131 static decc_feat_t decc_feat_array[] = {
133 {
"DECC$ARGV_PARSE_STYLE", 1 },
135 {
"DECC$EFS_CASE_PRESERVE", 1 },
138 {
"DECC$EFS_CHARSET", 1 },
144 static int decc_init_done = -1;
147 static void decc_init(
void)
160 for(i = 0; decc_feat_array[
i].name != NULL; i++) {
165 if(feat_index >= 0) {
167 feat_value = decc$feature_get_value(feat_index, 1);
168 feat_value_min = decc$feature_get_value(feat_index, 2);
169 feat_value_max = decc$feature_get_value(feat_index, 3);
171 if((decc_feat_array[i].
value >= feat_value_min) &&
172 (decc_feat_array[i].
value <= feat_value_max)) {
174 if(feat_value != decc_feat_array[i].
value) {
176 decc_feat_array[i].value);
181 printf(
" INVALID DECC FEATURE VALUE, %d: %d <= %s <= %d.\n",
183 feat_value_min, decc_feat_array[i].
name, feat_value_max);
188 printf(
" UNKNOWN DECC FEATURE: %s.\n", decc_feat_array[i].
name);
200 #pragma extern_model save 201 #pragma extern_model strict_refdef "LIB$INITIALIZ" 2, nopic, nowrt 202 const int spare[8] = {0};
203 #pragma extern_model strict_refdef "LIB$INITIALIZE" 2, nopic, nowrt 204 void (*
const x_decc_init)() = decc_init;
205 #pragma extern_model restore 208 #pragma extern_model save 210 #pragma extern_model strict_refdef 212 #pragma extern_model restore
int LIB $INITIALIZE(void)
int decc $feature_set_value(int index, int mode, int value)
int decc $feature_get_index(const char *name)
static const long vms_cond[]
UNITTEST_START int * value