netgen/ng/sockets.tcl

set sockets.serverport 0
set sockets.serverhost "localhost"
set sockets.serverlistbox 0
set sockets.queuelistbox 0
set sockets.currentjoblistbox 0
set sockets.answerlistbox 0
set sockets.myidlabel -1


proc updateserverlist { } {
    global sockets.serverlistbox
    
    set retval [Ng_Socket getserverlist]

    ${sockets.serverlistbox} delete 0 end

    for {set i 0} {$i < [llength $retval]} {incr i 3} {
	${sockets.serverlistbox} insert end \
	    [format "%-16s   %6i   %6i" [lindex $retval $i] [lindex $retval [expr $i+1]] [lindex $retval [expr $i+2]]]
    }
}

proc clientsocketdialog { } {
    set w .clientsock_dlg
    
    if {[winfo exists .clientsock_dlg] == 1} {
	wm withdraw $w
	wm deiconify $w
	focus $w 
    } {
	toplevel $w

	global sockets.serverhost
	global sockets.serverport

	frame $w.general
	frame $w.host
	label $w.host.lab -text "Serverhost: "
	entry $w.host.name -width 30 -relief sunken -textvariable sockets.serverhost

	pack $w.host.lab $w.host.name -side left
	pack $w.host

	frame $w.ports
	label $w.ports.lab1 -text "Serverport: "
	entry $w.ports.statport -width 6 -relief sunken -textvariable sockets.serverport
	
	pack $w.ports.lab1 $w.ports.statport -side left
	pack $w.ports

	frame $w.listboxes

	frame $w.listboxes.choosesocketframe

	tixScrolledListBox $w.listboxes.choosesocketframe.choosesocket -scrollbar auto

	global sockets.serverlistbox

	set sockets.serverlistbox [$w.listboxes.choosesocketframe.choosesocket subwidget listbox]

	${sockets.serverlistbox} configure -width 35
	${sockets.serverlistbox} configure -selectmode browse
	${sockets.serverlistbox} configure -exportselection false

	button $w.addserver -text "Add ServerSocket" -command {
	    Ng_Socket addserver ${sockets.serverport} ${sockets.serverhost}
	    updateserverlist
	}
	
	pack $w.addserver

	label $w.linefeed -text "\n"
	pack $w.linefeed
	
	frame $w.clientidframe
	label $w.clientidframe.lab -text "Client ID: ";
	global sockets.myidlabel
	entry $w.clientidframe.val -width 5 -relief sunken -textvariable sockets.myidlabel
	button $w.clientidframe.but -text "Set" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		Ng_Socket setid $opserver ${sockets.myidlabel}
		updateserverlist
	    }
	}

	pack $w.clientidframe.lab $w.clientidframe.val $w.clientidframe.but -side left
	pack $w.clientidframe


#	label $w.clientidlabel -text "\nClient ID: -1"
#	global sockets.myidlabel
#	set sockets.myidlabel $w.clientidlabel
#	pack $w.clientidlabel


	label $w.listboxes.choosesocketframe.chooselab -text [format "\n\n%-16s    %6s  %6s                       " Host Socket MyID ]
	pack $w.listboxes.choosesocketframe.chooselab
	pack $w.listboxes.choosesocketframe.choosesocket

	frame $w.listboxes.choosesocketframe.serverbuttons

	button $w.listboxes.choosesocketframe.serverbuttons.save -text "Save" -command {
	    Ng_Socket saveserverlist
	}

	global sockets.serverlist
	Ng_Socket loadserverlist
	updateserverlist

	button $w.listboxes.choosesocketframe.serverbuttons.delete -text "Delete" -command {
	   set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		Ng_Socket deletesocket [lindex $opsel 0]
		updateserverlist
	    } 
	}
	
	pack $w.listboxes.choosesocketframe.serverbuttons.save $w.listboxes.choosesocketframe.serverbuttons.delete -side left
	pack $w.listboxes.choosesocketframe.serverbuttons

	frame $w.listboxes.statusframe

	label $w.listboxes.statusframe.statuslabel1 -text "\n\njobqueue"

	tixScrolledListBox $w.listboxes.statusframe.queuestatus -scrollbar auto

	label $w.listboxes.statusframe.statuslabel2 -text "\ncurrent job"

	tixScrolledListBox $w.listboxes.statusframe.currentjobstatus -scrollbar auto

	label $w.listboxes.statusframe.statuslabel3 -text "\nanswers"

	tixScrolledListBox $w.listboxes.statusframe.answers -scrollbar auto

	global sockets.queuelistbox
	global sockets.currentjoblistbox
	global sockets.answerlistbox

	set sockets.queuelistbox [$w.listboxes.statusframe.queuestatus subwidget listbox]
	set sockets.currentjoblistbox [$w.listboxes.statusframe.currentjobstatus subwidget listbox]
	set sockets.answerlistbox [$w.listboxes.statusframe.answers subwidget listbox]

	${sockets.queuelistbox} configure -width 50
	${sockets.queuelistbox} configure -height 5
	${sockets.queuelistbox} configure -selectmode browse
	${sockets.queuelistbox} configure -exportselection false
	
	${sockets.currentjoblistbox} configure -width 50
	${sockets.currentjoblistbox} configure -height 1
	${sockets.currentjoblistbox} configure -selectmode browse
	${sockets.currentjoblistbox} configure -exportselection false

	${sockets.answerlistbox} configure -width 50
	${sockets.answerlistbox} configure -height 5
	${sockets.answerlistbox} configure -selectmode browse
	${sockets.answerlistbox} configure -exportselection false

	button $w.listboxes.statusframe.updatebutton -text "Update" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [Ng_Socket sendqueuestatus $opserver]

		${sockets.queuelistbox} delete 0 end
		
		if {[lindex $retval 0] > 0} {
		    ${sockets.queuelistbox} insert end [format "Blocked for user %i" [lindex $retval 0]]
		} {
		    ${sockets.queuelistbox} insert end "Not blocked"
		}
		
		for {set i 2} {$i < [expr 2*[lindex $retval 1]+2]} {incr i 2} {
		    ${sockets.queuelistbox} insert end [format "client %i, command %s" [lindex $retval $i] [lindex $retval [expr $i+1]]]
		}
		
		${sockets.answerlistbox} delete 0 end
		
		for {set i [expr 2*[lindex $retval 1]+3]} {$i < [llength $retval]} {incr i 2} {
		    ${sockets.answerlistbox} insert end [format "client %i, command %s" [lindex $retval $i] [lindex $retval [expr $i+1]]]
		}

		${sockets.currentjoblistbox} delete 0 end
		set retval [Ng_Socket sendjobstatus $opserver]
		if {[lindex $retval 0] != 0} {
		    ${sockets.currentjoblistbox} insert end [format "client %i, command %s: %s" [lindex $retval 0] [lindex $retval 1] [lrange $retval 2 end]]
		}
		
	    }
	}

	pack $w.listboxes.statusframe.statuslabel1 $w.listboxes.statusframe.queuestatus \
	    $w.listboxes.statusframe.statuslabel2 $w.listboxes.statusframe.currentjobstatus \
	    $w.listboxes.statusframe.statuslabel3 $w.listboxes.statusframe.answers \
	    $w.listboxes.statusframe.updatebutton

	pack $w.listboxes.choosesocketframe $w.listboxes.statusframe -side left
	
	pack $w.listboxes

	label $w.lab1 -text "\n"
	pack $w.lab1


	frame $w.buttons1
	frame $w.buttons2
	
	button $w.buttons1.getid -text "Get ID" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [Ng_Socket getid $opserver]
		updateserverlist
		set sockets.myidlabel $retval
	    }
	}

	button $w.buttons1.killjob -text "Kill Cur. Job" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		Ng_Socket killcurrentjob $opserver
	    }
	}

	button $w.buttons2.sendmesh -text "Send Mesh" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [Ng_Socket sendmesh $opserver]
		set sockets.meshsent 1
	    }
	}

	button $w.buttons2.sendpde -text "Send PDE" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [NGS_Socket sendpdefile $opserver]
	    }
	}

	button $w.buttons2.solvepde -text "Solve PDE" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [NGS_Socket solvepde $opserver]
	    }
	}

	button $w.buttons2.writesol -text "Write Solution" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [NGS_Socket writesolution $opserver]
	    }
	}

	button $w.buttons2.sendsol -text "Receive Solution" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [NGS_Socket sendsolution $opserver]
	    }
	}

	button $w.buttons1.blockserver -text "Block Server" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [Ng_Socket blockserver $opserver]
	    }
	}

	button $w.buttons1.unblockserver -text "UnBlock Server" -command {
	    set opsel [${sockets.serverlistbox} curselection]
	    if {[llength $opsel] > 0} {
		set opserver [lindex $opsel 0]
		set retval [Ng_Socket unblockserver $opserver]
	    }
	}

	
	pack $w.buttons1.getid $w.buttons1.blockserver $w.buttons1.unblockserver $w.buttons1.killjob -side left
	pack $w.buttons2.sendmesh $w.buttons2.sendpde $w.buttons2.solvepde $w.buttons2.writesol $w.buttons2.sendsol -side left

	pack $w.buttons1 $w.buttons2


	wm withdraw $w
	wm geom $w +200+200
	wm deiconify $w
	wm title $w "Client Socket"
	focus .options_dlg

    }
    

}

.ngmenu.special add command -label "Client Socket" \
    -command { clientsocketdialog }