134 |
/* Determines whether command C is appropriate to call in this |
/* Determines whether command C is appropriate to call in this |
135 |
part of a FILE TYPE structure. */ |
part of a FILE TYPE structure. */ |
136 |
static int |
static int |
137 |
FILE_TYPE_okay (const struct command *c) |
FILE_TYPE_okay (const struct command *c UNUSED) |
138 |
|
#if 0 |
139 |
{ |
{ |
140 |
int okay = 0; |
int okay = 0; |
141 |
|
|
144 |
&& c->func != cmd_repeating_data |
&& c->func != cmd_repeating_data |
145 |
&& c->func != cmd_end_file_type) |
&& c->func != cmd_end_file_type) |
146 |
msg (SE, _("%s not allowed inside FILE TYPE/END FILE TYPE."), c->name); |
msg (SE, _("%s not allowed inside FILE TYPE/END FILE TYPE."), c->name); |
|
#if 0 |
|
147 |
/* FIXME */ |
/* FIXME */ |
148 |
else if (c->func == cmd_repeating_data && fty.type == FTY_GROUPED) |
else if (c->func == cmd_repeating_data && fty.type == FTY_GROUPED) |
149 |
msg (SE, _("%s not allowed inside FILE TYPE GROUPED/END FILE TYPE."), |
msg (SE, _("%s not allowed inside FILE TYPE GROUPED/END FILE TYPE."), |
151 |
else if (!fty.had_rec_type && c->func != cmd_record_type) |
else if (!fty.had_rec_type && c->func != cmd_record_type) |
152 |
msg (SE, _("RECORD TYPE must be the first command inside a " |
msg (SE, _("RECORD TYPE must be the first command inside a " |
153 |
"FILE TYPE structure.")); |
"FILE TYPE structure.")); |
|
#endif |
|
154 |
else |
else |
155 |
okay = 1; |
okay = 1; |
156 |
|
|
|
#if 0 |
|
157 |
if (c->func == cmd_record_type) |
if (c->func == cmd_record_type) |
158 |
fty.had_rec_type = 1; |
fty.had_rec_type = 1; |
|
#endif |
|
159 |
|
|
160 |
return okay; |
return okay; |
161 |
} |
} |
162 |
|
#else |
163 |
|
{ |
164 |
|
return 1; |
165 |
|
} |
166 |
|
#endif |
167 |
|
|
168 |
/* Parses an entire PSPP command. This includes everything from the |
/* Parses an entire PSPP command. This includes everything from the |
169 |
command name to the terminating dot. Does most of its work by |
command name to the terminating dot. Does most of its work by |