head	1.3;
access;
symbols
	pkgsrc-2013Q2:1.3.0.48
	pkgsrc-2013Q2-base:1.3
	pkgsrc-2012Q4:1.3.0.46
	pkgsrc-2012Q4-base:1.3
	pkgsrc-2011Q4:1.3.0.44
	pkgsrc-2011Q4-base:1.3
	pkgsrc-2011Q2:1.3.0.42
	pkgsrc-2011Q2-base:1.3
	pkgsrc-2009Q4:1.3.0.40
	pkgsrc-2009Q4-base:1.3
	pkgsrc-2008Q4:1.3.0.38
	pkgsrc-2008Q4-base:1.3
	pkgsrc-2008Q3:1.3.0.36
	pkgsrc-2008Q3-base:1.3
	cube-native-xorg:1.3.0.34
	cube-native-xorg-base:1.3
	pkgsrc-2008Q2:1.3.0.32
	pkgsrc-2008Q2-base:1.3
	pkgsrc-2008Q1:1.3.0.30
	pkgsrc-2008Q1-base:1.3
	pkgsrc-2007Q4:1.3.0.28
	pkgsrc-2007Q4-base:1.3
	pkgsrc-2007Q3:1.3.0.26
	pkgsrc-2007Q3-base:1.3
	pkgsrc-2007Q2:1.3.0.24
	pkgsrc-2007Q2-base:1.3
	pkgsrc-2007Q1:1.3.0.22
	pkgsrc-2007Q1-base:1.3
	pkgsrc-2006Q4:1.3.0.20
	pkgsrc-2006Q4-base:1.3
	pkgsrc-2006Q3:1.3.0.18
	pkgsrc-2006Q3-base:1.3
	pkgsrc-2006Q2:1.3.0.16
	pkgsrc-2006Q2-base:1.3
	pkgsrc-2006Q1:1.3.0.14
	pkgsrc-2006Q1-base:1.3
	pkgsrc-2005Q4:1.3.0.12
	pkgsrc-2005Q4-base:1.3
	pkgsrc-2005Q3:1.3.0.10
	pkgsrc-2005Q3-base:1.3
	pkgsrc-2005Q2:1.3.0.8
	pkgsrc-2005Q2-base:1.3
	pkgsrc-2005Q1:1.3.0.6
	pkgsrc-2005Q1-base:1.3
	pkgsrc-2004Q4:1.3.0.4
	pkgsrc-2004Q4-base:1.3
	pkgsrc-2004Q3:1.3.0.2
	pkgsrc-2004Q3-base:1.3
	pkgsrc-2004Q2:1.2.0.2
	pkgsrc-2004Q2-base:1.2
	pkgsrc-2004Q1:1.1.0.12
	pkgsrc-2004Q1-base:1.1
	pkgsrc-2003Q4:1.1.0.10
	pkgsrc-2003Q4-base:1.1
	netbsd-1-6-1:1.1.0.6
	netbsd-1-6-1-base:1.1
	netbsd-1-6:1.1.0.8
	netbsd-1-6-RELEASE-base:1.1
	pkgviews:1.1.0.4
	pkgviews-base:1.1
	buildlink2:1.1.0.2
	buildlink2-base:1.1
	netbsd-1-5-PATCH003:1.1;
locks; strict;
comment	@# @;


1.3
date	2004.09.08.15.40.07;	author wulf;	state dead;
branches;
next	1.2;

1.2
date	2004.04.01.00.52.39;	author minskim;	state Exp;
branches;
next	1.1;

1.1
date	2001.10.15.17.09.44;	author tron;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Fixed problem reported in RP 26866 and updated ical to 2.3.1
@
text
@$NetBSD: patch-ad,v 1.2 2004/04/01 00:52:39 minskim Exp $

--- item_tcl.C.orig	1996-08-01 14:25:10.000000000 -0500
+++ item_tcl.C
@@@@ -14,6 +14,9 @@@@
 #include "item_tcl.h"
 #include "dispatch.h"
 
+static char One[2] = "1";
+static char Zero[2] = "0";
+
 /*
  * Item* -> Item_Tcl* map.
  */
@@@@ -63,47 +66,47 @@@@ Item_Tcl* Item_Tcl::find(Item* item) {
 /*
  * Forward declaration of handler procedures.
  */
-static int item_length	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_startt	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_clone	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_is	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_delete	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_cal	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_text	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_uid	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_early	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_owner	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_owned	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_own	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_hilite	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_todo	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_is_done	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_done	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_alarms	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_option	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_doption	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_empty	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_repeat	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_first	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_type	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_desc	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_cont	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_next	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_range	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_date	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_start	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_finish	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_ondel	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_dayr	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_wdays	(ClientData, Tcl_Interp*, int, char*[]);
-
-static int item_monthr		(ClientData, Tcl_Interp*, int, char*[]);
-static int item_mday		(ClientData, Tcl_Interp*, int, char*[]);
-static int item_mlday		(ClientData, Tcl_Interp*, int, char*[]);
-static int item_mworkday	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_mlworkday	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_mweekday	(ClientData, Tcl_Interp*, int, char*[]);
-static int item_mlweekday	(ClientData, Tcl_Interp*, int, char*[]);
+static int item_length	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_startt	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_clone	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_is	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_delete	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_cal	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_text	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_uid	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_early	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_owner	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_owned	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_own	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_hilite	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_todo	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_is_done	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_done	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_alarms	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_option	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_doption	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_empty	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_repeat	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_first	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_type	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_desc	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_cont	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_next	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_range	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_date	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_start	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_finish	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_ondel	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_dayr	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_wdays	(ClientData, Tcl_Interp*, int, const char*[]);
+
+static int item_monthr		(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_mday		(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_mlday		(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_mworkday	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_mlworkday	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_mweekday	(ClientData, Tcl_Interp*, int, const char*[]);
+static int item_mlweekday	(ClientData, Tcl_Interp*, int, const char*[]);
 
 static Dispatch_Entry item_dispatch[] = {
     { "delete",			0, 0, item_delete	},
@@@@ -156,7 +159,7 @@@@ static Dispatch_Entry item_dispatch[] = 
     { 0,			0, 0, 0			}
 };
 
-int Item_Tcl::method(int argc, char* argv[]) {
+int Item_Tcl::method(int argc, const char* argv[]) {
     return Dispatch(item_dispatch, (ClientData)this, tcl(), argc, argv);
 }
 
@@@@ -164,7 +167,7 @@@@ int Item_Tcl::method(int argc, char* arg
  * Handler procedures.
  */
 
-static int item_length(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_length(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     Appointment* appt = item->value()->AsAppointment();
@@@@ -193,7 +196,7 @@@@ static int item_length(ClientData c, Tcl
     TCL_Error(tcl, "unknown command");
 }
 
-static int item_startt(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_startt(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     Appointment* appt = item->value()->AsAppointment();
@@@@ -222,27 +225,27 @@@@ static int item_startt(ClientData c, Tcl
     TCL_Return(tcl, "");
 }
 
-static int item_clone(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_clone(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     Item_Tcl* clone = new Item_Tcl(tcl, item->value()->Clone(), 0);
     TCL_Return(tcl, (char*) clone->handle());
 }
 
-static int item_is(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_is(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if ((strcmp(argv[0], "note") == 0) && (item->value()->AsNotice() != 0)) {
-	TCL_Return(tcl, "1");
+	TCL_Return(tcl, One);
     }
 
     if ((strcmp(argv[0], "appt") == 0) && (item->value()->AsAppointment()!=0)){
-	TCL_Return(tcl, "1");
+	TCL_Return(tcl, One);
     }
 
-    TCL_Return(tcl, "0");
+    TCL_Return(tcl, Zero);
 }
 
-static int item_delete(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_delete(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = ((Item_Tcl*) c);
     if (! check_permission(tcl, item)) return TCL_ERROR;
 
@@@@ -262,7 +265,7 @@@@ static int item_delete(ClientData c, Tcl
     TCL_Return(tcl, "");
 }
 
-static int item_cal(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_cal(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     CalFile* cal = item->calendar();
@@@@ -272,7 +275,7 @@@@ static int item_cal(ClientData c, Tcl_In
     TCL_Return(tcl, (char*)(cal->GetName()));
 }
 
-static int item_text(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_text(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (argc == 0) {
@@@@ -286,12 +289,12 @@@@ static int item_text(ClientData c, Tcl_I
     TCL_Return(tcl, "");
 }
 
-static int item_uid(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_uid(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     TCL_Return(tcl, (char*) item->value()->GetUid());
 }
 
-static int item_early(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_early(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (argc == 0) {
@@@@ -313,7 +316,7 @@@@ static int item_early(ClientData c, Tcl_
     TCL_Return(tcl, "");
 }
 
-static int item_owner(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_owner(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (argc == 0) {
@@@@ -327,12 +330,12 @@@@ static int item_owner(ClientData c, Tcl_
     TCL_Return(tcl, "");
 }
 
-static int item_owned(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_owned(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
-    TCL_Return(tcl, (item->value()->IsMine() ? "1" : "0"));
+    TCL_Return(tcl, (item->value()->IsMine() ? One : Zero));
 }
 
-static int item_own(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_own(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     if (! check_permission(tcl, item)) return TCL_ERROR;
     item->value()->MakeOwner();
@@@@ -341,7 +344,7 @@@@ static int item_own(ClientData c, Tcl_In
     TCL_Return(tcl, "");
 }
 
-static int item_hilite(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_hilite(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (argc == 0) {
@@@@ -356,11 +359,11 @@@@ static int item_hilite(ClientData c, Tcl
     TCL_Return(tcl, "");
 }
 
-static int item_todo(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_todo(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (argc == 0) {
-	TCL_Return(tcl, (char*)(item->value()->IsTodo() ? "1" : "0"));
+	TCL_Return(tcl, (char*)(item->value()->IsTodo() ? One : Zero));
     }
 
     int todo;
@@@@ -374,12 +377,12 @@@@ static int item_todo(ClientData c, Tcl_I
     TCL_Return(tcl, "");
 }
 
-static int item_is_done(ClientData c, Tcl_Interp* tcl,int argc,char* argv[]) {
+static int item_is_done(ClientData c, Tcl_Interp* tcl,int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
-    TCL_Return(tcl, (char*)(item->value()->IsDone() ? "1" : "0"));
+    TCL_Return(tcl, (char*)(item->value()->IsDone() ? One : Zero));
 }
 
-static int item_done(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_done(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     if (! check_permission(tcl, item)) return TCL_ERROR;
 
@@@@ -394,7 +397,7 @@@@ static int item_done(ClientData c, Tcl_I
     TCL_Return(tcl, "");
 }
 
-static int item_alarms(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_alarms(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     Appointment* appt = item->value()->AsAppointment();
@@@@ -431,7 +434,7 @@@@ static int item_alarms(ClientData c, Tcl
     }
 
     int count;
-    char** list;
+    const char** list;
     if (Tcl_SplitList(tcl, argv[0], &count, &list) != TCL_OK) {
 	TCL_Error(tcl, "invalid alarm list");
     }
@@@@ -460,7 +463,7 @@@@ static int item_alarms(ClientData c, Tcl
     TCL_Return(tcl, "");
 }
 
-static int item_option(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_option(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (argc == 1) {
@@@@ -476,7 +479,7 @@@@ static int item_option(ClientData c, Tcl
     TCL_Return(tcl, "");
 }
 
-static int item_doption(ClientData c, Tcl_Interp* tcl, int argc,char* argv[]) {
+static int item_doption(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     if (! check_permission(tcl, item)) return TCL_ERROR;
@@@@ -490,17 +493,17 @@@@ static int item_doption(ClientData c, Tc
     TCL_Return(tcl, "");
 }
 
-static int item_empty(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_empty(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
-    TCL_Return(tcl, (item->value()->empty()?"1":"0"));
+    TCL_Return(tcl, (item->value()->empty()?One:Zero));
 }
 
-static int item_repeat(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_repeat(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
-    TCL_Return(tcl,(item->value()->repeats()?"1":"0"));
+    TCL_Return(tcl,(item->value()->repeats()?One:Zero));
 }
 
-static int item_first(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_first(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     Date d;
     if (! item->value()->first(d)) {
@@@@ -513,7 +516,7 @@@@ static int item_first(ClientData c, Tcl_
     return TCL_OK;
 }
 
-static int item_type(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_type(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     char* result;
     switch (item->value()->repeat_type()) {
@@@@ -560,7 +563,7 @@@@ static int item_type(ClientData c, Tcl_I
     TCL_Return(tcl, result);
 }
 
-static int item_desc(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_desc(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     charArray buffer;
     item->value()->describe(&buffer);
@@@@ -569,17 +572,17 @@@@ static int item_desc(ClientData c, Tcl_I
     return TCL_OK;
 }
 
-static int item_cont(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_cont(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     int dateDays;
     if (Tcl_GetInt(tcl, argv[0], &dateDays) != TCL_OK) {
 	TCL_Error(tcl, "invalid date");
     }
     Date date(dateDays);
-    TCL_Return(tcl, (item->value()->contains(date)?"1":"0"));
+    TCL_Return(tcl, (item->value()->contains(date)?One:Zero));
 }
 
-static int item_next(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_next(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     int dateDays;
     if (Tcl_GetInt(tcl, argv[0], &dateDays) != TCL_OK) {
@@@@ -597,7 +600,7 @@@@ static int item_next(ClientData c, Tcl_I
     return TCL_OK;
 }
 
-static int item_range(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_range(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     Date s, f;
@@@@ -609,14 +612,14 @@@@ static int item_range(ClientData c, Tcl_
 	sprintf(buffer, "%d", f.EpochDays());
 	if (Tcl_SetVar(tcl, argv[1], buffer, 0) == NULL)
 	    TCL_Error(tcl, "could not set range finish variable");
-	TCL_Return(tcl, "1");
+	TCL_Return(tcl, One);
     }
     else {
-	TCL_Return(tcl, "0");
+	TCL_Return(tcl, Zero);
     }
 }
 
-static int item_date(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_date(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     int dateDays;
     if (Tcl_GetInt(tcl, argv[0], &dateDays) != TCL_OK) {
@@@@ -630,7 +633,7 @@@@ static int item_date(ClientData c, Tcl_I
     TCL_Return(tcl, "");
 }
 
-static int item_start(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_start(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     int dateDays;
     if (Tcl_GetInt(tcl, argv[0], &dateDays) != TCL_OK) {
@@@@ -644,7 +647,7 @@@@ static int item_start(ClientData c, Tcl_
     TCL_Return(tcl, "");
 }
 
-static int item_finish(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_finish(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     int dateDays;
     if (Tcl_GetInt(tcl, argv[0], &dateDays) != TCL_OK) {
@@@@ -658,7 +661,7 @@@@ static int item_finish(ClientData c, Tcl
     TCL_Return(tcl, "");
 }
 
-static int item_ondel(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_ondel(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
     int dateDays;
     if (Tcl_GetInt(tcl, argv[0], &dateDays) != TCL_OK) {
@@@@ -672,7 +675,7 @@@@ static int item_ondel(ClientData c, Tcl_
     TCL_Return(tcl, "");
 }
 
-static int item_dayr(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_dayr(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int interval;
@@@@ -693,7 +696,7 @@@@ static int item_dayr(ClientData c, Tcl_I
     TCL_Return(tcl, "");
 }
 
-static int item_monthr(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_monthr(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int interval;
@@@@ -719,8 +722,8 @@@@ static int item_monthr(ClientData c, Tcl
 // effects	Parses "n", "anchor" and "interval" from the command
 //		arguments.  Returns TCL_OK iff successful.  If "anchor"
 //		and "interval" are not specified in the command arguments,
-//		then "anchor" is set to today and "interval" is set to "1".
-static int parse_month_args(Tcl_Interp* tcl, int argc, char* argv[],
+//		then "anchor" is set to today and "interval" is set to One.
+static int parse_month_args(Tcl_Interp* tcl, int argc, const char* argv[],
 			    int& n, Date& anchor, int& interval)
 {
     if ((argc != 1) && (argc != 3)) TCL_Error(tcl,"wrong number of arguments");
@@@@ -745,7 +748,7 @@@@ static int parse_month_args(Tcl_Interp* 
     return TCL_OK;
 }
 
-static int item_mday(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_mday(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int n, interval;
@@@@ -760,7 +763,7 @@@@ static int item_mday(ClientData c, Tcl_I
     TCL_Return(tcl, "");
 }
 
-static int item_mlday(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_mlday(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int n, interval;
@@@@ -776,7 +779,7 @@@@ static int item_mlday(ClientData c, Tcl_
 }
 
 static int item_mworkday(ClientData c, Tcl_Interp* tcl,
-			 int argc, char* argv[]) {
+			 int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int n, interval;
@@@@ -792,7 +795,7 @@@@ static int item_mworkday(ClientData c, T
 }
 
 static int item_mlworkday(ClientData c, Tcl_Interp* tcl,
-			  int argc, char* argv[]) {
+			  int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int n, interval;
@@@@ -808,7 +811,7 @@@@ static int item_mlworkday(ClientData c, 
 }
 
 static int item_mweekday(ClientData c, Tcl_Interp* tcl,
-			 int argc, char* argv[]) {
+			 int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int wday;
@@@@ -829,7 +832,7 @@@@ static int item_mweekday(ClientData c, T
 }
 
 static int item_mlweekday(ClientData c, Tcl_Interp* tcl,
-			  int argc, char* argv[]) {
+			  int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     int wday;
@@@@ -849,7 +852,7 @@@@ static int item_mlweekday(ClientData c, 
     TCL_Return(tcl, "");
 }
 
-static int item_wdays(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
+static int item_wdays(ClientData c, Tcl_Interp* tcl, int argc, const char* argv[]) {
     Item_Tcl* item = (Item_Tcl*) c;
 
     /* Collect weekdays */
@


1.2
log
@Switch to Tcl/Tk 8.4, bl3ify, and enable pkgviews installation.
Bump PKGREVISION due to Tcl/Tk dependency changes.
@
text
@d1 1
a1 1
$NetBSD$
@


1.1
log
@Fix build problem when new toolchain is used.
@
text
@d3 2
a4 2
--- item_tcl.C.orig	Thu Aug  1 21:25:10 1996
+++ item_tcl.C	Mon Oct 15 19:07:06 2001
d15 129
a143 1
@@@@ -232,14 +235,14 @@@@
d160 26
a185 2
 static int item_delete(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@@@ -329,7 +332,7 @@@@
d187 26
a212 1
 static int item_owned(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
d218 20
a237 2
 static int item_own(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@@@ -360,7 +363,7 @@@@
d246 3
a248 1
@@@@ -376,7 +379,7 @@@@
d250 2
a251 1
 static int item_is_done(ClientData c, Tcl_Interp* tcl,int argc,char* argv[]) {
d257 39
a295 2
 static int item_done(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@@@ -492,12 +495,12 @@@@
d297 7
a303 1
 static int item_empty(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
d309 2
a310 1
 static int item_repeat(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
d316 32
a347 2
 static int item_first(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@@@ -576,7 +579,7 @@@@
d355 15
a369 2
 static int item_next(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) {
@@@@ -609,10 +612,10 @@@@
d382 51
a432 1
@@@@ -719,7 +722,7 @@@@
d437 1
d439 1
a439 1
 static int parse_month_args(Tcl_Interp* tcl, int argc, char* argv[],
d442 64
@