10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
return TCL_ERROR; \
}
#define GET_OPT_INT(objPtr, varPtr) \
if (Tcl_GetIntFromObj(interp, objPtr, varPtr) != TCL_OK) { \
return TCL_ERROR; \
}
#define GET_OPT_STRING(objPtr, var, lenPtr) \
if ((var = Tcl_GetStringFromObj(objPtr, lenPtr)) == NULL) { \
return TCL_ERROR; \
} \
#define GET_OPT_BYTE_ARRAY(objPtr, var, lenPtr) \
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|
return TCL_ERROR; \
}
#define GET_OPT_INT(objPtr, varPtr) \
if (Tcl_GetIntFromObj(interp, objPtr, varPtr) != TCL_OK) { \
return TCL_ERROR; \
}
#define GET_OPT_LONG(objPtr, varPtr) \
if (Tcl_GetLongFromObj(interp, objPtr, varPtr) != TCL_OK) { \
return TCL_ERROR; \
}
#define GET_OPT_WIDE(objPtr, varPtr) \
if (Tcl_GetWideIntFromObj(interp, objPtr, varPtr) != TCL_OK) { \
return TCL_ERROR; \
}
#define GET_OPT_BIGNUM(objPtr, varPtr) \
if (Tcl_GetBignumFromObj(interp, objPtr, varPtr) != TCL_OK) { \
return TCL_ERROR; \
}
#define GET_OPT_STRING(objPtr, var, lenPtr) \
if ((var = Tcl_GetStringFromObj(objPtr, lenPtr)) == NULL) { \
return TCL_ERROR; \
} \
#define GET_OPT_BYTE_ARRAY(objPtr, var, lenPtr) \
|