Hi
Viktor Szakáts wrote:
>
>> c:/dev_sources/dev_resources/txtext.res -O coff -o
>> c:/dev_objs/mingw/vouch/txtext.reso
>
> What is the problem you're experiencing?
>
Compilation process just astops at this line as above.
Exe is not generated, probably next command is not executed,
at least I cannot see any other operation either on console
screen or in log file.
> [hbmk2 will use windres to compile .rc/.res files to coff format files
> (with extension .reso), which can be then processed by MinGW linker.
>
Ok.
>> Can we have filters on source files in .hbm like:
>> #
>> vouch.hbm
>> ----------
>> c:/dev_sources/vouch/source/VOUCH.PRG
>> c:/dev_sources/vouch/source/VOUCH_1.PRG
>> {msvc|bcc}c:/dev_sources/vouch/source/VOUCH_3.PRG
>> {mingw}c:/dev_sources/vouch/source/VOUCH_4.PRG
>
> Yes, it's possible, I'll do it in a few days.
>
Here is the modified code, check if is corrcet one
[ I am been able to compile properly with it ]
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. */
/* Switch it on if we feel its need in future */
cFile := StripCommnets( cFile )
*/
IF ! hb_osNewLine() == _EOL
cFile := StrTran( cFile, hb_osNewLine(), _EOL )
ENDIF
IF ! hb_osNewLine() == Chr( 13 ) + Chr( 10 )
cFile := StrTran( cFile, Chr( 13 ) + Chr( 10 ), _EOL )
ENDIF
FOR EACH cLine IN hb_ATokens( cFile, _EOL )
cLine := AllTrim( cLine )
IF !( Left( cLine, 1 ) == "#" )
/* Let it expand with macros if defined */
cLine := MacroProc( cLine )
/* Put it to compiler filter */
cLine := ArchCompFilter( cLine )
IF ! Empty( cLine )
FOR EACH cParam IN hb_ATokens( cLine,, .T. )
cParam := StrStripQuote( cParam )
IF ! Empty( cParam )
DO CASE
CASE ( Len( cParam ) >= 1 .AND. Left( cParam, 1 ) ==
"@" )
IF nEmbedLevel < 3
cParam := SubStr( cParam, 2 )
IF Empty( FN_ExtGet( cParam ) )
cParam := FN_ExtSet( cParam, ".hbm" )
ENDIF
nEmbedLevel++
HBM_Load( aParams, PathProc( cParam, cFileName ),
@nEmbedLevel ) /* Load parameters from script file */
ENDIF
CASE Lower( FN_ExtGet( cParam ) ) == ".hbm"
IF nEmbedLevel < 3
nEmbedLevel++
HBM_Load( aParams, PathProc( cParam, cFileName ),
@nEmbedLevel ) /* Load parameters from script file */
ENDIF
OTHERWISE
AAdd( aParams, { cParam, cFileName,
cLine:__enumIndex() } )
ENDCASE
ENDIF
NEXT
ENDIF
ENDIF
NEXT
ELSE
OutErr( hb_StrFormat( "hbmk: Warning: File cannot be found: %1$s",
cFileName ), hb_osNewLine() )
ENDIF
RETURN
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/HBMK2---MINGW---Resource-Compiler-tp23360014p23360915.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
