Annotation of /trunk/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	dpavlin	237	#!/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"