44 #pragma member_alignment save 45 #pragma nomember_alignment longword 47 #pragma message disable misalgndmem 54 #pragma message restore 55 #pragma member_alignment restore 58 #define ENABLE "ENABLE" 59 #define DISABLE "DISABLE" 69 const unsigned long * attr,
70 const struct dsc$descriptor_s * table_dsc,
71 struct dsc$descriptor_s * name_dsc,
72 const unsigned char * acmode,
75 const unsigned long * attr,
76 const struct dsc$descriptor_s * table_dsc,
77 const struct dsc$descriptor_s * name_dsc,
78 const unsigned char * acmode,
84 (
const char * logname,
88 const $DESCRIPTOR(table_dsc,
"LNM$FILE_DEV");
89 const unsigned long attr = LNM$M_CASE_BLIND;
90 struct dsc$descriptor_s name_dsc;
95 itlst[0].
buflen = value_len;
103 name_dsc.dsc$w_length = strlen(logname);
104 name_dsc.dsc$a_pointer = (
char *)logname;
105 name_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
106 name_dsc.dsc$b_class = DSC$K_CLASS_S;
108 status = SYS
$TRNLNM(&attr, &table_dsc, &name_dsc, 0, itlst);
110 if ($VMS_STATUS_SUCCESS(status)) {
122 (
const char * logname,
126 const char * proc_table =
"LNM$PROCESS_TABLE";
127 struct dsc$descriptor_s proc_table_dsc;
128 struct dsc$descriptor_s logname_dsc;
131 proc_table_dsc.dsc$a_pointer = (
char *) proc_table;
132 proc_table_dsc.dsc$w_length = strlen(proc_table);
133 proc_table_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
134 proc_table_dsc.dsc$b_class = DSC$K_CLASS_S;
136 logname_dsc.dsc$a_pointer = (
char *) logname;
137 logname_dsc.dsc$w_length = strlen(logname);
138 logname_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
139 logname_dsc.dsc$b_class = DSC$K_CLASS_S;
141 item_list[0].
buflen = strlen(value);
142 item_list[0].
itmcode = LNM$_STRING;
143 item_list[0].
bufadr = (
char *)value;
144 item_list[0].
retlen = NULL;
149 ret_val = SYS
$CRELNM(NULL, &proc_table_dsc, &logname_dsc, NULL, item_list);
180 char unix_shell_name[255];
181 int use_unix_settings = 1;
184 unix_shell_name,
sizeof unix_shell_name -1);
185 if (!$VMS_STATUS_SUCCESS(status)) {
186 unix_shell_name[0] = 0;
187 use_unix_settings = 0;
230 if (use_unix_settings) {
275 #pragma extern_model save 277 #pragma extern_model strict_refdef "LIB$INITIALIZE" nowrt, long, nopic 279 #pragma extern_model strict_refdef "LIB$INITIALIZE" nowrt, long 280 # if __INITIAL_POINTER_SIZE 281 # pragma __pointer_size __save 282 # pragma __pointer_size 32 284 # pragma __required_pointer_size __save 285 # pragma __required_pointer_size 32 291 # if __INITIAL_POINTER_SIZE 292 # pragma __pointer_size __restore 294 # pragma __required_pointer_size __restore 305 #pragma extern_model strict_refdef 309 #pragma extern_model restore int LIB $INITIALIZE(void)
static void set_features(void)
int decc $feature_set_value(int index, int mode, int value)
int SYS $TRNLNM(const unsigned long *attr, const struct dsc $descriptor_s *table_dsc, struct dsc $descriptor_s *name_dsc, const unsigned char *acmode, const struct itmlst_3 *item_list)
UNITTEST_START int result
unsigned short int itmcode
static void set_feature_default(const char *name, int value)
int decc $feature_get_index(const char *name)
unsigned short int * retlen
void(*const iniarray[])(void)
int SYS $CRELNM(const unsigned long *attr, const struct dsc $descriptor_s *table_dsc, const struct dsc $descriptor_s *name_dsc, const unsigned char *acmode, const struct itmlst_3 *item_list)
static int sys_trnlnm(const char *logname, char *value, int value_len)
unsigned short int buflen
UNITTEST_START int * value
static int sys_crelnm(const char *logname, const char *value)