Changeset dd16bdd for perlglue.xs

Timestamp:

Oct 27, 2006, 1:19:54 AM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

1b6b2f3

Parents:

39c036d

Message:

Initial support for creating and injecting messages into the
display. Note that at the moment, you can easily segfault owl from
perl by injecting messages that don't contain fields owl assumes they
will.

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ +1 @@
+/* -*- mode: c; indent-tabs-mode: t; c-basic-offset: 8 -*- */
 static const char fileIdent[] = "$Id$";
 
@@ -90 +91 @@
                 cmd.description = description;
                 cmd.validctx = OWL_CTX_ANY;
-
                 cmd.cmd_aliased_to = NULL;
                 cmd.cmd_args_fn = NULL;
@@ -98 +98 @@
                 cmd.cmd_ctxv_fn = NULL;
                 cmd.cmd_ctxi_fn = NULL;
+                owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
 
-                owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
+void queue_message(msg)
+        SV *msg
+        PREINIT:
+                char * key;
+                char * val;
+                owl_message *m;
+                HV * hash;
+                HE * ent;
+                I32 count;
+                I32 len;
+        CODE:
+                if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) {
+                        croak("Usage: owl::queue_message($message)");
+                }
+                
+                hash = (HV*)SvRV(msg);
+                m = owl_malloc(sizeof(owl_message));
+                owl_message_init(m);
+                
+                count = hv_iterinit(hash);
+                while((ent = hv_iternext(hash))) {
+                        key = hv_iterkey(ent, &len);
+                        val = SvPV_nolen(hv_iterval(hash, ent));
+                        if(!strcmp(key, "type")) {
+                                owl_message_set_type(m, owl_message_parse_type(val));
+                        } else if(!strcmp(key, "direction")) {
+                                owl_message_set_direction(m, owl_message_parse_direction(val));
+                        } else {
+                                owl_message_set_attribute(m, key, val);
+                        }
+                }
+
+                owl_global_messagequeue_addmsg(&g, m);