Re: [Harbour] Migrating from xHarbour to Harbour

[Szakáts Viktor]

Hi folks,

I've added the two crypt functions to xhb.

I'll also add HB_FReadLine() to it.

valtoprgexp() is written in highly unportable xhb
code, so I won't attempt.

Brgds,
Viktor

On 2008.06.10., at 16:08, Przemyslaw Czerpak wrote:

On Tue, 10 Jun 2008, Rodrigo Miguel wrote:

Hi Rodrigo,

I found just a small issues during my migration from xharbour to harbour.

Here are a list of missing functions:
obj/comun.o:comun.c:(.data+0x3e8): undefined reference to
`HB_FUN_GETDEFAULTPRINTER'
obj/senhas.o:senhas.c:(.data+0x828): undefined reference to
`HB_FUN_GETPRINTERS'
obj/senhas.o:senhas.c:(.data+0x898): undefined reference to
`HB_FUN_HB_CRYPT'
obj/senhas.o:senhas.c:(.data+0x8e8): undefined reference to
`HB_FUN_HB_DECRYPT'
obj/senhas.o:senhas.c:(.data+0x938): undefined reference to
`HB_FUN_HB_FREADLINE'

g:/gtklib/lib/libgtklib.a(errorsys.o):errorsys.c:(.data+0x1b8): undefined

reference to `HB_FUN_VALTOPRGEXP'

g:/gtklib/lib/libgtklib.a(network.o):network.c:(.data+0x358): undefined

reference to `HB_FUN_HASH'

g:/gtklib/lib/libgtklib.a(network.o):network.c:(.data+0x678): undefined

reference to `HB_FUN_HGETKEYS'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x538): undefined

reference to `HB_FUN_INETINIT'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x548): undefined

reference to `HB_FUN_INETCONNECT'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x558): undefined

reference to `HB_FUN_INETSETTIMEOUT'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x568): undefined

reference to `HB_FUN_INETERRORCODE'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x578): undefined

reference to `HB_FUN_INETSENDALL'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x588): undefined

reference to `HB_FUN_INETDATAREADY'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x598): undefined

reference to `HB_FUN_INETRECVALL'

g:/gtklib/lib/libgtklib.a(functions.o):functions.c:(.data+0x5c8): undefined

reference to `HB_FUN_INETCLOSE'

g:/gtklib/lib/libgtklib.a(printer.o):printer.c:(.data+0xb8): undefined

reference to `HB_FUN_HB_FREADLINE'
g:/gtklib/lib/libgtklib.a(report.o):report.c:(.data+0x1a8): undefined
reference to `HB_FUN_GETACTIVEOBJECT'
g:/gtklib/lib/libgtklib.a(report.o):report.c:(.data+0x1b8): undefined
reference to `HB_FUN_CREATEOBJECT'

g:/xhgtk/lib/libxhgtk.a(TTreeView.o):TTreeView.c:(.data+0x198): undefined

reference to `HB_FUN_PVALUE'

Hashs, PValue, FReadline and valtoprgexp I can rewrite to be harbour

compatible. The printer functions I think I can write that one using windows

api's, so not a problem at all.

So, my only concerns are related to Crypt/Decrypt, Inet and OLE functions, anyway, is there this type of functions available for harbour as well?

Most of the above functions are available for Harbour but with HB_ *
prefix. You can also add to your source code:
  #include "hbcompat.ch"
which will make such trnaslations automatically during compilation.

HB_CRYPT()/HB_DECRYPT() does not exists though they can be easy added
to contrib/xhb library. It's not very strong encyption and maybe
it will be better to reserve such generaic names for future Harbour
encryption so I do not want to add it to core code now. If you do not
need binary compatibility then it will be enough to make:
  #xtrnaslate HB_CRYPT(<x,..>)   => sx_enCrypt(<x>)
  #xtrnaslate HB_DECRYPT(<x,..>) => sx_deCrypt(<x>)
For binary compatibility I'll add these function to XHB library soon.

The printer functions are already included in XHB lib.

CREATEOBJECT()/GETACTIVEOBJECT() are part of HBW32 library.

We do not have VALTOPRGEXP() function but in many cases you can use
as replacement HB_VALTOEXP(). It's not exactly the same so you should
check if it will be enough for you. Here we can also add xHarbour
version of VALTOPRGEXP() to XHB library.

HB_FREADLINE() does not exist in Harbour though it also can be added
to XHB library.

best regards,
Przemek
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour