+++ /dev/null
-// 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
-};