3 files changed, 244 insertions, 18 deletions

diff --git a/databases/sybtcl/Makefile b/databases/sybtcl/Makefile
index 9d342300c9b3..0793e339dc91 100644
--- a/databases/sybtcl/Makefile
+++ b/databases/sybtcl/Makefile
@@ -15,10 +15,9 @@ MASTER_SITE_SUBDIR=	${PORTNAME}
 MAINTAINER=	mi@aldan.algebra.com
 COMMENT=	TCL extension to connect to Sybase servers
 
-LIB_DEPENDS=	tcl${TCL_DVER}:${PORTSDIR}/lang/tcl${TCL_DVER} \
-		sybdb:${PORTSDIR}/databases/freetds
+LIB_DEPENDS=	sybdb:${PORTSDIR}/databases/freetds
 
-TCL_VER?=	8.4
+USE_TCL=	83+
 TCL_DVER=	${TCL_VER:S/.//}
 MAKEFILE=	${FILESDIR}/Makefile.bsd
 MAKE_ARGS+=	TCL_VER=${TCL_VER}
diff --git a/databases/sybtcl/files/Makefile.bsd b/databases/sybtcl/files/Makefile.bsd
index 7c9564f9c5e5..141a1ef4b2c8 100644
--- a/databases/sybtcl/files/Makefile.bsd
+++ b/databases/sybtcl/files/Makefile.bsd
@@ -7,6 +7,7 @@ LOCALBASE?=	/usr/local
 PREFIX?=	${LOCALBASE}
 TCL_VER?=	8.4
 TCL_DVER=	${TCL_VER:S/.//}
+WARNS?=	2
 
 CFLAGS+=	-I${LOCALBASE}/include -I${LOCALBASE}/include/tcl${TCL_VER}
 LDADD=		-L${LOCALBASE}/lib -lsybdb # -ltcl${TCL_DVER}
diff --git a/databases/sybtcl/files/patch-aa b/databases/sybtcl/files/patch-aa
index 547073611ae9..84acf3f29041 100644
--- a/databases/sybtcl/files/patch-aa
+++ b/databases/sybtcl/files/patch-aa
@@ -1,6 +1,14 @@
---- generic/sybtcl.c	Wed Aug 30 20:24:18 2000
-+++ generic/sybtcl.c	Mon Mar 29 16:18:01 2004
-@@ -279,4 +279,12 @@
+--- generic/sybtcl.c	2000-08-30 20:24:18.000000000 -0400
++++ generic/sybtcl.c	2007-10-12 16:54:36.000000000 -0400
+@@ -178,5 +178,6 @@
+ #endif
+ 
+-#include "tcl.h"
++#include <strings.h>
++#include <tcl.h>
+ 
+ 
+@@ -279,4 +280,12 @@
  #endif
  
 +#ifndef CS_INTERNAL
@@ -13,36 +21,98 @@
 +
  typedef struct SybTclProcs {	/* struct for handle entries */
      int         in_use;		/* if this entry is opened */
-@@ -393,5 +401,5 @@
+@@ -393,5 +402,5 @@
  #else
  
 -extern void * malloc();
 +#include <stdlib.h>
  
  #endif
-@@ -461,7 +469,9 @@
+@@ -428,22 +437,22 @@
+ /* prototypes for all tcl command functions */
+ 
+-EXTERN Sybtcl_Init      _ANSI_ARGS_((Tcl_Interp *interp));
+-EXTERN Sybtcl_SafeInit  _ANSI_ARGS_((Tcl_Interp *interp));
++EXTERN int Sybtcl_Init      _ANSI_ARGS_((Tcl_Interp *interp));
++EXTERN int Sybtcl_SafeInit  _ANSI_ARGS_((Tcl_Interp *interp));
+ 
+-extern Tcl_ObjCmdProc  Sybtcl_Connect;
+-extern Tcl_ObjCmdProc  Sybtcl_ErrHandler;
+-extern Tcl_ObjCmdProc  Sybtcl_MsgHandler;
+-extern Tcl_ObjCmdProc  Sybtcl_Money;
+-extern Tcl_ObjCmdProc  Sybtcl_Use;
+-extern Tcl_ObjCmdProc  Sybtcl_Sql;
+-extern Tcl_ObjCmdProc  Sybtcl_Poll;
+-extern Tcl_ObjCmdProc  Sybtcl_Next;
+-extern Tcl_ObjCmdProc  Sybtcl_Cols;
+-extern Tcl_ObjCmdProc  Sybtcl_Cancel;
+-extern Tcl_ObjCmdProc  Sybtcl_Close;
+-extern Tcl_ObjCmdProc  Sybtcl_Retval;
+-extern Tcl_ObjCmdProc  Sybtcl_Wrtext;
+-extern Tcl_ObjCmdProc  Sybtcl_Rdtext;
+-extern Tcl_ObjCmdProc  Sybtcl_Event;
++static Tcl_ObjCmdProc  Sybtcl_Connect;
++static Tcl_ObjCmdProc  Sybtcl_ErrHandler;
++static Tcl_ObjCmdProc  Sybtcl_MsgHandler;
++static Tcl_ObjCmdProc  Sybtcl_Money;
++static Tcl_ObjCmdProc  Sybtcl_Use;
++static Tcl_ObjCmdProc  Sybtcl_Sql;
++static Tcl_ObjCmdProc  Sybtcl_Poll;
++static Tcl_ObjCmdProc  Sybtcl_Next;
++static Tcl_ObjCmdProc  Sybtcl_Cols;
++static Tcl_ObjCmdProc  Sybtcl_Cancel;
++static Tcl_ObjCmdProc  Sybtcl_Close;
++static Tcl_ObjCmdProc  Sybtcl_Retval;
++static Tcl_ObjCmdProc  Sybtcl_Wrtext;
++static Tcl_ObjCmdProc  Sybtcl_Rdtext;
++static Tcl_ObjCmdProc  Sybtcl_Event;
+ 
+ 
+@@ -461,8 +470,10 @@
  			Tcl_Interp *interp));
  
 +#ifdef POLLED_EVENTS
  static int dbEventProc _ANSI_ARGS_((Tcl_Event *evPtr, int flags));
  static void dbSetupProc _ANSI_ARGS_((ClientData cd_hand, int flags));
  static void dbCheckProc _ANSI_ARGS_((ClientData cd_hand, int flags));
+-void Sybtcl_Kill _ANSI_ARGS_((ClientData clientData));
 +#endif
- void Sybtcl_Kill _ANSI_ARGS_((ClientData clientData));
++static void Sybtcl_Kill _ANSI_ARGS_((ClientData clientData));
  static int CS_INTERNAL syb_tcl_err_handler _ANSI_ARGS_((
-@@ -496,4 +506,5 @@
+ 	DBPROCESS *db_proc,
+@@ -496,4 +507,5 @@
  
  
 +#ifdef POLLED_EVENTS /* { */
  /*
   *----------------------------------------------------------------------
-@@ -566,5 +577,5 @@
+@@ -566,5 +578,5 @@
      }
  }
 -
 +#endif /* POLLED_EVENTS } */
  
  
+@@ -609,5 +621,4 @@
+ {
+     dbState *statePtr = (dbState *) instanceData;
+-    int hand = statePtr->hand;
+ 
+ #ifdef POLLED_EVENTS
+@@ -641,5 +652,5 @@
+     dbState *statePtr = (dbState *) instanceData;
+ 
+-    *handlePtr = (ClientData)statePtr->fd; 
++    *handlePtr = (ClientData)(intptr_t)statePtr->fd; 
+     return TCL_OK;                      
+ }   
+@@ -661,5 +672,5 @@
+ }
+ 
+-Tcl_Channel
++static Tcl_Channel
+ dbMakeChannel (sock, hand, channelName)
+     int sock;
 @@ -1167,9 +1178,9 @@
   */
  
@@ -54,7 +124,35 @@
 -    CALLBACK_SCOPE Tcl_ChannelProc callback_handler;
      if (SybProcs[hand].callBackScript != NULL) {
          Tcl_DecrRefCount(SybProcs[hand].callBackScript);
-@@ -1669,6 +1680,8 @@
+@@ -1177,8 +1188,8 @@
+ 	if (SybProcs[hand].sybChan != NULL) {
+ 	    Tcl_DeleteChannelHandler(SybProcs[hand].sybChan,
+-				callback_handler, (ClientData) hand);
++				callback_handler, (ClientData)(intptr_t)hand);
+         }
+ #ifdef POLLED_EVENTS
+-        Tcl_DeleteEventSource( dbSetupProc, dbCheckProc, (ClientData) hand);
++        Tcl_DeleteEventSource( dbSetupProc, dbCheckProc, (ClientData)(intptr_t)hand);
+ #endif
+     }
+@@ -1451,4 +1462,16 @@
+ 				&dateinfo,(DBDATETIME *) col_ptr);
+ 		j=0;
++#if defined(MSDBLIB) && !defined(dateyear)
++#	define dateyear	year
++#	define datemonth	month
++#	define datedmonth	day
++#	define datedyear	dayofyear
++#	define datedweek	weekday
++#	define datehour	hour
++#	define dateminute	minute
++#	define datesecond	second
++#	define datemsecond	millisecond
++#	define datetzone	tzone
++#endif
+ 		while((unsigned int) j < strlen(date_str)) {
+ 		    if (!strncmp(&(date_str[j]),"YYYY",4)) {
+@@ -1669,6 +1692,8 @@
  
  
 -#ifdef DBVERSION_100
@@ -64,7 +162,42 @@
 +#ifdef SYBSENSITIVITY
  	case SYBSENSITIVITY:
  #endif  
-@@ -2556,5 +2569,7 @@
+@@ -1694,5 +1719,5 @@
+  */
+ 
+-void
++static void
+ Sybtcl_Kill (clientData)
+     ClientData clientData;
+@@ -1776,5 +1801,5 @@
+  */
+ 
+-void
++static void
+ Sybtcl_DeleteInterp (clientData, interp)
+     ClientData clientData;
+@@ -2429,5 +2454,5 @@
+  */
+ 
+-int
++static int
+ Sybtcl_ErrHandler (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -2466,5 +2491,5 @@
+  */
+ 
+-int
++static int
+ Sybtcl_MsgHandler (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -2505,5 +2530,5 @@
+  */
+ 
+-int
++static int
+ Sybtcl_Connect (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -2556,5 +2581,7 @@
  
      DBSETLUSER(login,Tcl_GetStringFromObj(objv[1],NULL));
 -    DBSETLPWD(login, Tcl_GetStringFromObj(objv[2],NULL));
@@ -73,7 +206,7 @@
 +	DBSETLPWD(login, server_str);
  
      /* check for server optional parameter */
-@@ -2594,8 +2609,8 @@
+@@ -2594,8 +2621,8 @@
              DBSETLCHARSET(login, charset_str);
  	} else {
 -            DBSETLCHARSET(login, NULL);
@@ -84,7 +217,7 @@
 +        DBSETLCHARSET(login, TDS_DEF_CHARSET);
      }
  
-@@ -2607,5 +2622,6 @@
+@@ -2607,5 +2634,6 @@
      if (SybProcs[hand].dbproc == NULL) {
  	Sybtcl_AppendObjResult (interp, CMD_STR,
 -	   ": sybconnect failed in dbopen", (char *) NULL);
@@ -92,21 +225,81 @@
 +	   " failed in dbopen", (char *) NULL);
  	return TCL_ERROR;
      }
-@@ -2909,5 +2925,5 @@
+@@ -2673,4 +2701,5 @@
+  */
+ 
++static int
+ Sybtcl_Money (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -2788,4 +2817,5 @@
+  */
+ 
++static int
+ Sybtcl_Use (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -2850,4 +2880,5 @@
+  */
+ 
++static int
+ Sybtcl_Sql (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -2909,5 +2940,5 @@
      if (SybProcs[hand].last_text != SybOptions[i].maxtext) {
  	SybProcs[hand].last_text = SybOptions[i].maxtext;
 -	sprintf(conv_buf,"%d",SybOptions[i].maxtext);
 +	sprintf(conv_buf,"%ld",SybOptions[i].maxtext);
  	dbsetopt(SybProcs[hand].dbproc, DBTEXTSIZE, conv_buf, -1);
  	dbsqlexec(SybProcs[hand].dbproc);  /* execute dbsetopt() */
-@@ -4190,5 +4206,5 @@
+@@ -3022,4 +3053,5 @@
+  */
+ 
++static int
+ Sybtcl_Poll (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -3551,4 +3583,5 @@
+  */
+ 
++static int
+ Sybtcl_Next (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -3819,4 +3852,5 @@
+  */
+ 
++static int
+ Sybtcl_Cols (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -3972,4 +4006,5 @@
+  */
+ 
++static int
+ Sybtcl_Cancel (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -4020,4 +4055,5 @@
+  */
+ 
++static int
+ Sybtcl_Retval (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -4091,4 +4127,5 @@
+  */
+ 
++static int
+ Sybtcl_Close (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -4167,4 +4204,5 @@
+  */
+ 
++static int
+ Sybtcl_Wrtext (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -4190,5 +4228,5 @@
      int      obj_parm;
      int      isvar = 0;
 -    Tcl_Channel fd;
 +    Tcl_Channel fd = NULL;
  #ifndef MAC_TCL
      struct stat stat_buf;		
-@@ -4305,5 +4321,6 @@
+@@ -4305,5 +4343,6 @@
      txtptr = dbtxptr(SybProcs[hand].dbproc,col);
      if (txtptr == NULL) {
 -        Tcl_Close (NULL,fd);
@@ -114,3 +307,36 @@
 +            Tcl_Close (NULL,fd);
          Sybtcl_AppendObjResult (interp, CMD_STR,
  	   ": dbtxptr failed ", (char *) NULL);
+@@ -4448,5 +4487,5 @@
+  */
+ 
+-
++static int
+ Sybtcl_Rdtext (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -4638,5 +4677,5 @@
+     int        mask;
+ {
+-    int         hand = (int) cd_hand;
++    int         hand = (int)(intptr_t)cd_hand;
+     Tcl_Interp *interp = SybProcs[hand].interp;
+     DBPROCESS  *readyproc;
+@@ -4754,5 +4793,5 @@
+  */
+ 
+-
++static int
+ Sybtcl_Event (clientData, interp, objc, objv)
+     ClientData   clientData;
+@@ -4791,9 +4830,9 @@
+                 /* create handler */
+                 Tcl_CreateChannelHandler(SybProcs[hand].sybChan, TCL_READABLE, 
+-    				    callback_handler, (ClientData) hand);
++    				    callback_handler, (ClientData)(intptr_t)hand);
+ 
+ #ifdef POLLED_EVENTS
+                 Tcl_CreateEventSource(dbSetupProc, dbCheckProc,
+-				(ClientData) hand);
++				(ClientData)(intptr_t)hand);
+ #endif
+