1 // GROUPS passed ptolemy-bugs
2 #include <iostream>
3
4 class PTcl {
5 public:
6 int dispatcher(int which,int argc,char** argv);
7 // fns in the table
8 int one(int argc, char** argv);
9 int two(int argc, char** argv);
10 int three(int argc, char** argv);
11 };
12
13 // An InterpFuncP is a pointer to an PTcl function that takes an argc-argv
14 // argument list and returns TCL_OK or TCL_ERROR.
15
16 typedef int (PTcl::*InterpFuncP)(int,char**);
17
18 struct InterpTableEntry {
19 char* name;
20 InterpFuncP func;
21 };
22
23 // Here is the function table and dispatcher function.
24 // These macros define entries for the table
25
26 #define quote(x) #x
27 #define ENTRY(verb) { quote(verb), &PTcl::verb }
28
29 static InterpTableEntry funcTable[] = {
30 ENTRY(one),
31 ENTRY(two),
32 ENTRY(three),
33 {0, 0}
34 };
35
dispatcher(int which,int argc,char ** argv)36 int PTcl::dispatcher(int which, int argc, char** argv) {
37 return (this->*(funcTable[which].func))(argc, argv);
38 }
39
printargs(char ** argv)40 void printargs(char** argv) {
41 // while (*argv) {
42 // cout << " " << *argv++;
43 // }
44 // cout << "\n";
45 }
46
one(int,char ** argv)47 int PTcl::one(int, char** argv) {
48 std::cout << "FAIL\n";
49 printargs(argv);
50 return 1;
51 }
52
two(int,char ** argv)53 int PTcl::two(int, char** argv) {
54 std::cout << "PASS\n";
55 printargs(argv);
56 return 0;
57 }
58
three(int,char ** argv)59 int PTcl::three(int, char** argv) {
60 std::cout << "FAIL\n";
61 printargs(argv);
62 return 1;
63 }
64
main(int argc,char ** argv)65 int main (int argc, char** argv) {
66 PTcl obj;
67 return obj.dispatcher(1,argc,argv);
68 }
69