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

2008-08-08 01:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* doc/genhtm.sh
     ! Minor fix to previous commit.

   * utils/hbdoc/rtf.prg
   * utils/hbdoc/genos2.prg
   * utils/hbdoc/genng.prg
   * utils/hbdoc/genasc.prg
   * utils/hbdoc/hbdocdef.ch
   * utils/hbdoc/genchm.prg
   * utils/hbdoc/os2.prg
   * utils/hbdoc/ng.prg
   * utils/hbdoc/genhpc.prg
   * utils/hbdoc/html.prg
   * utils/hbdoc/ft_funcs.prg
   * utils/hbdoc/hbdoc.prg
   * utils/hbdoc/troff.prg
   * utils/hbdoc/genhtm.prg
   * utils/hbdoc/genpdf1.prg
   * utils/hbdoc/gentrf.prg
   * utils/hbdoc/genrtf.prg
     ! Fixed to not convert filenames to uppercase. (sf.net #1673895)
     ! Formatting.
     * <> -> !=, .f. -> .F., .t. -> .T.
     ! = -> ==/:= (where the intent was clear)
     ! Added newline to the end of files.
This commit is contained in:
Viktor Szakats
2008-08-07 23:23:09 +00:00
parent fe6afd4252
commit f2db0b0ba1
19 changed files with 561 additions and 533 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
harbour/ChangeLog
View File

@@ -8,6 +8,33 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-08-08 01:10 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* doc/genhtm.sh
! Minor fix to previous commit.
* utils/hbdoc/rtf.prg
* utils/hbdoc/genos2.prg
* utils/hbdoc/genng.prg
* utils/hbdoc/genasc.prg
* utils/hbdoc/hbdocdef.ch
* utils/hbdoc/genchm.prg
* utils/hbdoc/os2.prg
* utils/hbdoc/ng.prg
* utils/hbdoc/genhpc.prg
* utils/hbdoc/html.prg
* utils/hbdoc/ft_funcs.prg
* utils/hbdoc/hbdoc.prg
* utils/hbdoc/troff.prg
* utils/hbdoc/genhtm.prg
* utils/hbdoc/genpdf1.prg
* utils/hbdoc/gentrf.prg
* utils/hbdoc/genrtf.prg
! Fixed to not convert filenames to uppercase. (sf.net #1673895)
! Formatting.
* <> -> !=, .f. -> .F., .t. -> .T.
! = -> ==/:= (where the intent was clear)
! Added newline to the end of files.
2008-08-08 00:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+ doc/genhtm.sh
+ Added Linux/Unix make file for docs (sf.net #1673897)

2
harbour/doc/genhtm.sh
View File

@@ -3,7 +3,7 @@
# $Id$
#
hbdoc -htm genhtm.lnk genhtm.rsp
../bin/hbdoc -htm genhtm.lnk genhtm.rsp
cd htm
#
echo "renaming harbour.htm to index.htm"

6
harbour/utils/hbdoc/ft_funcs.prg
View File

@@ -108,8 +108,8 @@ FUNCTION FT_FUSE( cFile AS STRING, nMode AS NUMERIC)
IF cFile == Nil
theHandle:closefile()
ENDIF
IF cFile <> Nil
IF nMode <> 0
IF cFile != Nil
IF nMode != 0
theHandle := FileBase():new( cFile ):open()
ELSE
theHandle := FileBase():new( cFile ):open()
@@ -223,7 +223,7 @@ FUNCTION StrPos( cBuffer AS STRING)
IF cChar >= CHR( 64 ) .AND. cChar <= CHR( 90 ) .OR. cChar >= CHR( 97 ) ;
.AND. cChar <= CHR( 122 ) .OR. cChar >= CHR( 48 ) .AND. cChar <= CHR( 57 ) ;
.OR. cChar == CHR( 60 ) .OR. cchar == CHR( ASC( "-" ) ) ;
.OR. cchar == CHR( ASC( "(" ) ) .OR. cchar = CHR( ASC( "|" ) ) .OR. ;
.OR. cchar == CHR( ASC( "(" ) ) .OR. cchar == CHR( ASC( "|" ) ) .OR. ;
cchar == CHR( ASC( '.' ) ) .OR. cchar == CHR( ASC( '*' ) ) .OR. ;
cchar == CHR( ASC( '#' ) ) .OR. cchar == CHR( ASC( '"' ) ) .OR. ;
cchar == CHR( ASC( '/' ) ) .OR. cchar == CHR( ASC( "@" ) ) ;

16
harbour/utils/hbdoc/genasc.prg
View File

@@ -207,7 +207,7 @@ FUNCTION ASCIIFiles()
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
@@ -298,7 +298,7 @@ FUNCTION ASCIIFiles()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -512,7 +512,7 @@ FUNCTION ASCIIFiles()
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -530,7 +530,7 @@ FUNCTION ASCIIFiles()
lBlankLine := EMPTY( cBuffer )
FWRITE( nWriteHandle, " " + cBuffer + CRLF )
nDocCnt ++
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -547,7 +547,7 @@ FUNCTION ASCIIFiles()
lBlankLine := EMPTY( cBuffer )
FWRITE( nWriteHandle, cBuffer + CRLF )
nDocCnt ++
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -563,11 +563,11 @@ FUNCTION ASCIIFiles()
ENDIF
FWRITE( nWriteHandle, cBuffer + CRLF )
nDocCnt ++
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := StripFiles( ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
IF .NOT. EMPTY( cBuffer )
IF nDocCnt > 62 .AND. .NOT. lContinuous
FWRITE( nWriteHandle, CHR( K_CTRL_L ) + CRLF )
@@ -581,7 +581,7 @@ FUNCTION ASCIIFiles()
+ ALLTRIM( cBuffer ) + CRLF )
nDocCnt ++
ENDIF
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
FWRITE( nWriteHandle, " Status" + CRLF )
ENDIF

240
harbour/utils/hbdoc/genchm.prg
View File

@@ -83,7 +83,7 @@ STATIC atiTable := {}
STATIC nNumTableItems := 0
STATIC aCurDoc := {}
STATIC nCurDoc := 1
STATIC lWasTestExamples := .f.
STATIC lWasTestExamples := .F.
STATIC aColorTable := { 'aqua', 'black', 'fuchia', 'grey', 'green', 'lime', 'maroon', 'navy', 'olive', 'purple', 'red', 'silver', 'teal', 'white', 'yellow' }
@@ -226,7 +226,7 @@ FUNCTION ProcessChm()
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
cBuffer := STRTRAN( cBuffer, CHR( 10 ), '' )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -298,11 +298,11 @@ FUNCTION ProcessChm()
lClassDoc := .F.
IF lEndReturns .AND. lClassDoc
lEndReturns := .f.
lEndReturns := .F.
oChm:WriteText( "</p></dd>" )
ENDIF
IF lEndArgs .AND. lClassDoc
lEndArgs := .f.
lEndArgs := .F.
oChm:WriteText( "</p></dd>" )
ENDIF
@@ -340,7 +340,7 @@ FUNCTION ProcessChm()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -357,7 +357,7 @@ FUNCTION ProcessChm()
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 36
IF LEN( cFileName ) == 36
cFileName := STUFF( cFileName, 36, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -403,10 +403,10 @@ FUNCTION ProcessChm()
oChm:WriteText( "</pre>" )
else
oChm:WriteText( "</p></dd>" )
lWasTestExamples:=.f.
lWasTestExamples:=.F.
endif
lEndDesc := .f.
lEndDesc := .F.
ENDIF
oChm:WriteText( '<br>' )
@@ -456,7 +456,7 @@ FUNCTION ProcessChm()
IF AT( cSyn, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
oChm:WriteParBold( " Syntax", .f., .f. )
oChm:WriteParBold( " Syntax", .F., .F. )
oChm:WriteText( '<DD><P>' )
nMode := D_SYNTAX
lAddBlank := .T.
@@ -464,7 +464,7 @@ FUNCTION ProcessChm()
end
ELSEIF AT( cConstruct, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
oChm:WriteParBold( " Constructor syntax", .F., .f. )
oChm:WriteParBold( " Constructor syntax", .F., .F. )
oChm:WriteText( '<DD><P>' )
nMode := D_SYNTAX
lAddBlank := .T.
@@ -477,7 +477,7 @@ end
nMode := D_ARG
lAddBlank := .T.
lEndArgs := .t.
lEndArgs := .T.
end
ELSEIF AT( cRet, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -489,7 +489,7 @@ end
oChm:WriteText( '<DD><P>' )
nMode := D_ARG
lAddBlank := .T.
lEndReturns := .t.
lEndReturns := .T.
end
ELSEIF AT( cDesc, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -502,7 +502,7 @@ end
nMode := D_DESCRIPTION
lAddBlank := .T.
lEndDesc := .t.
lEndDesc := .T.
end
ELSEIF AT( cdatalink, cBuffer ) > 0
@@ -562,18 +562,18 @@ oChm:writeText("<br>") //:endpar()
nMode := D_EXAMPLE
lAddBlank := .T.
lAddEndPreTag := .T.
lWasTestExamples:=.t.
lWasTestExamples:=.T.
end
ELSEIF AT( cTest, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
IF !lBlankLine
// oChm:WritePar( "" )
ENDIF
oChm:WriteParBold( " Tests", .t., .f. )
oChm:WriteParBold( " Tests", .T., .F. )
oChm:WriteText( "<DD><P>" )
nMode := D_EXAMPLE
lAddBlank := .T.
lWasTestExamples:=.t.
lWasTestExamples:=.T.
end
ELSEIF AT( cStatus, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -632,7 +632,7 @@ oChm:writeText("<br>") //:endpar()
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -643,7 +643,7 @@ oChm:writeText("<br>") //:endpar()
ENDIF
procChmdesc( cbuffer, oChm, "Syntax" )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -654,7 +654,7 @@ oChm:writeText("<br>") //:endpar()
ENDIF
procChmdesc( cbuffer, oChm, "Arguments" )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -667,14 +667,14 @@ oChm:writeText("<br>") //:endpar()
ENDIF
ProcChmDesc( cBuffer, oChm )
ELSEIF nMode = D_EXAMPLE
ELSEIF nMode == D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
procChmdesc( cBuffer, oChm, "Example" )
ELSEIF nMode = D_DESCRIPTION
ELSEIF nMode == D_DESCRIPTION
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -682,11 +682,11 @@ oChm:writeText("<br>") //:endpar()
lBlankLine := EMPTY( cBuffer )
procChmdesc( cBuffer, oChm, "Description" )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := StripFiles( ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_DATALINK
ELSEIF nMode == D_DATALINK
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -698,7 +698,7 @@ oChm:writeText("<br>") //:endpar()
cTemp := ALLTRIM( SUBSTR( cBuffer, 1, AT( ":", cBuffer ) - 1 ) )
oChm:WriteText( "<dd><a href=" + cFileName + "#" + cTemp + ">" + cBuffer + '</a></dd>' )
oChm:writetext('<dd><br></dd>')
ELSEIF nMode = D_METHODLINK
ELSEIF nMode == D_METHODLINK
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -713,13 +713,13 @@ oChm:writeText("<br>") //:endpar()
oChm:writetext('<dd><br></dd>')
endif
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
ENDIF
ENDIF
ELSEIF nMode = D_DATALINK
ELSEIF nMode == D_DATALINK
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -731,7 +731,7 @@ oChm:writeText("<br>") //:endpar()
cTemp := ALLTRIM( SUBSTR( cBuffer, 1, AT( ":", cBuffer ) - 1 ) )
oChm:WriteText( "<a href=" + cFileName + "#" + cTemp + ">" + cBuffer + '</a>' )
ELSEIF nMode = D_METHODLINK
ELSEIF nMode == D_METHODLINK
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -743,7 +743,7 @@ oChm:writeText("<br>") //:endpar()
cTemp := ALLTRIM( SUBSTR( cBuffer, 1, AT( "(", cBuffer ) - 1 ) )
oChm:WriteText( "<a href=" + cFileName + "#" + cTemp + ">" + cBuffer + '</a>' )
ELSEIF nMode = D_COMPLIANCE
ELSEIF nMode == D_COMPLIANCE
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -751,15 +751,15 @@ oChm:writeText("<br>") //:endpar()
lBlankLine := EMPTY( cBuffer )
procChmdesc( cBuffer, oChm, "Compliance" )
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
If lWasTestExamples
oChm:WriteParBold( "Status",.t.,.f. )
oChm:WriteParBold( "Status",.T.,.F. )
Else
oChm:WriteParBold( "Status" )
oChm:WriteText( "<DD>" )
Endif
lWasTestExamples:=.f.
lWasTestExamples:=.F.
ENDIF
ProcStatusChm( oChm, cBuffer )
@@ -872,7 +872,7 @@ FUNCTION ProcessChm2()
cFileName := ""
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -884,10 +884,10 @@ FUNCTION ProcessChm2()
DO WHILE nEnd > 0
nEnd := ASCAN(aDocInfo, { | a | a[ 2 ] == cFileName + ".htm" })
IF nEnd > 0
IF LEN( cFileName ) = 36
IF LEN( cFileName ) == 36
cFileName := STUFF( cFileName, 36, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName = cFileName + STR( nCount, 1, 0 )
cFileName := cFileName + STR( nCount, 1, 0 )
ENDIF
nCount ++
ENDIF
@@ -921,12 +921,12 @@ FUNCTION ProcessChm2()
IF ASCAN(aCurDoc[nArrayItem], " $CLASS$") > 0
// Write class name
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<title>" + cTempString + " - Class overview</title></head><body>")
oHtmClass:WriteText("<div class='classtitle'>Class " + cTempString + "</div>")
@@ -935,17 +935,17 @@ FUNCTION ProcessChm2()
AADD(aDocInfo, { cTempString, cFileName, "C1", {} })
// Write oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='oneliner'>" + cTempString + "</div>")
// Write inheritance
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "INHERITS" $ UPPER(a)}) + 1
IF nArrayItemLine - 1 <> 0 .AND. !EMPTY(aCurDoc[nArrayItem][nArrayItemLine]) //.AND. FILE(aCurDoc[nArrayItem][nArrayItemLine] + ".txt")
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "INHERITS" $ UPPER(a)}) + 1
IF nArrayItemLine - 1 != 0 .AND. !EMPTY(aCurDoc[nArrayItem][nArrayItemLine]) //.AND. FILE(aCurDoc[nArrayItem][nArrayItemLine] + ".txt")
cInherits := aCurDoc[nArrayItem][nArrayItemLine]
cTempString := "<a href='" + cInherits + ".htm'>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine]) + "</a>"
ELSE
@@ -986,11 +986,11 @@ FUNCTION ProcessChm2()
oHtmClassContent:WriteText("</style>")
// Write class name
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<title>" + cTempString + " - Class details</title></head><body>")
oHtmClassContent:WriteText("<div class='classtitle'>Class " + cTempString + "</div>")
@@ -999,16 +999,16 @@ FUNCTION ProcessChm2()
ELSEIF ASCAN(aCurDoc[nArrayItem], " $DATA$") > 0
IF oHtmClassContent:nHandle > 0
// Write property name
IF nPropertyListAnker = .F.
IF nPropertyListAnker == .F.
oHtmClassContent:WriteText("<a name='propertylist'>")
nPropertyListAnker = .t.
nPropertyListAnker := .T.
ENDIF
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "DATA" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "DATA" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='title'><a name='" + cTempString + "'>Property " + cTempString + "</a></div>")
@@ -1019,11 +1019,11 @@ FUNCTION ProcessChm2()
AADD(aDocInfo[LEN(aDocInfo)][4], {"Data", cTempString})
// Write property oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='oneliner'>" + cTempString + "</div>")
@@ -1033,27 +1033,27 @@ FUNCTION ProcessChm2()
ELSEIF ASCAN(aCurDoc[nArrayItem], " $METHOD$") > 0
IF oHtmClassContent:nHandle > 0
// Write method name
IF nMethodListAnker = .F.
IF nMethodListAnker == .F.
oHtmClassContent:WriteText("<a name='methodlist'>")
nMethodListAnker = .t.
nMethodListAnker := .T.
ENDIF
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "METHOD" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "METHOD" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='title'><a name='" + cTempString + "'>Method " + cTempString + "</a></div>")
AADD(aDocInfo[LEN(aDocInfo)][4], {"Method", cTempString})
// Write method oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='oneliner'>" + cTempString + "</div>")
@@ -1067,16 +1067,16 @@ FUNCTION ProcessChm2()
ENDIF
ELSE
// Write function name
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "FUNCNAME" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "FUNCNAME" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='classtitle'>Function " + cTempString + "</div>")
// Add function name and filename to the docinfo array
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "CATEGORY" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "CATEGORY" $ UPPER(a)}, 2) + 1
cTempString2 := aCurDoc[nArrayItem][nArrayItemLine]
IF cTempString2 $ "WinAPI"
AADD( aDocInfo, { cTempString, cFileName, "F2" } )
@@ -1085,11 +1085,11 @@ FUNCTION ProcessChm2()
ENDIF
// Write function oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='oneliner'>" + cTempString + "</div>")
@@ -1140,15 +1140,15 @@ RETURN NIL
FUNCTION WriteClass3(cItem, cTitle)
LOCAL cTempString
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
IF nArrayItemLine - 1 <> 0
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
IF nArrayItemLine - 1 != 0
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ELSE
cTempString := "-"
ENDIF
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1170,7 +1170,7 @@ FUNCTION WriteClassDataMethod3(cItem, cTitle, nArrayItem, nArrayItemLine)
cTempString := ""
DO WHILE nArrayItem <= LEN(aCurDoc)
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "$" + UPPER(cItem) + "$" $ UPPER(a)}) + 1
IF nArrayItemLine -1 <> 0
IF nArrayItemLine -1 != 0
AADD(aTmpArray, {"&bull; <a href='" + LOWER(LEFT(cFileName, LEN(cFileName) - 4)) + "_content.htm#" + aCurDoc[nArrayItem][nArrayItemLine] + "' target=_self>" + aCurDoc[nArrayItem][nArrayItemLine] + "</a><br>", aCurDoc[nArrayItem][nArrayItemLine]})
nTmpCount ++
ENDIF
@@ -1179,7 +1179,7 @@ FUNCTION WriteClassDataMethod3(cItem, cTitle, nArrayItem, nArrayItemLine)
ASORT(aTmpArray,,, {|x, y| UPPER(x[2]) < UPPER(y[2])})
FOR nTmpCount := 1 TO LEN(aTmpArray)
cTempString = cTempString + aTmpArray[nTmpCount][1]
cTempString := cTempString + aTmpArray[nTmpCount][1]
NEXT
IF EMPTY(cTempString)
cTempString := "-"
@@ -1188,8 +1188,8 @@ FUNCTION WriteClassDataMethod3(cItem, cTitle, nArrayItem, nArrayItemLine)
oHtmClass:WriteText("<div class='itemtitle'>&raquo; " + cTitle + "</div>")
oHtmClass:WriteText("<div class='itemtext'>" + cTempString + "</div>")
nArrayItem = nPrevArrayItem
nArrayItemLine = nPrevArrayItemLine
nArrayItem := nPrevArrayItem
nArrayItemLine := nPrevArrayItemLine
LinkInheritance3(cItem)
RETURN NIL
@@ -1199,7 +1199,7 @@ FUNCTION LinkInheritance3(cItem)
LOCAL nTemp1 := 1
DO WHILE nTemp1 <= LEN(aDirList)
IF UPPER(aDirList[nTemp1][1]) = UPPER(cInherits + ".TXT")
IF UPPER(aDirList[nTemp1][1]) == UPPER(cInherits + ".txt")
oHtmClass:WriteText("<div class='itemtext'>&bull; <a href='" + cInherits + "_content.htm#" + IIF(UPPER(cItem) = "DATA", "propertylist", "methodlist") + "' target=_self>" + IIF(cItem ="Data", "Properties", "Methods") + " inherited via " + cInherits + "</a></div>")
ENDIF
nTemp1 ++
@@ -1210,11 +1210,11 @@ RETURN NIL
FUNCTION WriteData3(cItem, cTitle)
LOCAL cTempString
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1228,11 +1228,11 @@ RETURN NIL
FUNCTION WriteMethod3(cItem, cTitle)
LOCAL cTempString
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
cTempString := HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1248,9 +1248,9 @@ FUNCTION WriteFunction3(cItem, cTitle)
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
cTempString := aCurDoc[nArrayItem][nArrayItemLine]
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat3(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1271,12 +1271,12 @@ FUNCTION HTMFormat3(cTempString)
cTmpChar := SUBSTR(cTmpString1, nTmpCount, 1)
DO CASE
CASE cTmpChar = "<"
cTmpString2 = cTmpString2 + "&lt;"
CASE cTmpChar = ">"
cTmpString2 = cTmpString2 + "&gt;"
CASE cTmpChar == "<"
cTmpString2 := cTmpString2 + "&lt;"
CASE cTmpChar == ">"
cTmpString2 := cTmpString2 + "&gt;"
OTHERWISE
cTmpString2 = cTmpString2 + cTmpChar
cTmpString2 := cTmpString2 + cTmpChar
ENDCASE
nTmpCount ++
@@ -1321,7 +1321,7 @@ FUNCTION ProcChmAlso( nWriteHandle, cSeeAlso )
LOCAL xPos
LOCAL tPos
nLen := LEN( cSeeAlso )
WHILE .t.
WHILE .T.
nPos := AT( ",", cSeeAlso )
IF nPos > 0
xTemp := SUBSTR( ALLTRIM( cSeeAlso ), 1, nPos - 1 )
@@ -1417,8 +1417,8 @@ FUNCTION FormatChmBuff( cBuffer, cStyle )
LOCAL cline := ''
LOCAL cOldLine := ''
LOCAL cBuffend := ''
LOCAL lEndBuffer := .f.
LOCAL lArgBold := .f.
LOCAL lEndBuffer := .F.
LOCAL lArgBold := .F.
LOCAL npos
//LOCAL nposend // Variable not used in fucntion, it may be deleted?
creturn := cBuffer + ' '
@@ -1432,20 +1432,20 @@ FUNCTION FormatChmBuff( cBuffer, cStyle )
DO WHILE !lEndBuffer
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
// TheBlank := .t.
lEndBuffer := .T.
// TheBlank := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1497,19 +1497,19 @@ FUNCTION FormatChmBuff( cBuffer, cStyle )
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</par>", cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
// TheBlank := .t.
lEndBuffer := .T.
// TheBlank := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1589,13 +1589,13 @@ FUNCTION ProcChmDesc( cBuffer, oChm, cStyle )
LOCAL lEndPar := .F.
LOCAL cLine := ''
LOCAL lEndFixed := .F.
LOCAL lArgBold := .f.
LOCAL lArgBold := .F.
LOCAL LFstTableItem := .T.
LOCAL lEndTable := .F.
LOCAL lEndBuffer := .f.
LOCAL lEndBuffer := .F.
DEFAULT cStyle TO "Default"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle <> "Example"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle != "Example"
cBuffer := '<par>' + cBuffer
ENDIF
@@ -1603,8 +1603,8 @@ FUNCTION ProcChmDesc( cBuffer, oChm, cStyle )
oChm:WriteText( "<dd><br></dd>" )
ENDIF
IF cStyle <> "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) = 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) = 0 .AND. !EMPTY( cbuffer )
IF cStyle != "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) == 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) == 0 .AND. !EMPTY( cbuffer )
IF AT( "<par>", cBuffer ) > 0 .AND. AT( "</par>", cBuffer ) > 0
IF cStyle == "Arguments"
@@ -1698,7 +1698,7 @@ FUNCTION ProcChmDesc( cBuffer, oChm, cStyle )
ENDIF
ENDIF
IF AT( '<fixed>', cBuffer ) > 0 .OR. cStyle = "Example"
IF AT( '<fixed>', cBuffer ) = 0 .OR. !EMPTY( cBuffer )
IF AT( '<fixed>', cBuffer ) == 0 .OR. !EMPTY( cBuffer )
if AT( '<fixed>', cBuffer ) > 0
lHasFixed:=.T.
else
@@ -1715,15 +1715,15 @@ FUNCTION ProcChmDesc( cBuffer, oChm, cStyle )
DO WHILE !lendFixed
cOldLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</fixed>", cOldLine ) > 0
lendfixed := .t.
lendfixed := .T.
cOldLine := ALLTRIM(STRTRAN( cOldLine, "</fixed>", "" ))
ENDIF
IF AT( DELIM, cOldLine ) = 0
IF AT( DELIM, cOldLine ) == 0
cReturn += ALLTRIM( cOldLine ) + ' '
ENDIF
IF AT( DELIM, cOldLine ) > 0
FT_FSKIP( - 1 )
lEndfixed := .t.
lEndfixed := .T.
ENDIF
IF AT( DELIM, cOldLine ) == 0 .and. !lendfixed
@@ -1737,12 +1737,12 @@ FUNCTION ProcChmDesc( cBuffer, oChm, cStyle )
DO WHILE !lendTable
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</table>", cLine ) > 0
lendTable := .t.
lendTable := .T.
ELSE
IF LFstTableItem
nNumTableItems := GetNumberofTableItems( cLine )
procChmtable( cline, nNumTableItems )
LFstTableItem := .f.
LFstTableItem := .F.
ELSE
procChmtable( cline, nNumTableItems )
ENDIF
@@ -1817,7 +1817,7 @@ FUNCTION ProcChmTable( cBuffer, nNum )
cItem4 := SUBSTR( cBuffer, 1 )
ENDIF
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( afiTable, "<Font color=" + ccolor + ">" + RTRIM( LTRIM( cItem ) ) + '</font>' )
AADD( asiTable, "<Font color=" + ccolor + ">" + cItem2 + '</font>' )
ELSE
@@ -1825,12 +1825,12 @@ FUNCTION ProcChmTable( cBuffer, nNum )
AADD( asiTable, cItem2 )
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( atiTable, "<Font color=" + ccolor + ">" + cItem3 + '</font>' )
ELSE
AADD( atiTable, cItem3 )
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( afoiTable, "<Font color=" + ccolor + ">" + cItem4 + '</font>' )
ELSE
AADD( afoiTable, cItem4 )
@@ -1920,12 +1920,12 @@ STATIC FUNCTION GetItem( cItem, nCurdoc )
IF nPos > 0
cCuritem := xPos[ nPos ]
IF AT( "$", xPos[ nPos + 1 ] ) > 0
lReturn := .f.
lReturn := .F.
ELSE
lReturn := .t.
lReturn := .T.
ENDIF
ENDIF
RETURN lReturn
*+ EOF: GENNG.PRG
*+ EOF: GENNG.PRG

22
harbour/utils/hbdoc/genhpc.prg
View File

@@ -204,7 +204,7 @@ FUNCTION ProcessFiles()
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -280,7 +280,7 @@ FUNCTION ProcessFiles()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -297,7 +297,7 @@ FUNCTION ProcessFiles()
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 8
IF LEN( cFileName ) == 8
cFileName := STUFF( cFileName, 8, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -457,7 +457,7 @@ FUNCTION ProcessFiles()
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -468,7 +468,7 @@ FUNCTION ProcessFiles()
lAddBlank := .F.
ENDIF
FWRITE( nWriteHandle, cBuffer + CRLF )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -481,7 +481,7 @@ FUNCTION ProcessFiles()
cBuffer := STRTRAN( cBuffer, "<", "<", 1 )
cBuffer := STRTRAN( cBuffer, ">", ">", 1 )
FWRITE( nWriteHandle, cBuffer + CRLF )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -492,11 +492,11 @@ FUNCTION ProcessFiles()
lAddBlank := .F.
ENDIF
FWRITE( nWriteHandle, StripNgControls( cBuffer ) + CRLF )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := StripFiles( ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
@@ -505,14 +505,14 @@ FUNCTION ProcessFiles()
FWRITE( nWriteHandle, " Header File: " ;
+ ALLTRIM( cBuffer ) + CRLF )
ENDIF
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
FWRITE( nWriteHandle, ".par bold on" + CRLF )
FWRITE( nWriteHandle, " Status" + CRLF )
FWRITE( nWriteHandle, ".endpar" + CRLF )
ENDIF
ProcStatus( nWriteHandle, StripNgControls( cBuffer ) )
ELSEIF nMode = D_TESTS
ELSEIF nMode == D_TESTS
IF !EMPTY( cBuffer )
FWRITE( nWriteHandle, ".par bold on" + CRLF )
FWRITE( nWriteHandle, " Tests" + CRLF )
@@ -558,7 +558,7 @@ FUNCTION Proccalso( nWriteHandle, cSeeAlso )
LOCAL xPos
LOCAL tPos
nLen := LEN( cSeeAlso )
WHILE .t.
WHILE .T.
nPos := AT( ",", cSeeAlso )
IF nPos > 0

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

@@ -84,7 +84,7 @@ STATIC aCurDoc := {} // x
static cLastText := ""
Static clastBuffer := ""
STATIC nCurDoc := 1
STATIC lWasTestExamples := .f.
STATIC lWasTestExamples := .F.
STATIC aColorTable := { 'aqua', 'black', 'fuchia', 'grey', 'green', 'lime', 'maroon', 'navy', 'olive', 'purple', 'red', 'silver', 'teal', 'white', 'yellow' }
// Static variables added for the htm2 addition
@@ -201,7 +201,7 @@ FUNCTION ProcessWww()
// Open file for input
nCommentLen := IIF( AT( ".ASM", UPPER( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nCommentLen := IIF( AT( ".asm", Lower( aDirList[ i, F_NAME ] ) ) > 0, 2, 4 )
nReadHandle := FT_FUSE( aDirList[ i, F_NAME ] )
#ifdef GAUGE
if i == 1
@@ -248,7 +248,7 @@ FUNCTION ProcessWww()
cBuffer := STRTRAN( cBuffer, CHR( 10 ), '' )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -296,7 +296,7 @@ FUNCTION ProcessWww()
AADD( aDocInfo, { cCategory, cFuncName, cOneLine, cFileName } )
nPos := ascan(aResult,{|a| UPPER(a) == UPPER(cCategory)})
if nPos==0
if cCategory<>"Document"
if cCategory!="Document"
aadd(aResult,cCategory)
endif
endif
@@ -324,11 +324,11 @@ FUNCTION ProcessWww()
lData := .F.
lMethod := .F.
IF lEndReturns .AND. lClassDoc
lEndReturns := .f.
lEndReturns := .F.
oHtm:WriteText( "</pre>" )
ENDIF
IF lEndArgs .AND. lClassDoc
lEndArgs := .f.
lEndArgs := .F.
oHtm:WriteText( "</p></dd>" )
ENDIF
@@ -371,7 +371,7 @@ FUNCTION ProcessWww()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -388,7 +388,7 @@ FUNCTION ProcessWww()
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 36
IF LEN( cFileName ) == 36
cFileName := STUFF( cFileName, 36, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -432,12 +432,12 @@ FUNCTION ProcessWww()
cFuncname := SUBSTR( cFuncName, 1, AT( "(", cFuncName ) - 1 )
ENDIF
IF lEndDesc .AND. lClassDoc
lEndDesc := .f.
lEndDesc := .F.
if lWasTestExamples
oHtm:WriteText( "</pre>" )
else
oHtm:WriteText( "</p></dd>" )
lWasTestExamples:=.f.
lWasTestExamples:=.F.
endif
ENDIF
@@ -488,7 +488,7 @@ FUNCTION ProcessWww()
IF AT( cSyn, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
oHtm:WriteParBold( " Syntax", .f., .f. )
oHtm:WriteParBold( " Syntax", .F., .F. )
ohtm:WriteText( '<DD>' )
nMode := D_SYNTAX
lAddBlank := .T.
@@ -496,7 +496,7 @@ FUNCTION ProcessWww()
end
ELSEIF AT( cConstruct, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
oHtm:WriteParBold( " Constructor syntax", .F., .f. )
oHtm:WriteParBold( " Constructor syntax", .F., .F. )
ohtm:WriteText( '<DD>' )
nMode := D_SYNTAX
lAddBlank := .T.
@@ -509,7 +509,7 @@ end
nMode := D_ARG
lAddBlank := .T.
lEndArgs := .t.
lEndArgs := .T.
end
ELSEIF AT( cRet, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -521,7 +521,7 @@ end
ohtm:WriteText( '<DD>' )
nMode := D_ARG
lAddBlank := .T.
lEndReturns := .t.
lEndReturns := .T.
end
ELSEIF AT( cDesc, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -534,7 +534,7 @@ end
nMode := D_DESCRIPTION
lAddBlank := .T.
lEndDesc := .t.
lEndDesc := .T.
end
ELSEIF AT( cdatalink, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -593,7 +593,7 @@ oHtm:writeText("<br>") //:endpar()
nMode := D_EXAMPLE
lAddBlank := .T.
lAddEndPreTag := .T.
lWasTestExamples:=.t.
lWasTestExamples:=.T.
end
ELSEIF AT( cTest, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -604,7 +604,7 @@ oHtm:writeText("<br>") //:endpar()
// oHtm:WriteText( "<DD>" )
nMode := D_EXAMPLE
lAddBlank := .T.
lWasTestExamples:= .t.
lWasTestExamples:= .T.
end
ELSEIF AT( cStatus, cBuffer ) > 0
if GetItem( cBuffer, nCurdoc )
@@ -663,7 +663,7 @@ oHtm:writeText("<br>") //:endpar()
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -674,7 +674,7 @@ oHtm:writeText("<br>") //:endpar()
ENDIF
prochtmdesc( cbuffer, oHtm, "Syntax" ,cFileName)
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -685,7 +685,7 @@ oHtm:writeText("<br>") //:endpar()
ENDIF
prochtmdesc( cbuffer, oHtm, "Arguments" )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -698,14 +698,14 @@ oHtm:writeText("<br>") //:endpar()
ENDIF
ProcHtmDesc( cBuffer, oHtm )
ELSEIF nMode = D_EXAMPLE
ELSEIF nMode == D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
prochtmdesc( cBuffer, oHtm, "Example" )
ELSEIF nMode = D_DESCRIPTION
ELSEIF nMode == D_DESCRIPTION
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -713,17 +713,17 @@ oHtm:writeText("<br>") //:endpar()
lBlankLine := EMPTY( cBuffer )
prochtmdesc( cBuffer, oHtm, "Description" )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := StripFiles( ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
ENDIF
ENDIF
ELSEIF nMode = D_DATALINK
ELSEIF nMode == D_DATALINK
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -735,7 +735,7 @@ oHtm:writeText("<br>") //:endpar()
cTemp := ALLTRIM( SUBSTR( cBuffer, 1, AT( ":", cBuffer ) - 1 ) )
ohtm:WriteText( "<dd><a href=" + cFileName + "#" + cTemp + ">" + cBuffer + '</a></dd>' )
ohtm:writetext('<dd><br></dd>')
ELSEIF nMode = D_METHODLINK
ELSEIF nMode == D_METHODLINK
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -749,7 +749,7 @@ oHtm:writeText("<br>") //:endpar()
ohtm:WriteText( "<dd><a href=" + cFileName + "#" + cTemp + ">" + cBuffer + '</a></dd>' )
ohtm:writetext('<dd><br></dd>')
endif
ELSEIF nMode = D_COMPLIANCE
ELSEIF nMode == D_COMPLIANCE
IF LEN( cBuffer ) > LONGLINE
// WRITE_ERROR( "General", cBuffer, nLineCnt, ;
// LONGLINE, aDirList[ i, F_NAME ] )
@@ -757,15 +757,15 @@ oHtm:writeText("<br>") //:endpar()
lBlankLine := EMPTY( cBuffer )
prochtmdesc( cBuffer, oHtm, "Compliance" )
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
If lWasTestExamples
oHtm:WriteParBold( "Status",.t.,.f. )
oHtm:WriteParBold( "Status",.T.,.F. )
Else
oHtm:WriteParBold( "Status" )
oHtm:WriteText( "<DD>" )
Endif
lWasTestExamples:=.f.
lWasTestExamples:=.F.
ENDIF
ProcStatusWww( oHtm, cBuffer )
@@ -832,7 +832,7 @@ FUNCTION ProcessWww2()
FOR nTemp1 := 1 TO LEN(aDirList)
// Calculate the amount of characters the source files uses each line
nCommentLen := IIF(AT(".ASM", UPPER(aDirList[nTemp1, F_NAME])) > 0, 2, 4)
nCommentLen := IIF(AT(".asm", Lower(aDirList[nTemp1, F_NAME])) > 0, 2, 4)
// Select the file to read from
nReadHandle := FT_FUSE(aDirList[nTemp1, F_NAME])
@@ -877,7 +877,7 @@ FUNCTION ProcessWww2()
cFileName := ""
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -889,10 +889,10 @@ FUNCTION ProcessWww2()
DO WHILE nEnd > 0
nEnd := ASCAN(aDocInfo, { | a | a[ 2 ] == cFileName + ".htm" })
IF nEnd > 0
IF LEN( cFileName ) = 36
IF LEN( cFileName ) == 36
cFileName := STUFF( cFileName, 36, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName = cFileName + STR( nCount, 1, 0 )
cFileName := cFileName + STR( nCount, 1, 0 )
ENDIF
nCount ++
ENDIF
@@ -928,12 +928,12 @@ FUNCTION ProcessWww2()
IF ASCAN(aCurDoc[nArrayItem], " $CLASS$") > 0
// Write class name
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='classtitle'>Class " + cTempString + "</div>")
@@ -941,17 +941,17 @@ FUNCTION ProcessWww2()
AADD( aDocInfo, { cTempString, cFileName, "C1" } )
// Write oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='oneliner'>" + cTempString + "</div>")
// Write inheritance
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "INHERITS" $ UPPER(a)}) + 1
IF nArrayItemLine - 1 <> 0 .AND. !EMPTY(aCurDoc[nArrayItem][nArrayItemLine]) //.AND. FILE(aCurDoc[nArrayItem][nArrayItemLine] + ".txt")
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "INHERITS" $ UPPER(a)}) + 1
IF nArrayItemLine - 1 != 0 .AND. !EMPTY(aCurDoc[nArrayItem][nArrayItemLine]) //.AND. FILE(aCurDoc[nArrayItem][nArrayItemLine] + ".txt")
cInherits := aCurDoc[nArrayItem][nArrayItemLine]
cTempString := "<a href='" + cInherits + ".htm'>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine]) + "</a>"
ELSE
@@ -992,11 +992,11 @@ FUNCTION ProcessWww2()
oHtmClassContent:WriteText("</style></head><body>")
// Write class name
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "CLASS" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='classtitle'>Class " + cTempString + "</div>")
ENDIF
@@ -1004,25 +1004,25 @@ FUNCTION ProcessWww2()
ELSEIF ASCAN(aCurDoc[nArrayItem], " $DATA$") > 0
IF oHtmClassContent:nHandle > 0
// Write property name
IF nPropertyListAnker = .F.
IF nPropertyListAnker == .F.
oHtmClassContent:WriteText("<a name='propertylist'>")
nPropertyListAnker = .t.
nPropertyListAnker := .T.
ENDIF
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "$DATA$" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "$DATA$" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='title'><a name='" + cTempString + "'>Property " + cTempString + "</a></div>")
// Write property oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='oneliner'>" + cTempString + "</div>")
@@ -1033,25 +1033,25 @@ FUNCTION ProcessWww2()
ELSEIF ASCAN(aCurDoc[nArrayItem], " $METHOD$") > 0
IF oHtmClassContent:nHandle > 0
// Write method name
IF nMethodListAnker = .F.
IF nMethodListAnker == .F.
oHtmClassContent:WriteText("<a name='methodlist'>")
nMethodListAnker = .t.
nMethodListAnker := .T.
ENDIF
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "METHOD" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "METHOD" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='title'><a name='" + cTempString + "'>Method " + cTempString + "</a></div>")
// Write method oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClassContent:WriteText("<div class='oneliner'>" + cTempString + "</div>")
@@ -1065,16 +1065,16 @@ FUNCTION ProcessWww2()
ENDIF
ELSE
// Write function name
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "FUNCNAME" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "FUNCNAME" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='classtitle'>Function " + cTempString + "</div>")
// Add function name and filename to the docinfo array
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "CATEGORY" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "CATEGORY" $ UPPER(a)}, 2) + 1
cTempString2 := aCurDoc[nArrayItem][nArrayItemLine]
IF cTempString2 $ "WinAPI"
AADD( aDocInfo, { cTempString, cFileName, "F2" } )
@@ -1083,11 +1083,11 @@ FUNCTION ProcessWww2()
ENDIF
// Write function oneliner
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "ONELINER" $ UPPER(a)}, 2) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
oHtmClass:WriteText("<div class='oneliner'>" + cTempString + "</div>")
@@ -1136,15 +1136,15 @@ RETURN NIL
FUNCTION WriteClass(cItem, cTitle)
LOCAL cTempString
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
IF nArrayItemLine - 1 <> 0
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
IF nArrayItemLine - 1 != 0
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ELSE
cTempString := "-"
ENDIF
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1166,7 +1166,7 @@ FUNCTION WriteClassDataMethod(cItem, cTitle, nArrayItem, nArrayItemLine)
cTempString := ""
DO WHILE nArrayItem <= LEN(aCurDoc)
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| "$" + UPPER(cItem) + "$" $ UPPER(a)}) + 1
IF nArrayItemLine -1 <> 0
IF nArrayItemLine -1 != 0
AADD(aTmpArray, {"&bull; <a href='" + LOWER(LEFT(cFileName, LEN(cFileName) - 4)) + "_content.htm#" + aCurDoc[nArrayItem][nArrayItemLine] + "' target=_self>" + aCurDoc[nArrayItem][nArrayItemLine] + "</a><br>", aCurDoc[nArrayItem][nArrayItemLine]})
nTmpCount ++
ENDIF
@@ -1175,7 +1175,7 @@ FUNCTION WriteClassDataMethod(cItem, cTitle, nArrayItem, nArrayItemLine)
ASORT(aTmpArray,,, {|x, y| UPPER(x[2]) < UPPER(y[2])})
FOR nTmpCount := 1 TO LEN(aTmpArray)
cTempString = cTempString + aTmpArray[nTmpCount][1]
cTempString := cTempString + aTmpArray[nTmpCount][1]
NEXT
IF EMPTY(cTempString)
cTempString := "-"
@@ -1184,8 +1184,8 @@ FUNCTION WriteClassDataMethod(cItem, cTitle, nArrayItem, nArrayItemLine)
oHtmClass:WriteText("<div class='itemtitle'>&raquo; " + cTitle + "</div>")
oHtmClass:WriteText("<div class='itemtext'>" + cTempString + "</div>")
nArrayItem = nPrevArrayItem
nArrayItemLine = nPrevArrayItemLine
nArrayItem := nPrevArrayItem
nArrayItemLine := nPrevArrayItemLine
LinkInheritance(cItem)
RETURN NIL
@@ -1195,7 +1195,7 @@ FUNCTION LinkInheritance(cItem)
LOCAL nTemp1 := 1
DO WHILE nTemp1 <= LEN(aDirList)
IF UPPER(aDirList[nTemp1][1]) = UPPER(cInherits + ".TXT")
IF UPPER(aDirList[nTemp1][1]) == UPPER(cInherits + ".txt")
oHtmClass:WriteText("<div class='itemtext'>&bull; <a href='" + cInherits + "_content.htm#" + IIF(UPPER(cItem) = "DATA", "propertylist", "methodlist") + "' target=_self>" + IIF(cItem ="Data", "Properties", "Methods") + " inherited via " + cInherits + "</a></div>")
ENDIF
nTemp1 ++
@@ -1205,11 +1205,11 @@ RETURN NIL
FUNCTION WriteData(cItem, cTitle)
LOCAL cTempString
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1222,11 +1222,11 @@ RETURN NIL
FUNCTION WriteMethod(cItem, cTitle)
LOCAL cTempString
nArrayItemLine = ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
cTempString := HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1241,9 +1241,9 @@ FUNCTION WriteFunction(cItem, cTitle)
LOCAL cTempString
nArrayItemLine := ASCAN(aCurDoc[nArrayItem], {|a| UPPER(cItem) $ UPPER(a)}) + 1
cTempString := aCurDoc[nArrayItem][nArrayItemLine]
DO WHILE "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] = .F.
DO WHILE !( "$" $ aCurDoc[nArrayItem][nArrayItemLine + 1] )
nArrayItemLine ++
cTempString = cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
cTempString := cTempString + "<br>" + HTMFormat(aCurDoc[nArrayItem][nArrayItemLine])
ENDDO
IF EMPTY(cTempString)
cTempString := "-"
@@ -1264,12 +1264,12 @@ FUNCTION HTMFormat(cTempString)
cTmpChar := SUBSTR(cTmpString1, nTmpCount, 1)
DO CASE
CASE cTmpChar = "<"
cTmpString2 = cTmpString2 + "&lt;"
CASE cTmpChar = ">"
cTmpString2 = cTmpString2 + "&gt;"
CASE cTmpChar == "<"
cTmpString2 := cTmpString2 + "&lt;"
CASE cTmpChar == ">"
cTmpString2 := cTmpString2 + "&gt;"
OTHERWISE
cTmpString2 = cTmpString2 + cTmpChar
cTmpString2 := cTmpString2 + cTmpChar
ENDCASE
nTmpCount ++
@@ -1316,7 +1316,7 @@ FUNCTION ProcWwwAlso( nWriteHandle, cSeeAlso )
LOCAL xPos
LOCAL tPos
nLen := LEN( cSeeAlso )
WHILE .t.
WHILE .T.
nPos := AT( ",", cSeeAlso )
IF nPos > 0
xTemp := SUBSTR( ALLTRIM( cSeeAlso ), 1, nPos - 1 )
@@ -1412,8 +1412,8 @@ FUNCTION FormatHtmBuff( cBuffer, cStyle )
LOCAL cline := ''
LOCAL cOldLine := ''
LOCAL cBuffend := ''
LOCAL lEndBuffer := .f.
LOCAL lArgBold := .f.
LOCAL lEndBuffer := .F.
LOCAL lArgBold := .F.
LOCAL npos
creturn := cBuffer + ' '
IF AT( '</par>', creturn ) > 0 .OR. EMPTY( cBuffer )
@@ -1426,20 +1426,20 @@ FUNCTION FormatHtmBuff( cBuffer, cStyle )
DO WHILE !lEndBuffer
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
// TheBlank := .t.
lEndBuffer := .T.
// TheBlank := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1491,19 +1491,19 @@ FUNCTION FormatHtmBuff( cBuffer, cStyle )
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</par>", cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
// TheBlank := .t.
lEndBuffer := .T.
// TheBlank := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1583,10 +1583,10 @@ FUNCTION ProchtmDesc( cBuffer, oHtm, cStyle ,cFileName)
LOCAL lEndPar := .F.
LOCAL cLine := ''
LOCAL lEndFixed := .F.
LOCAL lArgBold := .f.
LOCAL lArgBold := .F.
LOCAL LFstTableItem := .T.
LOCAL lEndTable := .F.
LOCAL lEndBuffer := .f.
LOCAL lEndBuffer := .F.
DEFAULT cStyle TO "Default"
DEFAULT cFileName TO NIL
@@ -1594,7 +1594,7 @@ FUNCTION ProchtmDesc( cBuffer, oHtm, cStyle ,cFileName)
// tracelog('cBuffer',cBuffer)
clastBuffer += cBuffer
endif
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle <> "Example"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle != "Example"
cBuffer := '<par>' + cBuffer
ENDIF
@@ -1602,8 +1602,8 @@ FUNCTION ProchtmDesc( cBuffer, oHtm, cStyle ,cFileName)
oHtm:WriteText( "<dd><br></dd>" )
ENDIF
IF cStyle <> "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) = 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) = 0 .AND. !EMPTY( cbuffer )
IF cStyle != "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) == 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) == 0 .AND. !EMPTY( cbuffer )
IF AT( "<par>", cBuffer ) > 0 .AND. AT( "</par>", cBuffer ) > 0
IF cStyle == "Arguments"
@@ -1704,7 +1704,7 @@ FUNCTION ProchtmDesc( cBuffer, oHtm, cStyle ,cFileName)
ENDIF
ENDIF
IF AT( '<fixed>', cBuffer ) > 0 .OR. cStyle = "Example"
IF AT( '<fixed>', cBuffer ) = 0 .OR. !EMPTY( cBuffer )
IF AT( '<fixed>', cBuffer ) == 0 .OR. !EMPTY( cBuffer )
if AT( '<fixed>', cBuffer ) > 0
lHasFixed:=.T.
else
@@ -1722,16 +1722,16 @@ FUNCTION ProchtmDesc( cBuffer, oHtm, cStyle ,cFileName)
DO WHILE !lendFixed
cOldLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</fixed>", cOldLine ) > 0
lendfixed := .t.
lendfixed := .T.
cOldLine := Alltrim(STRTRAN( cOldLine, "</fixed>", "" ))
ENDIF
IF AT( DELIM, cOldLine ) = 0
IF AT( DELIM, cOldLine ) == 0
cReturn += ALLTRIM( cOldLine ) + ' '
ENDIF
IF AT( DELIM, cOldLine ) > 0
FT_FSKIP( - 1 )
lEndfixed := .t.
lEndfixed := .T.
ENDIF
@@ -1740,18 +1740,18 @@ FUNCTION ProchtmDesc( cBuffer, oHtm, cStyle ,cFileName)
ENDIF
ENDDO
// oHtm:WriteText( "</pre><br>" )
lHasFixed:=.f.
lHasFixed:=.F.
END
IF AT( '<table>', cBuffer ) > 0
DO WHILE !lendTable
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</table>", cLine ) > 0
lendTable := .t.
lendTable := .T.
ELSE
IF LFstTableItem
nNumTableItems := GetNumberofTableItems( cLine )
prochtmtable( cline, nNumTableItems )
LFstTableItem := .f.
LFstTableItem := .F.
ELSE
prochtmtable( cline, nNumTableItems )
ENDIF
@@ -1826,7 +1826,7 @@ FUNCTION ProchtmTable( cBuffer, nNum )
cItem4 := SUBSTR( cBuffer, 1 )
ENDIF
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( afiTable, "<Font color=" + ccolor + ">" + RTRIM( LTRIM( cItem ) ) + '</font>' )
AADD( asiTable, "<Font color=" + ccolor + ">" + cItem2 + '</font>' )
ELSE
@@ -1834,12 +1834,12 @@ FUNCTION ProchtmTable( cBuffer, nNum )
AADD( asiTable, cItem2 )
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( atiTable, "<Font color=" + ccolor + ">" + cItem3 + '</font>' )
ELSE
AADD( atiTable, cItem3 )
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( afoiTable, "<Font color=" + ccolor + ">" + cItem4 + '</font>' )
ELSE
AADD( afoiTable, cItem4 )
@@ -1929,9 +1929,9 @@ STATIC FUNCTION GetItem( cItem, nCurdoc )
IF nPos > 0
cCuritem := xPos[ nPos ]
IF AT( "$", xPos[ nPos + 1 ] ) > 0
lReturn := .f.
lReturn := .F.
ELSE
lReturn := .t.
lReturn := .T.
ENDIF
ENDIF
@@ -1941,4 +1941,4 @@ RETURN lReturn
function CountDocs(aCurDoc)
return len(aCurdoc)
#endif
*+ EOF: GENNG.PRG
*+ EOF: GENNG.PRG

118
harbour/utils/hbdoc/genng.prg
View File

@@ -210,7 +210,7 @@ FUNCTION ProcessiNg()
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
cBuffer := STRTRAN( cBuffer, CHR( 10 ), "" )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -296,7 +296,7 @@ FUNCTION ProcessiNg()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -313,7 +313,7 @@ FUNCTION ProcessiNg()
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 21
IF LEN( cFileName ) == 21
cFileName := STUFF( cFileName, 21, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -497,7 +497,7 @@ FUNCTION ProcessiNg()
nMode := D_EXAMPLE
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cStatus, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -514,7 +514,7 @@ FUNCTION ProcessiNg()
nMode := D_COMPLIANCE
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cPlat, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -525,7 +525,7 @@ FUNCTION ProcessiNg()
nMode := D_NORMAL
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cFiles, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -536,7 +536,7 @@ FUNCTION ProcessiNg()
nMode := D_NORMAL
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cFunction, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -546,7 +546,7 @@ FUNCTION ProcessiNg()
// ENDIF
oNgi:WriteParBold( " Functions" )
lPar := .t.
lPar := .T.
nMode := D_NORMAL
lAddBlank := .T.
ENDIF
@@ -563,7 +563,7 @@ FUNCTION ProcessiNg()
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -576,7 +576,7 @@ FUNCTION ProcessiNg()
cbuFfer := '<par><b>' + cBuffer + '</b></par>'
ENDIF
procngdesc( cbuffer, oNgi, "Syntax" )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -584,14 +584,14 @@ FUNCTION ProcessiNg()
lBlankLine := EMPTY( cBuffer )
procngdesc( cbuffer, oNgi, "Arguments" )
ELSEIF nMode = D_EXAMPLE
ELSEIF nMode == D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
ProcNgDesc( cBuffer, oNgi, "Example" )
ELSEIF nMode = D_DESCRIPTION
ELSEIF nMode == D_DESCRIPTION
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -599,14 +599,14 @@ FUNCTION ProcessiNg()
lBlankLine := EMPTY( cBuffer )
ProcNgDesc( cBuffer, oNgi, "Description" )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
ProcNgDesc( cBuffer, oNgi )
ELSEIF nMode = D_COMPLIANCE
ELSEIF nMode == D_COMPLIANCE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -614,13 +614,13 @@ FUNCTION ProcessiNg()
lBlankLine := EMPTY( cBuffer )
ProcNgDesc( cBuffer, oNgi, "Compliance" )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := ProcNgiAlso( StripFiles( ALLTRIM( cBuffer ) ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
oNgi:WriteParBold( "Status" )
ENDIF
@@ -695,7 +695,7 @@ FUNCTION ProcNgiInput()
LOCAL nYhandle := FCREATE( 'ngi\funcn_.txt' )
LOCAL xY := "!Short:"
LOCAL cSee := "!seealso:"
LOCAL lEof := .f.
LOCAL lEof := .F.
LOCAL cBuffer
SET CONSOLE ON
afiles := DIRECTORY( "ngi\*.*" )
@@ -726,7 +726,7 @@ FUNCTION ProcNgiInput()
ENDIF
ENDIF
END
lEof := .f.
lEof := .F.
FT_FUSE()
NEXT
@@ -768,7 +768,7 @@ FUNCTION ProcNgiInput()
// cBuffer:=strtran(cBuffer,chr(10),"")
FWRITE( nXhandle, cBuffer + pCRLF )
lEof := .f.
lEof := .F.
aalso := {}
FT_FUSE()
NEXT
@@ -813,28 +813,28 @@ FUNCTION ProcNgiInput()
// cBuffer:=strtran(cBuffer,chr(10),"")
FWRITE( nYhandle, cBuffer + pCRLF )
lEof := .f.
lEof := .F.
aAlso := {}
lEof := .f.
lEof := .F.
FT_FUSE()
NEXT
FCLOSE( nYhandle )
lEof := .f.
lEof := .F.
y := FCREATE( 'ngi\comm.txt' )
ASORT( acfiles )
FOR x := 1 TO LEN( acfiles )
cFile := acfiles[ x ]
IF UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "LICENSE" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "OVERVIEW" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "COMPILEROPTIONS" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "GNULICENSE" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "GNULICENSEPART2";
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "STRONGTYPING";
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "THEGARBAGECOLLECTOR" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) <> "THEIDLESTATES"
IF UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "LICENSE" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "OVERVIEW" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "COMPILEROPTIONS" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "GNULICENSE" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "GNULICENSEPART2";
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "STRONGTYPING";
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "THEGARBAGECOLLECTOR" ;
.AND. UPPER( LEFT( cFile, AT( '.', cFile ) - 1 ) ) != "THEIDLESTATES"
@ INFILELINE, 33 SAY PAD( cfile, 47 )
FT_FUSE( "ngi\" + acfiles[ x ] )
@@ -872,11 +872,11 @@ FUNCTION ProcNgiInput()
ENDIF
ENDIF
lEof := .f.
lEof := .F.
aAlso := {}
FT_FUSE()
NEXT
lEof := .f.
lEof := .F.
FCLOSE( y )
RETURN NIL
@@ -906,7 +906,7 @@ FUNCTION procngialso2( cSeealso )
nPos := AT( "()", xAlso[ hPos ] )
IF nPos > 0
AADD( aAlso, "funcam.ngo:" + ALLTRIM( xAlso[ hPos ] ) + ' ' )
ELSEIF nPos = 0 .AND. UPPER( xAlso[ hPos ] ) <> "LICENSE" .AND. UPPER( xAlso[ hPos ] ) <> "OVERVIEW" .AND. !EMPTY( xAlso[ hPos ] )
ELSEIF nPos == 0 .AND. UPPER( xAlso[ hPos ] ) != "LICENSE" .AND. UPPER( xAlso[ hPos ] ) != "OVERVIEW" .AND. !EMPTY( xAlso[ hPos ] )
AADD( aAlso, "Comm.ngo:" + ALLTRIM( xAlso[ hPos ] ) + ' ' )
ENDIF
ENDIF
@@ -953,7 +953,7 @@ FUNCTION GenNgTable( oNgi )
LOCAL x
LOCAL nMax
LOCAL nSpace
LOCAL lCar := .f.
LOCAL lCar := .F.
LOCAL nMax2
LOCAL nSpace2
LOCAL nPos1
@@ -1288,7 +1288,7 @@ FUNCTION ProcNGDesc( cBuffer, oNgi, cStyle )
LOCAL lArgBold := .F.
DEFAULT cStyle TO "Default"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle <> "Example"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle != "Example"
cBuffer := '<par>' + cBuffer
ENDIF
@@ -1297,8 +1297,8 @@ FUNCTION ProcNGDesc( cBuffer, oNgi, cStyle )
ENDIF
IF cStyle <> "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) = 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) = 0 .AND. !EMPTY( cbuffer )
IF cStyle != "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) == 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) == 0 .AND. !EMPTY( cbuffer )
IF AT( "<par>", cBuffer ) > 0 .AND. AT( "</par>", cBuffer ) > 0
IF cStyle == "Arguments"
@@ -1313,7 +1313,7 @@ FUNCTION ProcNGDesc( cBuffer, oNgi, cStyle )
IF AT( "@", cOldLine ) > 0 .OR. AT( "()", cOldLine ) > 0 .OR. AT( "<", cOldLine ) > 0 .OR. AT( "_", cOldLine ) > 0
lArgBold := .T.
ELSE
lArgBold := .f.
lArgBold := .F.
ENDIF
// cBuffer:= strtran(cBuffer,"<par>","<par><b>")
@@ -1496,7 +1496,7 @@ FUNCTION ProcNGDesc( cBuffer, oNgi, cStyle )
ENDIF
IF AT( '<fixed>', cBuffer ) > 0 .OR. cStyle = "Example"
IF AT( '<fixed>', cBuffer ) = 0 .OR. !EMPTY( cBuffer )
IF AT( '<fixed>', cBuffer ) == 0 .OR. !EMPTY( cBuffer )
cBuffer := STRTRAN( cBuffer, "<par>", "" )
cBuffer := STRTRAN( cBuffer, "<fixed>", "" )
@@ -1505,15 +1505,15 @@ FUNCTION ProcNGDesc( cBuffer, oNgi, cStyle )
DO WHILE !lendFixed
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</fixed>", cLine ) > 0
lendfixed := .t.
lendfixed := .T.
cLine := STRTRAN( cLine, "</fixed>", "" )
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ALLTRIM( cLine ) + ' '
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndfixed := .t.
lEndfixed := .T.
ENDIF
IF AT( DELIM, cLine ) == 0
@@ -1526,12 +1526,12 @@ FUNCTION ProcNGDesc( cBuffer, oNgi, cStyle )
DO WHILE !lendTable
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</table>", cLine ) > 0 .or. AT( "</TABLE>", cLine ) > 0
lendTable := .t.
lendTable := .T.
ELSE
IF LFstTableItem
nNumTableItems := GetNumberofTableItems( cLine )
procngtable( cline, nNumTableItems )
LFstTableItem := .f.
LFstTableItem := .F.
ELSE
procngtable( cline, nNumTableItems )
ENDIF
@@ -1626,11 +1626,11 @@ FUNCTION FormatNgBuff( cBuffer, cStyle )
LOCAL cLine := ''
LOCAL cOldLine := ''
LOCAL cBuffEnd := ''
LOCAL lEndBuffer := .f.
LOCAL lEndBuffer := .F.
LOCAL nPos
LOCAL lArgBold := .f.
LOCAL LFstTableItem := .t.
LOCAL lArgBold := .F.
LOCAL LFstTableItem := .T.
cReturn := cBuffer + ' '
IF AT( '</par>', cReturn ) > 0 .OR. EMPTY( cBuffer )
IF EMPTY( cbuffer )
@@ -1642,20 +1642,20 @@ FUNCTION FormatNgBuff( cBuffer, cStyle )
DO WHILE !lEndBuffer
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
lEndBuffer := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1686,19 +1686,19 @@ FUNCTION FormatNgBuff( cBuffer, cStyle )
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</par>", cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
lEndBuffer := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1761,12 +1761,12 @@ STATIC FUNCTION GetItem( cItem, nCurdoc )
IF nPos > 0
cCuritem := xPos[ nPos ]
IF AT( "$", xPos[ nPos + 1 ] ) > 0
lReturn := .f.
lReturn := .F.
ELSE
lReturn := .t.
lReturn := .T.
ENDIF
ENDIF
RETURN lReturn
*+ EOF: GENNG.PRG
*+ EOF: GENNG.PRG

88
harbour/utils/hbdoc/genos2.prg
View File

@@ -213,7 +213,7 @@ FUNCTION ProcessOs2()
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -301,7 +301,7 @@ FUNCTION ProcessOs2()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -318,7 +318,7 @@ FUNCTION ProcessOs2()
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 40
IF LEN( cFileName ) == 40
cFileName := STUFF( cFileName, 40, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -548,7 +548,7 @@ end
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -564,7 +564,7 @@ end
procos2desc( cbuffer, oOs2, "Syntax" )
ELSEIF nMode = D_RETURN
ELSEIF nMode == D_RETURN
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
@@ -574,7 +574,7 @@ end
/* oOs2:dostoos2Text(cBuffer)*/
procos2desc( cbuffer, oOs2, "Arguments" )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -582,7 +582,7 @@ end
lBlankLine := EMPTY( cBuffer )
// oOs2:DosToOs2Text(cBuffer)
procos2desc( cbuffer, oOs2, "Arguments" )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -590,7 +590,7 @@ end
lBlankLine := EMPTY( cBuffer )
// oOs2:DosToOs2Text(cBuffer)
procos2desc( cBuffer, oOs2 )
ELSEIF nMode = D_DATALINK
ELSEIF nMode == D_DATALINK
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -602,7 +602,7 @@ end
cTemp := SUBSTR( cBuffer, 1, AT( ":", cBuffer ) - 1 )
cBuffer := SUBSTR( cBuffer, AT( ":", cBuffer ) + 1 )
oOs2:WriteJumpLink( LEFT( cfilename, AT( '.', cFilename ) - 1 ) + ALLTRIM( cTemp ), cBuffer )
ELSEIF nMode = D_METHODLINK
ELSEIF nMode == D_METHODLINK
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -616,18 +616,18 @@ end
cBuffer := SUBSTR( cBuffer, AT( "()", cBuffer ) + 2 )
oOs2:WriteJumpLink( LEFT( cfilename, AT( '.', cFilename ) - 1 ) + ALLTRIM( cTemp ), cTemp, cBuffer )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := ProcOs2Also( StripFiles( ALLTRIM( cBuffer ) ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
oOs2:WriteText( ".br" )
ENDIF
ENDIF
ELSEIF nMode = D_COMPLIANCE
ELSEIF nMode == D_COMPLIANCE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -636,7 +636,7 @@ end
// oOs2:DosToOs2Text(cBuffer)
procos2desc( cBuffer, oOs2, "Compliance" )
ELSEIF nMode = D_DESCRIPTION
ELSEIF nMode == D_DESCRIPTION
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -645,7 +645,7 @@ end
// oOs2:DosToOs2Text(cBuffer)
procos2desc( cBuffer, oOs2, "Description" )
ELSEIF nMode = D_EXAMPLE
ELSEIF nMode == D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -659,7 +659,7 @@ end
// oOs2:DosToOs2Text(cBuffer)
procos2desc( cBuffer, oOs2, "Example" )
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
oOs2:WriteParBold( "Status" )
ENDIF
@@ -738,10 +738,10 @@ FUNCTION Formatos2Buff( cBuffer, cStyle )
LOCAL cLine := ''
LOCAL cBuffend := ''
LOCAL coline := ''
LOCAL lEndBuff := .f.
LOCAL lEndBuff := .F.
LOCAL nPos
LOCAL lArgBold := .f.
LOCAL lArgBold := .F.
cReturn := cBuffer + ' '
IF AT( '</par>', cReturn ) > 0 .OR. EMPTY( cBuffer )
@@ -754,19 +754,19 @@ FUNCTION Formatos2Buff( cBuffer, cStyle )
DO WHILE !lEndBuff
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF EMPTY( cLine )
lEndBuff := .t.
lEndBuff := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cline ) > 0
FT_FSKIP( - 1 )
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += " "+ ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -791,7 +791,7 @@ FUNCTION Formatos2Buff( cBuffer, cStyle )
IF AT( "@", cOLine ) > 0 .OR. AT( "()", cOLine ) > 0 .OR. AT( "<", cOLine ) > 0 .OR. AT( "_", cOLine ) > 0
lArgBold := .T.
ELSE
lArgBold := .f.
lArgBold := .F.
ENDIF
ENDIF
@@ -799,17 +799,17 @@ FUNCTION Formatos2Buff( cBuffer, cStyle )
DO WHILE !lEndBuff
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF EMPTY( cLine )
lEndBuff := .t.
lEndBuff := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cline ) > 0
FT_FSKIP( - 1 )
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF AT( DELIM, cline ) = 0
IF AT( DELIM, cline ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -913,7 +913,7 @@ FUNCTION ProcOs2Table( cBuffer , nNum )
cItem4 := SUBSTR( cBuffer, 1 )
ENDIF
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( afiTable, "<Font color=" + ccolor + ">" + RTRIM( LTRIM( cItem ) ) + '</font>' )
AADD( asiTable, "<Font color=" + ccolor + ">" + cItem2 + '</font>' )
ELSE
@@ -921,12 +921,12 @@ FUNCTION ProcOs2Table( cBuffer , nNum )
AADD( asiTable, cItem2 )
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( atiTable, "<Font color=" + ccolor + ">" + cItem3 + '</font>' )
ELSE
AADD( atiTable, cItem3 )
ENDIF
IF cColor <> NIL
IF cColor != NIL
AADD( afoiTable, "<Font color=" + ccolor + ">" + cItem4 + '</font>' )
ELSE
AADD( afoiTable, cItem4 )
@@ -1042,15 +1042,15 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
DEFAULT cStyle TO "Default"
lendfixed := .F.
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle <> "Example"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle != "Example"
cBuffer := '<par>' + cBuffer
ENDIF
IF EMPTY( cBuffer )
oOs2:WriteText( ".br" )
ENDIF
IF cStyle <> "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) = 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) = 0 .AND. !EMPTY( cbuffer )
IF cStyle != "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) == 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) == 0 .AND. !EMPTY( cbuffer )
IF AT( "<par>", cBuffer ) > 0 .AND. AT( "</par>", cBuffer ) > 0
IF cStyle == "Arguments"
@@ -1065,7 +1065,7 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
IF AT( "@", cOLine ) > 0 .OR. AT( "()", cOLine ) > 0 .OR. AT( "<", cOLine ) > 0 .OR. AT( "_", cOLine ) > 0
lArgBold := .T.
ELSE
lArgBold := .f.
lArgBold := .F.
ENDIF
// cBuffer:= strtran(cBuffer,"<par>","<par><b>")
@@ -1137,7 +1137,7 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
if AT("<b>",cLine)>0 .or. AT("</b>",cLine)>0
cLine := STRTRAN( cLine, '<b>', '' )
cLine := STRTRAN( cLine, '</b>', '' )
oOs2:WriteParBold(cLine,.f.)
oOs2:WriteParBold(cLine,.F.)
Else
oos2:WriteText(SPACE(nidentLevel )+ cLine )
Endif
@@ -1190,7 +1190,7 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
ENDIF*/
IF !EMPTY( cBuffer )
/* cBuffer := SUBSTR( cBuffer, 2 )
oOs2:WriteParBold( cBuffer,.f.)
oOs2:WriteParBold( cBuffer,.F.)
oOs2:writeText('.br')
oOs2:writeText('.br')*/
// ? cBuffer
@@ -1210,7 +1210,7 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
ENDIF
IF AT( '<fixed>', cBuffer ) > 0 .OR. cStyle = "Example"
IF AT( '<fixed>', cBuffer ) = 0 .OR. !EMPTY( cBuffer )
IF AT( '<fixed>', cBuffer ) == 0 .OR. !EMPTY( cBuffer )
if AT( '<fixed>', cBuffer ) > 0
lHasFixed:=.T.
else
@@ -1227,15 +1227,15 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
DO WHILE !lendFixed
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</fixed>", cLine ) > 0
lendfixed := .t.
lendfixed := .T.
cLine := STRTRAN( cLine, "</fixed>", "" )
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ALLTRIM( cLine ) + ' '
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndfixed := .t.
lEndfixed := .T.
ENDIF
IF AT( DELIM, cLine ) == 0 .and. !lendfixed
@@ -1249,12 +1249,12 @@ FUNCTION Procos2Desc( cBuffer, oOs2, cStyle )
DO WHILE !lendTable
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</table>", cLine ) > 0
lendTable := .t.
lendTable := .T.
ELSE
IF LFstTableItem
nNumTableItems := GetNumberofTableItems( cLine )
procos2table( cline, nNumTableItems )
LFstTableItem := .f.
LFstTableItem := .F.
ELSE
procos2table( cline, nNumTableItems )
ENDIF
@@ -1309,12 +1309,12 @@ STATIC FUNCTION GetItem( cItem, nCurdoc )
IF nPos > 0
cCuritem := xPos[ nPos ]
IF AT( "$", xPos[ nPos + 1 ] ) > 0
lReturn := .f.
lReturn := .F.
ELSE
lReturn := .t.
lReturn := .T.
ENDIF
ENDIF
RETURN lReturn
*+ EOF: GENOS2.PRG
*+ EOF: GENOS2.PRG

84
harbour/utils/hbdoc/genpdf1.prg
View File

@@ -247,7 +247,7 @@ local hhh
cBuffer := STRTRAN( cBuffer, CHR( 10 ), "" )
endif
nLineCnt ++
// IF nLineCnt % 10 = 0
// IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
// ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -354,7 +354,7 @@ local hhh
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -371,7 +371,7 @@ local hhh
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 21
IF LEN( cFileName ) == 21
cFileName := STUFF( cFileName, 21, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -431,7 +431,7 @@ local hhh
hb_pdfWritetext(" ")
aadd(aWww,{alltrim(cFuncname),HB_GETPAGE()})
else
// oPdf:WriteTitle( PAD( cFuncName, 40 ), cFuncName ,cCategory,.t.)
// oPdf:WriteTitle( PAD( cFuncName, 40 ), cFuncName ,cCategory,.T.)
HB_PDFNEWPAGE( PAD( cFuncName, 40 ), cFuncName)
if empty(cCategory)
cCategory := "Dos"
@@ -564,7 +564,7 @@ local hhh
nMode := D_EXAMPLE
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cStatus, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -583,7 +583,7 @@ local hhh
nMode := D_COMPLIANCE
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cPlat, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -596,7 +596,7 @@ local hhh
nMode := D_NORMAL
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cFiles, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -609,7 +609,7 @@ local hhh
nMode := D_NORMAL
lAddBlank := .T.
lPar := .t.
lPar := .T.
ENDIF
ELSEIF AT( cFunction, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -620,7 +620,7 @@ local hhh
hb_pdfwriteBoldtext1( " Functions" )
hb_pdfWritetext( " " )
lPar := .t.
lPar := .T.
nMode := D_NORMAL
lAddBlank := .T.
ENDIF
@@ -637,7 +637,7 @@ local hhh
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -650,7 +650,7 @@ local hhh
cbuFfer := '<par><b>' + cBuffer + '</b></par>'
ENDIF
ProcPdfDesc( cbuffer, oPdf, "Syntax" )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -658,14 +658,14 @@ local hhh
lBlankLine := EMPTY( cBuffer )
ProcPdfDesc( cbuffer, oPdf, "Arguments" )
ELSEIF nMode = D_EXAMPLE
ELSEIF nMode == D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
ProcPdfDesc( cBuffer, oPdf, "Example" )
ELSEIF nMode = D_DESCRIPTION
ELSEIF nMode == D_DESCRIPTION
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -673,14 +673,14 @@ local hhh
lBlankLine := EMPTY( cBuffer )
ProcPdfDesc( cBuffer, oPdf, "Description" )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
ProcPdfDesc( cBuffer, oPdf )
ELSEIF nMode = D_COMPLIANCE
ELSEIF nMode == D_COMPLIANCE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -688,13 +688,13 @@ local hhh
lBlankLine := EMPTY( cBuffer )
ProcPdfDesc( cBuffer, oPdf, "Compliance" )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := ProcPdfAlso( StripFiles( ALLTRIM( cBuffer ) ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
hb_pdfwritetext('')
hb_pdfwriteBoldtext1( " Status" )
@@ -916,7 +916,7 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
LOCAL lArgBold := .F.
DEFAULT cStyle TO "Default"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle <> "Example"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle != "Example"
cBuffer := '<par>' + cBuffer
ENDIF
@@ -925,8 +925,8 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
ENDIF
IF cStyle <> "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) = 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) = 0 .AND. !EMPTY( cbuffer )
IF cStyle != "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) == 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) == 0 .AND. !EMPTY( cbuffer )
IF AT( "<par>", cBuffer ) > 0 .AND. AT( "</par>", cBuffer ) > 0
IF cStyle == "Arguments"
@@ -941,7 +941,7 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
IF AT( "@", cOldLine ) > 0 .OR. AT( "()", cOldLine ) > 0 .OR. AT( "<", cOldLine ) > 0 .OR. AT( "_", cOldLine ) > 0
lArgBold := .T.
ELSE
lArgBold := .f.
lArgBold := .F.
ENDIF
// cBuffer:= strtran(cBuffer,"<par>","<par><b>")
@@ -1090,7 +1090,7 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
ENDIF
ENDIF
IF !EMPTY( cLine )
hb_pdfWriteBoldText( SPACE( nidentLevel ) + ALLTRIM( cLine ) ,.f.)
hb_pdfWriteBoldText( SPACE( nidentLevel ) + ALLTRIM( cLine ) ,.F.)
ENDIF
curPos += nPos
ENDDO
@@ -1139,7 +1139,7 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
ENDIF
IF AT( '<fixed>', cBuffer ) > 0 .OR. cStyle = "Example"
IF AT( '<fixed>', cBuffer ) = 0 .OR. !EMPTY( cBuffer )
IF AT( '<fixed>', cBuffer ) == 0 .OR. !EMPTY( cBuffer )
cBuffer := STRTRAN( cBuffer, "<par>", "" )
cBuffer := STRTRAN( cBuffer, "<fixed>", "" )
hb_pdfWriteText( cBuffer )
@@ -1147,15 +1147,15 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
DO WHILE !lendFixed
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</fixed>", cLine ) > 0
lendfixed := .t.
lendfixed := .T.
cLine := STRTRAN( cLine, "</fixed>", "" )
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ALLTRIM( cLine ) + ' '
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndfixed := .t.
lEndfixed := .T.
ENDIF
IF AT( DELIM, cLine ) == 0
@@ -1168,12 +1168,12 @@ FUNCTION ProcPdfDesc( cBuffer, oPdf, cStyle )
DO WHILE !lendTable
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</table>", cLine ) > 0 .or. AT( "</TABLE>", cLine ) > 0
lendTable := .t.
lendTable := .T.
ELSE
IF LFstTableItem
nNumTableItems := GetNumberofTableItems( cLine )
ProcPdfTable( cline, nNumTableItems )
LFstTableItem := .f.
LFstTableItem := .F.
ELSE
ProcPdfTable( cline, nNumTableItems )
ENDIF
@@ -1265,10 +1265,10 @@ FUNCTION FormatPdfBuff( cBuffer, cStyle, oPdf )
LOCAL cLine := ''
LOCAL cOldLine := ''
LOCAL cBuffEnd := ''
LOCAL lEndBuffer := .f.
LOCAL lEndBuffer := .F.
LOCAL nPos
LOCAL lArgBold := .f.
LOCAL LFstTableItem := .t.
LOCAL lArgBold := .F.
LOCAL LFstTableItem := .T.
HB_SYMBOL_UNUSED( oPdf )
@@ -1284,20 +1284,20 @@ FUNCTION FormatPdfBuff( cBuffer, cStyle, oPdf )
DO WHILE !lEndBuffer
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
lEndBuffer := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1328,19 +1328,19 @@ FUNCTION FormatPdfBuff( cBuffer, cStyle, oPdf )
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</par>", cLine ) > 0
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF EMPTY( cLine )
lEndBuffer := .t.
lEndBuffer := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cLine ) > 0
FT_FSKIP( - 1 )
lEndBuffer := .t.
lEndBuffer := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1404,9 +1404,9 @@ STATIC FUNCTION GetItem( cItem, nCurdoc )
IF nPos > 0
cCuritem := xPos[ nPos ]
IF AT( "$", xPos[ nPos + 1 ] ) > 0
lReturn := .f.
lReturn := .F.
ELSE
lReturn := .t.
lReturn := .T.
ENDIF
ENDIF

90
harbour/utils/hbdoc/genrtf.prg
View File

@@ -132,7 +132,7 @@ FUNCTION ProcessRtf()
LOCAL oRtf
LOCAL nReadHandle
LOCAL lPar
LOCAL lWrite := .f.
LOCAL lWrite := .F.
LOCAL lWasLine := .F.
LOCAL lIsDataLink := .F.
LOCAL lIsMethodLink := .F.
@@ -173,7 +173,7 @@ FUNCTION ProcessRtf()
lIsDataLink := .F.
lIsMethodLink := .F.
lWrite := .f.
lWrite := .F.
cTempx := ''
//
// Entry Point
@@ -215,7 +215,7 @@ FUNCTION ProcessRtf()
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -258,7 +258,7 @@ FUNCTION ProcessRtf()
aAlso:=ListAsArray2(cSeeAlso,",")
// if Len(aAlso) <3
// ProcRtfalso( oRtf, cSeealso )
// oRtf:WriteKLink(aAlso,.f.)
// oRtf:WriteKLink(aAlso,.F.)
// else
oRtf:WriteKLink(aAlso)
// endif
@@ -301,7 +301,7 @@ FUNCTION ProcessRtf()
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -318,7 +318,7 @@ FUNCTION ProcessRtf()
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 40
IF LEN( cFileName ) == 40
cFileName := STUFF( cFileName, 40, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -425,7 +425,7 @@ FUNCTION ProcessRtf()
oRtf:WritePar( '' ) //:endpar()
nMode := D_ARG
lAddBlank := .T.
lPar := .t.
lPar := .T.
END
ELSEIF AT( cRet, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -437,7 +437,7 @@ FUNCTION ProcessRtf()
oRtf:WritePar( "" ) //:endpar()
nMode := D_RETURN
lAddBlank := .T.
lPar := .t.
lPar := .T.
END
ELSEIF AT( cDesc, cBuffer ) > 0
IF GetItem( cBuffer, nCurdoc )
@@ -593,7 +593,7 @@ oRtf:WritePar( "" ) //:endpar()
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -607,7 +607,7 @@ oRtf:WritePar( "" ) //:endpar()
ENDIF
procrtfdesc( cbuffer, oRtf, "Syntax" )
// oRtf:WritePar('') //:endpar()
ELSEIF nMode = D_RETURN
ELSEIF nMode == D_RETURN
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
@@ -617,7 +617,7 @@ oRtf:WritePar( "" ) //:endpar()
procrtfdesc( cbuffer, oRtf, "Arguments" )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
@@ -626,7 +626,7 @@ oRtf:WritePar( "" ) //:endpar()
lBlankLine := EMPTY( cBuffer )
procrtfdesc( cbuffer, oRtf, "Arguments" )
ELSEIF nMode = D_DATALINK
ELSEIF nMode == D_DATALINK
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -638,7 +638,7 @@ oRtf:WritePar( "" ) //:endpar()
cTemp := SUBSTR( cBuffer, 1, AT( ":", cBuffer ) - 1 )
cBuffer := SUBSTR( cBuffer, AT( ":", cBuffer ) + 1 )
oRtf:WriteJumpLink1( LEFT( cfilename, AT( '.', cFilename ) - 1 ) + ALLTRIM( cTemp ), cTemp, cBuffer )
ELSEIF nMode = D_METHODLINK
ELSEIF nMode == D_METHODLINK
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -652,14 +652,14 @@ oRtf:WritePar( "" ) //:endpar()
cBuffer := SUBSTR( cBuffer, AT( "()", cBuffer ) + 2 )
oRtf:WriteJumpLink( LEFT( cfilename, AT( '.', cFilename ) - 1 ) + ALLTRIM( cTemp ),ALLTRIM( cTemp ), cBuffer )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
ENDIF
lBlankLine := EMPTY( cBuffer )
procrtfdesc( cBuffer, oRtf )
ELSEIF nMode = D_COMPLIANCE
ELSEIF nMode == D_COMPLIANCE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -667,7 +667,7 @@ oRtf:WritePar( "" ) //:endpar()
lBlankLine := EMPTY( cBuffer )
procrtfdesc( cBuffer, oRtf, "Compliance" )
ELSEIF nMode = D_DESCRIPTION
ELSEIF nMode == D_DESCRIPTION
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -675,7 +675,7 @@ oRtf:WritePar( "" ) //:endpar()
lBlankLine := EMPTY( cBuffer )
procrtfdesc( cBuffer, oRtf, "Description" )
ELSEIF nMode = D_EXAMPLE
ELSEIF nMode == D_EXAMPLE
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -688,18 +688,18 @@ oRtf:WritePar( "" ) //:endpar()
ENDIF
procrtfdesc( cBuffer, oRtf, "Example" )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := StripFiles( ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
oRtf:WritePar( "" ) //:endpar()
ENDIF
ENDIF
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
oRtf:WritePar( '' ) //:endpar()
oRtf:WriteParBold( "Status" )
@@ -852,9 +852,9 @@ FUNCTION ProcRTFDesc( cBuffer, oRtf, cStyle )
LOCAL lEndFixed := .F.
LOCAL lEndTable := .F.
LOCAL lArgBold := .f.
LOCAL lArgBold := .F.
DEFAULT cStyle TO "Default"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle <> "Example"
IF AT( '<par>', cBuffer ) == 0 .AND. !EMPTY( cBuffer ) .AND. cstyle != "Example"
cBuffer := '<par>' + cBuffer
ENDIF
@@ -862,8 +862,8 @@ FUNCTION ProcRTFDesc( cBuffer, oRtf, cStyle )
oRtf:WritePar( "" )
ENDIF
IF cStyle <> "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) = 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) = 0 .AND. !EMPTY( cbuffer )
IF cStyle != "Example" .AND. AT( "<table>", cBuffer ) == 0 .AND. AT( "<fixed>", cBuffer ) == 0
IF AT( "<par>", cBuffer ) >= 0 .OR. AT( "</par>", cBuffer ) == 0 .AND. !EMPTY( cbuffer )
IF AT( "<par>", cBuffer ) > 0 .AND. AT( "</par>", cBuffer ) > 0
IF cStyle == "Arguments"
@@ -883,7 +883,7 @@ FUNCTION ProcRTFDesc( cBuffer, oRtf, cStyle )
IF AT( "@", cOLine ) > 0 .OR. AT( "()", cOLine ) > 0 .OR. AT( "<", cOLine ) > 0 .OR. AT( "_", cOLine ) > 0
lArgBold := .T.
ELSE
lArgBold := .f.
lArgBold := .F.
ENDIF
// cBuffer:= strtran(cBuffer,"<par>","<par><b>")
@@ -966,7 +966,7 @@ FUNCTION ProcRTFDesc( cBuffer, oRtf, cStyle )
ENDIF
ENDIF
IF AT( '<fixed>', cBuffer ) > 0 .OR. cStyle = "Example"
IF AT( '<fixed>', cBuffer ) = 0 .OR. !EMPTY( cBuffer )
IF AT( '<fixed>', cBuffer ) == 0 .OR. !EMPTY( cBuffer )
cBuffer := STRTRAN( cBuffer, "<par>", "" )
cBuffer := STRTRAN( cBuffer, "<fixed>", "" )
oRtf:WriteParFixed( cBuffer )
@@ -974,12 +974,12 @@ FUNCTION ProcRTFDesc( cBuffer, oRtf, cStyle )
DO WHILE !lendFixed
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</fixed>", cLine ) > 0
lendfixed := .t.
lendfixed := .T.
cLine := STRTRAN( cline, "</fixed>", "" )
ENDIF
IF AT( DELIM, cline ) > 0
FT_FSKIP( - 1 )
lEndfixed := .t.
lEndfixed := .T.
ENDIF
IF AT( DELIM, cline ) == 0
@@ -992,7 +992,7 @@ FUNCTION ProcRTFDesc( cBuffer, oRtf, cStyle )
DO WHILE !lendTable
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</table>", cBuffer ) > 0
lendTable := .t.
lendTable := .T.
ELSE
procrtftable( cBuffer )
ENDIF
@@ -1040,7 +1040,7 @@ FUNCTION ProcRtfTable( cBuffer )
ELSE
cItem := ''
ENDIF
IF ccolor <> NIL
IF ccolor != NIL
AADD( afiTable, ccolor + cItem )
ELSE
AADD( afiTable, cItem )
@@ -1059,7 +1059,7 @@ RETURN Nil
FUNCTION GenRtfTable( oRtf )
LOCAL x
LOCAL lCar := .f.
LOCAL lCar := .F.
LOCAL nMax2
LOCAL nPos2
LOCAL nPos
@@ -1167,9 +1167,9 @@ FUNCTION FormatrtfBuff( cBuffer, cStyle )
LOCAL cLine := ''
LOCAL cBuffend := ''
LOCAL coline := ''
LOCAL lEndBuff := .f.
LOCAL lEndBuff := .F.
LOCAL nPos
LOCAL lArgBold := .f.
LOCAL lArgBold := .F.
creturn := cBuffer + ' '
IF AT( '</par>', creturn ) > 0 .OR. EMPTY( cBuffer )
IF EMPTY( cbuffer )
@@ -1181,20 +1181,20 @@ FUNCTION FormatrtfBuff( cBuffer, cStyle )
DO WHILE !lendBuff
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( '</par>', cLine ) > 0
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF EMPTY( cLine )
lEndBuff := .t.
lEndBuff := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cline ) > 0
FT_FSKIP( - 1 )
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF AT( DELIM, cLine ) = 0
IF AT( DELIM, cLine ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1220,7 +1220,7 @@ FUNCTION FormatrtfBuff( cBuffer, cStyle )
IF AT( "@", cOLine ) > 0 .OR. AT( "()", cOLine ) > 0 .OR. AT( "<", cOLine ) > 0 .OR. AT( "_", cOLine ) > 0
lArgBold := .T.
ELSE
lArgBold := .f.
lArgBold := .F.
ENDIF
ENDIF
@@ -1228,19 +1228,19 @@ FUNCTION FormatrtfBuff( cBuffer, cStyle )
cLine := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
IF AT( "</par>", cLine ) > 0
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF EMPTY( cLine )
lEndBuff := .t.
lEndBuff := .T.
FT_FSKIP( - 1 )
ENDIF
IF AT( DELIM, cline ) > 0
FT_FSKIP( - 1 )
lEndBuff := .t.
lEndBuff := .T.
ENDIF
IF AT( DELIM, cline ) = 0
IF AT( DELIM, cline ) == 0
cReturn += ' ' + ALLTRIM( cLine ) + ' '
ENDIF
ENDDO
@@ -1304,9 +1304,9 @@ STATIC FUNCTION GetItem( cItem, nCurdoc )
IF nPos > 0
cCuritem := xPos[ nPos ]
IF AT( "$", xPos[ nPos + 1 ] ) > 0
lReturn := .f.
lReturn := .F.
ELSE
lReturn := .t.
lReturn := .T.
ENDIF
ENDIF
@@ -1314,4 +1314,4 @@ RETURN lReturn
// /
*+ EOF: GENRTF.PRG
*+ EOF: GENRTF.PRG

18
harbour/utils/hbdoc/gentrf.prg
View File

@@ -192,7 +192,7 @@ FUNCTION ProcessTroff
cBuffer := TRIM( SUBSTR( ReadLN( @lEof ), nCommentLen ) )
nLineCnt ++
IF nLineCnt % 10 = 0
IF nLineCnt % 10 == 0
@ LINELINE, 33 SAY STR( nLineCnt, 5, 0 )
ENDIF
// check to see if we are in doc mode or getting out of doc mode
@@ -276,7 +276,7 @@ FUNCTION ProcessTroff
FOR j := 1 TO LEN( cTemp )
cChar := SUBSTR( cTemp, j, 1 )
IF ( cChar >= "0" .AND. cChar <= "9" ) .OR. ;
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar = "_"
( cChar >= "A" .AND. cChar <= "Z" ) .OR. cChar == "_"
cFileName += cChar
ENDIF
NEXT
@@ -293,7 +293,7 @@ FUNCTION ProcessTroff
// This will break if there are more than 10 files with the same first
// seven characters. We take our chances.
IF LEN( cFileName ) = 21
IF LEN( cFileName ) == 21
cFileName := STUFF( cFileName, 21, 1, STR( nCount, 1, 0 ) )
ELSE
cFileName += STR( nCount, 1, 0 )
@@ -433,7 +433,7 @@ FUNCTION ProcessTroff
ELSE
// translate any \$ into $
cBuffer := STRTRAN( cBuffer, "\" + DELIM, DELIM )
IF nMode = D_SYNTAX
IF nMode == D_SYNTAX
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Syntax", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -446,7 +446,7 @@ FUNCTION ProcessTroff
/* nNonBlank:=FirstNB(cBuffer)
cBuffer=STUFF(cBuffer,nNonBlank,0,"^a1f ")*/
otroff:WritePar( cBuffer )
ELSEIF nMode = D_ARG
ELSEIF nMode == D_ARG
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "Arguments", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -459,7 +459,7 @@ FUNCTION ProcessTroff
cBuffer := STRTRAN( cBuffer, "<", "<", 1 )
cBuffer := STRTRAN( cBuffer, ">", ">", 1 )
otroff:WritePar( StripNgControls( cBuffer ) )
ELSEIF nMode = D_NORMAL
ELSEIF nMode == D_NORMAL
IF LEN( cBuffer ) > LONGLINE
WRITE_ERROR( "General", cBuffer, nLineCnt, ;
LONGLINE, aDirList[ i, F_NAME ] )
@@ -470,11 +470,11 @@ FUNCTION ProcessTroff
lAddBlank := .F.
ENDIF
otroff:WritePar( StripNgControls( cBuffer ) )
ELSEIF nMode = D_SEEALSO
ELSEIF nMode == D_SEEALSO
IF .NOT. EMPTY( cBuffer )
cSeeAlso := ProcTroffAlso( StripFiles( ALLTRIM( cBuffer ) ) )
ENDIF
ELSEIF nMode = D_INCLUDE
ELSEIF nMode == D_INCLUDE
// read next line
IF .NOT. EMPTY( cBuffer )
IF !lBlankLine
@@ -483,7 +483,7 @@ FUNCTION ProcessTroff
otroff:WritePar( " Header File: " ;
+ ALLTRIM( cBuffer ) )
ENDIF
ELSEIF nMode = D_STATUS
ELSEIF nMode == D_STATUS
IF !EMPTY( cBuffer )
otroff:WriteParBold( "Status" )
ENDIF

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

@@ -189,7 +189,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
LOCAL ppp
LOCAL aMetaContents:={}
Local aTemp:={}
LOCAL lAdded:=.f.
LOCAL lAdded:=.F.
Local aRtfid
LOCAL nCount_1 := 1
@@ -217,7 +217,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
PUBLIC lTee := .F.
PUBLIC aWWW := {}
PUBLIC aResult := {}
PUBLIC lTroff := .f.
PUBLIC lTroff := .F.
// The following variables are used to allow one to change the delimiter
// around the keywords.
@@ -239,29 +239,29 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
IF ( cFlags := UPPER( RIGHT( cFlags, 3 ) ) ) == "TXT"
lAscii := .T.
lContinuous := .F.
ELSEIF cFlags = "TEE"
ELSEIF cFlags == "TEE"
lTee := .T.
ELSEIF cFlags = "HPC"
ELSEIF cFlags == "HPC"
lNorton := .T.
ELSEIF cFlags = "NGI"
ELSEIF cFlags == "NGI"
lNgi := .T.
ELSEIF cFlags = "OS2"
ELSEIF cFlags == "OS2"
lOs2 := .T.
ELSEIF cFlags = "RTF"
ELSEIF cFlags == "RTF"
lRtf := .T.
ELSEIF cFlags = "HTM"
ELSEIF cFlags == "HTM"
lWww := .T.
ELSEIF cFlags = "HT2"
ELSEIF cFlags == "HT2"
lWww2 := .T.
ELSEIF cFlags = "PDF"
ELSEIF cFlags == "PDF"
lPdf := .T.
ELSEIF cFlags = "CHM"
ELSEIF cFlags == "CHM"
lChm := .T.
ELSEIF cFlags = "CH2"
ELSEIF cFlags == "CH2"
lChm2 := .T.
ELSEIF cFlags = "TRF"
lTroff := .t.
ELSEIF cFlags = "DOC"
ELSEIF cFlags == "TRF"
lTroff := .T.
ELSEIF cFlags == "DOC"
lAscii := .T.
lContinuous := .T.
lAuthor := .F.
@@ -274,7 +274,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
// Get the linkfile name and get the info in it
IF cLinkName = NIL
IF cLinkName == NIL
outstd( "Harbour Doc Extractor"+ hb_osnewline() )
outstd( "Copyright (c) 1999-2008, http://www.harbour-project.org/"+ hb_osnewline() )
outstd( ""+ hb_osnewline() )
@@ -378,7 +378,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
cCompiler := fill_Link_info( cLinkName )
endif
IF cAtFile = NIL // use all files in directory
IF cAtFile == NIL // use all files in directory
// Loop through each of the types of files
@@ -404,8 +404,8 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
// tracelog(aRtfid,aRtfid[1])
#ifdef HBDOC_PDF
ELSEIF lPdf
ProcessPDF(.t.)
ProcessPDF(.f.)
ProcessPDF(.T.)
ProcessPDF(.F.)
#endif
ELSEIF lWww
ProcessWww()
@@ -439,8 +439,8 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
ProcessFiles()
#ifdef HBDOC_PDF
ELSEIF lPdf
ProcessPDF(.t.)
ProcessPDF(.f.)
ProcessPDF(.T.)
ProcessPDF(.F.)
#endif
ELSEIF lRtf
aRtfid := ProcessRtf()
@@ -519,16 +519,16 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
nItem := ASCAN( aLinkInfo, { | a | UPPER( ALLTRIM( a[ 1 ] ) ) == UPPER( ALLTRIM( aDocInfo[ i, 1 ] ) ) } )
IF nItem > 0
IF i = 1 .OR. .NOT. ( ALLTRIM( aDocInfo[ i - 1, 1 ] ) == ALLTRIM( aDocInfo[ i, 1 ] ) )
IF i == 1 .OR. .NOT. ( ALLTRIM( aDocInfo[ i - 1, 1 ] ) == ALLTRIM( aDocInfo[ i, 1 ] ) )
// Make the first copy
? "ECHO Creating", aLinkinfo[ nItem, 2 ]
? "COPY hdf\" + ALLTRIM( aDocInfo[ i, 4 ] ) + " HarDoc.hdf > NUL"
? "COPY hdf\" + ALLTRIM( aDocInfo[ i, 4 ] ) + " hardoc.hdf > NUL"
ELSE
// This may be slow but I don't have to worry about line length
? "TYPE hdf\" + ALLTRIM( aDocInfo[ i, 4 ] ) + " >> HarDoc.hdf "
? "TYPE hdf\" + ALLTRIM( aDocInfo[ i, 4 ] ) + " >> hardoc.hdf "
ENDIF
aLinkInfo[ nItem, 3 ] = .T.
aLinkInfo[ nItem, 3 ] := .T.
ELSE
// Write the error message
SET ALTERNATE TO
@@ -594,7 +594,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
FWRITE( nHpj, '1 Harbour Runtime functions and Commands by Name'+CRLF)
asort(aWww,,,{|x,y| x[1]<y[1]})
for ppp:=1 to len(aWww)
if aWww[ppp,3]<>'Run Time Errors' .and. aWww[ppp,3] <>"Document" .and. aWww[ppp,3] <>"The garbage collector" .and. aWww[ppp,3] <>"OOP Command" .and. aWww[ppp,3] <>"Command" .and. aWww[ppp,3] <>"The idle states"
if aWww[ppp,3]!='Run Time Errors' .and. aWww[ppp,3] !="Document" .and. aWww[ppp,3] !="The garbage collector" .and. aWww[ppp,3] !="OOP Command" .and. aWww[ppp,3] !="Command" .and. aWww[ppp,3] !="The idle states"
fWrite( nHpj, '2 '+aWww[ppp,1]+"="+aWww[ppp,2]+">Funca"+CRLF)
endif
Next
@@ -637,7 +637,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
ELSEIF lWWW
ASORT( aDocWWWInfo,,, { | a, b | UPPER( a[ 1 ] ) < UPPER( b[ 1 ]) } )
asort(adocinfo,,,{|x,y| x[1]+x[2]<y[1]+y[2]})
do while .t.
do while .T.
citem:=adocinfo[1,1]
AADD(aMetaContents,{"GENERATOR","HBDOC Harbour document Extractor"})
aadd(aMetaContents,{'Keywords',"Harbour project, Clipper, xBase, database, Free Software, GNU, compiler, cross platform, 32-bit, FiveWin,"+cItem})
@@ -697,7 +697,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
for ppp:=1 to nItem
cLast:=GetNextContent(ppp)
if (cLast<>'Run Time Errors' .and. cLast <>"Document" .and. cLast <>"The garbage collector" .and. cLast <>"The idle states") .and. (cLast != "Command" .and. clast !="OOP Command" .and. cLast !="Statement") .and. (! "CLASS" $ UPPER(cLast) .and. !"METHOD" $ UPPER(cLast))
if (cLast!='Run Time Errors' .and. cLast !="Document" .and. cLast !="The garbage collector" .and. cLast !="The idle states") .and. (cLast != "Command" .and. clast !="OOP Command" .and. cLast !="Statement") .and. (! "CLASS" $ UPPER(cLast) .and. !"METHOD" $ UPPER(cLast))
ohtm1:WriteLink('hb'+strtran(aResult[ppp]," ","")+'.htm',aResult[ppp])
endif
@@ -847,7 +847,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
ohtm:WriteText("<ul>")
asort(aDocinfo,,,{|x,y|x[2]<y[2]})
for ppp:=1 to len(aDocinfo)
if aDocInfo[ppp,1]<>'Run Time Errors' .and. aDocInfo[ppp,1] <>"Document" .and. aDocInfo[ppp,1] <>"The garbage collector" .and. aDocInfo[ppp,1] <>"OOP Command" .and. aDocInfo[ppp,1] <>"Command" .and. aDocInfo[ppp,1] <>"The idle states"
if aDocInfo[ppp,1]!='Run Time Errors' .and. aDocInfo[ppp,1] !="Document" .and. aDocInfo[ppp,1] !="The garbage collector" .and. aDocInfo[ppp,1] !="OOP Command" .and. aDocInfo[ppp,1] !="Command" .and. aDocInfo[ppp,1] !="The idle states"
oHtm:Listitem()
oHtm:AddObject("text/sitemap")
oHtm:AddParam("Name",UpperLower(aDocinfo[ppp,2]))
@@ -871,7 +871,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
for ppp:=1 to nItem
cLast:=GetNextContent(ppp)
if cLast<>'Run Time Errors' .and. cLast <>"Document" .and. cLast <>"The garbage collector" .and. cLast <>"OOP Command" .and. cLast <>"Command" .and. cLast <>"The idle states"
if cLast!='Run Time Errors' .and. cLast !="Document" .and. cLast !="The garbage collector" .and. cLast !="OOP Command" .and. cLast !="Command" .and. cLast !="The idle states"
ohtm:WriteText("<ul>")
oHtm:ListItem()
oHtm:AddObject("text/sitemap")
@@ -879,7 +879,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
ohtm:EndObject()
ohtm:WriteText("<ul>")
endif
if cLast<>'Run Time Errors' .and. cLast <>"Document" .and. cLast <>"The garbage collector" .and. cLast <>"OOP Command" .and. cLast <>"Command" .and. cLast <>"The idle states"
if cLast!='Run Time Errors' .and. cLast !="Document" .and. cLast !="The garbage collector" .and. cLast !="OOP Command" .and. cLast !="Command" .and. cLast !="The idle states"
// oHtm:WriteText( "<UL>" )
WriteChmContentFile(aDocinfo,cLast,oHtm)
oHtm:WriteText( "</UL>" )
@@ -976,7 +976,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
FWRITE( nHpj, 'Contents file=.\'+ lower(substr(cLinkName,1,AT(".",cLinkName)-1)) +".hhc"+ CRLF )
FWRITE( nHpj, 'Compiled file=.\'+ lower(substr(cLinkName,1,AT(".",cLinkName)-1)) +".chm"+ CRLF )
FWRITE( nHpj, 'Display compile progress=No'+CRLF)
//nPos := aScan(aDocInfo, {|x| Upper(x[2] + ".HTM") = "OVERVIEW"})
//nPos := aScan(aDocInfo, {|x| Upper(x[2] + ".htm") = "OVERVIEW"})
//if nPos > 0
FWRITE( nHpj,'Default topic=index.htm' + CRLF)
//Else
@@ -1226,7 +1226,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
IF nLen > 1
// Middle initial
cMI := aName[ 2 ]
IF !( LEN( cMi ) = 1 .OR. ( LEN( cMi ) = 2 .AND. RIGHT( cMi, 1 ) = "." ) )
IF !( LEN( cMi ) == 1 .OR. ( LEN( cMi ) == 2 .AND. RIGHT( cMi, 1 ) == "." ) )
cMi := NIL
ENDIF
// Last name
@@ -1239,7 +1239,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
// Add to array
aAuthorList[ i, 3 ] = cLName + "," + cFname + IIF( !EMPTY( cMi ), " " + cMi, " " )
aAuthorList[ i, 3 ] := cLName + "," + cFname + IIF( !EMPTY( cMi ), " " + cMi, " " )
ENDIF
@@ -1262,7 +1262,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
// Remove duplicate names but capture a CIS ID if we don't have one
IF EMPTY( aAuthorList[ i - 1, 2 ] ) .AND. !EMPTY( aAuthorList[ i, 2 ] )
aAuthorList[ i - 1, 2 ] = aAuthorList[ i, 2 ]
aAuthorList[ i - 1, 2 ] := aAuthorList[ i, 2 ]
ENDIF
ADEL( aAuthorList, i )
ASIZE( aAuthorList, LEN( aAuthorList ) - 1 )
@@ -1292,7 +1292,8 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
@ MAXROW(), 0 SAY "Execute ASSEMBL.BAT to compile and link Guides"
/* TOFIX: Make this multiplatform. */
@ MAXROW(), 0 SAY "Execute assembl.bat to compile and link Guides"
WAIT
@@ -1318,7 +1319,7 @@ FUNCTION ListAsArray2( cList, cDelimiter )
LOCAL nPos
LOCAL aList := {} // Define an empty array
IF cDelimiter = NIL
IF cDelimiter == NIL
cDelimiter := ","
ENDIF
//
@@ -1342,12 +1343,12 @@ RETURN aList // Return the array
FUNCTION StripNgControls( cString )
LOCAL nPos
LOCAL lStriped := .f.
LOCAL lStriped := .F.
nPos := AT( "^b", cString )
IF nPos > 0
cString := SUBSTR( cString, nPos + 3 )
lStriped := .t.
lStriped := .T.
ELSE
IF !lStriped
cString := cString
@@ -1357,7 +1358,7 @@ FUNCTION StripNgControls( cString )
nPos := AT( "^b^", cString )
IF nPos > 0
cString := SUBSTR( cString, 1, nPos - 1 )
lStriped := .t.
lStriped := .T.
ELSE
IF !lStriped
cString := cString
@@ -1367,7 +1368,7 @@ FUNCTION StripNgControls( cString )
nPos := AT( "^CFE", cString )
IF nPos > 0
cString := SUBSTR( cString, nPos + 5 )
lStriped := .t.
lStriped := .T.
ELSE
IF !lStriped
cString := cString
@@ -1377,7 +1378,7 @@ FUNCTION StripNgControls( cString )
nPos := AT( "^a1f", cString )
IF nPos > 0
cString := SUBSTR( cString, nPos + 5 )
lStriped := .t.
lStriped := .T.
ELSE
IF !lStriped
cString := cString
@@ -1475,7 +1476,7 @@ FUNCTION FirstNB( cString )
//
i := 1
IF !EMPTY( cString )
DO WHILE nReturn = 0 .AND. i < LEN( cString )
DO WHILE nReturn == 0 .AND. i < LEN( cString )
IF SUBSTR( cString, i, 1 ) != " "
nReturn := i
ELSE
@@ -1510,7 +1511,7 @@ FUNCTION ListAsArray( cList, cDelimiter )
LOCAL nPos
LOCAL aList := {} // Define an empty array
IF cDelimiter = NIL
IF cDelimiter == NIL
cDelimiter := ","
ENDIF
//
@@ -1605,7 +1606,7 @@ FUNCTION ReadAtFile( cAtFile )
//
// Entry Point
//
IF FT_FUSE( cAtFile ) <> NIL
IF FT_FUSE( cAtFile ) != NIL
// Read each line
lEof := .F.
@@ -1615,7 +1616,7 @@ FUNCTION ReadAtFile( cAtFile )
IF .NOT. EMPTY( cBuffer )
AADD( aDirList, ARRAY( F_LEN ) )
nCount ++
aDirList[ nCount, F_NAME ] = UPPER( cBuffer )
aDirList[ nCount, F_NAME ] := cBuffer
ENDIF
ENDDO
ENDIF
@@ -1653,7 +1654,7 @@ FUNCTION WRITE_ERROR( cDescrip, cBadLine, nLineCnt, nMax, cFile )
SET ALTERNATE ON
// Send out the output
IF cBadLine = NIL
IF cBadLine == NIL
? cDescrip, "in file", cFile
? " "
ELSE
@@ -1728,7 +1729,7 @@ FUNCTION fill_link_info( cLinkName )
IF AT( "!MENU", cBuffer ) > 0
lMenuMode := .T.
cBuffer := UPPER( ReadLN( @lEof ) )
ELSEIF LEFT( cBuffer, 1 ) = "!"
ELSEIF LEFT( cBuffer, 1 ) == "!"
lMenuMode := .F.
ENDIF

4
harbour/utils/hbdoc/hbdocdef.ch
View File

@@ -83,8 +83,8 @@
#define pMEMO "M"
#define pNUMERIC "N"
#define pOBJECT "O"
#define pTRUE .t.
#define pFALSE .f.
#define pTRUE .T.
#define pFALSE .F.
#define pCRLF HB_OSNEWLINE()
#xtranslate DOSFILENAME(<c>) => substr( <c>, rat("\",<c>)+1 )

14
harbour/utils/hbdoc/html.prg
View File

@@ -92,14 +92,14 @@ METHOD New( cFile,aMetaContents ) CLASS THTML
FCLOSE( NX )
ENDIF
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF
nX := Self:nHandle
FWRITE( Self:nHandle, "<HTML>" + CRLF )
FWRITE( Self:nHandle, "<HEAD>" + CRLF )
if Valtype(aMetaContents) <> NIL .and. Valtype(aMetaContents)=="A"
if Valtype(aMetaContents) != NIL .and. Valtype(aMetaContents)=="A"
For nCount:=1 to len(aMetaContents)
Self:WriteMetaTag(aMetaContents[nCount,1],aMetaContents[nCount,2])
NEXT
@@ -219,13 +219,13 @@ METHOD NewChm( cFile ,aMetaContents,cFuncName) CLASS THTML
FCLOSE( NX )
ENDIF
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF
nX := Self:nHandle
FWRITE( Self:nHandle, "<HTML>" + CRLF +"<HEAD>" +CRLF)
if Valtype(aMetaContents) <> NIL .and. Valtype(aMetaContents)=="A"
if Valtype(aMetaContents) != NIL .and. Valtype(aMetaContents)=="A"
For nCount:=1 to len(aMetaContents)
Self:WriteMetaTag(aMetaContents[nCount,1],aMetaContents[nCount,2])
NEXT
@@ -240,7 +240,7 @@ METHOD NewChm( cFile ,aMetaContents,cFuncName) CLASS THTML
RETURN Self
method ADDOBJECT(cType,cClassId) Class THTML
IF VALTYPE(cClassId)<>NIL .and. VALTYPE(cClassId)=="C"
IF VALTYPE(cClassId)!=NIL .and. VALTYPE(cClassId)=="C"
FWRITE( Self:nHandle,'<Object type="'+cType+'" classid="'+cClassId+'">'+CRLF)
ELSE
FWRITE( Self:nHandle,'<Object type="'+ cType +'">'+CRLF)
@@ -259,7 +259,7 @@ METHOD NewContent( cFile ) CLASS THTML
FCLOSE( NX )
ENDIF
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF
@@ -296,4 +296,4 @@ METHOD WriteChmLink( cLink, cName ) CLASS THTML
cTemp := STRTRAN( cTemp, " ", "" )
FWRITE( Self:nHandle, "<a href=" + LOWER( cTemp ) + ">" + cLink + "</a><br>" + CRLF )
Return Self
*+ EOF: HTML.PRG
*+ EOF: HTML.PRG

4
harbour/utils/hbdoc/ng.prg
View File

@@ -77,7 +77,7 @@ ENDCLASS
METHOD new( cFile ) CLASS TNortonGuide
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF
@@ -128,4 +128,4 @@ METHOD WriteLink( cLink ) CLASS TNortonGuide
RETURN Self
*+ EOF: NG.PRG
*+ EOF: NG.PRG

16
harbour/utils/hbdoc/os2.prg
View File

@@ -94,7 +94,7 @@ METHOD New( cFile ) CLASS TOs2
Self:nRef := 1
ENDIF
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF
@@ -134,14 +134,14 @@ Endif
For nPos:=1 to LEN(aLines)
cLine:=aLines[nPos]
If nPos==1
If !empty(cLine) .and. cStyle <>"Syntax"
If !empty(cLine) .and. !( cStyle =="Syntax")
FWRITE( Self:nHandle,cTag+ cLine + CRLF)
elseIf !empty(cLine) .and. cStyle =="Syntax"
FWRITE( Self:nHandle,cTag+ ":hp2."+ cLine +":ehp2." +CRLF)
Endif
Else
If !empty(cLine) .and. cStyle <>"Syntax"
If !empty(cLine) .and. !( cStyle =="Syntax")
FWRITE( Self:nHandle, cLine + CRLF)
elseIf !empty(cLine) .and. cStyle =="Syntax"
FWRITE( Self:nHandle, ":hp2."+ cLine +":ehp2." +CRLF)
@@ -159,7 +159,7 @@ endif
IF nPos > 0
cLine := SUBSTR( cBuffer, 1, nPos )
ENDIF
If !empty(cLine) .and. cStyle <>"Syntax"
If !empty(cLine) .and. !(cStyle =="Syntax")
FWRITE( Self:nHandle,cTag+ cLine + CRLF)
elseIf !empty(cLine) .and. cStyle =="Syntax"
FWRITE( Self:nHandle,cTag+ ":hp2."+ cLine +":ehp2." +CRLF)
@@ -185,7 +185,7 @@ endif
ENDIF
ENDIF
If !empty(cLine) .and. cStyle <>"Syntax"
If !empty(cLine) .and. !(cStyle =="Syntax")
FWRITE( Self:nHandle,cTag+ cLine + CRLF)
elseIf !empty(cLine) .and. cStyle =="Syntax"
FWRITE( Self:nHandle,cTag+ ":hp2."+ cLine +":ehp2." +CRLF)
@@ -208,7 +208,7 @@ RETURN Self
METHOD WriteParBold( cPar ,lMarg) CLASS TOs2
DEFAULT lMarg to .t.
DEFAULT lMarg to .T.
IF lMarg
FWRITE( Self:nHandle,".br"+CRLF+ ":hp2." + SELF:DosToOs2Text( cPar ) + ':ehp2.'+CRLF +".br" + CRLF +":p."+CRLF+':lm margin=6.' +CRLF )
Else
@@ -284,7 +284,7 @@ METHOD WriteLink( cLink ) CLASS TOs2
ENDIF
IF nItem = 0
IF nItem == 0
nItem := Self:nRef
ENDIF
@@ -423,4 +423,4 @@ IF nLen<=230
aadd(aLine,ALLTRIM(cBuffer))
ENDIF
RETURN aLine
*+ EOF: OS2.PRG
*+ EOF: OS2.PRG

2
harbour/utils/hbdoc/rtf.prg
View File

@@ -90,7 +90,7 @@ ENDCLASS
METHOD new( cFile ) CLASS TRTF
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF

2
harbour/utils/hbdoc/troff.prg
View File

@@ -75,7 +75,7 @@ ENDCLASS
METHOD NEW( cFile ) CLASS TTROFF
IF VALTYPE( cFile ) <> NIL .AND. VALTYPE( cFile ) == "C"
IF VALTYPE( cFile ) != NIL .AND. VALTYPE( cFile ) == "C"
Self:cFile := LOWER( cFile )
Self:nHandle := FCREATE( Self:cFile )
ENDIF