The first part of the NeoWebScript port I'm working on (hard).

The beast comes as part of one GIANT tarball including the
entire NeoWebScript as well as outdated Apache, gd, Tcl, itcl,
TclX, db-2 (no kidding!), etc.

This part is a set of general purpose commands and procedures,
which can be used (and appreciated) by regular TCL scripting --
not just web-oriented inside NWS.

This port is built without the available LDAP support -- our
openldap2 port used db3, but the db-support in NeoTcl only
works with db2. If some db-expert can send me a patch for the
neoXdb.c, the humanity will remember him/her forev^H^H a while.

5 files changed, 75 insertions, 0 deletions

diff --git a/devel/tcl-neo/files/Makefile.bsd b/devel/tcl-neo/files/Makefile.bsd
new file mode 100644
index 000000000000..5eadcd046d7c
--- /dev/null
+++ b/devel/tcl-neo/files/Makefile.bsd
@@ -0,0 +1,27 @@
+PREFIX?=	/usr/local
+
+NEO_LIBRARY?=	${PREFIX}/lib/neo8.2
+CFLAGS+=	-I${PREFIX}/include/tcl8.3 -I${PREFIX}/include
+CFLAGS+=	-DNEO_LIBRARY=\"${NEO_LIBRARY}\"
+CFLAGS+=	-DHAVE_TERMIOS_H -DHAVE_STDLIB_H -DHAVE_SYS_TIME_H -DHAVE_UNISTD_H
+CFLAGS+=	-DNEO_DB # -DDB_185_COMPAT -- seems broken :-(
+CFLAGS+=	-DNEOSOFT_TCL_ENCRYPTION -DCUTE
+# OpenLDAP requires db3, while the NEO_DB stuff works only with db2.
+# Disable NEO_LDAP until the NEW_DB is upgraded
+# CFLAGS+=	-DNEO_LDAP
+
+SRCS=		neoXcrypt.c neoPkgInit.c neoXwww.c neoXgeneral.c \
+		neoXcute.c neoXcomma.c neoXkdebug.c neoCbuf.c \
+		neoXlist.c neoXdb.c # neoXldap.c
+
+LIB=		neo82
+SHLIB_MAJOR=	1
+SHLIB_MINOR=	0
+INTERNALLIB=	Yes, don't need the static version
+NOPROFILE=	YES, don't need the profiled version
+
+LDADD+=		-lcrypt -L${PREFIX}/lib -ltcl83 -lm -lmd -ldb2 # -ldap -llber
+
+SHLIBDIR=	${PREFIX}/lib
+
+.include <bsd.lib.mk>
diff --git a/devel/tcl-neo/files/patch-config b/devel/tcl-neo/files/patch-config
new file mode 100644
index 000000000000..2f38094fa129
--- /dev/null
+++ b/devel/tcl-neo/files/patch-config
@@ -0,0 +1,4 @@
+--- neo.h	Thu Apr 20 09:16:00 2000
++++ neo.h	Thu Aug 16 20:53:17 2001
+@@ -21 +20,0 @@
+-#include "neoXconfig.h"
diff --git a/devel/tcl-neo/files/patch-cute b/devel/tcl-neo/files/patch-cute
new file mode 100644
index 000000000000..94378d9dfb37
--- /dev/null
+++ b/devel/tcl-neo/files/patch-cute
@@ -0,0 +1,7 @@
+--- neoXcute.c	Thu Apr 20 09:16:00 2000
++++ neoXcute.c	Fri Aug 17 00:23:11 2001
+@@ -98,3 +98,3 @@
+     fflush (stderr);
+-    panic ();
++    abort ();
+ }
diff --git a/devel/tcl-neo/files/patch-db b/devel/tcl-neo/files/patch-db
new file mode 100644
index 000000000000..60211d97b8e6
--- /dev/null
+++ b/devel/tcl-neo/files/patch-db
@@ -0,0 +1,10 @@
+--- neoXdb.c	Thu Apr 20 09:16:00 2000
++++ neoXdb.c	Thu Aug 16 21:03:06 2001
+@@ -31,5 +31,5 @@
+ #ifdef DB_185_COMPAT
+-#include <db_185.h>
++#include <db2/db_185.h>
+ #else
+-#include <db.h>
++#include <db2/db.h>
+ #endif
diff --git a/devel/tcl-neo/files/patch-md5 b/devel/tcl-neo/files/patch-md5
new file mode 100644
index 000000000000..439ae5d48267
--- /dev/null
+++ b/devel/tcl-neo/files/patch-md5
@@ -0,0 +1,27 @@
+Everybody and  their cat  try to  ship their  own implementation  of md5
+functions. Force FreeBSD's -lmd here.  Also, when creating the resulting
+string-object, use our  advanced knowledge, that all md5  digests are 32
+characters long.
+--- neoXgeneral.c	Thu Apr 20 09:16:01 2000
++++ neoXgeneral.c	Thu Aug 16 20:46:02 2001
+@@ -10,1 +10,2 @@
+-#include "util_md5.h"
++#include <sys/types.h>
++#include <md5.h>
+@@ -94,11 +95,13 @@
+ {
+     char *digest;
++    int length;
+  
+     if (objc != 2) {
+-        Tcl_SetResult(interp, "usage: md5 string", TCL_STATIC);
++        Tcl_WrongNumArgs(interp, 1, objv, "<string>");
+         return TCL_ERROR;
+     }
+-    digest = md5(Tcl_GetStringFromObj(objv[1], (int*)NULL));
+-    Tcl_SetObjResult(interp, Tcl_NewStringObj(digest, -1));
++    digest = Tcl_GetStringFromObj(objv[1], &length);
++    digest = MD5Data(digest, length, NULL);
++    Tcl_SetObjResult(interp, Tcl_NewStringObj(digest, 32));
+     return TCL_OK;
+ }