|
Last change
on this file since 2 was 2, checked in by bird, 22 years ago |
|
Initial revision
|
-
Property cvs2svn:cvs-rev
set to
1.1
-
Property svn:eol-style
set to
native
-
Property svn:executable
set to
*
|
|
File size:
362 bytes
|
| Line | |
|---|
| 1 | // Build don't link:
|
|---|
| 2 | // GROUPS passed ptolemy-bugs
|
|---|
| 3 | class Tcl_Interp;
|
|---|
| 4 |
|
|---|
| 5 | class PTcl {
|
|---|
| 6 | public:
|
|---|
| 7 | PTcl(Tcl_Interp* interp = 0);
|
|---|
| 8 | ~PTcl();
|
|---|
| 9 | int alias(int argc,char** argv);
|
|---|
| 10 | };
|
|---|
| 11 |
|
|---|
| 12 | typedef int (PTcl::*InterpFuncP)(int,char**);
|
|---|
| 13 |
|
|---|
| 14 | struct InterpTableEntry {
|
|---|
| 15 | char* name;
|
|---|
| 16 | InterpFuncP func;
|
|---|
| 17 | };
|
|---|
| 18 |
|
|---|
| 19 |
|
|---|
| 20 | static InterpTableEntry funcTable[] = {
|
|---|
| 21 | { "alias" , &PTcl::alias } ,
|
|---|
| 22 | 0, 0
|
|---|
| 23 | };
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
