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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
--- main.C.orig 1996-02-16 01:57:42 UTC
+++ main.C
@@ -27,13 +27,13 @@
/* Include various libraries converted to strings. */
#ifdef STANDALONE
-static char* tcl_lib_str[] = {
+static const char* tcl_lib_str[] = {
#include "tcl_lib.gen"
0
};
// Need to disable "source" command
-static char* tk_lib_str[] = {
+static const char* tk_lib_str[] = {
"rename source _orig_source",
"proc source {args} {}",
#include "tk_lib.gen"
@@ -42,37 +42,37 @@ static char* tk_lib_str[] = {
0
};
-static char* ical_lib_str[] = {
+static const char* ical_lib_str[] = {
#include "ical_lib.gen"
0
};
-static char* tcllib_str[] = {
+static const char* tcllib_str[] = {
#include "tcllib.gen"
0
};
#endif
-static char* ical_startup[] = {
+static const char* ical_startup[] = {
#include "ical_start.gen"
0
};
-static char* psheader_str[] = {
+static const char* psheader_str[] = {
"set ical(psheader) {%!PS-Adobe-",
#include "psheader.gen"
"}",
0
};
-static char* ical_doc_str[] = {
+static const char* ical_doc_str[] = {
"set ical(doc) {",
#include "icaldoc.gen"
"}",
0
};
-static char* tcl_doc_str[] = {
+static const char* tcl_doc_str[] = {
"set ical(tcl_interface_doc) {",
#include "tcldoc.gen"
"}",
@@ -173,7 +173,7 @@ main(int argc, char* argv[]) {
#ifdef STANDALONE
extern "C" int MyTcl_Init(Tcl_Interp* tcl) {
- return (eval_list(tcl, tcl_lib_str));
+ return (eval_list(tcl, (char **)tcl_lib_str));
}
#else
#define MyTcl_Init Tcl_Init
@@ -194,7 +194,7 @@ extern "C" int TkPlatformInit(Tcl_Interp* tcl) {
TkCreateXEventSource();
- return (eval_list(tcl, tk_lib_str));
+ return (eval_list(tcl, (char **)tk_lib_str));
}
#endif
@@ -245,37 +245,37 @@ int Ical_Init(Tcl_Interp* tcl) {
}
// Set-up postscript prolog
- if (eval_list(tcl, psheader_str) != TCL_OK)
+ if (eval_list(tcl, (char **)psheader_str) != TCL_OK)
return TCL_ERROR;
// Set-up documentation
- if (eval_list(tcl, ical_doc_str) != TCL_OK)
+ if (eval_list(tcl, (char **)ical_doc_str) != TCL_OK)
return TCL_ERROR;
- if (eval_list(tcl, tcl_doc_str) != TCL_OK)
+ if (eval_list(tcl, (char **)tcl_doc_str) != TCL_OK)
return TCL_ERROR;
// Non-Tk ical commands
- Tcl_CreateCommand(tcl, "calendar", Cmd_CreateCalendar, NULL, NULL);
- Tcl_CreateCommand(tcl, "notice", Cmd_CreateNotice, NULL, NULL);
- Tcl_CreateCommand(tcl, "appointment", Cmd_CreateAppt, NULL, NULL);
- Tcl_CreateCommand(tcl, "date", Cmd_Date, NULL, NULL);
- Tcl_CreateCommand(tcl, "ical_time", Cmd_Time, NULL, NULL);
- Tcl_CreateCommand(tcl, "de_monthdays", Cmd_MonthDays, NULL, NULL);
- Tcl_CreateCommand(tcl, "hilite_loop", Cmd_HiliteLoop, NULL, NULL);
- Tcl_CreateCommand(tcl, "ical_expand_file_name", Cmd_ExpandFileName, 0, 0);
+ Tcl_CreateCommand(tcl, "calendar", (Tcl_CmdProc *)Cmd_CreateCalendar, NULL, NULL);
+ Tcl_CreateCommand(tcl, "notice", (Tcl_CmdProc *)Cmd_CreateNotice, NULL, NULL);
+ Tcl_CreateCommand(tcl, "appointment", (Tcl_CmdProc *)Cmd_CreateAppt, NULL, NULL);
+ Tcl_CreateCommand(tcl, "date", (Tcl_CmdProc *)Cmd_Date, NULL, NULL);
+ Tcl_CreateCommand(tcl, "ical_time", (Tcl_CmdProc *)Cmd_Time, NULL, NULL);
+ Tcl_CreateCommand(tcl, "de_monthdays", (Tcl_CmdProc *)Cmd_MonthDays, NULL, NULL);
+ Tcl_CreateCommand(tcl, "hilite_loop", (Tcl_CmdProc *)Cmd_HiliteLoop, NULL, NULL);
+ Tcl_CreateCommand(tcl, "ical_expand_file_name", (Tcl_CmdProc *)Cmd_ExpandFileName, 0, 0);
#ifdef STANDALONE
// Load tcllib files
- if (eval_list(tcl, tcllib_str) != TCL_OK)
+ if (eval_list(tcl, (char **)tcllib_str) != TCL_OK)
return TCL_ERROR;
// Load ical library files
- if (eval_list(tcl, ical_lib_str) != TCL_OK)
+ if (eval_list(tcl, (char **)ical_lib_str) != TCL_OK)
return TCL_ERROR;
#endif
// Initialize ical stuff
- if (eval_list(tcl, ical_startup) != TCL_OK)
+ if (eval_list(tcl, (char **)ical_startup) != TCL_OK)
return TCL_ERROR;
if (Tcl_Eval(tcl, "ical_init") == TCL_ERROR)
|
