Added bounds checking to tab.c

[pspp-builds.git] / src / list.q

diff --git a/src/list.q b/src/list.q
index 824e51da27d1fdbefc977ab691b41f5d3cb4dd5d..952283bc7b899c8f18f94589e39aabe12c380511 100644 (file)
--- a/src/list.q
+++ b/src/list.q
@@ -17,29 +17,13 @@
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
    02111-1307, USA. */
 
-/* AIX requires this to be the first thing in the file.  */
 #include <config.h>
-#if __GNUC__
-#define alloca __builtin_alloca
-#else
-#if HAVE_ALLOCA_H
-#include <alloca.h>
-#else
-#ifdef _AIX
-#pragma alloca
-#else
-#ifndef alloca                 /* predefined by HP cc +Olibcalls */
-char *alloca ();
-#endif
-#endif
-#endif
-#endif
-
 #include <assert.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include "alloc.h"
 #include "command.h"
+#include "devind.h"
 #include "lexer.h"
 #include "error.h"
 #include "magic.h"
@@ -47,6 +31,7 @@ char *alloca ();
 #include "htmlP.h"
 #include "output.h"
 #include "som.h"
+#include "tab.h"
 #include "var.h"
 #include "vfm.h"
 #include "format.h"
@@ -268,7 +253,7 @@ write_all_headers (void)
        {
          struct html_driver_ext *x = d->ext;
   
-         assert (d->driver_open && d->page_open);
+         assert (d->driver_open);
          if (x->sequence_no == 0 && !d->class->open_page (d))
            {
              msg (ME, _("Cannot open first page on HTML device %s."),
@@ -288,6 +273,10 @@ write_all_headers (void)
 
          fputs ("  <TR>\n", x->file.file);
        }
+      else if (d->class == &devind_class) 
+        {
+          /* FIXME */
+        }
       else
        assert (0);
     }
@@ -406,6 +395,10 @@ clean_up (void)
            fputs ("</TABLE>\n", x->file.file);
          }
       }
+    else if (d->class == &devind_class) 
+      {
+        /* FIXME */
+      }
     else
       assert (0);
   
@@ -537,6 +530,12 @@ determine_layout (void)
 
       if (d->class == &html_class)
        continue;
+      else if (d->class == &devind_class) 
+        {
+          /* FIXME */
+          tab_output_text (TAT_NONE, "(devind not supported on LIST yet)");
+          continue;
+        }
       
       assert (d->class->special == 0);
 
@@ -726,6 +725,10 @@ list_cases (struct ccase *c)
          
        fputs ("  </TR>\n", x->file.file);
       }
+    else if (d->class == &devind_class) 
+      {
+        /* FIXME */
+      }
     else
       assert (0);