From 9a89054847f5d17625a54fffdfdff15499c028c3 Mon Sep 17 00:00:00 2001
From: dvrsn <>
Date: Thu, 24 Dec 2009 19:50:34 +0000
Subject: [PATCH] enable use of ensemble commands in init scripts

---
 nsd/init.tcl | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/nsd/init.tcl b/nsd/init.tcl
index 4f26087..273d774 100644
--- a/nsd/init.tcl
+++ b/nsd/init.tcl
@@ -28,7 +28,7 @@
 #
 
 #
-# $Header: /Users/dossy/Desktop/cvs/aolserver/nsd/init.tcl,v 1.33 2006/04/13 19:06:28 jgdavidson Exp $
+# $Header: /Users/dossy/Desktop/cvs/aolserver/nsd/init.tcl,v 1.34 2009/12/24 19:50:34 dvrsn Exp $
 #
 
 #
@@ -432,6 +432,28 @@ proc _ns_getnamespaces {listVar {top "::"}} {
     }
 }
 
+#
+# _ns_genensemble -
+#
+#  if the passed command is an ensemble, returns a command 
+#  to recreate it
+#  otherwise, returns an empty string
+#
+
+if {[catch {package require Tcl 8.5}]} {
+    proc _ns_getensemble {cmd} {}
+} else {
+    proc _ns_getensemble {cmd} {
+        ::if {[::namespace ensemble exists $cmd]} {
+            ::array set _cfg [::namespace ensemble configure $cmd]
+            ::set _enns $_cfg(-namespace)
+            ::unset _cfg(-namespace)
+            ::set _encmd [::list namespace ensemble create -command $cmd {*}[::array get _cfg]]
+            return [::list namespace eval $_enns $_encmd]\n
+        }
+    }
+}
+
 
 #
 # _ns_getpackages -
@@ -546,6 +568,7 @@ proc _ns_getscript n {
                     && $_orig != [::namespace which -command $_cmnd]} {
                 ::append _import [::list namespace import -force $_orig] \n
             }
+	    ::append _import [_ns_getensemble $_cmnd]
         }