72526bc283
* include/hbsetup.h
- Removed HOST_OS_UNIX_COMPATIBLE which was a misleading
alias for OS_UNIX_COMPATIBLE.
* source/compiler/hbcomp.c
% HOST_OS_UNIX_COMPATIBLE -> OS_UNIX_COMPATIBLE
* common.mak
* harbour-ce-spec
* make_xmingw.sh
* make_xmingwce.sh
* makefile.bc
* makefile.gc
* makefile.vc
* source/pp/Makefile
- source/pp/ppgen.c
+ source/pp/hbppgen.c
! executable ppgen renamed to hbppgen.
* samples/pe/editorlo.c
* samples/pe/pe.prg
+ samples/pe/bld_b32.bat
+ Added BCC build batch file.
! Fixed to compile under current Harbour.
! Fixed filename casing.
! Fixed several warnings (quite some signedness problem still remain).
; This is a very nice editor written in C (Harbour callable),
I think it is the work of Ryszard.
* samples/hscript/bld_b32.bat
* samples/hscript/hscript.prg
* samples/hscript/dir.hs
* samples/hscript/multiply.hs
* samples/hscript/ugly.hs
* samples/hscript/hello.hs
! Fixed build batch file.
! Fixed to use NFLib file IO rather than libmisc, because
latter was broken (it is a clone of the NFLib file IO).
! Fixed scripts to use Start instead of Main as an entry
point otherwise __hrbRun() got confused and called the
app Main().
! Fixed some other problems to make it run.
52 lines
679 B
Haskell
52 lines
679 B
Haskell
<%
|
|
/*
|
|
*
|
|
* 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>
|