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

See changelog 2000-08-15 21:15 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2000-08-16 09:08:16 +00:00
parent 5c55ab27cf
commit 5779e316a0
2 changed files with 28 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -52,7 +52,7 @@
#define LONGONELINE 86
MEMVAR aDirList
MEMVAR aDocInfo
MEMVAR aWww
MEMVAR aWww,aResult
STATIC aAlso
STATIC aFiTable := {}
@@ -269,6 +269,13 @@ FUNCTION ProcessWww()
cFuncName := "Unknown"
ENDIF
AADD( aDocInfo, { cCategory, cFuncName, cOneLine, cFileName } )
nPos := ascan(aResult,{|a| UPPER(a) == UPPER(cCategory)})
if nPos==0
if cCategory<>"Document"
aadd(aResult,cCategory)
endif
endif
// Now close down this little piece
IF .NOT. EMPTY( cSeeAlso )

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

@@ -480,7 +480,7 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
FWRITE( nHpj, '1 Harbour Runtime functions Category'+CRLF)
asort(aWww,,,{|x,y| x[3]<y[3]})
SET CONSOLE ON
// SET CONSOLE ON
nItem := len(aResult)
asort(aResult,,,{|x,y| x<y})
for ppp:=1 to nItem
@@ -568,24 +568,16 @@ set console off
oHtm1:WriteText( "<H2>Alphabetical list of functions by Categorie</H2>" )
ohtm1:writetext('<ul>')
do while .t.
citem:=alltrim(rtrim(ltrim(adocinfo[1,1])))
// citem:=strtran(adocinfo[1,1]," ","")
ohtm1:WriteLink('hb'+strtran(adocinfo[1,1]," ","")+'.htm',cItem)
for ppp:=1 to len(adocinfo)
nItem := len(aResult)
asort(aResult,,,{|x,y| x<y})
for ppp:=1 to nItem
if citem<>adocinfo[ppp,1] .and. cItem <>"Document"
citem:=alltrim(rtrim(ltrim(adocinfo[ppp,1])))
ohtm1:WriteLink('hb'+strtran(adocinfo[ppp,1]," ","")+'.htm',cItem)
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"
ohtm1:WriteLink('hb'+strtran(aResult[ppp]," ","")+'.htm',aResult[ppp])
// citem:=strtran(adocinfo[ppp,1]," ","")
endif
next
if ppp>len(adocinfo)
exit
endif
enddo
Next
ohtm1:writetext('</ul>')
ohtm1:close()
@@ -1410,10 +1402,18 @@ asort(aTemp,,,{|x,y| x[1]<y[1]})
for nCount:=1 to Len(aTemp)
oHtm:ListItem()
oHtm:AddObject("text/sitemap")
oHtm:AddParam("Name",aTemp[nCount,2])
oHtm:AddParam("Local",aTemp[nCount,3])
oHtm:EndObject()
OHTM:WriteChmLink(aTemp[nCount,3],aTemp[nCount,2])
if at("GNU LI",aTemp[nCount,2])==0
oHtm:AddParam("Name",aTemp[nCount,2])
oHtm:AddParam("Local",aTemp[nCount,3])
oHtm:EndObject()
OHTM:WriteChmLink(aTemp[nCount,3],aTemp[nCount,2])
Else
oHtm:AddParam("Name","Gnu License")
oHtm:AddParam("Local","http://www.gnu.org/copyleft/gpl.html")
oHtm:EndObject()
OHTM:WriteChmLink("http://www.gnu.org/copyleft/gpl.html","Gnu License")
Endif
next
return nil