c0eadc80eb
* tests/*
* website/*
* dropped 'tst'/'ts'/'test' from most
filenames inside main 'tests' dir. 8 chars will
allow for more descriptive names than 4-5.
Some renamed to use the new space.
Similar ones will now be much close together
and easier to lookup in alphabetical order.
; NOTE: Perhaps a new distinction would be useful,
for those which are indeed tests for the
compiler or PP, f.e. these:
declare.prg, dupvars.prg, keywords.prg, linecont.prg,
lnlenli1.prg, lnlenli2.prg, pp.prg, pragma.prg, warnings.prg
; List of changes:
tests/ac_test.prg -> achoice.prg
tests/ac_test2.prg -> achoice2.prg
tests/adirtest.prg -> adir.prg
tests/ainstest.prg -> ains.prg
tests/tstalias.prg -> aliasrt.prg
tests/altdtest.prg -> altd.prg
tests/atest.prg -> array.prg
tests/tstasort.prg -> asort.prg
tests/boxtst2.prg -> box2.prg
tests/boxtest.prg -> box3.prg
tests/testbrdb.prg -> browse.prg
tests/tstblock.prg -> cblock.prg
tests/testcdx.prg -> cdx.prg
tests/tstchbx.prg -> checkbox.prg
tests/testcls.prg -> cls.prg
tests/tscmdarg.c -> cmdarg.c
tests/tstcolor.prg -> color.prg
tests/testcom1.prg -> com.prg
tests/cursrtst.prg -> cursor.prg
tests/dttest.prg -> datetime.prg
tests/dbevalts.prg -> dbeval.prg
tests/testdbf.prg -> dbf.prg
tests/tstdbi.prg -> dbi.prg
tests/debugtst.prg -> debug.prg
tests/testdecl.prg -> declare.prg
tests/testid.prg -> define.prg
tests/delimtst.prg -> delim.prg
tests/devtest.prg -> dev.prg
tests/dirtest.prg -> directry.prg
tests/tstdspac.prg -> diskspac.prg
tests/disptest.prg -> disp.prg
tests/testdyn.c -> dyn.c
tests/testdyn1.prg -> dyn.prg
tests/testdyn.prg -> dynwin.prg
tests/testerro.prg -> errsys.prg
tests/exittest.prg -> exit.prg
tests/iotest.prg -> fileio.prg
tests/iotest2.prg -> fileio2.prg
tests/fortest.prg -> for.prg
tests/testfor.prg -> for2.prg
tests/testget.prg -> get.prg
tests/tstgtapi.c -> gtapi.c
tests/gtstdtst.prg -> gtstd.prg
tests/hbdoctst.prg -> hbdoc.prg
tests/testhrb.prg -> hrb.prg
tests/hsxtest.prg -> hsx.prg
tests/testhtml.prg -> html.prg
tests/testidle.prg -> idle.prg
tests/testinit.prg -> initproc.prg
tests/inkeytst.prg -> inkey.prg
tests/testlbl.prg -> lbl.prg
tests/tstmacro.prg -> macro.prg
tests/mathtest.prg -> math.prg
tests/testmem.prg -> mem.prg
tests/memtst.prg -> memmgr.prg
tests/menutest.prg -> menuto.prg
tests/testmny.prg -> money.prg
tests/mousetst.prg -> mouse.prg
tests/testntx.prg -> ntx.prg
tests/testop.prg -> op.prg
tests/testpers.prg -> persist.prg
tests/testpp.prg -> pp.prg
tests/testpre.prg -> ppapi.prg
tests/tstprag.prg -> pragma.prg
tests/testprof.prg -> profiler.prg
tests/testrdd.prg -> rdd.prg
tests/testrdd2.prg -> rdd2.prg
tests/testread.prg -> read.prg
tests/regextst.prg -> regex2.prg
tests/testrpt.prg -> rpt.prg
tests/sbartest.prg -> sbar.prg
tests/sdf_test.prg -> sdf.prg
tests/set_test.prg -> set.prg
tests/videotst.prg -> setmode.prg
tests/testsha1.prg -> sha1.prg
tests/testsha2.prg -> sha2.prg
tests/teststr.prg -> str.prg
tests/testbrw.prg -> tbrowse.prg
tests/transtst.prg -> transfrm.prg
tests/tstuse.prg -> use.prg
tests/testvars.prg -> vars.prg
tests/vidtest.prg -> video.prg
tests/testwarn.prg -> warnings.prg
* tests/read.prg
* use K_* value
149 lines
4.1 KiB
HTML
149 lines
4.1 KiB
HTML
<!DOCTYPE html>
|
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
|
|
<head>
|
|
<meta charset="utf-8">
|
|
<script type="text/javascript" src="http://cdnjs.cloudflare.com/ajax/libs/xregexp/2.0.0/xregexp-min.js"></script>
|
|
<script type="text/javascript" src="http://cdnjs.cloudflare.com/ajax/libs/xregexp/2.0.0/backcompat.js"></script>
|
|
<script type="text/javascript" src="/js/shCore.js"></script>
|
|
<script type="text/javascript" src="/js/shBrushHarbour.js"></script>
|
|
<link href="/css/shCore.css" rel="stylesheet" type="text/css" />
|
|
<link href="/css/shThemeDefault.css" rel="stylesheet" type="text/css" />
|
|
<script type="text/javascript">SyntaxHighlighter.all()</script>
|
|
</head>
|
|
<body>
|
|
|
|
<script type="syntaxhighlighter" class="brush: harbour; light: true"><![CDATA[
|
|
|
|
/**
|
|
*
|
|
* Harbour Test of a HTML-Generator class.
|
|
*
|
|
* Tips: - Use ShowResults to make dynamic html (to test dynamic
|
|
* results, put the exe file on CGI-BIN dir or equivalent);
|
|
* - Use SaveToFile to make static html page
|
|
*
|
|
*/
|
|
|
|
#include "hbclass.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL oHTML := THtml():New()
|
|
|
|
oHTML:SetTitle( "Harbour Power Demonstration" )
|
|
oHTML:AddHead( "Harbour" )
|
|
oHTML:AddPara( "<b>Harbour</b> is xBase at its best. Have a taste today!", "LEFT" )
|
|
oHTML:AddPara( "<b>L i n k s</b>", "CENTER" )
|
|
oHTML:AddLink( "http://harbour-project.org", "Meet the Harbour power!" )
|
|
oHTML:Generate()
|
|
|
|
// Uncomment the following if you don't have a Web Server to test
|
|
// this sample
|
|
|
|
// oHTML:SaveToFile( "test.htm" )
|
|
|
|
// If the above is uncommented, you may comment this line:
|
|
|
|
oHTML:ShowResult()
|
|
|
|
RETURN
|
|
|
|
CREATE CLASS THTML
|
|
|
|
VAR cTitle // Page Title
|
|
VAR cBody // HTML Body Handler
|
|
VAR cBGColor // Background Color
|
|
VAR cLinkColor // Link Color
|
|
VAR cvLinkColor // Visited Link Color
|
|
VAR cContent // Page Content Handler
|
|
|
|
METHOD New() // New Method
|
|
METHOD SetTitle( cTitle ) // Set Page Title
|
|
METHOD AddLink( cLinkTo, cLinkName ) // Add <H1> Header
|
|
METHOD AddHead( cDescr ) // Add Hyperlink
|
|
METHOD AddPara( cPara, cAlign ) // Add Paragraph
|
|
METHOD Generate() // Generate HTML
|
|
METHOD ShowResult() // Saves Content to File
|
|
METHOD SaveToFile( cFile ) // Show Result
|
|
|
|
END CLASS
|
|
|
|
METHOD New() CLASS THTML
|
|
|
|
::cTitle := "Untitled"
|
|
::cBGColor := "#FFFFFF"
|
|
::cLinkColor := "#0000FF"
|
|
::cvLinkColor := "#FF0000"
|
|
::cContent := ""
|
|
::cBody := ""
|
|
|
|
RETURN Self
|
|
|
|
METHOD SetTitle( cTitle ) CLASS THTML
|
|
|
|
::cTitle := cTitle
|
|
|
|
RETURN Self
|
|
|
|
METHOD AddLink( cLinkTo, cLinkName ) CLASS THTML
|
|
|
|
::cBody += "<a href='" + cLinkTo + "'>" + cLinkName + "</a>"
|
|
|
|
RETURN Self
|
|
|
|
METHOD AddHead( cDescr ) CLASS THTML
|
|
|
|
// Why this doesn't work?
|
|
// ::cBody += ...
|
|
// ???
|
|
|
|
::cBody += "<h1>" + cDescr + "</h1>"
|
|
|
|
RETURN NIL
|
|
|
|
METHOD AddPara( cPara, cAlign ) CLASS THTML
|
|
|
|
hb_default( @cAlign, "Left" )
|
|
|
|
::cBody += ;
|
|
"<p align='" + cAlign + "'>" + hb_eol() + ;
|
|
cPara + hb_eol() + ;
|
|
"</p>"
|
|
|
|
RETURN Self
|
|
|
|
METHOD Generate() CLASS THTML
|
|
|
|
::cContent := ;
|
|
"<html><head>" + hb_eol() + ;
|
|
"<title>" + ::cTitle + "</title>" + hb_eol() + ;
|
|
"<body link='" + ::cLinkColor + "' " + ;
|
|
"vlink='" + ::cvLinkColor + "'>" + + hb_eol() + ;
|
|
::cBody + hb_eol() + ;
|
|
"</body></html>"
|
|
|
|
RETURN Self
|
|
|
|
METHOD ShowResult() CLASS THTML
|
|
|
|
OutStd( ;
|
|
;// "HTTP/1.0 200 OK" + hb_eol() + ;
|
|
"CONTENT-TYPE: TEXT/HTML" + hb_eol() + hb_eol() + ;
|
|
::cContent )
|
|
|
|
RETURN Self
|
|
|
|
METHOD SaveToFile( cFile ) CLASS THTML
|
|
|
|
LOCAL hFile := FCreate( cFile )
|
|
|
|
FWrite( hFile, ::cContent )
|
|
FClose( hFile )
|
|
|
|
RETURN Self
|
|
|
|
]]></script>
|
|
|
|
</body>
|
|
</html>
|