1ae435b74b
+ examples/ps32
+ examples/ps32/ps32.hbp
+ examples/ps32/ps32.hbc
+ examples/ps32/ps32.dif
+ examples/ps32/readme.txt
+ examples/ps32/tests
+ examples/ps32/tests/hbmk.hbm
+ Added necessary files to use PageScript32 with Harbour.
(it's a payware product, so if anyone has any slight
aversion to this, or the small .dif poses even the
slightest chance of copyright issue, pls tell and I'll
delete the whole stuff.)
BTW, ideally someone should post this patch to the
authors of the library, after all it's their interest
to make it work with Harbour. The patch is very simple.
27 lines
683 B
Plaintext
27 lines
683 B
Plaintext
--- ori\tpscript.prg Mon Sep 22 08:51:46 2008
|
|
+++ tpscript.prg Sat Apr 24 10:22:47 2010
|
|
@@ -40,12 +40,12 @@
|
|
#include "PScript.ch"
|
|
#include "FileIO.ch"
|
|
|
|
-#ifdef __XHARBOUR__
|
|
+#ifdef __HARBOUR__
|
|
// 02.06.2005 - IBTC - changed for xHarbour Builder:
|
|
#xtranslate Method <Classname>:<x> => Method <x>
|
|
- #define DLL_STDCALL NIL
|
|
|
|
#include "hbclass.ch"
|
|
+ #include "Dll.ch"
|
|
#else
|
|
#include "Xbp.ch"
|
|
#include "Dll.ch"
|
|
@@ -242,7 +242,7 @@
|
|
|
|
::hDll := DllLoad("PScript.dll") // Handle of the .DLL
|
|
|
|
-if ::hDll == 0
|
|
+if Empty( ::hDll )
|
|
::nError := PSE_DLLNOTLOADED // DLL not loaded error
|
|
else
|
|
::nError := DllCall(::hDll, DLL_STDCALL, "PSInit")
|