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
|
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
|
-
-
-
+
-
-
+
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
+
-
-
-
-
-
+
-
-
-
+
-
-
-
-
-
-
-
-
+
+
-
-
+
-
-
+
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
|
/*
* Copyright (C) 1997-2000 Matt Newman <[email protected]>
*
* Stylized option processing - requires consistent
* external vars: opt, idx, objc, objv
#define OPTFLAG(option, var, val) \
#define GET_OPT_BOOL(objPtr, varPtr) \
if (strcmp(opt, (option)) == 0) { \
var = val; \
continue; \
}
#define OPT_PROLOG(option) \
if (strcmp(opt, (option)) == 0) { \
if (++idx >= objc) { \
Tcl_AppendResult(interp, \
"no argument given for ", \
(option), " option", \
(char *) NULL); \
return TCL_ERROR; \
}
#define OPT_POSTLOG() \
continue; \
#define GET_OPT_INT(objPtr, varPtr) \
if (Tcl_GetIntFromObj(interp, objPtr, varPtr) != TCL_OK) { \
return TCL_ERROR; \
}
#define OPTOBJ(option, var) \
OPT_PROLOG(option) \
var = objv[idx]; \
OPT_POSTLOG()
#define OPTSTR(option, var) \
OPT_PROLOG(option) \
var = Tcl_GetStringFromObj(objv[idx], (Tcl_Size *)NULL);\
OPT_POSTLOG()
#define OPTINT(option, var) \
OPT_PROLOG(option) \
if (Tcl_GetIntFromObj(interp, objv[idx], \
&(var)) != TCL_OK) { \
return TCL_ERROR; \
} \
OPT_POSTLOG()
#define OPTBOOL(option, var) \
#define GET_OPT_BYTE_ARRAY(objPtr, var, lenPtr) \
OPT_PROLOG(option) \
if (Tcl_GetBooleanFromObj(interp, objv[idx],\
&(var)) != TCL_OK) { \
return TCL_ERROR; \
} \
OPT_POSTLOG()
#define OPTBYTE(option, var, lvar) \
OPT_PROLOG(option) \
var = Tcl_GetByteArrayFromObj(objv[idx], &(lvar));\
OPT_POSTLOG()
#define OPTBAD(type, list) \
Tcl_AppendResult(interp, "bad ", (type), \
" \"", opt, "\": must be ", \
(list), (char *) NULL)
|