Changeset 3ff3d86

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

Files:

• configure.ac (modified) (1 diff)
• perl/lib/BarnOwl/Complete/Client.pm (modified) (1 diff)
• perlglue.xs (modified) (1 diff)

configure.ac

@@ -1 +1 @@
 dnl $Id$
 dnl Process this file with autoconf to produce a configure script.
-AC_INIT([BarnOwl],[1.3pre3],[bug-barnowl@mit.edu])
+AC_INIT([BarnOwl],[1.3pre4],[bug-barnowl@mit.edu])
 AM_INIT_AUTOMAKE([-Wall foreign])
 

perl/lib/BarnOwl/Complete/Client.pm

@@ -43 +43 @@
 sub complete_color { return @all_colors; }
 sub complete_filter_name { return @{BarnOwl::all_filters()}; }
-sub complete_variable {}        # stub
-sub complete_style {}           # stub
+sub complete_variable    { return @{BarnOwl::all_variables()}; }
+sub complete_style       { return @{BarnOwl::all_styles()}; }
 
 my %filter_cmds = (

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