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,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.

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 <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")

harbour/examples/ps32/ps32.hbc

@@ -0,0 +1,10 @@
+#
+# $Id$
+#
+
+incpaths=.
+libpaths=lib/${hb_plat}/${hb_comp}
+
+libs=ps32
+
+libs=..\contrib\hbxpp\hbxpp.hbc

harbour/examples/ps32/ps32.hbp

@@ -0,0 +1,9 @@
+#
+# $Id$
+#
+
+-hblib
+-olib/${hb_plat}/${hb_comp}/ps32
+-inc
+
+tpscript.prg

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]

harbour/examples/ps32/tests/hbmk.hbm

@@ -0,0 +1,5 @@
+#
+# $Id$
+#
+
+../ps32.hbc