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
|
/*
* VMS Message Source File Generator.
*
* 2007-01-29 SMS.
*
* Generates a VMS error message source file from data in "ziperr.h".
*
* On a VMS system, the standard builders should do the work. On a
* non-VMS system:
*
* cc -I. vms/vms_msg_gen.c -o vms_msg_gen
* ./vms_msg_gen > vms/zip_msg.msg
* rm ./vms_msg_gen
*/
#include <stdio.h>
#include <string.h>
#define GLOBALS /* Include data for ziperrors[] in ziperr.h. */
#include "ziperr.h"
main()
{
int base_prev;
int code_vms;
int code_zip;
int i;
char *sev_str[ 8] = {
"/WARNING",
"/SUCCESS",
"/ERROR",
"/INFORMATIONAL",
"/FATAL",
"/??????",
"/???????",
"/????????"
};
char *text1[] = {
"! VMS Error Message Source File for Zip",
"!",
"! Because the facility code was formally assigned by HP, the .FACILITY",
"! directive below specifies /SYSTEM. Because the messages are, in",
"! general, specific to Zip, this file is not compiled with /SHARED.",
"! For example:",
"!",
"! MESSAGE /OBJECT = [.dest]ZIP_MSG.OBJ /NOSYMBOLS [.VMS]ZIP_MSG.MSG",
"!",
"! LINK /SHAREABLE = [.dest]ZIP_MSG.EXE [.dest]ZIP_MSG.OBJ",
"!",
"!-----------------------------------------------------------------------",
"",
".TITLE Info-ZIP Zip Error Messages",
".FACILITY IZ_ZIP, 1955 /SYSTEM",
NULL /* End-of-text marker. */
};
/* Initialize the .BASE counter. */
base_prev = -2;
/* Put out the header text. */
for (i = 0; text1[ i] != NULL; i++)
{
printf( "%s\n", text1[ i]);
}
printf( ".IDENT '%s'\n", VMS_MSG_IDENT);
printf( "\n");
/* Put out the error messages. */
for (code_zip = 0; code_zip <= ZE_MAXERR; code_zip++)
{
if ((ziperrors[ code_zip].string != NULL) &&
(strlen(ziperrors[ code_zip].string) != 0))
{
code_vms = 2* code_zip; /* 4-bit left-shift, not 3. */
if (code_vms != base_prev+ 1)
{
printf( ".BASE %d\n", code_vms);
}
printf( "%-7s %-13s <%s>\n",
ziperrors[ code_zip].name,
sev_str[ ziperrors[ code_zip].severity & 0x07],
ziperrors[ code_zip].string);
base_prev = code_vms;
}
}
/* Put out the .END directive. */
printf( "\n");
printf( ".END\n");
}
|
