ftp.nice.ch/pub/next/developer/objc/appkit/TclExample.1.0.s.tar.gz#/tclexample/TclApp.h

This is TclApp.h in view mode; [Download] [Up]

#import <tcl.h>
#import <objc/objc.h>

// The following structure contains the data needed to call a 'C' procedure
// using the tclCall routine.

#define TCLARGSMAX 12  // max number of argument descriptors
typedef int (*IPROC)();  // cast for procedure pointers

typedef struct {
	char *name;  // pointer to string name of tcl procedure
	IPROC proc;  // pointer to 'C' procedure to be called
	char argtypes[TCLARGSMAX];  // description of arguments
} TCLARGS;

extern TCLARGS tclProcInitTab[];
void addTclCmds(Tcl_Interp *interp, id objid);

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.