2012-06-17 16:08 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/hbamf/amfenc.c
  * contrib/hbamf/hbamf.hbx
  * contrib/hbamf/hbamfobj.prg
  * contrib/hbamf/readme.txt
    + applied Aleksander Czajczynski's patch for a missing class.
      Thank you very much, I didn't have to touch it, only
      autoupdate the .hbx file.

harbour/ChangeLog

@@ -16,6 +16,15 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-06-17 16:08 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbamf/amfenc.c
+  * contrib/hbamf/hbamf.hbx
+  * contrib/hbamf/hbamfobj.prg
+  * contrib/hbamf/readme.txt
+    + applied Aleksander Czajczynski's patch for a missing class.
+      Thank you very much, I didn't have to touch it, only
+      autoupdate the .hbx file.
+
 2012-06-17 15:59 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbrun/hbrun.hbp
   * utils/hbmk2/hbmk2.hbp

harbour/contrib/hbamf/amfenc.c

@@ -948,7 +948,7 @@ static HB_BOOL amf3_serialize_object( amfContext * context, PHB_ITEM pItem )
 {
    int result;
 
-   if( strcmp( hb_clsName( hb_objGetClass( pItem ) ), "RAWAMF" ) == 0 )
+   if( strcmp( hb_clsName( hb_objGetClass( pItem ) ), "AMF_RAW" ) == 0 )
    {
       PHB_ITEM pStr = hb_itemNew( NULL );
       hb_arrayGet( pItem, 1, pStr );

harbour/contrib/hbamf/hbamf.hbx

@@ -30,6 +30,7 @@ DYNAMIC AMF3_ENCODE
 DYNAMIC AMF3_FROMWA
 DYNAMIC AMFSTDIO_READ
 DYNAMIC AMF_OBJ
+DYNAMIC AMF_RAW
 
 #if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBAMF__REQUEST )
    #uncommand DYNAMIC <fncs,...> => EXTERNAL <fncs>

harbour/contrib/hbamf/hbamfobj.prg

@@ -60,3 +60,19 @@ METHOD msgNotFound( cMessage, ... ) CLASS AMF_Obj
    ENDIF
 
    RETURN NIL
+
+CREATE CLASS AMF_Raw
+
+   METHOD New( cData ) CONSTRUCTOR
+   METHOD GetData INLINE ::cData
+
+   PROTECTED:
+   VAR cData
+
+END CLASS
+
+METHOD New( cData ) CLASS AMF_Raw
+
+   ::cData := cData
+
+   RETURN self

harbour/contrib/hbamf/readme.txt

@@ -58,7 +58,7 @@ Short description of Harbour functions
                        lClose := xVal:lCloseWA
                        SELECT ( xVal:nWorkArea )
 
-                       xVal := RawAMF():New( AMF3_FROMWA( xVal:bWhile, xVal:bFor, xVal:aFields, xVal:nCount, xVal:lStrTrim, 1, pOuterContext ) )
+                       xVal := AMF_Raw():New( AMF3_FROMWA( xVal:bWhile, xVal:bFor, xVal:aFields, xVal:nCount, xVal:lStrTrim, 1, pOuterContext ) )
                        IF lClose
                           CLOSE
                        ENDIF