diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 62 |
1 files changed, 58 insertions, 4 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index a398448..4217db5 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.1 1999/03/03 00:38:38 stanton Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.2 1999/03/04 01:01:57 stanton Exp $ library tcl @@ -634,10 +634,10 @@ declare 184 generic { Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) } declare 185 generic { - void Tcl_Panic(char *format, ...) + void panic(char *format, ...) } declare 186 generic { - void Tcl_PanicVA(char *format, va_list argList) + void panicVA(char *format, va_list argList) } declare 187 generic { char * Tcl_ParseVar(Tcl_Interp *interp, char *string, char **termPtr) @@ -930,13 +930,67 @@ declare 274 generic { Tcl_Obj *CONST objv[], char *message) } - +############################################################################## # Define the platform specific public Tcl interface. These functions are # only available on the designated platform. interface tclPlat +################## +# Mac declarations + +# This is needed by the shells to handle Macintosh events. + +declare 0 mac { + void Tcl_MacSetEventProc(Tcl_MacConvertEventPtr procPtr) +} + +# These routines are useful for handling using scripts from resources +# in the application shell + +declare 1 mac { + char * Tcl_MacConvertTextResource(Handle resource) +} +declare 2 mac { + int Tcl_MacEvalResource(Tcl_Interp *interp, char *resourceName, \ + int resourceNumber, char *fileName) +} +declare 3 mac { + Handle Tcl_MacFindResource(Tcl_Interp *interp, long resourceType, \ + char *resourceName, int resourceNumber, char *resFileRef, \ + int * releaseIt) +} + +# These routines support the new OSType object type (i.e. the packed 4 +# character type and creator codes). + +declare 4 mac { + int Tcl_GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + OSType *osTypePtr) +} +declare 5 mac { + void Tcl_SetOSTypeObj(Tcl_Obj *objPtr, OSType osType) +} +declare 6 mac { + Tcl_Obj * Tcl_NewOSTypeObj(OSType osType) +} + +# These are not in MSL 2.1.2, so we need to export them from the +# Tcl shared library. They are found in the compat directory +# except the panic routine which is found in tclMacPanic.h. + +declare 7 mac { + int strncasecmp(CONST char *s1, CONST char *s2, size_t n) +} +declare 8 mac { + int strcasecmp(CONST char *s1, CONST char *s2) +} + + +#################### +# Unix declaractions + declare 0 unix { void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc, \ ClientData clientData) |