Changeset db8b00b for perlglue.xs

Timestamp:

Oct 27, 2006, 3:07:59 PM (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:

bbd2fdc

Parents:

e74c01c

Message:

Exposing edit window hooks to perl

File:

• perlglue.xs (modified) (4 diffs)

perlglue.xs

@@ -10 +10 @@
 #include "owl.h"
 SV *owl_perlconfig_curmessage2hashref(void);
+
+#define SV_IS_CODEREF(sv) (SvROK((sv)) && SvTYPE(SvRV((sv))) == SVt_PVCV)
 
 MODULE = owl            PACKAGE = owl           
@@ -84 +86 @@
                 owl_cmd cmd;
         CODE:
+        {
+                if(!SV_IS_CODEREF(func)) {
+                        croak("Command function must be a coderef!");
+                }
                 SvREFCNT_inc(func);
                 cmd.name = name;
@@ -99 +105 @@
                 cmd.cmd_ctxi_fn = NULL;
                 owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
+           }
 
 void queue_message(msg) 
@@ -140 +147 @@
                 owl_global_messagequeue_addmsg(&g, m);
         }
+
+void start_question(line, callback)
+        char *line
+        SV *callback
+        PREINIT:
+        CODE:
+        {
+                if(!SV_IS_CODEREF(callback))
+                        croak("Callback must be a subref");
+
+                owl_function_start_question(line);
+
+                SvREFCNT_inc(callback);
+                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
+                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+        }
+
+void start_password(line, callback)
+        char *line
+        SV *callback
+        PREINIT:
+        CODE:
+        {
+                if(!SV_IS_CODEREF(callback))
+                        croak("Callback must be a subref");
+
+                owl_function_start_password(line);
+
+                SvREFCNT_inc(callback);
+                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
+                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+        }
+
+void start_edit_win(line, callback)
+        char *line
+        SV *callback
+        PREINIT:
+                owl_editwin * e;
+                char buff[1024];
+        CODE:
+        {
+                if(!SV_IS_CODEREF(callback))
+                        croak("Callback must be a subref");
+
+                e = owl_global_get_typwin(&g);
+                owl_editwin_new_style(e, OWL_EDITWIN_STYLE_MULTILINE,
+                                      owl_global_get_msg_history(&g));
+                owl_editwin_clear(e);
+                owl_editwin_set_dotsend(e);
+                snprintf(buff, 1023, "----> %s\n", line);
+                owl_editwin_set_locktext(e, buff);
+
+                owl_global_set_typwin_active(&g);
+
+                SvREFCNT_inc(callback);
+                owl_editwin_set_cbdata(owl_global_get_typwin(&g), callback);
+                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+        }