Hi
Here is what I placed at the end of hbmk.prg to strip commented block:
STATIC FUNCTION StripCommnets( cFile )
LOCAL n, n1
DO WHILE .T.
IF ( n := at( '/*', cFile ) ) == 0
EXIT
ENDIF
IF ( n1 := at( '*/', cFile ) ) == 0
EXIT
ENDIF
cFile := SubStr( cFile, 1, n-1 ) + SubStr( cFile, n1+2 )
ENDDO
RETURN cFile
And then in:
STATIC PROCEDURE HBM_Load( aParams, cFileName, /* @ */ nEmbedLevel )
LOCAL cFile
LOCAL cLine
LOCAL cParam
IF hb_FileExists( cFileName )
cFile := MemoRead( cFileName ) /* NOTE: Intentionally using MemoRead()
which handles EOF char. */
cFile := StripCommnets( cFile )
...
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/HBMK2---Few-Changes-tp23348709p23349387.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
