Changeset a695a68 for perlglue.xs

Timestamp:

May 18, 2007, 4:54:51 PM (17 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:

cd57601

Parents:

ec53338

git-author:

Nelson Elhage <nelhage@mit.edu> (05/18/07 16:54:42)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/18/07 16:54:51)

Message:

Adding the ability to define new variables from perl.

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -323 +323 @@
                 char *rv = NULL;
         CODE:
-rv = owl_text_wordwrap(in, cols);
+                rv = owl_text_wordwrap(in, cols);
                 RETVAL = rv;    
         OUTPUT:
@@ -329 +329 @@
         CLEANUP:
                 if (rv) owl_free(rv);
+
+void
+new_variable_string_internal(name, ival, summ, desc)
+        char * name
+        char * ival
+        char * summ
+        char * desc
+        CODE:
+        owl_variable_dict_newvar_string(owl_global_get_vardict(&g),
+                                        name,
+                                        summ,
+                                        desc,
+                                        ival);
+
+void
+new_variable_int_internal(name, ival, summ, desc)
+        char * name
+        int ival
+        char * summ
+        char * desc
+        CODE:
+        owl_variable_dict_newvar_int(owl_global_get_vardict(&g),
+                                     name,
+                                     summ,
+                                     desc,
+                                     ival);
+
+void
+new_variable_bool_internal(name, ival, summ, desc)
+        char * name
+        int ival
+        char * summ
+        char * desc
+        CODE:
+        owl_variable_dict_newvar_bool(owl_global_get_vardict(&g),
+                                      name,
+                                      summ,
+                                      desc,
+                                      ival);