fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See changelog 20000222 07:30 gmt -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2000-02-22 09:32:08 +00:00
parent ec7392f320
commit 92071045cd
14 changed files with 681 additions and 709 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/ChangeLog
View File

@@ -1,3 +1,21 @@
20000222-07:30 GMT-3 Luiz Rafael Culik <culik@sl.conex.net>
*doc/harbext.txt
*Small changes
*source/rtl/filesys.c
*Finish rewriting docs stolen from Clipper Ng
*source/rtl/strings.c
*source/rtl/oemansi.c
*source/rtl/tlabel.prg
*source/rtl/treport.prg
+ Add missing copyrigth for the docs
*source/rdd/dbcmd.c
*small changes to the docs
*source/tools/html.prg
*Changed to generate the new HTML template
*utils/hbdoc/genhtm.prg
*utils/hbdoc/hbdoc.prg
*Changed to generate the new HTML template output
2000-02-21 15:45 GMT-5 David G. Holm <dholm@ sd-llc.com>
* config/rules.cf
* config/w32/bcc32.cf

2
harbour/bin/bld_b32.bat
View File

@@ -4,5 +4,5 @@ rem $Id$
rem
..\bin\harbour %1 %2 %3 /n /i..\include
bcc32 %1.c -e%1.exe -O2 -I..\include -L..\lib\b32 common.lib dbfcdx.lib dbfntx.lib debug.lib harbour.lib pp.lib macro.lib runner.lib terminal.lib tools.lib
bcc32 %1.c -e%1.exe -5 -O2 -I..\include -L..\lib\b32 common.lib dbfcdx.lib dbfntx.lib debug.lib harbour.lib pp.lib macro.lib runner.lib terminal.lib tools.lib
rem del %1.c

2
harbour/bin/bld_b32w.bat
View File

@@ -4,5 +4,5 @@ rem $Id$
rem
..\bin\harbour %1 %2 %3 /n /i..\include
bcc32 %1.c -e%1.exe -O2 -I..\include -L..\lib\b32 -tW common.lib dbfcdx.lib dbfntx.lib debug.lib harbour.lib pp.lib macro.lib runner.lib terminal.lib tools.lib
bcc32 %1.c -e%1.exe -O2 -I..\include -L..\lib\b32 -5 -tW common.lib dbfcdx.lib dbfntx.lib debug.lib harbour.lib pp.lib macro.lib runner.lib terminal.lib tools.lib
rem del %1.c

119
harbour/doc/harbext.txt
View File

@@ -1,59 +1,68 @@
/*
* $Id$
*/
Language extensions:
--------------------
* Class generation and management.
Clipper only allowed creation of objects from a few standard
classes.
In Harbour, you can create your own classes--complete with
Methods, Instance Variables, Class Variables and Inheritance.
Entire applications can be designed and coded in Object Oriented
style.
* @<FunctionName>()
Returns the pointer (address) to a function.
The returned value is not useful to application-level programming, but
is used at a low level to implement object oriented coding.
(Internally, a class method is a static function and there is no
symbol for it, so it is accessed via its address).
* Class TGetList
Object oriented support for GetLists management.
* ProcName() support for class Method names.
Class Methods can be retrieved from the call stack.
* Memory() has new return values.
See hbmemory.ch
* Transform() --> new function in format string
@0 Make a zero padded string out of the number.
* Optional Compile Time STRONG TYPE declaration (and compile time TYPE
MISMATCH warnings)
Example: LOCAL/STATIC Var AS ...
* The Harbour debugger provides new interesting classes:
- Class TDbWindow could be the foundation for a generic multiplatform
- Class TForm
- Class TDbMenu implement both pulldown and popup menus.
RTL enhanced functionality:
---------------------------
- Directory( <cMask>, <cFlags>, <lEightDotThree> )
The 3rd parameter is a Harbour (optional) parameter and indicates that on
those platforms that support long filenames, that you wish to receive what
would be considered the dos equivalant 8.3 name.
Could affect Adir() and Dir if they were modified to take advantage
of it - currently, they will return long names if the os supports it.
/* $DOC$
* $FUNCNAME$
* Harbour Extensions
* $CATEGORY$
* Document
* $ONELINER$
* Harbour Extensions
* $DESCRIPTION$
*Language extensions:
*--------------------
*
** Class generation and management.
*
* Clipper only allowed creation of objects from a few standard
* classes.
* In Harbour, you can create your own classes--complete with
* Methods, Instance Variables, Class Variables and Inheritance.
* Entire applications can be designed and coded in Object Oriented
* style.
*
** @<FunctionName>()
* Returns the pointer (address) to a function.
*
* The returned value is not useful to application-level programming, but
* is used at a low level to implement object oriented coding.
* (Internally, a class method is a static function and there is no
* symbol for it, so it is accessed via its address).
*
** Class TGetList
* Object oriented support for GetLists management.
*
** ProcName() support for class Method names.
* Class Methods can be retrieved from the call stack.
*
** Memory() has new return values.
* See hbmemory.ch
*
** Transform() --> new function in format string
* @0 Make a zero padded string out of the number.
*
** Optional Compile Time STRONG TYPE declaration (and compile time TYPE
* MISMATCH warnings)
*
* Example: LOCAL/STATIC Var AS ...
*
** The Harbour debugger provides new interesting classes:
* - Class TDbWindow could be the foundation for a generic multiplatform
* - Class TForm
* - Class TDbMenu implement both pulldown and popup menus.
*
*
*
*RTL enhanced functionality:
*---------------------------
*
*- Directory( <cMask>, <cFlags>, <lEightDotThree> )
* The 3rd parameter is a Harbour (optional) parameter and indicates that on
* those platforms that support long filenames, that you wish to receive what
* would be considered the dos equivalant 8.3 name.
* Could affect Adir() and Dir if they were modified to take advantage
* of it - currently, they will return long names if the os supports it.
*
** $END$
*/

33
harbour/source/rdd/dbcmd.c
View File

@@ -4242,29 +4242,16 @@ HARBOUR HB_DBUSEAREA( void )
* $RETURNS$
*
* $DESCRIPTION$
* ZAP is a database command that permanently removes all records from
* files open in the current work area. This includes the current database
* file, index files, and associated memo file. Disk space previously
* occupied by the ZAPped files is released to the operating system. ZAP
* performs the same operation as DELETE ALL followed by PACK but is almost
* instantaneous.
*
* To ZAP in a network environment, the current database file must be USEd
* EXCLUSIVEly.
*
* This command removes all of the records from the database in the
* current work area.This operation also updates any index file in
* use at the time of this operation.In addition, this command removes
* all items within an associated memo file.
* In a network enviroment,any file that is about to be ZAPped must
* be used exclusively.
* $EXAMPLES$
* This example demonstrates a typical ZAP operation in a network
* environment:
*
* USE Sales EXCLUSIVE NEW
* IF !NETERR()
* SET INDEX TO Sales, Branch, Salesman
* ZAP
* CLOSE Sales
* ELSE
* ? "Zap operation failed"
* BREAK
* ENDIF
* USE Tests NEW index Tests
* ZAP
* USE
* $TESTS$
*
* $STATUS$
@@ -4272,7 +4259,7 @@ HARBOUR HB_DBUSEAREA( void )
* $COMPLIANCE$
*
* $SEEALSO$
*
* DELETE,PACK,USE
* $INCLUDE$
*
* $END$

883
harbour/source/rtl/filesys.c
View File

File diff suppressed because it is too large Load Diff

10
harbour/source/rtl/oemansi.c
View File

@@ -33,6 +33,16 @@
*
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
*
* HB_OEMTOANSI() Documentation
* HB_ANSITOOEM() Documentation
*
*/
/* NOTE: These are Win32 specific, for other platforms it will return the
passed parameter unchanged. */

11
harbour/source/rtl/strings.c
View File

@@ -45,6 +45,17 @@
* hb_strMatchDOS()
* HB_STRZERO()
* hb_strnicmp()
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
* ISALPHA() Documentation
* ISDIGIT() Documentation
* ISUPPER() Documentation
* ISLOWER() Documentation
* LTRIM() Documentation
* AT() Documentation
* RAT() Documentation
* LEFT() Documentation
* RIGHT() Documentation
* SUBSTR() Documentation
*
* See doc/license.txt for licensing terms.
*

10
harbour/source/rtl/tlabel.prg
View File

@@ -33,6 +33,16 @@
*
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
*
* LABEL COMMAND Documentation
*
*/
#include "hbclass.ch"
#include "hbrptlbl.ch"
#include "error.ch"

11
harbour/source/rtl/treport.prg
View File

@@ -33,6 +33,17 @@
*
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
*
* REPORT COMMAND Documentation
*
*/
#include "hbclass.ch"
#include "hbrptlbl.ch"
#include "error.ch"

76
harbour/source/tools/html.prg
View File

@@ -70,7 +70,7 @@ RETURN Self
METHOD WriteTitle( cTitle ) CLASS THTML
FWRITE( Self:nHandle, "<TITLE>" + CRLF + cTitle + CRLF + "</Title>" + CRLF + '<LINK Rel=StyleSheet href="harbour.css">'+CRLF+'<body bgcolor="#FFFFFF">' + CRLF )
FWRITE( Self:nHandle, "<TITLE>" + CRLF + cTitle + CRLF + "</Title>" + CRLF +'</HEAD>'+CRLF+'<body bgcolor="#FFFFFF">' + CRLF )
RETURN Self
@@ -78,18 +78,18 @@ METHOD WritePar( cPar ) CLASS THTML
cPar:=STRTRAN(cPar,"<","&lt;")
cPar:=STRTRAN(cPar,">","&gt;")
FWRITE( Self:nHandle, "<p>" + Alltrim(cPar) + '</p>' + CRLF )
FWRITE( Self:nHandle, '<dd>' + Alltrim(cPar) + '</dd>' + CRLF )
RETURN Self
METHOD WriteText( cPar ) CLASS THTML
FWRITE( Self:nHandle, "<p>" + Alltrim(cPar) + '</p>' + CRLF )
FWRITE( Self:nHandle, cPar + CRLF )
RETURN Self
METHOD WriteParBold( cPar ) CLASS THTML
FWRITE( Self:nHandle, "<p><b>" + Alltrim(cPar) + '</b></p>' + CRLF )
FWRITE( Self:nHandle, "</DL>"+CRLF+"<DL>"+CRLF+"<dt><b>" + Alltrim(cPar) + '</b></dt>' + CRLF )
RETURN Self
@@ -116,61 +116,63 @@ METHOD WriteLink( cLink ,cName ) CLASS THTML
cLink:=cName
ENDIF
FWRITE( Self:nHandle, "<p><a href=" + Lower(cTemp) + ">" + cLink + "</a></p>" + CRLF )
FWRITE( Self:nHandle, "<LI><a href=" + Lower(cTemp) + ">" + cLink + "</a></LI>" + CRLF )
RETURN Self
/* $DOC$
* $FUNCNAME$
* THtml()
* THtml()
* $CATEGORY$
* Harbour Tools
* Harbour Tools
* $ONELINER$
* Html Class
* Html Class
* $SYNTAX$
* oHtml:=THtml():New(<cFile>)
* oHtml:=THtml():New(<cFile>)
* $ARGUMENTS$
* <cFile> Name of the Html file to create
* <cFile> Name of the Html file to create
* $RETURNS$
* An instance of the THtml Class
* An instance of the THtml Class
* $DESCRIPTION$
* THtml() is a class that create an .html file output of the same
* name you pass to the constructor.
* The class methods are as follows:
* New(<cFile>) Create a new instance of the THtml class.
* Close() Close the create file
* WriteTitle(<cTitle>) Write the file title
* WritePar(<cPar>) Writes a paragrafer
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold style.
* WriteLink(<cLink>,<cName>) Write a link to another topic
* WriteText(<cText>) Write any text
* THtml() is a class that creates an .html file of the same
* name you pass to the constructor.
* The class methods are as follows:
* New(<cFile>) Create a new instance of the THtml class
* Close() Close the created file
* WriteTitle(<cTitle>) Write the file title
* WritePar(<cPar>) Writes a paragraph
* WriteParBold(<cPar>) Same as WritePar(), but the text is bold
* WriteLink(<cLink>,<cName>) Write a link to another topic
* WriteText(<cText>) Write any text
* $EXAMPLES$
* FUNCTION MAIN()
* FUNCTION MAIN()
*
* LOCAL oHtm
* LOCAL oHtm
*
* oHtm := THTML():New( "www\harbour.html" )
* oHtm:WriteTitle( "Harbour Reference Guide" )
* oHtm:WritePar( "HARBOUR" )
* oHtm:WriteLink( "OverView" )
* oHtm:WriteLink( "License" )
* oHtm:WriteLink( "http://www.gnu.org/copyleft/gpl" )
* oHtm:WritePar( "See the Links Above" )
* oHtm:Close()
* RETURN Nil
* oHtm := THTML():New( "www\harbour.html" )
* oHtm:WriteTitle( "Harbour Reference Guide" )
* oHtm:WritePar( "HARBOUR" )
* oHtm:WriteLink( "OverView" )
* oHtm:WriteLink( "License" )
* oHtm:WriteLink( "http://www.gnu.org/copyleft/gpl" )
* oHtm:WritePar( "See the Links Above" )
* oHtm:Close()
* RETURN Nil
*
* $TESTS$
*
* $STATUS$
* R
* R
* $COMPLIANCE$
* This is a new Harbour Tools class
* This is a new Harbour Tools class
* $PLATFORMS$
* ALL
* ALL
* $FILES$
*
* $SEEALSO$
* TCLASS()
* TCLASS()
* $END$
*/

4
harbour/utils/hbdoc/genhtm.bat
View File

@@ -3,6 +3,6 @@ rem
rem $Id$
rem
hbdoc -htm categ.lnk hrbtools.rsp
cd htm
hbdoc -htm categ.lnk hrb.rsp
rem cd htm
rem start harbour.htm

184
harbour/utils/hbdoc/genhtm.prg
View File

@@ -80,6 +80,7 @@ FUNCTION ProcessWww()
#define D_INCLUDE 6
#define D_ONELINE 7
#define D_STATUS 8
#define D_EXAMPLE 9
LOCAL i
LOCAL j
LOCAL nFiles := LEN( aDirList )
@@ -100,6 +101,13 @@ FUNCTION ProcessWww()
LOCAL cSeeAlso
LOCAL cTemp
LOCAL cChar
LOCAL nPos
LOCAL lFirstArg := .T.
LOCAL lAddEndPreTag := .T.
LOCAL lEndDesc := .F.
LOCAL lEndArgs :=.F.
LOCAL lEndSyntax := .F.
LOCAL lEndReturns := .F.
LOCAL lBlankLine := .F. // Blank line encountered and sent out
LOCAL lAddBlank := .F. // Need to add a blank line if next line is not blank
LOCAL oHtm
@@ -132,7 +140,7 @@ FUNCTION ProcessWww()
@ INFILELINE, 20 SAY "Extracting: "
@ MODULELINE, 20 SAY "Documenting: "
// loop through all of the files
lFirstArg:=.T.
FOR i := 1 TO nFiles
// Open file for input
@@ -197,10 +205,13 @@ FUNCTION ProcessWww()
// Now close down this little piece
lDoc := .F.
IF .NOT. EMPTY( cSeeAlso )
oHtm:WritePar( "See Also " )
ProcWwwalso( oHtm, cSeealso )
ENDIF
oHtm:WriteParBold( "See Also " )
oHtm:WriteText("<UL>")
ProcWwwalso( oHtm, cSeealso )
oHtm:WriteText("</UL>")
ENDIF
oHtm:WriteText("</DL>")
oHtm:Close()
nMode := D_IGNORE
ENDIF
@@ -292,10 +303,9 @@ FUNCTION ProcessWww()
nMode := D_ONELINE
// Now start writing out what we know
oHtm:WriteTitle( PAD( cFuncName, 21 ) )
AADD( aWWW,{ cFuncName,LEFT(cFileName,AT(".",cFileName)-1)} )
oHtm:WriteParBold( cOneLine )
oHtm:WritePar( cBar )
oHtm:WriteText("<H1>"+ alltrim(PAD( cFuncName, 21 )) + "</H1>")
AADD( aWWW,{ cFuncName+" "+UPPERLOWER(cOneLine),LEFT(cFileName,AT(".",cFileName)-1)} )
oHtm:WriteText("<p>"+cOneline+"</p>"+ hb_osnewline())
// 4) all other stuff
ELSE
@@ -303,102 +313,151 @@ FUNCTION ProcessWww()
IF AT( cSyn, cBuffer ) > 0
oHtm:WriteParBold( " Syntax" )
ohtm:WriteText('<DD><P>')
nMode := D_SYNTAX
lAddBlank := .T.
lEndSyntax := .T.
ELSEIF AT( cArg, cBuffer ) > 0
if lEndSyntax
lEndSyntax:=.f.
oHtm:WriteText("</P></dd>")
/* oHtm:WriteText("</Pre></dd>") */
endif
IF !lBlankLine
oHtm:WriteParBold( " Arguments" )
ENDIF
oHtm:WriteParBold( " Arguments" )
ohtm:WriteText('<DD><P>')
nMode := D_ARG
lAddBlank := .T.
lEndArgs:=.t.
ELSEIF AT( cRet, cBuffer ) > 0
if lEndArgs
lEndArgs:=.f.
oHtm:WriteText("</P></dd>")
endif
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Returns" )
ohtm:WriteText('<DD><P>')
nMode := D_ARG
lAddBlank := .T.
lEndReturns:=.t.
ELSEIF AT( cDesc, cBuffer ) > 0
if lEndReturns
lEndReturns:=.f.
oHtm:WriteText("</P></dd>")
endif
IF !lBlankLine
oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Description" )
ohtm:WriteText('<DD><P>')
nMode := D_NORMAL
lAddBlank := .T.
lEndDesc:=.t.
ELSEIF AT( cExam, cBuffer ) > 0
if lEndDesc
lEndDesc:=.f.
oHtm:WriteText("<P></dd>")
endif
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Examples" )
nMode := D_NORMAL
oHtm:WriteText("<DD><PRE>")
nMode := D_EXAMPLE
lAddBlank := .T.
lAddEndPreTag:=.T.
ELSEIF AT( cTest, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Tests" )
oHtm:WriteParBold( " Tests" )
oHtm:WriteText("<DD><PRE>")
nMode := D_NORMAL
lAddBlank := .T.
ELSEIF AT( cStatus, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
nMode := D_STATUS
ELSEIF AT( cCompl, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Compliance" )
oHtm:WriteText("<DD><PRE>")
nMode := D_NORMAL
lAddBlank := .T.
ELSEIF AT( cPlat, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Platforms" )
oHtm:WriteText("<DD><PRE>")
nMode := D_NORMAL
lAddBlank := .T.
ELSEIF AT( cFiles, cBuffer ) > 0
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Files" )
oHtm:WriteText("<DD><PRE>")
nMode := D_NORMAL
lAddBlank := .T.
ELSEIF AT( cFunction, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
IF !lBlankLine
oHtm:WritePar( "" )
* oHtm:WritePar( "" )
ENDIF
oHtm:WriteParBold( " Functions" )
oHtm:WriteText("<DD><PRE>")
nMode := D_NORMAL
lAddBlank := .T.
ELSEIF AT( cSee, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
nMode := D_SEEALSO
ELSEIF AT( cInc, cBuffer ) > 0
if lAddEndPreTag
oHtm:WriteText("</PRE></DD>")
lAddEndPreTag:=.f.
Endif
nMode := D_INCLUDE
// All other input is trimmed of comments and sent out
@@ -413,12 +472,12 @@ FUNCTION ProcessWww()
ENDIF
lBlankLine := EMPTY( cBuffer )
IF lAddBlank
oHtm:WritePar( "" )
lAddBlank := .F.
ENDIF
cBuffer := ProcwwwBuf( cBuffer )
oHtm:WritePar( cBuffer )
oHtm:WriteText( cBuffer )
lFirstArg := .T.
ELSEIF nMode = D_ARG
IF LEN( cBuffer ) > LONGLINE
write_error( "Arguments", cBuffer, nLineCnt, ;
@@ -426,12 +485,27 @@ FUNCTION ProcessWww()
ENDIF
lBlankLine := EMPTY( cBuffer )
IF lAddBlank
oHtm:WritePar( "" )
lAddBlank := .F.
ENDIF
cBuffer := STRTRAN( cBuffer, "<", "<", 1 )
cBuffer := STRTRAN( cBuffer, ">", ">", 1 )
oHtm:WritePar( cBuffer )
IF AT("<",Alltrim(cBuffer))> 0
nPos := AT("<",ALLTRIM(cBuffer))
IF nPos <= 3
cBuffer := STRTRAN( cBuffer, "<", "&lt;" )
cBuffer := STRTRAN( cBuffer, ">", "&gt;" )
IF lFirstArg
cBuffer:= "<B>" + Substr(cBuffer,At("&lt;",cBuffer)-1,At("&gt;",cBuffer)-2)+"</b>"+Substr(cBuffer,At("&gt;",cBuffer)+4)
lFirstArg:=.F.
ELSE
cBuffer:= "<br><B>" + Substr(cBuffer,At("&lt;",cBuffer)-1,At("&gt;",cBuffer)-2)+"</b>"+Substr(cBuffer,At("&gt;",cBuffer)+4)
ENDIF
ELSE
cBuffer := STRTRAN( cBuffer, "<", "&lt;" )
cBuffer := STRTRAN( cBuffer, ">", "&gt;" )
ENDIF
ENDIF
oHtm:WriteText( cBuffer )
ELSEIF nMode = D_NORMAL
IF LEN( cBuffer ) > LONGLINE
write_error( "General", cBuffer, nLineCnt, ;
@@ -439,10 +513,21 @@ FUNCTION ProcessWww()
ENDIF
lBlankLine := EMPTY( cBuffer )
IF lAddBlank
oHtm:WritePar( "" )
lAddBlank := .F.
ENDIF
oHtm:WritePar( StripNgControls( cBuffer ) )
ohtm:WriteText(Alltrim(StripNgControls( cBuffer )))
ELSEIF nMode = D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
write_error( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
IF lAddBlank
lAddBlank := .F.
ENDIF
oHtm:WriteText( strtran(StripNgControls( cBuffer ),space(6),"") )
ELSEIF nMode = D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := StripFiles( ALLTRIM( cBuffer ) )
@@ -451,14 +536,12 @@ FUNCTION ProcessWww()
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
oHtm:WritePar( "" )
ENDIF
oHtm:WritePar( " Header File: " ;
+ ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_STATUS
IF !EMPTY( cBuffer )
oHtm:WriteParBold( "Status" )
oHtm:WriteText("<DD><P>")
ENDIF
ProcStatusWww( oHtm, cBuffer )
@@ -579,14 +662,15 @@ RETURN nil
*+
FUNCTION ProcStatusWww( nWriteHandle, cBuffer )
IF LEN( ALLTRIM( cBuffer ) ) >1
nWriteHandle:WritePar( cBuffer)
nWriteHandle:WriteText( cBuffer)
ELSEIF SUBSTR( ALLTRIM( cBuffer ), 1 ) == "R"
nWriteHandle:WritePar( " Ready" )
nWriteHandle:WriteText( " Ready" )
ELSEIF SUBSTR( ALLTRIM( cBuffer ), 1 ) == "S"
nWriteHandle:WritePar( " Started" )
nWriteHandle:WriteText( " Started" )
ELSEIF SUBSTR( ALLTRIM( cBuffer ), 1 ) == "C"
nWriteHandle:WritePar( " Clipper" )
nWriteHandle:WriteText( " Clipper" )
ELSE
nWriteHandle:WritePar( " Not Started" )
nWriteHandle:WriteText( " Not Started" )
ENDIF
nWriteHandle:WriteText( " </P></dd>")
RETURN nil

27
harbour/utils/hbdoc/hbdoc.prg
View File

@@ -463,15 +463,15 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
ELSEIF lWWW
oHtm := THTML():New( "htm\harbour.htm" )
oHtm:WriteTitle( "Harbour Reference Guide" )
oHtm:WritePar( "HARBOUR" )
oHtm:WriteText("<H1>Harbour Reference Guide</H1>")
oHtm:WriteText( "<H2>HARBOUR</H2>"+hb_osnEwline()+'<UL>' )
oHtm:WriteLink( "overview",UpperLower("Harbour Read me" ))
oHtm:WriteLink( "license", UpperLower("Harbour License" ))
oHtm:WriteLink( "http://www.gnu.org/copyleft/gpl.html","GNU License" )
oHtm:WriteLink( "compileroptions.htm","Compiler Options")
oHtm:WritePar( "" )
oHtm:WritePar("")
oHtm:WritePar( "Functions A-M" )
oHtm:WritePar("")
oHtm:WriteText( "</UL>" )
oHtm:WriteText("<H2>Alphabetical list of functions</H2>")
oHtm:WriteText( "<UL>" )
ASORT( awww,,,{|x,y| x[1]<y[1] })
FOR nPos := 1 TO LEN( aWww )
@@ -480,18 +480,15 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
oHtm:WriteLink( Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1] ))
ENDIF
NEXT
oHtm:WritePar("")
oHtm:WritePar( "Functions N-_" )
oHtm:WritePar("")
FOR nPos := 1 TO LEN( aWww )
cTemp := aWww[ nPos,1 ]
IF LEFT( cTemp, 1 ) >= "N" .AND. LEFT( cTemp, 1 ) < "_" .AND. AT( "()", cTemp ) > 0
oHtm:WriteLink(Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1] ) )
ENDIF
NEXT
oHtm:WritePar("")
oHtm:WritePar( "Commands" )
oHtm:WritePar("")
oHtm:WriteText("</ul>")
oHtm:Writetext( "<h2>Commands</h2>" )
oHtm:WriteText("<UL>")
FOR nPos := 1 TO LEN( aWww )
cTemp := aWww[ nPos,1 ]
IF AT( "()", cTemp ) == 0 .AND. ctemp <> "LICENSE" .AND. cTemp <> "OVERVIEW" .and. cTemp<>"Compiler Options" ;
@@ -500,16 +497,16 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
oHtm:WriteLink( Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1]))
ENDIF
NEXT
oHtm:WritePar("")
oHtm:WritePar( "Run Time Error" )
oHtm:WritePar("")
oHtm:WriteText("</ul>")
oHtm:WriteText( "<h2>Run Time Error</h2>" )
oHtm:WriteText("<ul>")
FOR nPos := 1 TO LEN( aWww )
cTemp := aWww[ nPos,1 ]
IF AT( "()", cTemp ) == 0 .OR. UPPER(Left(ctemp,4)) =="BASE" .OR. UPPER(LEFT(cTemp,4))=="TERM" .OR. UPPER(LEFT(cTemp,5))=="TOOLS"
oHtm:WriteLink( Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1]))
ENDIF
NEXT
oHtm:WriteText("</ul>")
oHtm:Close()
ELSEIF lNgi
SET ALTERNATE TO "assembl.bat" ADDITIVE