1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
--- tkStripchart.c Mon Jun 29 15:17:00 1998
+++ tkStripchart.c Thu Sep 23 18:50:39 2004
@@ -364,5 +364,5 @@
int
Tk_StripchartCmd(ClientData clientData, Tcl_Interp *interp, int argc,
- char **argv)
+ CONST char **argv)
{
Tk_Window tkwin = (Tk_Window) clientData;
--- main.cpp Tue Feb 25 12:55:08 2003
+++ main.cpp Thu Sep 23 18:51:59 2004
@@ -407,5 +407,5 @@
}
-extern "C" int Tk_StripchartCmd(ClientData, Tcl_Interp*, int ac, char** av);
+extern "C" int Tk_StripchartCmd(ClientData, Tcl_Interp*, int ac, const char** av);
#ifdef WIN32
extern "C" int WinPutsCmd(ClientData, Tcl_Interp*, int ac, char** av);
--- vic_tcl.h Thu Sep 9 08:05:49 1999
+++ vic_tcl.h Thu Sep 23 19:00:33 2004
@@ -74,6 +77,6 @@
error(file);
}
- inline char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
- return (Tcl_GetVar(tcl_, (char*)varname, flags));
+ inline CONST char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
+ return (Tcl_GetVar(tcl_, varname, flags));
}
/*
@@ -125,5 +128,5 @@
void class_name(const char*);
/* make this public for Sun's compiler */
- static int callback(ClientData, Tcl_Interp*, int ac, char** av);
+ static int callback(ClientData, Tcl_Interp*, int ac, CONST char** av);
static void reset_all();
protected:
--- rate-variable.cpp Thu Sep 9 08:21:55 1999
+++ rate-variable.cpp Thu Sep 23 18:55:10 2004
@@ -62,11 +62,11 @@
RateVariable(const char* name) : TclObject(name) { }
protected:
- static char* update_rate_var(ClientData, Tcl_Interp*, char* name1,
- char* name2, int flags);
+ static char* update_rate_var(ClientData, Tcl_Interp*, const char* name1,
+ const char* name2, int flags);
int command(int argc, const char*const* argv);
} rate_variable_cmd("rate_variable");
char* RateVariable::update_rate_var(ClientData clientData, Tcl_Interp* tcl,
- char* name1, char* name2, int flags)
+ const char* name1, const char* name2, int flags)
{
rv_data* rv = (rv_data*)clientData;
@@ -81,5 +81,5 @@
char res[128];
flags &= TCL_GLOBAL_ONLY;
- char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
+ const char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
if (cv == NULL)
return (tcl->result);
|
