/[webpac]/openisis/current/tcl/test/test.tsp
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/test/test.tsp

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: 578 byte(s)
initial import of openisis 0.9.0 vendor drop

1 #!/opt/openisis/tcl/bin/tspr
2 <%--
3 test Tcl server page
4 $Id: test.tsp,v 1.2 2003/04/28 16:05:23 kripke Exp $
5 --%><%!
6 proc foo {bla} { # proc with embedded literals
7 !%>
8 foo: <b><%=bla%></b>
9 <%!
10 };#foo
11 %><%
12 # preset record
13 openIsisRec v
14 v add 24 Foo 25 bar^abaz
15 %><html>
16 <head>
17 </head>
18 <body>
19 hello ISIS!
20 this goes
21 <%
22 for {set i 1} {$i < 4} {incr i} {
23 %> <i><%=i%></i> <%
24 }
25 %>
26 HOME is <%=::env(HOME)%> <%-- variable --%>
27 2+2 is <%=expr 2+2%> <%-- command --%>
28 v24 is <%=24%> <%-- field --%>
29 <% foo bar %> <%-- procedure --%>
30 <%=request serialize%>
31 </body>
32 </html>

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26