From aebe147ae46e27127faa5c9d777de6b9ab822cc9 Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Mon, 30 May 2005 09:29:26 +0000
Subject: toxy alpha18 and pddp alpha2 (see notes.txt for toxy, pddp and
 shared)

svn path=/trunk/externals/miXed/; revision=3094
---
 pddp/pddpboot.tcl | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100755 pddp/pddpboot.tcl

(limited to 'pddp/pddpboot.tcl')

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
-}
-- 
cgit v1.2.1