/[webpac]/openisis/current/tcl/oitsrc
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /openisis/current/tcl/oitsrc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 237 - (show annotations)
Mon Mar 8 17:43:12 2004 UTC (20 years ago) by dpavlin
File size: 308 byte(s)
initial import of openisis 0.9.0 vendor drop

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"

  ViewVC Help
Powered by ViewVC 1.1.26