Commit cb735156 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Brutal hackery to ensure that the startcmd (a program object) has a

well known name so you can control it via the usual event mechanisms
(ns "at" and tevc). Previously, its name came from an internal
counter, and because the routine that creates the program object is
not at "toplevel", the parser would not rename the object. I'm sure
someone who understands this cruft could do better!

Anyway, now they are named as ${vname}_startcmd.
parent e90983f3
......@@ -404,8 +404,9 @@ Node instproc add_routes_to_DB {DB} {
Node instproc start-command {command} {
$self instvar sim
set newname "${self}_startcmd"
set newprog [new Program $sim]
set newprog [uplevel 2 "set $newname [new Program $sim]"]
$newprog set node $self
$newprog set command $command
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment