projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix description of "count" in Auxiliary Variable Parameter Record.
[pspp]
/
src
/
file-type.c
diff --git
a/src/file-type.c
b/src/file-type.c
index 87bd874f102dddec1b84a5757bc48500225dfe98..4c7c4a03075931aaa0bcf25f7b2e0b4e88f8cf15 100644
(file)
--- a/
src/file-type.c
+++ b/
src/file-type.c
@@
-33,6
+33,9
@@
#include "var.h"
#include "vfm.h"
#include "var.h"
#include "vfm.h"
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
+
/* Defines the three types of complex files read by FILE TYPE. */
enum
{
/* Defines the three types of complex files read by FILE TYPE. */
enum
{
@@
-71,8
+74,7
@@
struct record_type
int ft, lt; /* First, last transformation index. */
}; /* 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. */
struct file_type_pgm
{
int type; /* One of the FTY_* constants. */
@@
-94,12
+96,14
@@
struct file_type_pgm
static int parse_col_spec (struct col_spec *, const char *);
static void create_col_var (struct col_spec *c);
static int parse_col_spec (struct col_spec *, const char *);
static void create_col_var (struct col_spec *c);
+int cmd_file_type (void);
+
/* Parses FILE TYPE command. */
int
cmd_file_type (void)
{
static struct file_type_pgm *fty; /* FIXME: static? WTF? */
/* Parses FILE TYPE command. */
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 ();
/* Initialize. */
discard_variables ();
@@
-135,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;
}
@@
-275,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])
@@
-440,7
+444,7
@@
cmd_record_type (void)
if (rct->nv >= mv)
{
mv += 16;
if (rct->nv >= mv)
{
mv += 16;
- rct->v = x
realloc (rct->v, mv *
sizeof *rct->v);
+ rct->v = x
nrealloc (rct->v, mv,
sizeof *rct->v);
}
if (formats[fty->record.fmt].cat & FCAT_STRING)
}
if (formats[fty->record.fmt].cat & FCAT_STRING)
@@
-448,8
+452,8
@@
cmd_record_type (void)
if (!lex_force_string ())
goto error;
rct->v[rct->nv].c = xmalloc (fty->record.nc + 1);
if (!lex_force_string ())
goto error;
rct->v[rct->nv].c = xmalloc (fty->record.nc + 1);
-
st_bare_pad_copy (rct->v[rct->nv].c, ds_c_str (&tokstr)
,
-
fty->record.nc + 1
);
+
buf_copy_str_rpad (rct->v[rct->nv].c, fty->record.nc + 1
,
+
ds_c_str (&tokstr)
);
}
else
{
}
else
{
@@
-569,6
+573,7
@@
cmd_record_type (void)
\f
/* END FILE TYPE. */
\f
/* END FILE TYPE. */
+int cmd_end_file_type (void);
int
cmd_end_file_type (void)
{
int
cmd_end_file_type (void)
{