Changeset 2045 for libswish3/trunk/bindings/perl/macros.h

Timestamp:

03/07/08 22:32:33 (10 months ago)

Author:

karpet

Message:

new config support

Files:

• libswish3/trunk/bindings/perl/macros.h (modified) (2 diffs)

libswish3/trunk/bindings/perl/macros.h

@@ -14 +14 @@
-#define WORD_CLASS          "SWISH::3::Word"
-#define DOC_CLASS           "SWISH::3::Doc"
+#define PROPERTY_CLASS      "SWISH::3::Property"
+#define METANAME_CLASS      "SWISH::3::MetaName"
+#define PROPERTY_HASH_CLASS "SWISH::3::PropertyHash"
+#define METANAME_HASH_CLASS "SWISH::3::MetaNameHash"
+#define XML2_HASH_CLASS     "SWISH::3::xml2Hash"
-#define SELF_KEY            "sp_self"
-#define CONFIG_KEY          "sp_config"
@@ -31 +36 @@
-        if (items < 2) \
-            croak("usage: $object->set_xxxxxx($val)"); \
+        \
+        if (!SvTRUE(ST(1))) \
+            croak("usage: requires true value"); \
-    } \
-    else { \