1 |
/* $Header$ */ |
/* $Header$ */ |
2 |
|
|
3 |
/* |
/* |
4 |
* tkArgv.c -- |
* tkArgv.c -- |
5 |
* |
* |
6 |
* This file contains a procedure that handles table-based |
* This file contains a procedure that handles table-based |
7 |
* argv-argc parsing. |
* argv-argc parsing. |
8 |
* |
* |
9 |
* Copyright (c) 1990-1994 The Regents of the University of California. |
* Copyright (c) 1990-1994 The Regents of the University of California. |
10 |
* Copyright (c) 1994-1997 Sun Microsystems, Inc. |
* Copyright (c) 1994-1997 Sun Microsystems, Inc. |
11 |
* |
* |
12 |
* See the file "license.terms" for information on usage and redistribution |
* See the file "license.terms" for information on usage and redistribution |
13 |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
14 |
* |
* |
15 |
* RCS: @(#) $Id: tkargv.c,v 1.1.1.1 2001/06/13 04:53:35 dtashley Exp $ |
* RCS: @(#) $Id: tkargv.c,v 1.1.1.1 2001/06/13 04:53:35 dtashley Exp $ |
16 |
*/ |
*/ |
17 |
|
|
18 |
#include "tkPort.h" |
#include "tkPort.h" |
19 |
#include "tk.h" |
#include "tk.h" |
20 |
|
|
21 |
/* |
/* |
22 |
* Default table of argument descriptors. These are normally available |
* Default table of argument descriptors. These are normally available |
23 |
* in every application. |
* in every application. |
24 |
*/ |
*/ |
25 |
|
|
26 |
static Tk_ArgvInfo defaultTable[] = { |
static Tk_ArgvInfo defaultTable[] = { |
27 |
{"-help", TK_ARGV_HELP, (char *) NULL, (char *) NULL, |
{"-help", TK_ARGV_HELP, (char *) NULL, (char *) NULL, |
28 |
"Print summary of command-line options and abort"}, |
"Print summary of command-line options and abort"}, |
29 |
{NULL, TK_ARGV_END, (char *) NULL, (char *) NULL, |
{NULL, TK_ARGV_END, (char *) NULL, (char *) NULL, |
30 |
(char *) NULL} |
(char *) NULL} |
31 |
}; |
}; |
32 |
|
|
33 |
/* |
/* |
34 |
* Forward declarations for procedures defined in this file: |
* Forward declarations for procedures defined in this file: |
35 |
*/ |
*/ |
36 |
|
|
37 |
static void PrintUsage _ANSI_ARGS_((Tcl_Interp *interp, |
static void PrintUsage _ANSI_ARGS_((Tcl_Interp *interp, |
38 |
Tk_ArgvInfo *argTable, int flags)); |
Tk_ArgvInfo *argTable, int flags)); |
39 |
|
|
40 |
/* |
/* |
41 |
*---------------------------------------------------------------------- |
*---------------------------------------------------------------------- |
42 |
* |
* |
43 |
* Tk_ParseArgv -- |
* Tk_ParseArgv -- |
44 |
* |
* |
45 |
* Process an argv array according to a table of expected |
* Process an argv array according to a table of expected |
46 |
* command-line options. See the manual page for more details. |
* command-line options. See the manual page for more details. |
47 |
* |
* |
48 |
* Results: |
* Results: |
49 |
* The return value is a standard Tcl return value. If an |
* The return value is a standard Tcl return value. If an |
50 |
* error occurs then an error message is left in the interp's result. |
* error occurs then an error message is left in the interp's result. |
51 |
* Under normal conditions, both *argcPtr and *argv are modified |
* Under normal conditions, both *argcPtr and *argv are modified |
52 |
* to return the arguments that couldn't be processed here (they |
* to return the arguments that couldn't be processed here (they |
53 |
* didn't match the option table, or followed an TK_ARGV_REST |
* didn't match the option table, or followed an TK_ARGV_REST |
54 |
* argument). |
* argument). |
55 |
* |
* |
56 |
* Side effects: |
* Side effects: |
57 |
* Variables may be modified, resources may be entered for tkwin, |
* Variables may be modified, resources may be entered for tkwin, |
58 |
* or procedures may be called. It all depends on the arguments |
* or procedures may be called. It all depends on the arguments |
59 |
* and their entries in argTable. See the user documentation |
* and their entries in argTable. See the user documentation |
60 |
* for details. |
* for details. |
61 |
* |
* |
62 |
*---------------------------------------------------------------------- |
*---------------------------------------------------------------------- |
63 |
*/ |
*/ |
64 |
|
|
65 |
int |
int |
66 |
Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags) |
Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags) |
67 |
Tcl_Interp *interp; /* Place to store error message. */ |
Tcl_Interp *interp; /* Place to store error message. */ |
68 |
Tk_Window tkwin; /* Window to use for setting Tk options. |
Tk_Window tkwin; /* Window to use for setting Tk options. |
69 |
* NULL means ignore Tk option specs. */ |
* NULL means ignore Tk option specs. */ |
70 |
int *argcPtr; /* Number of arguments in argv. Modified |
int *argcPtr; /* Number of arguments in argv. Modified |
71 |
* to hold # args left in argv at end. */ |
* to hold # args left in argv at end. */ |
72 |
char **argv; /* Array of arguments. Modified to hold |
char **argv; /* Array of arguments. Modified to hold |
73 |
* those that couldn't be processed here. */ |
* those that couldn't be processed here. */ |
74 |
Tk_ArgvInfo *argTable; /* Array of option descriptions */ |
Tk_ArgvInfo *argTable; /* Array of option descriptions */ |
75 |
int flags; /* Or'ed combination of various flag bits, |
int flags; /* Or'ed combination of various flag bits, |
76 |
* such as TK_ARGV_NO_DEFAULTS. */ |
* such as TK_ARGV_NO_DEFAULTS. */ |
77 |
{ |
{ |
78 |
register Tk_ArgvInfo *infoPtr; |
register Tk_ArgvInfo *infoPtr; |
79 |
/* Pointer to the current entry in the |
/* Pointer to the current entry in the |
80 |
* table of argument descriptions. */ |
* table of argument descriptions. */ |
81 |
Tk_ArgvInfo *matchPtr; /* Descriptor that matches current argument. */ |
Tk_ArgvInfo *matchPtr; /* Descriptor that matches current argument. */ |
82 |
char *curArg; /* Current argument */ |
char *curArg; /* Current argument */ |
83 |
register char c; /* Second character of current arg (used for |
register char c; /* Second character of current arg (used for |
84 |
* quick check for matching; use 2nd char. |
* quick check for matching; use 2nd char. |
85 |
* because first char. will almost always |
* because first char. will almost always |
86 |
* be '-'). */ |
* be '-'). */ |
87 |
int srcIndex; /* Location from which to read next argument |
int srcIndex; /* Location from which to read next argument |
88 |
* from argv. */ |
* from argv. */ |
89 |
int dstIndex; /* Index into argv to which next unused |
int dstIndex; /* Index into argv to which next unused |
90 |
* argument should be copied (never greater |
* argument should be copied (never greater |
91 |
* than srcIndex). */ |
* than srcIndex). */ |
92 |
int argc; /* # arguments in argv still to process. */ |
int argc; /* # arguments in argv still to process. */ |
93 |
size_t length; /* Number of characters in current argument. */ |
size_t length; /* Number of characters in current argument. */ |
94 |
int i; |
int i; |
95 |
|
|
96 |
if (flags & TK_ARGV_DONT_SKIP_FIRST_ARG) { |
if (flags & TK_ARGV_DONT_SKIP_FIRST_ARG) { |
97 |
srcIndex = dstIndex = 0; |
srcIndex = dstIndex = 0; |
98 |
argc = *argcPtr; |
argc = *argcPtr; |
99 |
} else { |
} else { |
100 |
srcIndex = dstIndex = 1; |
srcIndex = dstIndex = 1; |
101 |
argc = *argcPtr-1; |
argc = *argcPtr-1; |
102 |
} |
} |
103 |
|
|
104 |
while (argc > 0) { |
while (argc > 0) { |
105 |
curArg = argv[srcIndex]; |
curArg = argv[srcIndex]; |
106 |
srcIndex++; |
srcIndex++; |
107 |
argc--; |
argc--; |
108 |
length = strlen(curArg); |
length = strlen(curArg); |
109 |
if (length > 0) { |
if (length > 0) { |
110 |
c = curArg[1]; |
c = curArg[1]; |
111 |
} else { |
} else { |
112 |
c = 0; |
c = 0; |
113 |
} |
} |
114 |
|
|
115 |
/* |
/* |
116 |
* Loop throught the argument descriptors searching for one with |
* Loop throught the argument descriptors searching for one with |
117 |
* the matching key string. If found, leave a pointer to it in |
* the matching key string. If found, leave a pointer to it in |
118 |
* matchPtr. |
* matchPtr. |
119 |
*/ |
*/ |
120 |
|
|
121 |
matchPtr = NULL; |
matchPtr = NULL; |
122 |
for (i = 0; i < 2; i++) { |
for (i = 0; i < 2; i++) { |
123 |
if (i == 0) { |
if (i == 0) { |
124 |
infoPtr = argTable; |
infoPtr = argTable; |
125 |
} else { |
} else { |
126 |
infoPtr = defaultTable; |
infoPtr = defaultTable; |
127 |
} |
} |
128 |
for (; (infoPtr != NULL) && (infoPtr->type != TK_ARGV_END); |
for (; (infoPtr != NULL) && (infoPtr->type != TK_ARGV_END); |
129 |
infoPtr++) { |
infoPtr++) { |
130 |
if (infoPtr->key == NULL) { |
if (infoPtr->key == NULL) { |
131 |
continue; |
continue; |
132 |
} |
} |
133 |
if ((infoPtr->key[1] != c) |
if ((infoPtr->key[1] != c) |
134 |
|| (strncmp(infoPtr->key, curArg, length) != 0)) { |
|| (strncmp(infoPtr->key, curArg, length) != 0)) { |
135 |
continue; |
continue; |
136 |
} |
} |
137 |
if ((tkwin == NULL) |
if ((tkwin == NULL) |
138 |
&& ((infoPtr->type == TK_ARGV_CONST_OPTION) |
&& ((infoPtr->type == TK_ARGV_CONST_OPTION) |
139 |
|| (infoPtr->type == TK_ARGV_OPTION_VALUE) |
|| (infoPtr->type == TK_ARGV_OPTION_VALUE) |
140 |
|| (infoPtr->type == TK_ARGV_OPTION_NAME_VALUE))) { |
|| (infoPtr->type == TK_ARGV_OPTION_NAME_VALUE))) { |
141 |
continue; |
continue; |
142 |
} |
} |
143 |
if (infoPtr->key[length] == 0) { |
if (infoPtr->key[length] == 0) { |
144 |
matchPtr = infoPtr; |
matchPtr = infoPtr; |
145 |
goto gotMatch; |
goto gotMatch; |
146 |
} |
} |
147 |
if (flags & TK_ARGV_NO_ABBREV) { |
if (flags & TK_ARGV_NO_ABBREV) { |
148 |
continue; |
continue; |
149 |
} |
} |
150 |
if (matchPtr != NULL) { |
if (matchPtr != NULL) { |
151 |
Tcl_AppendResult(interp, "ambiguous option \"", curArg, |
Tcl_AppendResult(interp, "ambiguous option \"", curArg, |
152 |
"\"", (char *) NULL); |
"\"", (char *) NULL); |
153 |
return TCL_ERROR; |
return TCL_ERROR; |
154 |
} |
} |
155 |
matchPtr = infoPtr; |
matchPtr = infoPtr; |
156 |
} |
} |
157 |
} |
} |
158 |
if (matchPtr == NULL) { |
if (matchPtr == NULL) { |
159 |
|
|
160 |
/* |
/* |
161 |
* Unrecognized argument. Just copy it down, unless the caller |
* Unrecognized argument. Just copy it down, unless the caller |
162 |
* prefers an error to be registered. |
* prefers an error to be registered. |
163 |
*/ |
*/ |
164 |
|
|
165 |
if (flags & TK_ARGV_NO_LEFTOVERS) { |
if (flags & TK_ARGV_NO_LEFTOVERS) { |
166 |
Tcl_AppendResult(interp, "unrecognized argument \"", |
Tcl_AppendResult(interp, "unrecognized argument \"", |
167 |
curArg, "\"", (char *) NULL); |
curArg, "\"", (char *) NULL); |
168 |
return TCL_ERROR; |
return TCL_ERROR; |
169 |
} |
} |
170 |
argv[dstIndex] = curArg; |
argv[dstIndex] = curArg; |
171 |
dstIndex++; |
dstIndex++; |
172 |
continue; |
continue; |
173 |
} |
} |
174 |
|
|
175 |
/* |
/* |
176 |
* Take the appropriate action based on the option type |
* Take the appropriate action based on the option type |
177 |
*/ |
*/ |
178 |
|
|
179 |
gotMatch: |
gotMatch: |
180 |
infoPtr = matchPtr; |
infoPtr = matchPtr; |
181 |
switch (infoPtr->type) { |
switch (infoPtr->type) { |
182 |
case TK_ARGV_CONSTANT: |
case TK_ARGV_CONSTANT: |
183 |
*((int *) infoPtr->dst) = (int) infoPtr->src; |
*((int *) infoPtr->dst) = (int) infoPtr->src; |
184 |
break; |
break; |
185 |
case TK_ARGV_INT: |
case TK_ARGV_INT: |
186 |
if (argc == 0) { |
if (argc == 0) { |
187 |
goto missingArg; |
goto missingArg; |
188 |
} else { |
} else { |
189 |
char *endPtr; |
char *endPtr; |
190 |
|
|
191 |
*((int *) infoPtr->dst) = |
*((int *) infoPtr->dst) = |
192 |
strtol(argv[srcIndex], &endPtr, 0); |
strtol(argv[srcIndex], &endPtr, 0); |
193 |
if ((endPtr == argv[srcIndex]) || (*endPtr != 0)) { |
if ((endPtr == argv[srcIndex]) || (*endPtr != 0)) { |
194 |
Tcl_AppendResult(interp, "expected integer argument ", |
Tcl_AppendResult(interp, "expected integer argument ", |
195 |
"for \"", infoPtr->key, "\" but got \"", |
"for \"", infoPtr->key, "\" but got \"", |
196 |
argv[srcIndex], "\"", (char *) NULL); |
argv[srcIndex], "\"", (char *) NULL); |
197 |
return TCL_ERROR; |
return TCL_ERROR; |
198 |
} |
} |
199 |
srcIndex++; |
srcIndex++; |
200 |
argc--; |
argc--; |
201 |
} |
} |
202 |
break; |
break; |
203 |
case TK_ARGV_STRING: |
case TK_ARGV_STRING: |
204 |
if (argc == 0) { |
if (argc == 0) { |
205 |
goto missingArg; |
goto missingArg; |
206 |
} else { |
} else { |
207 |
*((char **)infoPtr->dst) = argv[srcIndex]; |
*((char **)infoPtr->dst) = argv[srcIndex]; |
208 |
srcIndex++; |
srcIndex++; |
209 |
argc--; |
argc--; |
210 |
} |
} |
211 |
break; |
break; |
212 |
case TK_ARGV_UID: |
case TK_ARGV_UID: |
213 |
if (argc == 0) { |
if (argc == 0) { |
214 |
goto missingArg; |
goto missingArg; |
215 |
} else { |
} else { |
216 |
*((Tk_Uid *)infoPtr->dst) = Tk_GetUid(argv[srcIndex]); |
*((Tk_Uid *)infoPtr->dst) = Tk_GetUid(argv[srcIndex]); |
217 |
srcIndex++; |
srcIndex++; |
218 |
argc--; |
argc--; |
219 |
} |
} |
220 |
break; |
break; |
221 |
case TK_ARGV_REST: |
case TK_ARGV_REST: |
222 |
*((int *) infoPtr->dst) = dstIndex; |
*((int *) infoPtr->dst) = dstIndex; |
223 |
goto argsDone; |
goto argsDone; |
224 |
case TK_ARGV_FLOAT: |
case TK_ARGV_FLOAT: |
225 |
if (argc == 0) { |
if (argc == 0) { |
226 |
goto missingArg; |
goto missingArg; |
227 |
} else { |
} else { |
228 |
char *endPtr; |
char *endPtr; |
229 |
|
|
230 |
*((double *) infoPtr->dst) = |
*((double *) infoPtr->dst) = |
231 |
strtod(argv[srcIndex], &endPtr); |
strtod(argv[srcIndex], &endPtr); |
232 |
if ((endPtr == argv[srcIndex]) || (*endPtr != 0)) { |
if ((endPtr == argv[srcIndex]) || (*endPtr != 0)) { |
233 |
Tcl_AppendResult(interp, "expected floating-point ", |
Tcl_AppendResult(interp, "expected floating-point ", |
234 |
"argument for \"", infoPtr->key, |
"argument for \"", infoPtr->key, |
235 |
"\" but got \"", argv[srcIndex], "\"", |
"\" but got \"", argv[srcIndex], "\"", |
236 |
(char *) NULL); |
(char *) NULL); |
237 |
return TCL_ERROR; |
return TCL_ERROR; |
238 |
} |
} |
239 |
srcIndex++; |
srcIndex++; |
240 |
argc--; |
argc--; |
241 |
} |
} |
242 |
break; |
break; |
243 |
case TK_ARGV_FUNC: { |
case TK_ARGV_FUNC: { |
244 |
typedef int (ArgvFunc)_ANSI_ARGS_((char *, char *, char *)); |
typedef int (ArgvFunc)_ANSI_ARGS_((char *, char *, char *)); |
245 |
ArgvFunc *handlerProc; |
ArgvFunc *handlerProc; |
246 |
|
|
247 |
handlerProc = (ArgvFunc *) infoPtr->src; |
handlerProc = (ArgvFunc *) infoPtr->src; |
248 |
if ((*handlerProc)(infoPtr->dst, infoPtr->key, |
if ((*handlerProc)(infoPtr->dst, infoPtr->key, |
249 |
argv[srcIndex])) { |
argv[srcIndex])) { |
250 |
srcIndex += 1; |
srcIndex += 1; |
251 |
argc -= 1; |
argc -= 1; |
252 |
} |
} |
253 |
break; |
break; |
254 |
} |
} |
255 |
case TK_ARGV_GENFUNC: { |
case TK_ARGV_GENFUNC: { |
256 |
typedef int (ArgvGenFunc)_ANSI_ARGS_((char *, Tcl_Interp *, |
typedef int (ArgvGenFunc)_ANSI_ARGS_((char *, Tcl_Interp *, |
257 |
char *, int, char **)); |
char *, int, char **)); |
258 |
ArgvGenFunc *handlerProc; |
ArgvGenFunc *handlerProc; |
259 |
|
|
260 |
handlerProc = (ArgvGenFunc *) infoPtr->src; |
handlerProc = (ArgvGenFunc *) infoPtr->src; |
261 |
argc = (*handlerProc)(infoPtr->dst, interp, infoPtr->key, |
argc = (*handlerProc)(infoPtr->dst, interp, infoPtr->key, |
262 |
argc, argv+srcIndex); |
argc, argv+srcIndex); |
263 |
if (argc < 0) { |
if (argc < 0) { |
264 |
return TCL_ERROR; |
return TCL_ERROR; |
265 |
} |
} |
266 |
break; |
break; |
267 |
} |
} |
268 |
case TK_ARGV_HELP: |
case TK_ARGV_HELP: |
269 |
PrintUsage (interp, argTable, flags); |
PrintUsage (interp, argTable, flags); |
270 |
return TCL_ERROR; |
return TCL_ERROR; |
271 |
case TK_ARGV_CONST_OPTION: |
case TK_ARGV_CONST_OPTION: |
272 |
Tk_AddOption(tkwin, infoPtr->dst, infoPtr->src, |
Tk_AddOption(tkwin, infoPtr->dst, infoPtr->src, |
273 |
TK_INTERACTIVE_PRIO); |
TK_INTERACTIVE_PRIO); |
274 |
break; |
break; |
275 |
case TK_ARGV_OPTION_VALUE: |
case TK_ARGV_OPTION_VALUE: |
276 |
if (argc < 1) { |
if (argc < 1) { |
277 |
goto missingArg; |
goto missingArg; |
278 |
} |
} |
279 |
Tk_AddOption(tkwin, infoPtr->dst, argv[srcIndex], |
Tk_AddOption(tkwin, infoPtr->dst, argv[srcIndex], |
280 |
TK_INTERACTIVE_PRIO); |
TK_INTERACTIVE_PRIO); |
281 |
srcIndex++; |
srcIndex++; |
282 |
argc--; |
argc--; |
283 |
break; |
break; |
284 |
case TK_ARGV_OPTION_NAME_VALUE: |
case TK_ARGV_OPTION_NAME_VALUE: |
285 |
if (argc < 2) { |
if (argc < 2) { |
286 |
Tcl_AppendResult(interp, "\"", curArg, |
Tcl_AppendResult(interp, "\"", curArg, |
287 |
"\" option requires two following arguments", |
"\" option requires two following arguments", |
288 |
(char *) NULL); |
(char *) NULL); |
289 |
return TCL_ERROR; |
return TCL_ERROR; |
290 |
} |
} |
291 |
Tk_AddOption(tkwin, argv[srcIndex], argv[srcIndex+1], |
Tk_AddOption(tkwin, argv[srcIndex], argv[srcIndex+1], |
292 |
TK_INTERACTIVE_PRIO); |
TK_INTERACTIVE_PRIO); |
293 |
srcIndex += 2; |
srcIndex += 2; |
294 |
argc -= 2; |
argc -= 2; |
295 |
break; |
break; |
296 |
default: { |
default: { |
297 |
char buf[64 + TCL_INTEGER_SPACE]; |
char buf[64 + TCL_INTEGER_SPACE]; |
298 |
|
|
299 |
sprintf(buf, "bad argument type %d in Tk_ArgvInfo", |
sprintf(buf, "bad argument type %d in Tk_ArgvInfo", |
300 |
infoPtr->type); |
infoPtr->type); |
301 |
Tcl_SetResult(interp, buf, TCL_VOLATILE); |
Tcl_SetResult(interp, buf, TCL_VOLATILE); |
302 |
return TCL_ERROR; |
return TCL_ERROR; |
303 |
} |
} |
304 |
} |
} |
305 |
} |
} |
306 |
|
|
307 |
/* |
/* |
308 |
* If we broke out of the loop because of an OPT_REST argument, |
* If we broke out of the loop because of an OPT_REST argument, |
309 |
* copy the remaining arguments down. |
* copy the remaining arguments down. |
310 |
*/ |
*/ |
311 |
|
|
312 |
argsDone: |
argsDone: |
313 |
while (argc) { |
while (argc) { |
314 |
argv[dstIndex] = argv[srcIndex]; |
argv[dstIndex] = argv[srcIndex]; |
315 |
srcIndex++; |
srcIndex++; |
316 |
dstIndex++; |
dstIndex++; |
317 |
argc--; |
argc--; |
318 |
} |
} |
319 |
argv[dstIndex] = (char *) NULL; |
argv[dstIndex] = (char *) NULL; |
320 |
*argcPtr = dstIndex; |
*argcPtr = dstIndex; |
321 |
return TCL_OK; |
return TCL_OK; |
322 |
|
|
323 |
missingArg: |
missingArg: |
324 |
Tcl_AppendResult(interp, "\"", curArg, |
Tcl_AppendResult(interp, "\"", curArg, |
325 |
"\" option requires an additional argument", (char *) NULL); |
"\" option requires an additional argument", (char *) NULL); |
326 |
return TCL_ERROR; |
return TCL_ERROR; |
327 |
} |
} |
328 |
|
|
329 |
/* |
/* |
330 |
*---------------------------------------------------------------------- |
*---------------------------------------------------------------------- |
331 |
* |
* |
332 |
* PrintUsage -- |
* PrintUsage -- |
333 |
* |
* |
334 |
* Generate a help string describing command-line options. |
* Generate a help string describing command-line options. |
335 |
* |
* |
336 |
* Results: |
* Results: |
337 |
* The interp's result will be modified to hold a help string |
* The interp's result will be modified to hold a help string |
338 |
* describing all the options in argTable, plus all those |
* describing all the options in argTable, plus all those |
339 |
* in the default table unless TK_ARGV_NO_DEFAULTS is |
* in the default table unless TK_ARGV_NO_DEFAULTS is |
340 |
* specified in flags. |
* specified in flags. |
341 |
* |
* |
342 |
* Side effects: |
* Side effects: |
343 |
* None. |
* None. |
344 |
* |
* |
345 |
*---------------------------------------------------------------------- |
*---------------------------------------------------------------------- |
346 |
*/ |
*/ |
347 |
|
|
348 |
static void |
static void |
349 |
PrintUsage(interp, argTable, flags) |
PrintUsage(interp, argTable, flags) |
350 |
Tcl_Interp *interp; /* Place information in this interp's |
Tcl_Interp *interp; /* Place information in this interp's |
351 |
* result area. */ |
* result area. */ |
352 |
Tk_ArgvInfo *argTable; /* Array of command-specific argument |
Tk_ArgvInfo *argTable; /* Array of command-specific argument |
353 |
* descriptions. */ |
* descriptions. */ |
354 |
int flags; /* If the TK_ARGV_NO_DEFAULTS bit is set |
int flags; /* If the TK_ARGV_NO_DEFAULTS bit is set |
355 |
* in this word, then don't generate |
* in this word, then don't generate |
356 |
* information for default options. */ |
* information for default options. */ |
357 |
{ |
{ |
358 |
register Tk_ArgvInfo *infoPtr; |
register Tk_ArgvInfo *infoPtr; |
359 |
int width, i, numSpaces; |
int width, i, numSpaces; |
360 |
#define NUM_SPACES 20 |
#define NUM_SPACES 20 |
361 |
static char spaces[] = " "; |
static char spaces[] = " "; |
362 |
char tmp[TCL_DOUBLE_SPACE]; |
char tmp[TCL_DOUBLE_SPACE]; |
363 |
|
|
364 |
/* |
/* |
365 |
* First, compute the width of the widest option key, so that we |
* First, compute the width of the widest option key, so that we |
366 |
* can make everything line up. |
* can make everything line up. |
367 |
*/ |
*/ |
368 |
|
|
369 |
width = 4; |
width = 4; |
370 |
for (i = 0; i < 2; i++) { |
for (i = 0; i < 2; i++) { |
371 |
for (infoPtr = i ? defaultTable : argTable; |
for (infoPtr = i ? defaultTable : argTable; |
372 |
infoPtr->type != TK_ARGV_END; infoPtr++) { |
infoPtr->type != TK_ARGV_END; infoPtr++) { |
373 |
int length; |
int length; |
374 |
if (infoPtr->key == NULL) { |
if (infoPtr->key == NULL) { |
375 |
continue; |
continue; |
376 |
} |
} |
377 |
length = strlen(infoPtr->key); |
length = strlen(infoPtr->key); |
378 |
if (length > width) { |
if (length > width) { |
379 |
width = length; |
width = length; |
380 |
} |
} |
381 |
} |
} |
382 |
} |
} |
383 |
|
|
384 |
Tcl_AppendResult(interp, "Command-specific options:", (char *) NULL); |
Tcl_AppendResult(interp, "Command-specific options:", (char *) NULL); |
385 |
for (i = 0; ; i++) { |
for (i = 0; ; i++) { |
386 |
for (infoPtr = i ? defaultTable : argTable; |
for (infoPtr = i ? defaultTable : argTable; |
387 |
infoPtr->type != TK_ARGV_END; infoPtr++) { |
infoPtr->type != TK_ARGV_END; infoPtr++) { |
388 |
if ((infoPtr->type == TK_ARGV_HELP) && (infoPtr->key == NULL)) { |
if ((infoPtr->type == TK_ARGV_HELP) && (infoPtr->key == NULL)) { |
389 |
Tcl_AppendResult(interp, "\n", infoPtr->help, (char *) NULL); |
Tcl_AppendResult(interp, "\n", infoPtr->help, (char *) NULL); |
390 |
continue; |
continue; |
391 |
} |
} |
392 |
Tcl_AppendResult(interp, "\n ", infoPtr->key, ":", (char *) NULL); |
Tcl_AppendResult(interp, "\n ", infoPtr->key, ":", (char *) NULL); |
393 |
numSpaces = width + 1 - strlen(infoPtr->key); |
numSpaces = width + 1 - strlen(infoPtr->key); |
394 |
while (numSpaces > 0) { |
while (numSpaces > 0) { |
395 |
if (numSpaces >= NUM_SPACES) { |
if (numSpaces >= NUM_SPACES) { |
396 |
Tcl_AppendResult(interp, spaces, (char *) NULL); |
Tcl_AppendResult(interp, spaces, (char *) NULL); |
397 |
} else { |
} else { |
398 |
Tcl_AppendResult(interp, spaces+NUM_SPACES-numSpaces, |
Tcl_AppendResult(interp, spaces+NUM_SPACES-numSpaces, |
399 |
(char *) NULL); |
(char *) NULL); |
400 |
} |
} |
401 |
numSpaces -= NUM_SPACES; |
numSpaces -= NUM_SPACES; |
402 |
} |
} |
403 |
Tcl_AppendResult(interp, infoPtr->help, (char *) NULL); |
Tcl_AppendResult(interp, infoPtr->help, (char *) NULL); |
404 |
switch (infoPtr->type) { |
switch (infoPtr->type) { |
405 |
case TK_ARGV_INT: { |
case TK_ARGV_INT: { |
406 |
sprintf(tmp, "%d", *((int *) infoPtr->dst)); |
sprintf(tmp, "%d", *((int *) infoPtr->dst)); |
407 |
Tcl_AppendResult(interp, "\n\t\tDefault value: ", |
Tcl_AppendResult(interp, "\n\t\tDefault value: ", |
408 |
tmp, (char *) NULL); |
tmp, (char *) NULL); |
409 |
break; |
break; |
410 |
} |
} |
411 |
case TK_ARGV_FLOAT: { |
case TK_ARGV_FLOAT: { |
412 |
sprintf(tmp, "%g", *((double *) infoPtr->dst)); |
sprintf(tmp, "%g", *((double *) infoPtr->dst)); |
413 |
Tcl_AppendResult(interp, "\n\t\tDefault value: ", |
Tcl_AppendResult(interp, "\n\t\tDefault value: ", |
414 |
tmp, (char *) NULL); |
tmp, (char *) NULL); |
415 |
break; |
break; |
416 |
} |
} |
417 |
case TK_ARGV_STRING: { |
case TK_ARGV_STRING: { |
418 |
char *string; |
char *string; |
419 |
|
|
420 |
string = *((char **) infoPtr->dst); |
string = *((char **) infoPtr->dst); |
421 |
if (string != NULL) { |
if (string != NULL) { |
422 |
Tcl_AppendResult(interp, "\n\t\tDefault value: \"", |
Tcl_AppendResult(interp, "\n\t\tDefault value: \"", |
423 |
string, "\"", (char *) NULL); |
string, "\"", (char *) NULL); |
424 |
} |
} |
425 |
break; |
break; |
426 |
} |
} |
427 |
default: { |
default: { |
428 |
break; |
break; |
429 |
} |
} |
430 |
} |
} |
431 |
} |
} |
432 |
|
|
433 |
if ((flags & TK_ARGV_NO_DEFAULTS) || (i > 0)) { |
if ((flags & TK_ARGV_NO_DEFAULTS) || (i > 0)) { |
434 |
break; |
break; |
435 |
} |
} |
436 |
Tcl_AppendResult(interp, "\nGeneric options for all commands:", |
Tcl_AppendResult(interp, "\nGeneric options for all commands:", |
437 |
(char *) NULL); |
(char *) NULL); |
438 |
} |
} |
439 |
} |
} |
440 |
|
|
441 |
/* End of tkargv.c */ |
/* End of tkargv.c */ |