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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
--- generic/init.c Wed Aug 9 15:13:17 2000
+++ generic/init.c Tue Apr 6 12:20:51 2004
@@ -60,5 +60,5 @@
#ifdef USE_TCL_STUBS
- char* actualVersion;
+ const char* actualVersion;
actualVersion = Tcl_InitStubs(interp, "8.1", 0);
--- generic/transformInt.h Tue Aug 21 01:51:33 2001
+++ generic/transformInt.h Tue Apr 6 12:27:33 2004
@@ -678,4 +678,8 @@
#define TCL_STORAGE_CLASS DLLIMPORT
+#ifndef CONST84
+# define CONST84
+#endif
+
#ifdef __cplusplus
}
--- generic/registry.c Tue Aug 21 01:51:33 2001
+++ generic/registry.c Tue Apr 6 12:32:35 2004
@@ -285,5 +285,5 @@
static int
TrfOutput _ANSI_ARGS_ ((ClientData instanceData,
- char* buf, int toWrite,
+ CONST84 char* buf, int toWrite,
int* errorCodePtr));
@@ -300,9 +300,9 @@
static int
TrfGetOption _ANSI_ARGS_ ((ClientData instanceData, Tcl_Interp* interp,
- char* optionName, Tcl_DString* dsPtr));
+ CONST84 char* optionName, Tcl_DString* dsPtr));
static int
TrfSetOption _ANSI_ARGS_((ClientData instanceData, Tcl_Interp* interp,
- char* optionName, char* value));
+ CONST84 char* optionName, CONST84 char* value));
#ifdef USE_TCL_STUBS
static int
@@ -364,9 +364,9 @@
DownSOpt _ANSI_ARGS_ ((Tcl_Interp* interp,
TrfTransformationInstance* ctrl,
- char* optionName, char* value));
+ CONST84 char* optionName, CONST84 char* value));
static int
DownGOpt _ANSI_ARGS_ ((Tcl_Interp* interp,
TrfTransformationInstance* ctrl,
- char* optionName, Tcl_DString* dsPtr));
+ CONST84 char* optionName, Tcl_DString* dsPtr));
#define DOWNC(trans) (DownChannel (trans))
@@ -1708,5 +1708,5 @@
TrfOutput (instanceData, buf, toWrite, errorCodePtr)
ClientData instanceData;
-char* buf;
+CONST84 char* buf;
int toWrite;
int* errorCodePtr;
@@ -2162,6 +2162,6 @@
ClientData instanceData;
Tcl_Interp* interp;
- char* optionName;
- char* value;
+ CONST84 char* optionName;
+ CONST84 char* value;
{
/* Recognized options:
@@ -2315,5 +2315,5 @@
ClientData instanceData;
Tcl_Interp* interp;
- char* optionName;
+ CONST84 char* optionName;
Tcl_DString* dsPtr;
{
@@ -3207,6 +3207,6 @@
Tcl_Interp* interp;
TrfTransformationInstance* ctrl;
- char* optionName;
- char* value;
+ CONST84 char* optionName;
+ CONST84 char* value;
{
Tcl_Channel parent = DOWNC (ctrl);
@@ -3252,5 +3252,5 @@
Tcl_Interp* interp;
TrfTransformationInstance* ctrl;
- char* optionName;
+ CONST84 char* optionName;
Tcl_DString* dsPtr;
{
--- generic/trfStubLib.c Mon Sep 20 17:07:24 1999
+++ generic/trfStubLib.c Tue Apr 6 13:13:38 2004
@@ -61,5 +61,5 @@
#endif
-char *
+const char *
Trf_InitStubs(interp, version, exact)
Tcl_Interp *interp;
@@ -67,5 +67,5 @@
int exact;
{
- char *actualVersion;
+ const char *actualVersion;
actualVersion = Tcl_PkgRequireEx(interp, "Trf", (char *) version, exact,
--- generic/transform.h Tue Aug 21 01:52:21 2001
+++ generic/transform.h Tue Apr 6 13:15:22 2004
@@ -916,5 +916,5 @@
#define TCL_STORAGE_CLASS
-EXTERN char *Trf_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact));
+EXTERN const char *Trf_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, CONST char *version, int exact));
#ifndef USE_TRF_STUBS
|
