Changeset 13404 for branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/clear.c

Timestamp:

May 16, 2007, 4:00:06 PM (19 years ago)

Author:

eugene

Message:

asserting libkapa API, adding section and erase commands

File:

• branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/clear.c (modified) (2 diffs)

branches/kapa-mods-2007-05/Ohana/src/opihi/cmd.data/clear.c

@@ -1 +1 @@
 # include "data.h"
 
+// default is to clear all plots, but not the sections or the images
 int clear (int argc, char **argv) {
   
-  int N, ClearSection;
+  int N;
   int kapa;
   char *name;
@@ -16 +17 @@
   FREE (name);
 
-  /* XXX need to distinguish between Plot, AllPlots, Image, AllSections */
-  ClearSection = FALSE;
-  if ((N = get_argument (argc, argv, "-s"))) {
-    remove_argument (N, &argc, argv);
-    ClearSection = TRUE;
+  // clear all sections
+  if ((N = get_argument (argc, argv, "-s")) || 
+      (N = get_argument (argc, argv, "-section"))) {
+      KapaClearSections (kapa);
+      return (TRUE);
+  }
+
+  // clear all sections
+  if ((N = get_argument (argc, argv, "-graph"))) {
+      KapaClearCurrentPlot (kapa);
+      return (TRUE);
+  }
+
+  // clear image
+  if ((N = get_argument (argc, argv, "-image"))) {
+      KapaClearImage (kapa);
+      return (TRUE);
   }
 
   if (argc != 1) {
-    gprint (GP_ERR, "USAGE: clear [-n Xgraph]\n");
+    gprint (GP_ERR, "USAGE: clear [-n Xgraph] [-s|-section] [-image] [-graph]\n");
+    gprint (GP_ERR, "       [-s|-section] : clear all sections\n");
+    gprint (GP_ERR, "       [-graph]      : clear current graph\n");
+    gprint (GP_ERR, "       [-image]      : clear current image\n");
     return (FALSE);
   }
 
-  KapaClear (kapa, ClearSection);
+  KapaClearPlots (kapa);
   return (TRUE);
 }