Changeset 55562e1 for commands.c

Timestamp:

Nov 5, 2002, 11:32:42 PM (22 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

5c7b1b1

Parents:

0ba59d2

Message:

	Added 'get <variable>' command which returns the value of the variable
	   as a string.  This allows variable values to be retrieved from perl
	   with the likes of:  if ("on" eq &owl::command('get zaway')) { ... }

File:

• commands.c (modified) (2 diffs)

commands.c

@@ -142 +142 @@
               "Print the value of the named variable.  If no arugments\n"
               "are used print the value of all variables.\n"),
+
+  OWLCMD_ARGS("get", owl_command_get_variable, OWL_CTX_ANY,
+              "returns a variable value",
+              "get <variable>",
+              "Returns the value of the named variable as a string.\n"),
 
   OWLCMD_VOID("version", owl_command_version, OWL_CTX_ANY,
@@ -1044 +1049 @@
   }
   return NULL;
+}
+
+char *owl_command_get_variable(int argc, char **argv, char *buff) {
+  char *var;
+  char valbuff[1024];
+
+ if (argc!=2) {
+    owl_function_makemsg("Wrong number of arguments for get command");
+    return NULL;
+  }
+
+  var=argv[1];
+    
+  if (0 == owl_variable_get_tostring(owl_global_get_vardict(&g), 
+                                     var, valbuff, 1024)) {
+    return owl_strdup(valbuff);
+  } else {
+    owl_function_makemsg("Unknown variable '%s'.", var);
+    return NULL;
+  }
 }