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

! fixed not to double each doc entry

Browse Source 
* cleanups
This commit is contained in:
Viktor Szakats
2013-03-18 22:18:10 +01:00
parent c6f10790d8
commit 890b182a38
4 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
extras/hbdoc/_genhtml.prg
View File

@@ -7,7 +7,6 @@
*
* Portions of this project are based on hbdoc
* Copyright 1999-2003 Luiz Rafael Culik <culikr@uol.com.br>
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by

4
extras/hbdoc/hbdoc.prg
View File

@@ -215,7 +215,6 @@ PROCEDURE Main( ... )
aContent := {}
AEval( ;
{;
p_hsSwitches[ "basedir" ] + "doc", ;
p_hsSwitches[ "basedir" ] + "doc" + hb_ps() + "en", ;
iif( p_hsSwitches[ "source" ], p_hsSwitches[ "basedir" ] + "src", NIL ), ;
iif( p_hsSwitches[ "contribs" ], p_hsSwitches[ "basedir" ] + "contrib", NIL ), ;
@@ -276,8 +275,7 @@ PROCEDURE Main( ... )
NEXT
FOR idx := 1 TO Len( aContent )
IF Right( aContent[ idx ]:sourcefile_, Len( "1stread.txt" ) ) == "1stread.txt"
ELSE
IF !( Right( aContent[ idx ]:sourcefile_, Len( "1stread.txt" ) ) == "1stread.txt" )
oDocument:AddEntry( aContent[ idx ] )
ENDIF
NEXT