gcc/testsuite/g++.old-deja/g++.brendan/ptolemy1.C


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

// Build don't link: 
// GROUPS passed ptolemy-bugs
class Tcl_Interp;

class PTcl {
public:
	PTcl(Tcl_Interp* interp = 0);
	~PTcl();
	int alias(int argc,char** argv);
};

typedef int (PTcl::*InterpFuncP)(int,char**);

struct InterpTableEntry {
	char* name;
	InterpFuncP func;
};

 
static InterpTableEntry funcTable[] = {
	{ "alias" , &PTcl::alias  } ,
	0, 0
};