projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add ptile support (untested).
[pspp]
/
src
/
language
/
data-io
/
file-handle.c
diff --git
a/src/language/data-io/file-handle.c
b/src/language/data-io/file-handle.c
index 8d65418db75b0a30078c2600730404b3adfeb5ff..8dcc1028cf1bb654ac936154d17e198964befe91 100644
(file)
--- a/
src/language/data-io/file-handle.c
+++ b/
src/language/data-io/file-handle.c
@@
-94,7
+94,7
@@
cmd_file_handle (struct lexer *lexer, struct dataset *ds UNUSED)
}
lex_match (lexer, T_EQUALS);
}
lex_match (lexer, T_EQUALS);
- if (!lex_force_int
(lexer
))
+ if (!lex_force_int
_range (lexer, "LRECL", 1, (1UL << 31) - 1
))
goto exit;
lrecl = lex_integer (lexer);
lex_get (lexer);
goto exit;
lrecl = lex_integer (lexer);
lex_get (lexer);
@@
-108,7
+108,7
@@
cmd_file_handle (struct lexer *lexer, struct dataset *ds UNUSED)
}
lex_match (lexer, T_EQUALS);
}
lex_match (lexer, T_EQUALS);
- if (!lex_force_int
(lexer
))
+ if (!lex_force_int
_range (lexer, "TABWIDTH", 1, INT_MAX
))
goto exit;
tabwidth = lex_integer (lexer);
lex_get (lexer);
goto exit;
tabwidth = lex_integer (lexer);
lex_get (lexer);
@@
-252,10
+252,6
@@
cmd_file_handle (struct lexer *lexer, struct dataset *ds UNUSED)
msg (SE, _("The specified file mode requires LRECL. "
"Assuming %zu-character records."),
properties.record_width);
msg (SE, _("The specified file mode requires LRECL. "
"Assuming %zu-character records."),
properties.record_width);
- else if (lrecl < 1 || lrecl >= (1UL << 31))
- msg (SE, _("Record length (%d) must be between 1 and %lu bytes. "
- "Assuming %zu-character records."),
- lrecl, (1UL << 31) - 1, properties.record_width);
else
properties.record_width = lrecl;
}
else
properties.record_width = lrecl;
}
@@
-370,9
+366,3
@@
fh_parse (struct lexer *lexer, enum fh_referent referent_mask,
return handle;
}
return handle;
}
-
-/*
- Local variables:
- mode: c
- End:
-*/