Parent Directory | Revision Log
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 |