See changelog 20000430 04:1 gmt -3

harbour/ChangeLog

@@ -1,3 +1,19 @@
+20000430 04:10 GMT-3 Luiz Rafael Culik <culik@sl.conex.net>
+*contrib/libgt/doc/gendoc.bat
+ contrib/libgt/doc/gendoc.cmd
+ contrib/libmisc/doc/gendoc.bat
+ contrib/libmisc/doc/gendoc.cmd
+ doc/genhtm.bat
+ doc/genhtm.cmd
+     *Small changes
+*contrib/libmisc/doc/libmisc.lnk
+ contrib/libgt/doc/libgt.lnk
+ doc/genhtm.lnk
+    *Change The forced version number with a MACRO
+    *Batch files for generating docs
+*utils/hbdoc/hbdoc.prg
+    +Docver() and ReadLinkFile() functions to process the HBDOC link file
+    macros
 20000429-23:50 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
     * harbour/source/compiler/harbour.c
       ! Fixed hb_compVariableAdd() to utilize parameter cValueType for Codeblock local variables, so that correct type is stored.

harbour/utils/hbdoc/hbdoc.prg

@@ -681,7 +681,9 @@ FUNCTION MAIN( cFlags, cLinkName, cAtFile )
    SET CONSOLE ON
    SET ALTERNATE OFF
    SET ALTERNATE TO
+
 */
+ReadLinkFile( cLinkName )
    @ MAXROW(), 0 SAY "Execute ASSEMBL.BAT to compile and link Guides"         
 
    //  Return to caller
@@ -1146,3 +1148,46 @@ FUNCTION fill_link_info( cLinkName )
 RETURN cCompiler
 
 *+ EOF: HBDOC.PRG
+
+STATIC FUNCTION ReadLinkFile( cFile )
+
+   LOCAL cBuffer   := ''
+   LOCAL NPOS      := 0
+   LOCAL nlenpos
+   Local cLine
+   Local cVer:=''
+   LOCAL aLocDoc   := {}
+   Local nH:=FT_FUSE(cFile) 
+   DO WHILE FREADline( nH, @cBuffer, 4096 )
+      cBuffer := TRIM( SUBSTR( cBuffer, 1 ) )
+      AADD( Alocdoc, CbUFFER )
+   ENDDO
+
+   FT_FUSE()
+    frename(CFILE,substr(cfile,1,at('.',cFile)-1)+'.old')
+    cVer:=docver()
+    nH:=fcreate(cfile)
+        for nPos:=1 to len(aLocdoc)
+            cLine:=alocdoc[nPos]
+            ? cLine
+            if at("%HB_VERSION%",cLine)>0
+                cLine:=strtran(cLine,'%HB_VERSION%',cVer)
+            endif
+            IF AT("%HB_BLDDATE%",cLine)>0
+                SET CENTURY ON
+                cLine:=strtran(cLine,'%HB_BLDDATE%',DTOC(date()))
+                SET CENTURY Off
+            endif
+            FWRITE(nH,cLine+HB_OSNEWLINE())
+        NEXT
+        FCLOSE(nh)
+RETURN nil
+
+
+FUNCTION DocVer()
+local cVersion:=version()
+local cReturn:=''
+cReturn:=substr(cVersion,9,4)
+
+RETURN cReturn
+