From 210acd7bbc2262d74b6dec69673132cf17e0a1a0 Mon Sep 17 00:00:00 2001 From: "Leigh B. Stoller" Date: Wed, 25 May 2005 16:13:35 +0000 Subject: [PATCH] Add small elabinelab hack for Mike, allowing you to set tarfiles for inner boss and ops: namespace eval TBCOMPAT { set elabinelab_tarfiles("boss") "/usr/site /foo/silly.tar.gz" } Ditto for "ops". You can specify multiple tarfiles of course in the string, just as tb-set-node-tarfiles allows. --- tbsetup/ns2ir/elabinelab.ns | 37 ++++++++++++++++++++++++++++++++----- 1 file changed, 32 insertions(+), 5 deletions(-) diff --git a/tbsetup/ns2ir/elabinelab.ns b/tbsetup/ns2ir/elabinelab.ns index 7385faa4d..3247c24ab 100644 --- a/tbsetup/ns2ir/elabinelab.ns +++ b/tbsetup/ns2ir/elabinelab.ns @@ -34,6 +34,38 @@ if {[info exists ::TBCOMPAT::elabinelab_fixnodes("ops")]} { } } +# Deal with tarfiles +set myboss_tarfiles "" +set myops_tarfiles "" + +if {${::TBCOMPAT::elabinelab_source_tarfile} != ""} { + append myboss_tarfiles "/usr/src ${::TBCOMPAT::elabinelab_source_tarfile}" + append myops_tarfiles "/usr/src ${::TBCOMPAT::elabinelab_source_tarfile}" +} + +if {[info exists ::TBCOMPAT::elabinelab_tarfiles("boss")]} { + if {$myboss_tarfiles != ""} { + append myboss_tarfiles " " + } + namespace eval TBCOMPAT { + append myboss_tarfiles $elabinelab_tarfiles("boss") + } +} +if {[info exists ::TBCOMPAT::elabinelab_tarfiles("ops")]} { + if {$myops_tarfiles != ""} { + append myops_tarfiles " " + } + namespace eval TBCOMPAT { + append myops_tarfiles $elabinelab_tarfiles("ops") + } +} +if {$myboss_tarfiles != ""} { + tb-set-node-tarfiles $myboss $myboss_tarfiles +} +if {$myops_tarfiles != ""} { + tb-set-node-tarfiles $myops $myops_tarfiles +} + tb-make-soft-vtype pcslow {pc600 pc850} # @@ -47,11 +79,6 @@ if { ${::TBCOMPAT::elabinelab_maxpcs} != 0 } { set maxpcs 0 } -if { ${::TBCOMPAT::elabinelab_source_tarfile} != "" } { - tb-set-node-tarfiles $myboss /usr/src ${::TBCOMPAT::elabinelab_source_tarfile} - tb-set-node-tarfiles $myops /usr/src ${::TBCOMPAT::elabinelab_source_tarfile} -} - set lanstr "myboss myops " for {set i 1} {$i <= $maxpcs} {incr i} { set name "mypc${i}" -- GitLab