Changeset b6a253c for perlglue.xs

Timestamp:

Nov 3, 2006, 10:54:00 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

6a6dd47

Parents:

a75309a

Message:

jabber.pl:
  * Roster added to buddy list.
  * Command jlist added to get roster.

perlglue.xs:
  * Exposed owl_fuction_popless_text()  as owl::popless_text()
  * Exposed owl_fuction_popless_ztext() as owl::popless_ztext()

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -217 +217 @@
         OUTPUT:
         RETVAL
+
+void
+popless_text(text) 
+        char *text
+        CODE:
+        {
+                owl_function_popless_text(text);
+        }
+
+void
+popless_ztext(text) 
+        char *text
+        CODE:
+        {
+                owl_fmtext fm;
+                owl_fmtext_init_null(&fm);
+                owl_fmtext_append_ztext(&fm, text);
+                owl_function_popless_fmtext(&fm);
+                owl_fmtext_free(&fm);
+        }