From: John Darrington <john@darrington.wattle.id.au>
Date: Sun, 3 Mar 2013 06:54:13 +0000 (+0100)
Subject: Test proglet: Display all members of a case
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=888a5b618ce61ccbc8fb6a90730436844a7251da;p=pspp

Test proglet: Display all members of a case
---

diff --git a/src/ui/gui/sheet-test.c b/src/ui/gui/sheet-test.c
index 008f92395b..49f9ba8f56 100644
--- a/src/ui/gui/sheet-test.c
+++ b/src/ui/gui/sheet-test.c
@@ -46,6 +46,8 @@ struct xxx
 static void
 on_clicked (GtkButton *button, struct xxx *stuff)
 {
+  const struct caseproto *proto;
+  int nvals;
   struct ccase *c;
   gint x = gtk_combo_box_get_active (GTK_COMBO_BOX (stuff->combo_box));
   struct casereader *reader ;
@@ -60,11 +62,21 @@ on_clicked (GtkButton *button, struct xxx *stuff)
   opts.asw = -1;
 
   reader = ods_make_reader (stuff->sp, &opts);
+  proto = casereader_get_proto (reader);
+
+  nvals = caseproto_get_n_widths (proto);
+  
   for (;
            (c = casereader_read (reader)) != NULL; case_unref (c))
     {
-      const double val = case_data_idx (c, 0)->f;
-      printf ("%g\n", val);
+      int i;
+
+      for (i = 0; i < nvals ; ++i)
+      {
+	const double val = case_data_idx (c, i)->f;
+	printf ("%g ", val);
+      }
+      printf ("\n");
     }
 }