Ya estoy haciendo prueba en compilar los fuentes de Visual FW utilizando un archivo .mak para xHarbour y Borland, con FWH 7.12, y he econtrado estos inconvenientes:
Como utilizo la opcion /es2 para compilar con xHarbour, y con esto encontrar variables no definidas, he encontrado estas en:
Programa: Code.prg
Linea 72: No esta definidas las variables : nOption, nOldOption
- Code: Select all Expand view
@ 4, 0 TABS ::oTabs OF Self ;
ON CHANGE ( ::SetOption( nOption, nOldOption ),;
::SetText( "Source editor: " + ::oActiveEdit:cFileName ) )
El siguiente codigo en el programa "project.prg", me da un error de sintaxis en la definición de los tres Gets, empezando en la linea 566.
En el primer Get se ve una coma de mas despues del "oFld:aDialogs[ 1 ] ,", pero igual si se la quito,sigue el error, pero si les quito los "Action" a cada uno pasa sin problemas.
- Code: Select all Expand view
REDEFINE GET oGet1 VAR ::cCompiler ID ID_CLIPPER OF oFld:aDialogs[ 1 ] ,;
ACTION Iif( ! Empty( cCompiler := cGetFile( "*.exe", "Compiler location" ) ),;
( ::cCompiler := cCompiler, oGet1:Refresh() ),)
REDEFINE GET oGet2 VAR ::cChPath ID ID_CHPATH OF oFld:aDialogs[ 1 ] ;
ACTION If( ! Empty( cChpath := cGetDir( "Header files location" ) ),;
( ::cChPath := cChPath, oGet2:Refresh() ),)
REDEFINE GET ::cObjPath ID ID_OBJPATH OF oFld:aDialogs[ 1 ] ACTION nil
En el programa "inspect.prg", hay un error al definir el xBrowse, en la linea 66
- Code: Select all Expand view
28, 3 XBROWSE ::oBrw ;
y tambien falta la funcion "nClrToCode", que esta en la linea 343 tambien de "inspect.prg"
- Code: Select all Expand view
oProp:bOnRead = { | oProp | cClrToCode( OSend( o, oProp:cName ) ) }
Pero bueno, haciendo algunos arreglos de quitar y poner, ya compile todos los progranas con el archivo .mak y genero el .exe, con el repectivo error, al ejecutarse por la definición del xBrowse de "inspect.prg"
En otro mensaje, coloco el archivo .mak
Saludos.
Carlos Sincuir
