2010-11-14 14:18 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbhpdf/harupdf.ch
  * contrib/hbhpdf/harupdf.c
    + Added HPDF_PDFA_SETPDFACONFORMANCE(). Patch from Tamas.
    + Added HPDF_PDFA_GENERATEID().

harbour/ChangeLog

@@ -16,6 +16,12 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-11-14 14:18 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbhpdf/harupdf.ch
+  * contrib/hbhpdf/harupdf.c
+    + Added HPDF_PDFA_SETPDFACONFORMANCE(). Patch from Tamas.
+    + Added HPDF_PDFA_GENERATEID().
+
 2010-11-13 19:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbzebra/tests/testhpdf.prg
     * Fixed wrong drawing of 2D barcodes (Mindaugas).

harbour/contrib/hbhpdf/harupdf.c

@@ -2679,4 +2679,30 @@ HB_FUNC( HPDF_LOADICCPROFILEFROMFILE )
 #endif
 }
 
+/*
+HPDF_STATUS
+HPDF_PDFA_SetPDFAConformance (HPDF_Doc pdf,HPDF_PDFAType pdfatype)
+*/
+HB_FUNC( HPDF_PDFA_SETPDFACONFORMANCE )
+{
+#if HB_HPDF_VERS( 2, 2, 0 )
+   hb_retnl( HPDF_PDFA_SetPDFAConformance( HPDF_Doc_par( 1 ), ( HPDF_PDFAType ) hb_parni( 2 ) ) );
+#else
+   hb_retnl( -1 );
+#endif
+}
+
+/*
+HPDF_STATUS
+HPDF_PDFA_GenerateID(HPDF_Doc pdf)
+*/
+HB_FUNC( HPDF_PDFA_GENERATEID )
+{
+#if HB_HPDF_VERS( 2, 2, 0 )
+   hb_retnl( HPDF_PDFA_GenerateID( HPDF_Doc_par( 1 ) ) );
+#else
+   hb_retnl( -1 );
+#endif
+}
+
 /*----------------------------------------------------------------------*/

harbour/contrib/hbhpdf/harupdf.ch

@@ -809,4 +809,13 @@
 
 //----------------------------------------------------------------------//
 
+/*----------------------------------------------------------------------------*/
+/*----- PDF/A mode -----------------------------------------------------------*/
+
+#define HPDF_PDFA_1A                        0
+#define HPDF_PDFA_1B                        1
+
+//----------------------------------------------------------------------//
+
+
 #endif // _HARUPDF_CH