FiveTech Software tech support forums

Olá colegas

Existiria no Harbour uma cláusula semelhante ao
BLINKER EXECUTABLE NODELETE
que gera o exe apesar de um "unresolved external" como, por exemplo, na falta de um dos módulos compilados com /m no programa abaixo?

Calc.prg:
---------
Function Main()
Cliente := "JOAO"
If Cliente = "JOAO"
Soma(1, 1)
ElseIf Cliente = "MARIA"
Subtrai(1, 1) // Este prg nao consta em Joao.lnk
Endif // Como gero o exe apesar do
Return Nil // unresolved external?

Soma.prg:
---------
Proc Soma(A,B)
Return A+B

Joao.lnk:
-----------
Calc
Soma

Estou compilando assim:
compila @Joao

Compila.bat (parte dele)
-----------------------------
\Harbour\Bin\harbour @%1.lnk -m -n -q0 -i%HB_INC_INSTALL% %2 %3 %HARBOURFLAGS%

Rem Arquitetura w32:

bcc32 -O2 -d %CFLAGS% -I%HB_INC_INSTALL% -L%HB_LIB_INSTALL% %1.c %HB_USER_LIBS% hbcpage.lib hbdebug.lib hbvm.lib hbrtl.lib gtwin.lib hblang.lib hbrdd.lib hbmacro.lib hbpp.lib rddfpt.lib rddntx.lib rddcdx.lib hbhsx.lib hbsix.lib hbcommon.lib hbpcre.lib hbzlib.lib

Puedes crear una función "dummy" que no haga nada:

Code: Select all  Expand view

function Subtrai()
return nil
 

de esa forma ya podrás enlazar y construir el EXE, aunque no funcione correctamente.