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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
/*static char *SCCSID = "@(#)comsub.h 8.2 87/02/13";*/
/******************** START OF SPECIFICATIONS ************************/
/* */
/* SOURCE FILE NAME: COMSUB.H */
/* */
/* DESCRIPTIVE NAME: COMMON SUBROUTINE INCLUDE FILE */
/* */
/* FUNCTION: */
/* */
/* */
/* NOTES: */
/* */
/* ENTRY POINTS: NONE */
/* */
/* EXTERNAL REFERENCE: NONE */
/* */
/* RELEASE: */
/* */
/* VERSION DATE REASON */
/* */
/* 1.00 03/10/1986 initial version */
/* 1.01 03/11/1986 define external pointer to invalid */
/* argument string (CORA's request) */
/* 1.02 03/18/1986 external declaration of "computmsg" */
/* parm 1 : char far * -> char far ** */
/* 1.03 03/24/1986 delete "comverflnm" related decralation */
/* change "int" to "unsigned" */
/* 1.04 03/25/1986 - add function external declaration of */
/* "comcheckdosver" */
/* - delete "far" declaration. */
/* 2.00 04/15/1986 the first intigration version */
/* 2.01 05/21/1986 - add "extern rctomid()" */
/* 2.02 05/22/1986 - add DBCS common routines */
/* 2.03 06/17/1986 - add "com_toupper" and "com_tolower" */
/* 2.04 06/18/1986 - comment out SCCSID tag */
/* 2.05 06/25/1986 - add filehandle enabling switch */
/* 2.06 08/07/1986 - add new routine "realopen" */
/* 2.07 02/13/1987 - add "cm_trace_cmd_flg". */
/*********************************************************************/
/*************************************
* *
* external function declaration *
* *
*************************************/
extern unsigned comgetarg (
unsigned *, /* number of arguments */
char **, /* pointer array of original arguments */
char **, /* pointer of argument unit character */
/* storage */
unsigned, /* depth of new argument pointer array */
char *, /* broken down argument character buffer */
unsigned, /* size of argument character buffer */
char *, /* current defualt drive name */
char *); /* switching character */
/*
* print a message and get a response
*/
extern unsigned computmsg (
char **, /* table of variables to insert */
unsigned, /* number of variables to insert */
unsigned, /* message id */
char *, /* message file name */
unsigned, /* output device type */
unsigned, /* response type */
char *, /* response data area */
unsigned); /* size of response data area */
/*
* verify correct DOS version
*/
extern unsigned comcheckdosver();
/*
* return code conversion to message id
*/
extern unsigned rctomid(
unsigned); /* return code to converted to msg id */
/*
* open drive in real mode
*/
extern unsigned far pascal REALOPEN(
char far *, /* pointer to drive name */
unsigned far *, /* pointer to drive handle */
unsigned); /* open mode */
/*****************************************/
/* */
/* DBCS common subroutine */
/* */
/*****************************************/
/*
* search the first substring occurrence in a string
*/
extern unsigned char
*com_substr(
unsigned char *, /* source string */
unsigned char *); /* target string */
/*
* search the last charater occurrence in a string
*/
extern unsigned char
*com_strrchr(
unsigned char *, /* source string */
unsigned char ); /* target string */
/*
* compare two strings with regard to case
*/
extern int
com_strcmpi(
unsigned char *, /* source string */
unsigned char *); /* string to be compared */
/*
* convert a string to uppercase
*/
extern unsigned char
*com_strupr(
unsigned char *); /* string to be converted */
/*
* convert a string to lowercase
*/
extern unsigned char
*com_strlwr(
unsigned char *); /* string to be converted */
/*
* search the first occurrence of a character in a string
*/
extern char *com_strchr(
unsigned char *, /* a source string */
unsigned char ); /* a character to be searched */
/*
* convert character to uppercase
*/
extern int com_toupper(
unsigned char ); /* character to be converted to uppercase */
/*
* convert character to lowercase
*/
extern int com_tolower(
unsigned char ); /* character to be converted to lowercase */
/*************************************
* *
* external variable declaration *
* *
*************************************/
extern unsigned cm_invalid_parm_pointer; /* points to first detected */
/* invalid argument string */
extern char cm_flhandle_enable_sw; /* enable filehandle input for */
/* computmsg routine */
/* */
/* if this switch is on (non-zero), */
/* filehandle can be set in devicetype.*/
extern char cm_trace_cmd_flg; /* ignore drive validity check. */
/* if it set to 1, COMGETARG does */
/* not check drive validity. */
|
