Changeset a695a68 for perlwrap.pm

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:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -78 +78 @@
     no warnings 'uninitialized';
     BarnOwl::new_command_internal($name, $func, $args{summary}, $args{usage}, $args{description});
+}
+
+sub new_variable_int {
+    unshift @_, \&BarnOwl::new_variable_int_internal, 0;
+    goto \&_new_variable;
+}
+
+sub new_variable_bool {
+    unshift @_, \&BarnOwl::new_variable_bool_internal, 0;
+    goto \&_new_variable;
+}
+
+sub new_variable_string {
+    unshift @_, \&BarnOwl::new_variable_string_internal, "";
+    goto \&_new_variable;
+}
+
+sub _new_variable {
+    my $func = shift;
+    my $default_default = shift;
+    my $name = shift;
+    my $args = shift || {};
+    my %args = (
+        summary     => "",
+        description => "",
+        default     => $default_default,
+        %{$args});
+    $func->($name, $args{default}, $args{summary}, $args{description});
 }