diff --git a/harbour/ngdoc/ft_helpc.prg b/harbour/ngdoc/ft_helpc.prg index 50f59819f1..fea9659afb 100644 --- a/harbour/ngdoc/ft_helpc.prg +++ b/harbour/ngdoc/ft_helpc.prg @@ -108,6 +108,7 @@ // The delimiter #define DELIM "$" // keyword delimiter +#xtranslate UPPERLOWER() => (UPPER(SUBSTR(,1,1))+LOWER(SUBSTR(,2))) STATIC nReadHandle STATIC nWriteHandle STATIC aDirList @@ -461,10 +462,12 @@ FUNCTION FT_HELPC( cFlags, cLinkName, cAtFile ) ELSEIF lWWW oHtm := THTML():New( "www\harbour.htm" ) oHtm:WriteTitle( "Harbour Reference Guide" ) + oHtm:WriteText('
') oHtm:WritePar( "HARBOUR" ) - oHtm:WriteLink( "OverView" ) - oHtm:WriteLink( "License" ) + oHtm:WriteLink( "overview",UpperLower("Harbour Read me" )) + oHtm:WriteLink( "license", UpperLower("Harbour License" )) oHtm:WriteLink( "http://www.gnu.org/copyleft/gpl.html","GNU License" ) + oHtm:WriteLink( "compileroptions.htm","Compiler Options") oHtm:WritePar( "" ) oHtm:WritePar( "Functions A-M" ) ASORT( awww,,,{|x,y| x[1]= "A" .AND. LEFT( cTemp, 1 ) < "N" .AND. AT( "()", cTemp ) > 0 - oHtm:WriteLink( aWww[ nPos ,2],aWww[nPos,1] ) + oHtm:WriteLink( Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1] )) ENDIF NEXT oHtm:WritePar( "Functions N-_" ) FOR nPos := 1 TO LEN( aWww ) cTemp := aWww[ nPos,1 ] IF LEFT( cTemp, 1 ) >= "N" .AND. LEFT( cTemp, 1 ) < "_" .AND. AT( "()", cTemp ) > 0 - oHtm:WriteLink(aWww[ nPos ,2],aWww[nPos,1] ) + oHtm:WriteLink(Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1] ) ) ENDIF NEXT oHtm:WritePar( "Commands" ) FOR nPos := 1 TO LEN( aWww ) cTemp := aWww[ nPos,1 ] - IF AT( "()", cTemp ) == 0 .AND. ctemp <> "LICENSE" .AND. cTemp <> "OVERVIEW" - oHtm:WriteLink( aWww[ nPos ,2],aWww[nPos,1]) + IF AT( "()", cTemp ) == 0 .AND. ctemp <> "LICENSE" .AND. cTemp <> "OVERVIEW" .and. cTemp<>"Compiler Options" + oHtm:WriteLink( Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1])) ENDIF NEXT + oHtm:WritePar( "Run Time Error" ) + FOR nPos := 1 TO LEN( aWww ) + cTemp := aWww[ nPos,1 ] + IF AT( "()", cTemp ) == 0 .AND. Left(ctemp,4) =="BASE" .AND. left(cTemp,4)=="TERM" .and. left(cTemp,5)=="TOOLS" + oHtm:WriteLink( Lower(aWww[ nPos ,2]),UpperLower(aWww[nPos,1])) + ENDIF + NEXT + oHtm:Close() ELSEIF lNgi SET ALTERNATE TO "assembl.bat" ADDITIVE diff --git a/harbour/ngdoc/makefile b/harbour/ngdoc/makefile new file mode 100644 index 0000000000..f0503161b8 --- /dev/null +++ b/harbour/ngdoc/makefile @@ -0,0 +1,29 @@ +# +# $Id$ +# + +ifeq ($(HB_MAIN),) + HB_MAIN = std +endif + +ROOT = ../../ + +PRG_SOURCES=\ + ft_helpc.prg + +PRG_MAIN=ft_helpc.prg + +LIBS=\ + tools \ + debug \ + rtl \ + rdd \ + vm \ + rdd \ + rtl \ + macro \ + pp \ + runner \ + common \ + +include $(TOP)$(ROOT)config/bin.cf