Changeset 245 for Search-Namazu

Timestamp:

03/28/06 17:55:36 (6 years ago)

Author:

knok

Message:

Added Search::Namazu::ResultXS, pure C result class.

Location:

Search-Namazu/trunk/Search-Namazu

Files:

• ChangeLog (modified) (1 diff)
• Namazu.xs (modified) (2 diffs)

Search-Namazu/trunk/Search-Namazu/ChangeLog

@@ -2 +2 @@
 
         * Namazu.{xs,pm}: Added maxget parameter.
+          Added a new class: Search::Namazu::ResultXS.
 
 2006-03-27  NOKUBI Takatsugu  <knok@daionet.gr.jp>

Search-Namazu/trunk/Search-Namazu/Namazu.xs

@@ -3 +3 @@
 Namazu.xs
 
-# Copyright (C) 1999,2000,2001,2002 NOKUBI Takatsugu All rights reserved.
+# Copyright (C) 1999-2006 NOKUBI Takatsugu All rights reserved.
 # This is free software with ABSOLUTELY NO WARRANTY.
 # 
@@ -221 +221 @@
         OUTPUT:
                 RETVAL
+
+
+MODULE = Search::Namazu PACKAGE = Search::Namazu::ResultXS      PREFIX = res_
+
+SV *
+res_new()
+        CODE:
+                HV *self;
+                HV *stash;
+                SV *ref;
+
+                stash = gv_stashpv("Search::Namazu::ResultXS", 0);
+                self = newHV();
+                ref = newRV_inc((SV*) self);
+                sv_bless(ref, stash);
+                RETVAL = ref;
+        OUTPUT:
+                RETVAL
+
+void
+res_set(self, key, val)
+              SV *self
+              SV *key
+              SV *val
+        CODE:
+                HV *hash;
+
+                hash = (HV *) SvRV(self);
+                hv_store(hash, SvPV_nolen(key), SvCUR(key), val, 0);
+
+SV *
+res_get(self, key)
+              SV *self
+              SV *key
+        CODE:
+                HV *hash;
+                SV **ret;
+
+                hash = (HV *) SvRV(self);
+                ret = hv_fetch(hash, SvPV_nolen(key), SvCUR(key), 0);
+                if (ret == NULL) {
+                        RETVAL = &PL_sv_undef;
+                } else {
+                        RETVAL = SvREFCNT_inc(*ret);
+                }
+        OUTPUT:
+                RETVAL
+