tcl/test/test.tsp

#!/opt/openisis/tcl/bin/tspr
<%--
        test Tcl server page
        $Id: test.tsp,v 1.2 2003/04/28 16:05:23 kripke Exp $
--%><%!
        proc foo {bla} { # proc with embedded literals
!%>
        foo: <b><%=bla%></b>
<%!
        };#foo
%><%
        # preset record
        openIsisRec v
        v add 24 Foo 25 bar^abaz
%><html>
<head>
</head>
<body>
        hello ISIS!
        this goes
<%
        for {set i 1} {$i < 4} {incr i} {
%> <i><%=i%></i> <%
        }
%>
        HOME is <%=::env(HOME)%> <%-- variable --%>
        2+2 is <%=expr 2+2%> <%-- command --%>
        v24 is <%=24%> <%-- field --%>
        <% foo bar %> <%-- procedure --%>
        <%=request serialize%>
</body>
</html>
1	dpavlin	237	#!/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>