461ea1568f
- contrib/examples
+ examples
* doc/dirstruc.txt
* doc/whatsnew.txt
* examples/hbdoc/Makefile
* examples/pp/Makefile
* examples/hboleold/Makefile
* examples/hbsqlit2/Makefile
* examples/misc/Makefile
* examples/hbapollo/Makefile
* examples/rdddbt/Makefile
* examples/guestbk/Makefile
* examples/pe/Makefile
* examples/hbgf/hbgfwin/Makefile
* examples/hbgf/hbgfos2/Makefile
* examples/hbgf/hbgfgtk/Makefile
* examples/hbgf/Makefile
* examples/uhttpd/readme.txt
* examples/dbu/Makefile
* examples/hscript/Makefile
* examples/hbwhat/Makefile
* examples/rl/Makefile
* examples/Makefile
* Moved to flatten our dir layout and sync the locations
in unified distro and source tree.
; TODO: As a next step I'll replace Makefiles with .hbm
files. This will allow users to build these parts
outside the source distribution.
56 lines
695 B
Haskell
56 lines
695 B
Haskell
<%
|
|
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
*
|
|
* multiply.hs
|
|
* HarbourScript Test
|
|
*
|
|
* Written by Felipe Coury <fcoury@flexsys-ci.com>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
*/
|
|
|
|
FUNCTION Start()
|
|
|
|
LOCAL i, j
|
|
|
|
IF !empty( GetEnv( "SERVER_NAME" ) )
|
|
OutStd( "HTTP/1.0 200 OK" + chr(10) )
|
|
OutStd( "CONTENT-TYPE: TEXT/HTML" + chr(10) + chr(10) )
|
|
ENDIF
|
|
%>
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>Testing script</TITLE>
|
|
</HEAD>
|
|
|
|
<H1><% OutStd( "HarbourScript Test!" ) %></H1>
|
|
|
|
<BODY>
|
|
<%
|
|
FOR i := 1 TO 10
|
|
%>
|
|
<TABLE border=1>
|
|
<TR>
|
|
<%
|
|
FOR j := 1 TO 10
|
|
%>
|
|
<TR>
|
|
<TD><% OutStd( str( i, 2 ) + " x " + str( j, 2 ) ) %></TD>
|
|
<TD><% OutStd( i*j ) %></TD>
|
|
</TR>
|
|
<%
|
|
NEXT
|
|
%>
|
|
</TABLE>
|
|
<BR>
|
|
<%
|
|
NEXT
|
|
%>
|
|
</BODY>
|
|
|
|
</HTML>
|