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
133
134
135
136
137
138
139
140
141
142
143
|
--- item_tcl.C.orig Sun Nov 28 17:31:26 1999
+++ item_tcl.C Sun Nov 28 17:32:25 1999
@@ -106,52 +106,52 @@
static int item_mlweekday (ClientData, Tcl_Interp*, int, char*[]);
static Dispatch_Entry item_dispatch[] = {
- { "delete", 0, 0, item_delete },
- { "clone", 0, 0, item_clone },
+ { "delete", 0, 0, (Tcl_CmdProc *)item_delete },
+ { "clone", 0, 0, (Tcl_CmdProc *)item_clone },
- { "length", 0, 1, item_length },
- { "starttime", 0, 1, item_startt },
- { "alarms", 0, 1, item_alarms },
- { "option", 1, 2, item_option },
- { "delete_option", 1, 1, item_doption },
-
- { "is", 1, 1, item_is },
- { "calendar", 0, 0, item_cal },
- { "text", 0, 1, item_text },
- { "uid", 0, 0, item_uid },
- { "earlywarning", 0, 1, item_early },
- { "owner", 0, 1, item_owner },
- { "owned", 0, 0, item_owned },
- { "own", 0, 0, item_own },
- { "hilite", 0, 1, item_hilite },
- { "todo", 0, 1, item_todo },
- { "is_done", 0, 0, item_is_done },
- { "done", 1, 1, item_done },
-
- { "contains", 1, 1, item_cont },
- { "empty", 0, 0, item_empty },
- { "repeats", 0, 0, item_repeat },
- { "first", 0, 0, item_first },
- { "next", 1, 1, item_next },
- { "range", 2, 2, item_range },
- { "type", 0, 0, item_type },
- { "describe_repeat", 0, 0, item_desc },
-
- { "date", 1, 1, item_date },
- { "dayrepeat", 2, 2, item_dayr },
-
- { "monthrepeat", 2, 2, item_monthr },
- { "month_day", 1, 3, item_mday },
- { "month_last_day", 1, 3, item_mlday },
- { "month_work_day", 1, 3, item_mworkday },
- { "month_last_work_day", 1, 3, item_mlworkday },
- { "month_week_day", 2, 4, item_mweekday },
- { "month_last_week_day", 2, 4, item_mlweekday },
-
- { "weekdays", 0, -1, item_wdays },
- { "start", 1, 1, item_start },
- { "finish", 1, 1, item_finish },
- { "deleteon", 1, 1, item_ondel },
+ { "length", 0, 1, (Tcl_CmdProc *)item_length },
+ { "starttime", 0, 1, (Tcl_CmdProc *)item_startt },
+ { "alarms", 0, 1, (Tcl_CmdProc *)item_alarms },
+ { "option", 1, 2, (Tcl_CmdProc *)item_option },
+ { "delete_option", 1, 1, (Tcl_CmdProc *)item_doption },
+
+ { "is", 1, 1, (Tcl_CmdProc *)item_is },
+ { "calendar", 0, 0, (Tcl_CmdProc *)item_cal },
+ { "text", 0, 1, (Tcl_CmdProc *)item_text },
+ { "uid", 0, 0, (Tcl_CmdProc *)item_uid },
+ { "earlywarning", 0, 1, (Tcl_CmdProc *)item_early },
+ { "owner", 0, 1, (Tcl_CmdProc *)item_owner },
+ { "owned", 0, 0, (Tcl_CmdProc *)item_owned },
+ { "own", 0, 0, (Tcl_CmdProc *)item_own },
+ { "hilite", 0, 1, (Tcl_CmdProc *)item_hilite },
+ { "todo", 0, 1, (Tcl_CmdProc *)item_todo },
+ { "is_done", 0, 0, (Tcl_CmdProc *)item_is_done },
+ { "done", 1, 1, (Tcl_CmdProc *)item_done },
+
+ { "contains", 1, 1, (Tcl_CmdProc *)item_cont },
+ { "empty", 0, 0, (Tcl_CmdProc *)item_empty },
+ { "repeats", 0, 0, (Tcl_CmdProc *)item_repeat },
+ { "first", 0, 0, (Tcl_CmdProc *)item_first },
+ { "next", 1, 1, (Tcl_CmdProc *)item_next },
+ { "range", 2, 2, (Tcl_CmdProc *)item_range },
+ { "type", 0, 0, (Tcl_CmdProc *)item_type },
+ { "describe_repeat", 0, 0, (Tcl_CmdProc *)item_desc },
+
+ { "date", 1, 1, (Tcl_CmdProc *)item_date },
+ { "dayrepeat", 2, 2, (Tcl_CmdProc *)item_dayr },
+
+ { "monthrepeat", 2, 2, (Tcl_CmdProc *)item_monthr },
+ { "month_day", 1, 3, (Tcl_CmdProc *)item_mday },
+ { "month_last_day", 1, 3, (Tcl_CmdProc *)item_mlday },
+ { "month_work_day", 1, 3, (Tcl_CmdProc *)item_mworkday },
+ { "month_last_work_day", 1, 3, (Tcl_CmdProc *)item_mlworkday },
+ { "month_week_day", 2, 4, (Tcl_CmdProc *)item_mweekday },
+ { "month_last_week_day", 2, 4, (Tcl_CmdProc *)item_mlweekday },
+
+ { "weekdays", 0, -1, (Tcl_CmdProc *)item_wdays },
+ { "start", 1, 1, (Tcl_CmdProc *)item_start },
+ { "finish", 1, 1, (Tcl_CmdProc *)item_finish },
+ { "deleteon", 1, 1, (Tcl_CmdProc *)item_ondel },
{ 0, 0, 0, 0 }
};
+++ item_tcl.C Sun Nov 28 17:32:25 1999
@@ -329,7 +329,7 @@
static int item_owned(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
Item_Tcl* item = (Item_Tcl*) c;
- TCL_Return(tcl, (item->value()->IsMine() ? "1" : "0"));
+ TCL_Return(tcl, (item->value()->IsMine() ? (char *)"1" : (char *)"0"));
}
static int item_own(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@ -431,7 +431,7 @@ static int item_alarms(ClientData c, Tcl
}
int count;
- char** list;
+ CONST84 char** list;
if (Tcl_SplitList(tcl, argv[0], &count, &list) != TCL_OK) {
TCL_Error(tcl, "invalid alarm list");
}
@@ -492,12 +492,12 @@
static int item_empty(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
Item_Tcl* item = (Item_Tcl*) c;
- TCL_Return(tcl, (item->value()->empty()?"1":"0"));
+ TCL_Return(tcl, (item->value()->empty() ? (char *)"1" : (char *)"0"));
}
static int item_repeat(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
Item_Tcl* item = (Item_Tcl*) c;
- TCL_Return(tcl,(item->value()->repeats()?"1":"0"));
+ TCL_Return(tcl,(item->value()->repeats() ? (char *)"1" : (char *)"0"));
}
static int item_first(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@ -576,7 +576,7 @@
TCL_Error(tcl, "invalid date");
}
Date date(dateDays);
- TCL_Return(tcl, (item->value()->contains(date)?"1":"0"));
+ TCL_Return(tcl, (item->value()->contains(date) ? (char *)"1" : (char *)"0"));
}
static int item_next(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
|
