diff options
author | N.N. <krzyszcz@users.sourceforge.net> | 2005-05-30 09:29:26 +0000 |
---|---|---|
committer | N.N. <krzyszcz@users.sourceforge.net> | 2005-05-30 09:29:26 +0000 |
commit | aebe147ae46e27127faa5c9d777de6b9ab822cc9 (patch) | |
tree | 1885dbe1bd120a52b083679e89343c594128ed32 /pddp/pddpboot.tcl | |
parent | b4eb41d8deb2db9fd5182e6858484edff33a4d96 (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-x | pddp/pddpboot.tcl | 32 |
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 -} |