summaryrefslogtreecommitdiffstats
path: root/mac/tclMacTest.c
diff options
context:
space:
mode:
authordas <das>2002-10-09 11:54:02 (GMT)
committerdas <das>2002-10-09 11:54:02 (GMT)
commit5451c5041622ded8cdbc5b63e4b5a1ed14a31de6 (patch)
treefcd14750217863bb89fa52d2ccf756a933b9a514 /mac/tclMacTest.c
parent22cf6ccfd778871f2ac0415b10e303a0af281e06 (diff)
downloadtcl-5451c5041622ded8cdbc5b63e4b5a1ed14a31de6.zip
tcl-5451c5041622ded8cdbc5b63e4b5a1ed14a31de6.tar.gz
tcl-5451c5041622ded8cdbc5b63e4b5a1ed14a31de6.tar.bz2
* generic/tclInt.decls: made TclSetPreInitScript() declaration
generic as it is used on mac & aqua as well. * generic/tclIntDecls.h: * generic/tclStubInit.c: regen. * generic/tclCompile.h: added prototype for TclCompileVariableCmd. * mac/tclMacPort.h: removed incorrect <fcntl.h> definitions and obsolete <stat.h> definitions. * mac/tclMacChan.c: removed obsolete GetOpenMode() and replaced associated constants with the <fcntl.h> analogues (they existing defs were inconsistent with <fcntl.h> which was causing havoc when Tcl_GetOpenMode was used instead of private GetOpenMode). * mac/tclMacFCmd.c: removed GenerateUniqueName(), use equivalent (and identiaclly named) routine from MoreFiles instead. * mac/tclMacLoad.c: CONSTification, fixes to Vince's last changes. * mac/tclMacFile.c: * mac/tclMacTest.c: * mac/tclMacUnix.c: CONSTification. * mac/tclMacOSA.c: CONSTificcation, sprintf fixes, UH 3.4.x changes; fix for missing autoname token from TclOSACompileCmd. (bdesgraupes) * mac/AppleScript.html(AppleScript delete): doc fix. (bdesgraupes) * mac/tcltkMacBuildSupport.sea.hqx: updated MoreFiles to 1.5.3, updated build instructions for 8.4. * mac/tclMacProjects.sea.hqx: rebuilt archive.
Diffstat (limited to 'mac/tclMacTest.c')
-rw-r--r--mac/tclMacTest.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/mac/tclMacTest.c b/mac/tclMacTest.c
index 92becad..58154e3 100644
--- a/mac/tclMacTest.c
+++ b/mac/tclMacTest.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclMacTest.c,v 1.5 2002/08/05 03:24:41 dgp Exp $
+ * RCS: @(#) $Id: tclMacTest.c,v 1.6 2002/10/09 11:54:42 das Exp $
*/
#define TCL_TEST
@@ -30,9 +30,9 @@
int TclplatformtestInit _ANSI_ARGS_((Tcl_Interp *interp));
static int DebuggerCmd _ANSI_ARGS_((ClientData dummy,
- Tcl_Interp *interp, int argc, char **argv));
+ Tcl_Interp *interp, int argc, CONST char **argv));
static int WriteTextResource _ANSI_ARGS_((ClientData dummy,
- Tcl_Interp *interp, int argc, char **argv));
+ Tcl_Interp *interp, int argc, CONST char **argv));
/*
@@ -89,7 +89,7 @@ DebuggerCmd(
ClientData clientData, /* Not used. */
Tcl_Interp *interp, /* Not used. */
int argc, /* Not used. */
- char **argv) /* Not used. */
+ CONST char **argv) /* Not used. */
{
Debugger();
return TCL_OK;
@@ -118,13 +118,13 @@ WriteTextResource(
ClientData clientData, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */
- char **argv) /* Argument strings. */
+ CONST char **argv) /* Argument strings. */
{
char *errNum = "wrong # args: ";
char *errBad = "bad argument: ";
char *errStr;
- char *fileName = NULL, *rsrcName = NULL;
- char *data = NULL;
+ CONST char *fileName = NULL, *rsrcName = NULL;
+ CONST char *data = NULL;
int rsrcID = -1, i, protectIt = 0;
short fileRef = -1;
OSErr err;