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
|
/* struct::stack - critcl - layer 2 definitions
*
* -> Support for the stack methods in layer 3.
*/
#include <ms.h>
#include <m.h>
#include <s.h>
#include <util.h>
/* .................................................. */
/*
*---------------------------------------------------------------------------
*
* stms_objcmd --
*
* Implementation of stack objects, the main dispatcher function.
*
* Results:
* A standard Tcl result code.
*
* Side effects:
* Per the called methods.
*
*---------------------------------------------------------------------------
*/
int
stms_objcmd (ClientData cd, Tcl_Interp* interp, int objc, Tcl_Obj* CONST* objv)
{
S* s = (S*) cd;
int m;
static CONST char* methods [] = {
"clear", "destroy", "get", "getr", "peek", "peekr",
"pop", "push", "rotate", "size", "trim", "trim*",
NULL
};
enum methods {
M_CLEAR, M_DESTROY, M_GET, M_GETR, M_PEEK, M_PEEKR,
M_POP, M_PUSH, M_ROTATE, M_SIZE, M_TRIM, M_TRIMV
};
if (objc < 2) {
Tcl_WrongNumArgs (interp, objc, objv, "option ?arg arg ...?");
return TCL_ERROR;
} else if (Tcl_GetIndexFromObj (interp, objv [1], methods, "option",
0, &m) != TCL_OK) {
return TCL_ERROR;
}
/* Dispatch to methods. They check the #args in detail before performing
* the requested functionality
*/
switch (m) {
case M_CLEAR: return stm_CLEAR (s, interp, objc, objv);
case M_DESTROY: return stm_DESTROY (s, interp, objc, objv);
case M_GET: return stm_GET (s, interp, objc, objv, 0 ); /* get */
case M_GETR: return stm_GET (s, interp, objc, objv, 1 ); /* getr */
case M_PEEK: return stm_PEEK (s, interp, objc, objv, 0, 0); /* peek */
case M_PEEKR: return stm_PEEK (s, interp, objc, objv, 0, 1); /* peekr */
case M_POP: return stm_PEEK (s, interp, objc, objv, 1, 0); /* pop */
case M_PUSH: return stm_PUSH (s, interp, objc, objv);
case M_ROTATE: return stm_ROTATE (s, interp, objc, objv);
case M_SIZE: return stm_SIZE (s, interp, objc, objv);
case M_TRIM: return stm_TRIM (s, interp, objc, objv, 1 ); /* trim */
case M_TRIMV: return stm_TRIM (s, interp, objc, objv, 0 ); /* trim* */
}
/* Not coming to this place */
}
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* End:
*/
|
