projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add scratch file handles.
[pspp-builds.git]
/
src
/
file-type.c
diff --git
a/src/file-type.c
b/src/file-type.c
index ff97f8dbbfbfd868c7adcd72c10672fb3a32bf1b..4c7c4a03075931aaa0bcf25f7b2e0b4e88f8cf15 100644
(file)
--- a/
src/file-type.c
+++ b/
src/file-type.c
@@
-103,7
+103,7
@@
int
cmd_file_type (void)
{
static struct file_type_pgm *fty; /* FIXME: static? WTF? */
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 ();
/* Initialize. */
discard_variables ();
@@
-139,7
+139,7
@@
cmd_file_type (void)
if (lex_match_id ("FILE"))
{
lex_match ('=');
if (lex_match_id ("FILE"))
{
lex_match ('=');
- fh = fh_parse ();
+ fh = fh_parse (
FH_REF_FILE | FH_REF_INLINE
);
if (fh == NULL)
goto error;
}
if (fh == NULL)
goto error;
}
@@
-279,7
+279,7
@@
cmd_file_type (void)
fty->reader = dfm_open_reader (fh);
if (fty->reader == NULL)
goto error;
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])
create_col_var (&fty->record);
if (fty->case_sbc.name[0])