Hi Viktor,
It still needs some closer testing, as double/float/int64
handling wasn't tested, so things like DWORD order might be
off, also int64 support needs work. Anyway, without ASM and
with fundamentals in place, the scope of these functions is
now broader, and also easier to understand, so I hope more
ppl will be willing to touch it or just use it.
Ok. I would suggest two things .-
One is a minor change to remove warnings (attached patch).
Another: There would fit PRG copy items to avoid change if parameters are not
passed by reference.
Sample .-
...
? "CALLDLL: ", CallDll( GetProcAddress( hDLL, "SHGetFolderPath" ), 0,
CSIDL_ADMINTOOLS, 0, 0, cData ) // WRONG
? "cData: ", cData
...
I was also thinking to create a way to describe and pass
C level function skeletons as string to HB_DLLCALL(),
which could then decide about the precise details, make
necessary conversions, etc.
F.e.:
HB_DLLCALL( h, "__cdecl _int64 AnyCall( int, long, double )", nPar1, nPar2,
nPar3 )
or something Windows specific (since we're in hbwin lib yet):
HB_DLLCALL( h, "WINAPI DWORD SetSomething( LPTCSTR )", cHarbourString )
Such thing could make .dll calls very user-friendly.
It's over my C knowledge, but maybe someone will be able
to implement in the future.
I think that Przemek could say something. :)
[ It's a parser to C language with examples of rules on C interpreters. ]
Maybe I've spent the finish line and only need to interpret some key words in
the string.
But this don't substract that currently, it's very functional IMO.
Best regards,
Xavi
Index: win_dll.c
===================================================================
--- win_dll.c (revision 13851)
+++ win_dll.c (working copy)
@@ -672,9 +672,9 @@
for( tmp = 0; tmp < iParams; ++tmp )
{
- HB_U32 r1;
- HB_U32 r2;
- HB_BOOL b64;
+ HB_U32 r1 = 0;
+ HB_U32 r2 = 0;
+ HB_BOOL b64 = HB_FALSE;
wcall.pArg[ tmp ].bByRef = HB_ISBYREF( iFirst + tmp );
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
