diff options
Diffstat (limited to 'deskutils/ical/files/cal_tcl.C')
-rw-r--r-- | deskutils/ical/files/cal_tcl.C | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/deskutils/ical/files/cal_tcl.C b/deskutils/ical/files/cal_tcl.C new file mode 100644 index 000000000000..38105617557b --- /dev/null +++ b/deskutils/ical/files/cal_tcl.C @@ -0,0 +1,87 @@ +--- cal_tcl.C.orig Sun Nov 28 17:29:13 1999 ++++ cal_tcl.C Sun Nov 28 17:30:24 1999 +@@ -214,27 +214,27 @@ static int cal_loopf (ClientData, Tcl_In + static int cal_loopb (ClientData, Tcl_Interp*, int, char*[]); + + static Dispatch_Entry calendar_dispatch[] = { +- { "delete", 0, 0, cal_delete }, +- { "main", 0, 0, cal_main }, +- { "include", 1, 1, cal_include }, +- { "exclude", 1, 1, cal_exclude }, +- { "forincludes", 2, 2, cal_forincs }, +- { "add", 1, 2, cal_add }, +- { "remove", 1, 1, cal_remove }, +- { "hide", 1, 1, cal_hide }, +- { "readonly", 0, 1, cal_ronly }, +- { "dirty", 0, 1, cal_dirty }, +- { "stale", 0, 1, cal_stale }, +- { "save", 0, 1, cal_save }, +- { "reread", 0, 1, cal_reread }, +- { "query", 5, 7, cal_query }, +- { "listing", 5, 7, cal_listing }, +- { "loop", 2, 4, cal_loop }, +- { "incalendar", 3, 3, cal_incal }, +- { "option", 1, 4, cal_option }, +- { "delete_option", 1, 3, cal_doption }, +- { "loop_forward", 5, 7, cal_loopf }, +- { "loop_backward", 5, 7, cal_loopb }, ++ { "delete", 0, 0, (Tcl_CmdProc *)cal_delete }, ++ { "main", 0, 0, (Tcl_CmdProc *)cal_main }, ++ { "include", 1, 1, (Tcl_CmdProc *)cal_include }, ++ { "exclude", 1, 1, (Tcl_CmdProc *)cal_exclude }, ++ { "forincludes", 2, 2, (Tcl_CmdProc *)cal_forincs }, ++ { "add", 1, 2, (Tcl_CmdProc *)cal_add }, ++ { "remove", 1, 1, (Tcl_CmdProc *)cal_remove }, ++ { "hide", 1, 1, (Tcl_CmdProc *)cal_hide }, ++ { "readonly", 0, 1, (Tcl_CmdProc *)cal_ronly }, ++ { "dirty", 0, 1, (Tcl_CmdProc *)cal_dirty }, ++ { "stale", 0, 1, (Tcl_CmdProc *)cal_stale }, ++ { "save", 0, 1, (Tcl_CmdProc *)cal_save }, ++ { "reread", 0, 1, (Tcl_CmdProc *)cal_reread }, ++ { "query", 5, 7, (Tcl_CmdProc *)cal_query }, ++ { "listing", 5, 7, (Tcl_CmdProc *)cal_listing }, ++ { "loop", 2, 4, (Tcl_CmdProc *)cal_loop }, ++ { "incalendar", 3, 3, (Tcl_CmdProc *)cal_incal }, ++ { "option", 1, 4, (Tcl_CmdProc *)cal_option }, ++ { "delete_option", 1, 3, (Tcl_CmdProc *)cal_doption }, ++ { "loop_forward", 5, 7, (Tcl_CmdProc *)cal_loopf }, ++ { "loop_backward", 5, 7, (Tcl_CmdProc *)cal_loopb }, + { 0, 0, 0, 0 } + }; + +@@ -281,7 +281,7 @@ static int parse_items(Tcl_Interp* tcl, + + if ((argc >= 2) && (strcmp(argv[0], "-items") == 0)) { + int count; +- char** list; ++ CONST84 char** list; + if (Tcl_SplitList(tcl, argv[1], &count, &list) != TCL_OK) { + TCL_Error(tcl, "invalid item list"); + } +@@ -516,7 +516,7 @@ + TCL_Error(tcl, "no such calendar"); + } + +- TCL_Return(tcl, file->GetCalendar()->ReadOnly() ? "1" : "0"); ++ TCL_Return(tcl, file->GetCalendar()->ReadOnly() ? (char *)"1" : (char *)"0"); + } + + static int cal_dirty(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]){ +@@ -527,7 +527,7 @@ + TCL_Error(tcl, "no such calendar"); + } + +- TCL_Return(tcl, (file->IsModified() ? "1" : "0")); ++ TCL_Return(tcl, (file->IsModified() ? (char *)"1" : (char *)"0")); + } + + static int cal_stale(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]){ +@@ -538,7 +538,7 @@ + TCL_Error(tcl, "no such calendar"); + } + +- TCL_Return(tcl, (file->FileHasChanged() ? "1" : "0")); ++ TCL_Return(tcl, (file->FileHasChanged() ? (char *)"1" : (char *)"0")); + } + + static int cal_save(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]){ |