OT: recompile xharbour c-file

[Marc Vanzegbroeck]

Hi,

I have an old application, using 'xHarbour Compiler build 0.99.71 (SimpLex)'

In that version, there was a problem with the function directoryrecurse.

In the newer version it was fixed. How can I compile the newer c-file (direct.c), and link to my program, using my old library?

[Marc Vanzegbroeck]

The problem is that I get this error if I compile the source

Code: Select all  Expand view

Error E2303 direct.c 108: Type name expected

Are there some specials flags I have to use?

[Antonio Linares]

Marc,

Please post the source code for direct.c 108

[Marc Vanzegbroeck]

Antonio,

This is line 108 in new latest release (the one with the error)

Code: Select all  Expand view

static void hb_fsGrabDirectory( PHB_ITEM pDir, const char * szDirSpec, HB_FATTR uiMask, PHB_FNAME fDirSpec, BOOL bFullPath, BOOL bDirOnly )

And this one with the old source than can be compiled

Code: Select all  Expand view

static void hb_fsGrabDirectory( PHB_ITEM pDir, const char * szDirSpec, USHORT uiMask, PHB_FNAME fDirSpec, BOOL bFullPath, BOOL bDirOnly )

I think the problem is that I can't mix those 2 releases, because the new one is using the variable 'HB_FATTR' that is defined in the new 'Hbdefs.h', and not in the old one.

[Antonio Linares]

Marc,

Lets compare the source code for function directoryrecurse in both versions and then we fix the old one.

Please post the source code for function directoryrecurse in both versions here

[Marc Vanzegbroeck]

Antonio,

This is the old one
http://www.vms.be/downloads/direct_old.c

This is the new one
http://www.vms.be/downloads/direct_new.c

[Antonio Linares]

Marc,

You can not use this new C file with your xHarbour version, sorry.

What is the bug that you have using DirectoryRecurse() ?

[Marc Vanzegbroeck]

Antonio,

The bug is that I always get an empty array.

[Antonio Linares]

Marc,

Please build FWH/samples/elixir.prg to review if it may help you

[Marc Vanzegbroeck]

Antonio,

Thank you, with the function into this example-file, I get all file files