Parent Directory | Revision Log
initial import of openisis 0.9.0 vendor drop
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" |
ViewVC Help | |
Powered by ViewVC 1.1.26 |