Hola, buen dia;
Por fin pude correr UT en una linux debian.
Gracias por la ayuda Charly!!!
Estos serian los cambios en los fuentes:
/***************/
FUNCTION UCompile( cCode, cCodePP )
LOCAL oHrb
LOCAL hPP
LOCAL cOs := OS()
LOCAL cHBHeader := ''
LOCAL cHbInclude := nil
LOCAL cPrgFlags := nil
DEFAULT cCodePP TO ''
DO CASE
CASE "Windows" $ cOs ; cHBHeader := "c:\harbour\include"
CASE "Linux" $ cOs ; cHBHeader := "~/harbour/include"
ENDCASE
if !empty( hb_GetEnv( "HB_INCLUDE" ) )
cHbInclude:= "-I" + hb_GetEnv( "HB_INCLUDE" )
endif
if !empty( hb_GetEnv( "HB_USER_PRGFLAGS" ) )
cPrgFlags:= hb_GetEnv( "HB_USER_PRGFLAGS" )
endif
hPP := UAddPPRules()
UReplaceBlocks( @cCode, "{%", "%}" )
cCodePP := __pp_Process( hPP, cCode )
oHrb = HB_CompileFromBuf( cCodePP, .T., "-n", "-q2", "-I" + cHBheader, ;
cHbInclude, cPrgFlags )
RETU oHrb
/****************/
Y es que le problema era al momento de compilar con la funcion HB_compileFromBuf()
Los parametros que estan vacios, deben de ir como valores de tipo NIL y no como caracteres vacios.
Entonces si la variable hb_GetEnv( "HB_INCLUDE" ) no estaba definida, esta variable se enviaba como caracter vacio,
pero debe ser como tipo NIL.
Espero que alguno le sea de utilidad.
Saludos
Osvaldo Ramirez
