From 1ae435b74bd1ea2aefcf4e7b2e511e3706a0d71d Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 24 Apr 2010 08:42:59 +0000 Subject: [PATCH] 2010-04-24 10:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + 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. --- harbour/ChangeLog | 17 +++++++++++++++++ harbour/examples/ps32/ps32.dif | 26 ++++++++++++++++++++++++++ harbour/examples/ps32/ps32.hbc | 10 ++++++++++ harbour/examples/ps32/ps32.hbp | 9 +++++++++ harbour/examples/ps32/readme.txt | 27 +++++++++++++++++++++++++++ harbour/examples/ps32/tests/hbmk.hbm | 5 +++++ 6 files changed, 94 insertions(+) create mode 100644 harbour/examples/ps32/ps32.dif create mode 100644 harbour/examples/ps32/ps32.hbc create mode 100644 harbour/examples/ps32/ps32.hbp create mode 100644 harbour/examples/ps32/readme.txt create mode 100644 harbour/examples/ps32/tests/hbmk.hbm diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 017b96f7b6..2f66c83065 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,23 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-04-24 10:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + + 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. + 2010-04-23 23:05 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/idemisc.prg ! Fixed to store original filename without case convertion inside .hbp. diff --git a/harbour/examples/ps32/ps32.dif b/harbour/examples/ps32/ps32.dif new file mode 100644 index 0000000000..2cf36aef84 --- /dev/null +++ b/harbour/examples/ps32/ps32.dif @@ -0,0 +1,26 @@ +--- 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 : => Method +- #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") diff --git a/harbour/examples/ps32/ps32.hbc b/harbour/examples/ps32/ps32.hbc new file mode 100644 index 0000000000..8f3d582110 --- /dev/null +++ b/harbour/examples/ps32/ps32.hbc @@ -0,0 +1,10 @@ +# +# $Id$ +# + +incpaths=. +libpaths=lib/${hb_plat}/${hb_comp} + +libs=ps32 + +libs=..\contrib\hbxpp\hbxpp.hbc diff --git a/harbour/examples/ps32/ps32.hbp b/harbour/examples/ps32/ps32.hbp new file mode 100644 index 0000000000..cedc8f24ba --- /dev/null +++ b/harbour/examples/ps32/ps32.hbp @@ -0,0 +1,9 @@ +# +# $Id$ +# + +-hblib +-olib/${hb_plat}/${hb_comp}/ps32 +-inc + +tpscript.prg diff --git a/harbour/examples/ps32/readme.txt b/harbour/examples/ps32/readme.txt new file mode 100644 index 0000000000..fef5736cf5 --- /dev/null +++ b/harbour/examples/ps32/readme.txt @@ -0,0 +1,27 @@ +/* + * $Id$ + */ + +1.) Obtain PageScript32 installation and install it. + (even the evaluation version will do) + +2.) Copy these files from PageScript32 installation + to this folder: + PScript.ch + TPSCRIPT.PRG + + You may also want to copy this file to 'tests' subdir: + PSTest.prg + +3.) Apply supplied patch to the source using GNU Patch: + patch -lNi ps32.dif + +4.) Build it: + hbmk2 ps32.hbp + +5.) You're done. + +6.) Finally, to build an application with PageScript32, use: + hbmk2 myapp.prg ps32.hbc + +[vszakats] diff --git a/harbour/examples/ps32/tests/hbmk.hbm b/harbour/examples/ps32/tests/hbmk.hbm new file mode 100644 index 0000000000..e65df1d1a5 --- /dev/null +++ b/harbour/examples/ps32/tests/hbmk.hbm @@ -0,0 +1,5 @@ +# +# $Id$ +# + +../ps32.hbc