Contents of /trunk2/openisis/tcl/oitsrc

#!/usr/bin/tclsh
#       ^^^ shebang line only for vim to recognize the language :)
#
#       $Id: oitsrc,v 1.1 2003/03/26 13:36:18 kripke Exp $
#       sample oits startup file
#

proc oitscb {} {
        # puts "oitscb"
        request do tag val {
                puts "$tag $val"
                if { 0 <= $tag } { session add $tag $val }
        }
}

puts "oitsrc done"
1	#!/usr/bin/tclsh
2	# ^^^ shebang line only for vim to recognize the language :)
3	#
4	# $Id: oitsrc,v 1.1 2003/03/26 13:36:18 kripke Exp $
5	# sample oits startup file
6	#
7
8	proc oitscb {} {
9	# puts "oitscb"
10	request do tag val {
11	puts "$tag $val"
12	if { 0 <= $tag } { session add $tag $val }
13	}
14	}
15
16	puts "oitsrc done"