1 files changed, 160 insertions, 0 deletions
diff --git a/net/tcl-scotty/patches/patch-tnm_generic_tnmUtil.c b/net/tcl-scotty/patches/patch-tnm_generic_tnmUtil.c
new file mode 100644
index 00000000000..68516ced20d
--- /dev/null
+++ b/net/tcl-scotty/patches/patch-tnm_generic_tnmUtil.c
@@ -0,0 +1,160 @@
+$NetBSD: patch-tnm_generic_tnmUtil.c,v 1.1 2014/03/05 13:52:29 he Exp $
+
+Constify.
+Implement TnmCreateDirectory.
+
+--- tnm/generic/tnmUtil.c.orig	1999-03-08 08:42:26.000000000 +0000
++++ tnm/generic/tnmUtil.c
+@@ -70,7 +70,7 @@ TnmGetTableValue(table, key)
+ int
+ TnmGetTableKey(table, value)
+     TnmTable *table;
+-    char *value;
++    const char *value;
+ {
+     TnmTable *elemPtr;
+ 
+@@ -188,7 +188,7 @@ TnmSetConfig(interp, config, object, arg
+     TnmConfig *config;
+     ClientData object;
+     int argc;
+-    char **argv;
++    const char **argv;
+ {
+     int i, option, code;
+     TnmTable *elemPtr;
+@@ -274,7 +274,7 @@ TnmGetConfig(interp, config, object, arg
+     TnmConfig *config;
+     ClientData object;
+     int argc;
+-    char **argv;
++    const char **argv;
+ {
+     int option;
+     char *value;
+@@ -326,7 +326,7 @@ TnmGetConfig(interp, config, object, arg
+ int
+ TnmGetUnsigned(interp, string, intPtr)
+     Tcl_Interp *interp;
+-    char *string;
++    const char *string;
+     int *intPtr;
+ {
+     if (Tcl_GetInt(interp, string, intPtr) != TCL_OK) {
+@@ -361,7 +361,7 @@ TnmGetUnsigned(interp, string, intPtr)
+ int
+ TnmGetPositive(interp, string, intPtr)
+     Tcl_Interp *interp;
+-    char *string;
++    const char *string;
+     int *intPtr;
+ {
+     if (Tcl_GetInt(interp, string, intPtr) != TCL_OK) {
+@@ -400,7 +400,7 @@ TnmGetPositive(interp, string, intPtr)
+ int
+ TnmSetIPAddress(interp, host, addr)
+     Tcl_Interp *interp;
+-    char *host;
++    const char *host;
+     struct sockaddr_in *addr;
+ {
+     static Tcl_HashTable *hostTable = NULL;
+@@ -585,8 +585,8 @@ TnmGetIPName(interp, addr)
+ int
+ TnmSetIPPort(interp, protocol, port, addr)
+     Tcl_Interp *interp;
+-    char *protocol;
+-    char *port;
++    const char *protocol;
++    const char *port;
+     struct sockaddr_in* addr;
+ {
+     if (strcmp(protocol, "udp") != 0 && strcmp(protocol, "tcp") != 0) {
+@@ -642,7 +642,7 @@ TnmSetIPPort(interp, protocol, port, add
+ char *
+ TnmGetIPPort(interp, protocol, addr)
+     Tcl_Interp *interp;
+-    char *protocol;
++    const char *protocol;
+     struct sockaddr_in *addr;
+ {
+     struct servent *serv;
+@@ -697,9 +697,10 @@ TnmGetIPPort(interp, protocol, addr)
+ int
+ TnmValidateIpHostName(interp, name)
+     Tcl_Interp *interp;
+-    char *name;
++    const char *name;
+ {
+-    char *p = name, last = ' ';
++    const char *p = name;
++    char last = ' ';
+     int dots = 0, alpha = 0;
+ 
+     /*
+@@ -757,9 +758,9 @@ TnmValidateIpHostName(interp, name)
+ int
+ TnmValidateIpAddress(interp, address)
+     Tcl_Interp *interp;
+-    char *address;
++    const char *address;
+ {
+-    char *p = address;
++    const char *p = address;
+     unsigned dots = 0, a;
+ 
+     dots = 0;
+@@ -811,7 +812,7 @@ TnmValidateIpAddress(interp, address)
+ void
+ TnmWriteMessage(interp, msg)
+     Tcl_Interp *interp;
+-    char *msg;
++    const char *msg;
+ {
+     Tcl_DString buffer;
+     Tcl_Channel channel;
+@@ -833,6 +834,34 @@ TnmWriteMessage(interp, msg)
+ /*
+  *----------------------------------------------------------------------
+  *
++ * TnmCreateDirectory --
++ *
++ *	This procedure creates a directory.  The parent must already
++ *	exist.
++ *
++ * Results:
++ *	A standard Tcl result.
++ *
++ * Side effects:
++ *	Creates a directory in the file system.
++ *
++ *----------------------------------------------------------------------
++ */
++int
++TnmCreateDirectory(path)
++    const char *path;
++{
++    Tcl_Obj *po = Tcl_NewStringObj(path, -1);
++    Tcl_IncrRefCount(po);
++    int s = Tcl_FSCreateDirectory(po);
++    Tcl_DecrRefCount(po);
++    return s;
++}
++
++
++/*
++ *----------------------------------------------------------------------
++ *
+  * TnmMkDir --
+  *
+  *	This procedure creates a path of directories. This is largely
+@@ -854,7 +883,8 @@ TnmMkDir(interp, pathname)
+ {
+     Tcl_DString nameBuffer, targetBuffer;
+     int result, j, pargc;
+-    char *name, **pargv;
++    char *name;
++    const char **pargv;
+     struct stat statBuf;
+     
+     pargv = NULL;