Re: [Harbour] hash() in harbour

[Przemyslaw Czerpak]

On Tue, 02 Jun 2009, toni...@fwi wrote:

Hi,

> >Grácias por la pronta respuesta.
> >Estoy bajando los sources para probar nuevamente.
> Only one more hint: if you want access hashes with : like oHash:cName,
> you need compile Harbour with:
> set HB_USER_CFLAGS=-DHB_HASH_MSG_ITEMS

Instead of recompiling whole Harbour code I suggest to simply create
custom HASH class with such functionality, f.e.:

   #include "hbclass.ch"
   PROC MAIN()
      LOCAL hValue

      ASSOCIATE CLASS _Hash         WITH TYPE Hash

      hValue := {=>}
      hValue:VAR1 := 123.45
      hValue:VAR2 := DATE()
      ? hValue:VAR1, hValue:VAR2

   RETURN

   CREATE CLASS Hash INHERIT __HBHash FUNCTION _Hash
      ON ERROR FUNCTION XHB_HASHERROR()
   ENDCLASS

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