Add scratch file handles.

[pspp-builds.git] / src / file-type.c

diff --git a/src/file-type.c b/src/file-type.c
index 5751fd40a280d81f14108d6154b30166e5438a30..4c7c4a03075931aaa0bcf25f7b2e0b4e88f8cf15 100644 (file)
--- a/src/file-type.c
+++ b/src/file-type.c
@@ -74,8 +74,7 @@ struct record_type
     int ft, lt;                        /* First, last transformation index. */
   };                           /* record_type */
 
-/* Represents a FILE TYPE input program.  Does not contain a
-   trns_header because it's never submitted as a transformation. */
+/* Represents a FILE TYPE input program. */
 struct file_type_pgm
   {
     int type;                  /* One of the FTY_* constants. */
@@ -104,7 +103,7 @@ int
 cmd_file_type (void)
 {
   static struct file_type_pgm *fty;     /* FIXME: static? WTF? */
-  struct file_handle *fh = NULL;
+  struct file_handle *fh = fh_inline_file ();
 
   /* Initialize. */
   discard_variables ();
@@ -140,7 +139,7 @@ cmd_file_type (void)
       if (lex_match_id ("FILE"))
        {
          lex_match ('=');
-         fh = fh_parse ();
+         fh = fh_parse (FH_REF_FILE | FH_REF_INLINE);
          if (fh == NULL)
            goto error;
        }
@@ -280,7 +279,7 @@ cmd_file_type (void)
   fty->reader = dfm_open_reader (fh);
   if (fty->reader == NULL)
     goto error;
-  default_handle = fh;
+  fh_set_default_handle (fh);
 
   create_col_var (&fty->record);
   if (fty->case_sbc.name[0])
@@ -445,7 +444,7 @@ cmd_record_type (void)
          if (rct->nv >= mv)
            {
              mv += 16;
-             rct->v = xrealloc (rct->v, mv * sizeof *rct->v);
+             rct->v = xnrealloc (rct->v, mv, sizeof *rct->v);
            }
 
          if (formats[fty->record.fmt].cat & FCAT_STRING)