aboutsummaryrefslogtreecommitdiff
path: root/pddp/pddpboot.tcl
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2005-05-30 09:29:26 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2005-05-30 09:29:26 +0000
commitaebe147ae46e27127faa5c9d777de6b9ab822cc9 (patch)
tree1885dbe1bd120a52b083679e89343c594128ed32 /pddp/pddpboot.tcl
parentb4eb41d8deb2db9fd5182e6858484edff33a4d96 (diff)
toxy alpha18 and pddp alpha2 (see notes.txt for toxy, pddp and shared)
svn path=/trunk/externals/miXed/; revision=3094
Diffstat (limited to 'pddp/pddpboot.tcl')
-rwxr-xr-xpddp/pddpboot.tcl32
1 files changed, 0 insertions, 32 deletions
diff --git a/pddp/pddpboot.tcl b/pddp/pddpboot.tcl
deleted file mode 100755
index 3cec684..0000000
--- a/pddp/pddpboot.tcl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/bin/sh
-# \
-exec tclsh "$0" -- "$@"
-
-# Synopsis
-# test run:
-# ./pddpboot.tcl [root [port [path]]]
-# from Pd:
-# source pddpboot.tcl
-# ::pddp::srvUse root (or ::pddp::srvStart root [port])
-# ::pddp::cliOpen path
-# ... (more "::pddp::cliOpen" calls) ...
-# ::pddp::srvStop
-
-if {[namespace exists ::pddp]} { ;# created by pddplink's setup
- puts stderr "Booting pddp"
- set ::pddp::testrun 0
-} else {
- puts stderr "Booting pddp, test run..."
- namespace eval ::pddp { variable testrun 1 }
-}
-
-puts stderr "current directory: [pwd]"
-
-source pddpclient.tcl
-source pddpserver.tcl
-
-if {[info exists ::pddp::theDir]} {
- puts stderr "restoring directory: $::pddp::theDir"
- cd $::pddp::theDir
- unset ::pddp::theDir
-}