Changeset 8ee73f8d for commands.c

Timestamp:

Jun 30, 2002, 2:54:22 AM (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:

039213e

Parents:

d36f2cb

Message:

	Fixed a memory reference bug in delete and undelete commands.
	Added support for perl to call directly back into owl.
	Changed the implementation of owl::command("...") to immediately
	        call back into owl.  This allows perl to get the return
		value of strings returned by owl commands.
	Added the getview command which returns the name of the current
	        view's filter.
	Added the getvar command which returns the value of a variable.
	Added an example to examples/owlconf.erik which uses TAB to
		narrow and restore the view.
	Added an example to examples/owlconf.erik which uses M-c to
		color messages matching the current one green.

File:

• commands.c (modified) (4 diffs)

commands.c

@@ -485 +485 @@
               "prints a message into the debug log",
               "debug <message>", ""),
+
+  OWLCMD_ARGS("getview", owl_command_getview, OWL_CTX_INTERACTIVE,
+              "returns the name of the filter for the current view",
+              "", ""),
+
+  OWLCMD_ARGS("getvar", owl_command_getvar, OWL_CTX_INTERACTIVE,
+              "returns the value of a variable",
+              "getvar <varname>", ""),
 
   /****************************************************************/
@@ -1274 +1282 @@
   int move_after = 1;
 
-  if (!strcmp(argv[1], "--no-move")) {
+  if (argc>1 && !strcmp(argv[1], "--no-move")) {
     move_after = 0;
     argc--; 
@@ -1307 +1315 @@
   int move_after = 1;
 
-  if (!strcmp(argv[1], "--no-move")) {
+  if (argc>1 && !strcmp(argv[1], "--no-move")) {
     move_after = 0;
     argc--; 
@@ -1403 +1411 @@
 }
 
-
+char *owl_command_getview(int argc, char **argv, char *buff) {
+  char *filtname;
+  if (argc != 1) {
+    owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
+    return NULL;
+  }
+  filtname = owl_view_get_filtname(owl_global_get_current_view(&g));
+  if (filtname) filtname = owl_strdup(filtname);
+  return filtname;
+}
+
+char *owl_command_getvar(int argc, char **argv, char *buff) {
+  char tmpbuff[1024];
+  if (argc != 2) {
+    owl_function_makemsg("Wrong number of arguments for %s", argv[0]);
+    return NULL;
+  }
+  if (owl_variable_get_tostring(owl_global_get_vardict(&g), 
+                                argv[1], tmpbuff, 1024)) {
+    return NULL;
+  }
+  return owl_strdup(tmpbuff); 
+}
 
 /*********************************************************************/