Changeset 1f82c01 in tol for tolsh/tolsh.vfs/lib/tolcomm

Timestamp:

Mar 15, 2010, 12:06:30 PM (17 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

fc9de2f

Parents:

13bedb1

Message:

refs#873: Improve TolServer process structure
Using diferent arrays, one for tasks and another for the slave's state

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2055 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tolsh/tolsh.vfs/lib/tolcomm

Files:

• tolserver.tcl (modified) (6 diffs)
• tolslave.tcl (modified) (7 diffs)

tolsh/tolsh.vfs/lib/tolcomm/tolserver.tcl

@@ -31 +31 @@
 }
 
-global shared_data
-set shared_data(request) ""
-set shared_data(init) ""
-set shared_data(server_init) 0
+global shared_tasks
+set shared_tasks(request) ""
+set shared_tasks(init) ""
+set shared_tasks(server_init) 0
+
+global shared_state
 
 ###############################################################################
@@ -445 +447 @@
 ###############################################################################
 proc ::tolserver::start { args } {
-  global shared_data
+  global shared_tasks
 
   array set options {
@@ -466 +468 @@
   server_attach_data
 
-  log "debug" "shared_data(init)=$options(-compile)"
-  set shared_data(init) $options(-compile)  
-  set shared_data(server_init) 1
+  log "debug" "shared_tasks(init)=$options(-compile)"
+  set shared_tasks(init) $options(-compile)  
+  set shared_tasks(server_init) 1
 }
 
 proc ::tolserver::server_attach_data {} {
   package require tequila
-  global shared_data
+  global shared_tasks
+  global shared_state
 
   tequila::open localhost 20458
-  tequila::attach shared_data
+  tequila::attach shared_tasks
+  tequila::attach shared_state
   
   # this trace is just for debbuging, it's not necesary actually
-  trace add var shared_data write tolserver::server_listen
+  trace add var shared_tasks write tolserver::server_listen_tasks
+  
+  # this trace is just for debbuging, it's not necesary actually
+  trace add var shared_state write tolserver::server_listen_state
 }    
 
-proc tolserver::server_listen {name index op} {
-  global shared_data
-
-  log "debug" "server_listen:index=$index"
-  log "debug" "[array get shared_data]"
+proc tolserver::server_listen_tasks {name index op} {
+  global shared_tasks
+
+  log "debug" "server_listen_tasks:index=$index"
+  log "debug" "[array get shared_tasks]"
+}
+
+proc tolserver::server_listen_state {name index op} {
+  global shared_state
+
+  log "debug" "server_listen_state:index=$index"
+  log "debug" "[array get shared_state]"
 }
 
@@ -544 +558 @@
 
 proc ::tolserver::dispatch_to_slave {} {
-  global shared_data
+  global shared_state
 
   log "debug" "enter dispatch_to_slave"
-  if {$shared_data(slave_status) ne "ready"} {
-    log "debug" "dispatch_to_slave: vwait shared_data(slave_status)"
-    vwait shared_data(slave_status)
+  if {$shared_state(slave) ne "ready"} {
+    log "debug" "dispatch_to_slave: vwait shared_state(slave)"
+    vwait shared_state(slave)
   }
   send_tasks_to_slave
@@ -556 +570 @@
 
 proc ::tolserver::send_tasks_to_slave {} {
-  global shared_data
+  #global shared_data
 
   log "debug" "enter send_tasks_to_slave"
   set t_list [get_queue_tasks]
-  set_queue_shared $t_list
+  if {[llength $t_list] != 0} {
+    set_queue_shared $t_list
+  }
   #if {$shared_data(ack) == 0} {
     #log "debug" "send_tasks_to_slave: vwait shared_data(ack)"
@@ -578 +594 @@
 
 proc ::tolserver::set_queue_shared {t_list} {
-  global shared_data
+  global shared_tasks
   
   log "debug" "set_queue_shared:t_list=$t_list"
-  set shared_data(request) $t_list
-}
+  set shared_tasks(request) $t_list
+}

tolsh/tolsh.vfs/lib/tolcomm/tolslave.tcl

@@ -25 +25 @@
 }
 
-global shared_data
+global shared_state
 #set shared_data(ack) 0
-set shared_data(slave_status) "busy"
+set shared_state(slave) "busy"
+
+global shared_tasks
 
 ###############################################################################
@@ -52 +54 @@
 ###############################################################################
 proc ::tolslave::start {args} {
-  global shared_data
+  global shared_state
+  global shared_tasks
 
   array set options {
@@ -76 +79 @@
   # Compile expression and tol file provided in the command line
   #
-  if {$shared_data(server_init) == 0} {
-    vwait shared_data(server_init)
+  if {$shared_tasks(server_init) == 0} {
+    vwait shared_tasks(server_init)
   }
-  foreach item $shared_data(init) {
+  foreach item $shared_tasks(init) {
     if {[lindex $item 0] eq "expr"} {
       log "debug" "tol::console eval,item=$item"
@@ -90 +93 @@
 
   #set shared_data(ack) 0
-  set shared_data(slave_status) "ready"
+  set shared_state(slave) "ready"
   log "debug" "leave start"
 }
 
 proc ::tolslave::slave_attach_data {} {
-  global shared_data
   package require tequila
+  global shared_state
+  global shared_tasks
 
   tequila::open localhost 20458
-  tequila::attach shared_data
-  #trace add var shared_data(request) write tolslave::slave_listen
-  trace add var shared_data write tolslave::slave_listen
+  tequila::attach shared_state
+  tequila::attach shared_tasks
+  
+  #trace add var shared_tasks(request) write tolslave::slave_listen_tasks
+  trace add var shared_tasks write tolslave::slave_listen_tasks
+  
+  # this trace is just for debbuging, it's not necesary actually
+  trace add var shared_state write tolslave::slave_listen_state
 }    
 
-proc tolslave::slave_listen {name index op} {
-  global shared_data
+proc tolslave::slave_listen_tasks {name index op} {
+  global shared_tasks
 
-  log "debug" "enter slave_listen:index=$index"
-  log "debug" "[array get ::shared_data]"
+  log "debug" "enter slave_listen_tasks:index=$index"
+  log "debug" "[array get ::shared_tasks]"
   #set shared_data(ack) 0
   if {$index eq "request"} {
     schedule_queue
   }
-  log "debug" "leave slave_listen"
+  log "debug" "leave slave_listen_tasks"
+}
+
+proc tolslave::slave_listen_state {name index op} {
+  global shared_state
+
+  log "debug" "slave_listen_state:index=$index"
+  log "debug" "[array get shared_state]"
 }
 
 proc ::tolslave::schedule_queue { } {
-  global shared_data
+  #global shared_data
 
   log "debug" "enter, schedule_queue"
@@ -128 +144 @@
 
 proc ::tolslave::get_queue_shared {} {
-  global shared_data
+  global shared_tasks
 
-  set t_list $shared_data(request)
+  set t_list $shared_tasks(request)
   log "debug" "get_queue_shared:t_list=$t_list"
   return $t_list
@@ -145 +161 @@
 proc ::tolslave::process_queue { } {
   variable data
-  global shared_data
+  global shared_state
 
   log "debug" "enter, process_queue"
 
-  set shared_data(slave_status) "busy"
+  set shared_state(slave) "busy"
   
   foreach item $data(queue,tasks) {
@@ -167 +183 @@
     }
   }
-  set shared_data(slave_status) "ready"
+  set shared_state(slave) "ready"
   #tequila::do GetAll shared_data
   log "debug" "leave, process_queue"