diff options
| author | stanton <stanton> | 1999-03-04 01:01:57 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-03-04 01:01:57 (GMT) |
| commit | 8074a699cc242dd75d90b2f676eecd35a41b525c (patch) | |
| tree | 04ec477faa3d4c429f33eba6eade67aaa22ac0ee /generic/tclPlatStubs.c | |
| parent | fd1dfeea2918db576ed45426a57111aa09b7ed83 (diff) | |
| download | tcl-8074a699cc242dd75d90b2f676eecd35a41b525c.zip tcl-8074a699cc242dd75d90b2f676eecd35a41b525c.tar.gz tcl-8074a699cc242dd75d90b2f676eecd35a41b525c.tar.bz2 | |
* generic/tcl.decls: Added Mac specific declarations.
* generic/tclStubs.c:
* generic/tclStubInit.c: Added undefs for all of the TCL_MEM_DEBUG
macros to avoid conflicts with the stub names.
* generic/tclStubInit.c:
* generic/tclInt.h:
* generic/tclInt.decls: Moved some declarations out of the generic
and into the platform specific sections. Added missing
declarations and Mac specific declarations.
* generic/tclInt.h:
* generic/tclDate.c:
* generic/tclClock.c: Created a new opaque TclpTime_t type so
generic functions that depend on the format of time_t can appear
in the generic header files.
* generic/tclStubInit.c:
* generic/tclPanic.c:
* generic/tcl.h:
* generic/tcl.decls: renamed Tcl_Panic back to panic to avoid
incompatibilities in a patch release.
Diffstat (limited to 'generic/tclPlatStubs.c')
| -rw-r--r-- | generic/tclPlatStubs.c | 91 |
1 files changed, 89 insertions, 2 deletions
diff --git a/generic/tclPlatStubs.c b/generic/tclPlatStubs.c index 82f8b4d..5e82128 100644 --- a/generic/tclPlatStubs.c +++ b/generic/tclPlatStubs.c @@ -7,11 +7,10 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclPlatStubs.c,v 1.1 1999/03/03 00:38:42 stanton Exp $ + * RCS: @(#) $Id: tclPlatStubs.c,v 1.2 1999/03/04 01:01:59 stanton Exp $ */ #include "tcl.h" -#include "tclPort.h" /* * WARNING: This file is automatically generated by the tools/genStubs.tcl @@ -58,5 +57,93 @@ Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) } #endif /* UNIX */ +#ifdef MAC_TCL +/* Slot 0 */ +void +Tcl_MacSetEventProc(procPtr) + Tcl_MacConvertEventPtr procPtr; +{ + (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr); +} + +/* Slot 1 */ +char * +Tcl_MacConvertTextResource(resource) + Handle resource; +{ + return (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource); +} + +/* Slot 2 */ +int +Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) + Tcl_Interp * interp; + char * resourceName; + int resourceNumber; + char * fileName; +{ + return (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName); +} + +/* Slot 3 */ +Handle +Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) + Tcl_Interp * interp; + long resourceType; + char * resourceName; + int resourceNumber; + char * resFileRef; + int * releaseIt; +{ + return (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt); +} + +/* Slot 4 */ +int +Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + OSType * osTypePtr; +{ + return (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr); +} + +/* Slot 5 */ +void +Tcl_SetOSTypeObj(objPtr, osType) + Tcl_Obj * objPtr; + OSType osType; +{ + (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType); +} + +/* Slot 6 */ +Tcl_Obj * +Tcl_NewOSTypeObj(osType) + OSType osType; +{ + return (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType); +} + +/* Slot 7 */ +int +strncasecmp(s1, s2, n) + CONST char * s1; + CONST char * s2; + size_t n; +{ + return (tclPlatStubsPtr->strncasecmp)(s1, s2, n); +} + +/* Slot 8 */ +int +strcasecmp(s1, s2) + CONST char * s1; + CONST char * s2; +{ + return (tclPlatStubsPtr->strcasecmp)(s1, s2); +} + +#endif /* MAC_TCL */ /* !END!: Do not edit above this line. */ |
