summaryrefslogtreecommitdiffstats
path: root/generic/tclPlatStubs.c
diff options
context:
space:
mode:
authorstanton <stanton>1999-03-04 01:01:57 (GMT)
committerstanton <stanton>1999-03-04 01:01:57 (GMT)
commit8074a699cc242dd75d90b2f676eecd35a41b525c (patch)
tree04ec477faa3d4c429f33eba6eade67aaa22ac0ee /generic/tclPlatStubs.c
parentfd1dfeea2918db576ed45426a57111aa09b7ed83 (diff)
downloadtcl-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.c91
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. */