X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg%2B%2B.old-deja%2Fg%2B%2B.brendan%2Fptolemy2.C;fp=gcc%2Ftestsuite%2Fg%2B%2B.old-deja%2Fg%2B%2B.brendan%2Fptolemy2.C;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0d053c2cda70dc0b0610c68a2ccfe5153a502599;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/testsuite/g++.old-deja/g++.brendan/ptolemy2.C b/gcc/testsuite/g++.old-deja/g++.brendan/ptolemy2.C deleted file mode 100644 index 0d053c2c..00000000 --- a/gcc/testsuite/g++.old-deja/g++.brendan/ptolemy2.C +++ /dev/null @@ -1,68 +0,0 @@ -// GROUPS passed ptolemy-bugs -#include - -class PTcl { -public: - int dispatcher(int which,int argc,char** argv); - // fns in the table - int one(int argc, char** argv); - int two(int argc, char** argv); - int three(int argc, char** argv); -}; - -// An InterpFuncP is a pointer to an PTcl function that takes an argc-argv -// argument list and returns TCL_OK or TCL_ERROR. - -typedef int (PTcl::*InterpFuncP)(int,char**); - -struct InterpTableEntry { - char* name; - InterpFuncP func; -}; - -// Here is the function table and dispatcher function. -// These macros define entries for the table - -#define quote(x) #x -#define ENTRY(verb) { quote(verb), &PTcl::verb } - -static InterpTableEntry funcTable[] = { - ENTRY(one), - ENTRY(two), - ENTRY(three), - {0, 0} -}; - -int PTcl::dispatcher(int which, int argc, char** argv) { - return (this->*(funcTable[which].func))(argc, argv); -} - -void printargs(char** argv) { -// while (*argv) { -// cout << " " << *argv++; -// } -// cout << "\n"; -} - -int PTcl::one(int, char** argv) { - std::cout << "FAIL\n"; - printargs(argv); - return 1; -} - -int PTcl::two(int, char** argv) { - std::cout << "PASS\n"; - printargs(argv); - return 0; -} - -int PTcl::three(int, char** argv) { - std::cout << "FAIL\n"; - printargs(argv); - return 1; -} - -int main (int argc, char** argv) { - PTcl obj; - return obj.dispatcher(1,argc,argv); -}