Changeset 3ff3d86 for perlglue.xs

Timestamp:

Aug 5, 2009, 9:26:44 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

d5ccf4e8

Parents:

06f5ef8

git-author:

Nelson Elhage <nelhage@mit.edu> (08/05/09 21:19:53)

git-committer:

Nelson Elhage <nelhage@mit.edu> (08/05/09 21:26:44)

Message:

Complete variables and style names

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -363 +363 @@
                 RETVAL
 
+AV*
+all_styles()
+        PREINIT:
+                AV *styles;
+                owl_list l;
+                char *name;
+                int i;
+        CODE:
+        {
+                owl_list_create(&l);
+                owl_global_get_style_names(&g, &l);
+                styles = newAV();
+                for(i=0;i<owl_list_get_size(&l);i++) {
+                        name = owl_list_get_element(&l, i);
+                        av_push(styles, newSVpv(name, 0));
+                }
+                RETVAL = styles;
+                sv_2mortal((SV*)RETVAL);
+        }
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                owl_list_free_all(&l, owl_free);
+
+
+AV*
+all_variables()
+        PREINIT:
+                AV *vars;
+                owl_list l;
+                char *name;
+                int i;
+        CODE:
+        {
+                owl_list_create(&l);
+                owl_dict_get_keys(owl_global_get_vardict(&g), &l);
+                vars = newAV();
+                for(i=0;i<owl_list_get_size(&l);i++) {
+                        name = owl_list_get_element(&l, i);
+                        av_push(vars, newSVpv(name, 0));
+                }
+                RETVAL = vars;
+                sv_2mortal((SV*)RETVAL);
+        }
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                owl_list_free_all(&l, owl_free);
+
 MODULE = BarnOwl                PACKAGE = BarnOwl::Internal