X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Nary.xs;h=0165a66cb947b058a20f7e20bb1251d957433108;hb=2edec20dc456a6756846bbac264a99b9d6892848;hp=63f8cab646f7da48fb21ae1e2ef74a06f0bd6eda;hpb=2055b2f6d5f450e5e902c9751ddffe002ef5c8d1;p=perl%2Fmodules%2FSub-Nary.git

diff --git a/Nary.xs b/Nary.xs
index 63f8cab..0165a66 100644
--- a/Nary.xs
+++ b/Nary.xs
@@ -33,6 +33,40 @@ CODE:
  ST(0) = sv_2mortal(newSVuv(o == NULL));
  XSRETURN(1);
 
+void
+zero(SV *sv)
+PROTOTYPE: $
+PREINIT:
+ HV *hv;
+ IV res;
+CODE:
+ if (!SvOK(sv))
+  XSRETURN_IV(1);
+ if (!SvROK(sv)) {
+  res = SvNOK(sv) ? SvNV(sv) == 0.0 : SvUV(sv) == 0;
+  XSRETURN_IV(res);
+ }
+ hv = (HV *) SvRV(sv);
+ res = hv_exists(hv, "0", 1) && hv_iterinit(hv) == 1;
+ XSRETURN_IV(res);
+
+void
+list(SV *sv)
+PROTOTYPE: $
+PREINIT:
+ HV *hv;
+ IV res;
+CODE:
+ if (!SvOK(sv))
+  XSRETURN_IV(0);
+ if (!SvROK(sv)) {
+  res = strEQ(SvPV_nolen(sv), "list");
+  XSRETURN_IV(res);
+ }
+ hv = (HV *) SvRV(sv);
+ res = hv_exists(hv, "list", 4) && hv_iterinit(hv) == 1;
+ XSRETURN_IV(res);
+
 void
 count(SV *sv)
 PROTOTYPE: $