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
|
#include "defs.h"
#include <string.h>
int
evax_filename_comp (a, b)
char *a;
char *b;
{
char *sc;
if (strchr (a, ';') && strchr (b, ';'))
return strcasecmp (a, b);
else if (!strchr (a, ';') && (sc=strchr (b, ';')))
{
if (strlen (a) == sc-b)
return strncasecmp (a, b, sc-b);
else
return -1;
}
else if (!strchr (a, ';') && !strchr (b, ';'))
return strcasecmp (a, b);
else
return -1;
}
void
ui_out_exit_detail (int stop_info)
{
char message [256];
unsigned short outlen;
int msg_flag = 0x000f; /* 1 bit for each of the four message parts */
int msg_code;
struct dsc$descriptor_s msgdesc;
msgdesc.dsc$w_length = 256;
msgdesc.dsc$b_dtype = DSC$K_DTYPE_T;
msgdesc.dsc$b_class = DSC$K_CLASS_S;
msgdesc.dsc$a_pointer = message;
SYS$GETMSG (w.value.integer, &outlen, &msgdesc, msg_flag, 0);
message[outlen] = 0;
ui_out_field_fmt (uiout, "exit-code", "%d (0x%X), message: %s",
(unsigned int) stop_info, (unsigned int) stop_info,
message);
}
|
