709be07f83
* contrib/hbqt/hbmk2_qt.hbs
* Whitespace.
* include/harbour.hbx
* src/rtl/hbdoc.prg
* tests/stripdoc.hbs
* Added __HBDOC_FILTEROUT( <cFile> ) -> <cFile> internal
function to strip all NG doc content from a file and
return the stripped file.
* contrib/hbide/idedocwriter.prg
+ Use core __HBDOC_TOSOURCE() to generate NG doc source.
(just build tested)
; TOFIX: idedocwriter.prg and ideharbourhelp.prg
still makes direct reference to NG doc physical
format. Pls change these to use __HBDOC_* functions.
27 lines
484 B
Handlebars
27 lines
484 B
Handlebars
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Strips HBDOC docs from source files.
|
|
*
|
|
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#define F_NAME 1
|
|
|
|
PROCEDURE Main()
|
|
LOCAL aFile
|
|
|
|
FOR EACH aFile IN Directory( hb_osFileMask() )
|
|
IF Right( aFile[ F_NAME ], 2 ) == ".c" .OR. ;
|
|
Right( aFile[ F_NAME ], 4 ) == ".prg"
|
|
|
|
hb_MemoWrit( aFile[ F_NAME ], __hbdoc_FilterOut( MemoRead( aFile[ F_NAME ] ) ) )
|
|
ENDIF
|
|
NEXT
|
|
|
|
RETURN
|