topic-30138

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Usando la hbcplr.lib con Harbour
Posted: Sun Feb 08, 2015 04:55 PM

Antonio y amigos del foro:

He logrado compilar una aplicación de regular tamaño (50 prgs) en la que uso
la lib hbcplr y me he quedado impresionado, compilar un script (prg) con 2500
líneas desde el ejecutable es extremadamente rápido y funciona al 100%.

El único pero, nunca falta un pero

, es que estoy de acuerdo con Mastintin,
que es necesario incluir los include de FWH y Harbour, Antonio, no se puede hacer
algo para subsanar este pero???, va a ser una lata distribuirlos con mi aplicación.

Antonio, un detalle que se me olvidó mencionarte es esta línea de código en FiveEdit

Code (fw): Select all Collapse

   IF "error" $ MemoRead( "comp.log" )
      MsgInfo( MemoRead( "comp.log" ), oApp:cAplicacion)
   ELSE

La palabra error debe ser con la inicial en mayúscula "Error", de lo contrario
no funciona la búsqueda.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Usando la hbcplr.lib con Harbour
Posted: Sun Feb 08, 2015 08:30 PM

Armando,

Gracias por detectar ese error. Incluido para el próximo build de Fivedit :-)

Me alegro que hayas comprobado por ti mismo lo que llevo diciendo desde hace mucho tiempo:

Una vez que descubres y pruebas el poder de hbcplr.lib, xHarbour queda automaticamente descartado...

Harbour es el rey indiscutible :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Usando la hbcplr.lib con Harbour
Posted: Sun Jul 03, 2016 08:30 PM

Antonio,

Hace tiempo que quiero pasarme a harbour pero pruebo intentar crear un simple programa
? "hola"

y no logro crearlo utilizando un script...

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Usando la hbcplr.lib con Harbour
Posted: Mon Jul 04, 2016 05:54 AM

Gustavo,

Para que Harbour reconozca ese comando ? ... es preciso que haya "procesado" las definiciones
que hay en el fichero std.ch

Puedes añadir los comandos que desees en tiempo de ejecución para que el script los reconozca:

Code (fw): Select all Collapse

function BuildPreprocessor()

   if hPP == nil
      hPP = __pp_init()
   endif

   __pp_addRule( hPP, "#xcommand ?  [ <list,...> ] => _QOut( <list> )" )
   __pp_addRule( hPP, "#xcommand ?? [ <list,...> ] => _QQOut( <list> )" )
   __pp_addRule( hPP, "#xcommand BROWSE => Browse()" )
   __pp_addRule( hPP, "#xcommand CLEAR => _Clear()" )
   __pp_addRule( hPP, "#xcommand DO COMMAND <x> => DoCommand( <(x)> )" )
   __pp_addRule( hPP, "#xcommand DO FORM <x> => DoForm( <(x)> )" )
   __pp_addRule( hPP, "#xcommand EDIT => Edit()" )
   __pp_addRule( hPP, "#xcommand ENDPROC => return" )
   __pp_addRule( hPP, "#xcommand MODIFY COMMAND <x> => ModifyCommand( <(x)> )" )
   __pp_addRule( hPP, "#xcommand PUBLIC <x> => __mvPublic( <(x)> )" )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Usando la hbcplr.lib con Harbour
Posted: Mon Jul 04, 2016 05:57 AM

Ese hPP se usa luego a la hora de "compilar" el script:

Code (fw): Select all Collapse

function DoLine( nKey, oMemo )

   local cCommand, cPP, oError
   local bError

   if nKey != 13 .and. nKey != 3
      return nil
   endif

   cCommand = MemoLine( oMemo:GetText(),, oMemo:nRow() - 1 )
   if Empty( cCommand )
      return nil
   endif
   cPP = __pp_process( hPP, cCommand )

   bError = ErrorBlock( { | o | Break( o ) } )
   BEGIN SEQUENCE
      &cPP
   RECOVER USING oError
      ShowError( oError )
   END SEQUENCE
   ErrorBlock( bError )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Usando la hbcplr.lib con Harbour
Posted: Mon Jul 04, 2016 08:17 AM

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion