[ViewVC] Diff of: cvs/Convert-BER-XS/XS.xs

Comparing Convert-BER-XS/XS.xs (file contents):
Revision 1.20 by root, Sat Apr 20 17:04:35 2019 UTC vs.
Revision 1.22 by root, Sat Apr 20 18:38:33 2019 UTC

   ASN_CLASS_SHIFT       = 6,
   // ASN_APPLICATION SNMP
   SNMP_IPADDRESS         = 0x00,
   SNMP_COUNTER32         = 0x01,
+  SNMP_GAUGE32           = 0x02,
   SNMP_UNSIGNED32        = 0x02,
   SNMP_TIMETICKS         = 0x03,
   SNMP_OPAQUE            = 0x04,
   SNMP_COUNTER64         = 0x06,
 };
     const_iv (BER_TYPE_IPADDRESS)
     const_iv (BER_TYPE_CROAK)
     const_iv (SNMP_IPADDRESS)
     const_iv (SNMP_COUNTER32)
+    const_iv (SNMP_GAUGE32)
     const_iv (SNMP_UNSIGNED32)
     const_iv (SNMP_TIMETICKS)
     const_iv (SNMP_OPAQUE)
     const_iv (SNMP_COUNTER64)
   };
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
     newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
 }
-SV *
+void
 ber_decode (SV *ber, SV *profile = &PL_sv_undef)
+	ALIAS:
+        ber_decode_prefix = 1
-	CODE:
+	PPCODE:
 {
         cur_profile = SvPROFILE (profile);
 	STRLEN len;
         buf = (U8 *)SvPVbyte (ber, len);
         cur = buf;
         end = buf + len;
-        RETVAL = decode_ber ();
+        SV *tuple = decode_ber ();
+        EXTEND (SP, 2);
+        PUSHs (sv_2mortal (tuple));
+        if (ix)
+          PUSHs (sv_2mortal (newSViv (cur - buf)));
+        else if (cur != end)
+          error ("trailing garbage after BER data");
 }
-        OUTPUT: RETVAL
 void
 ber_is (SV *tuple, SV *klass = &PL_sv_undef, SV *tag = &PL_sv_undef, SV *flags = &PL_sv_undef, SV *data = &PL_sv_undef)
 	PPCODE:
 {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines