/[pspp]/pspp/src/command.c
ViewVC logotype

Diff of /pspp/src/command.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by jmd, Tue May 3 08:26:22 2005 UTC revision 1.24 by blp, Sun May 8 20:55:05 2005 UTC
# Line 134  static const struct command *parse_comma Line 134  static const struct command *parse_comma
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        
# Line 143  FILE_TYPE_okay (const struct command *c) Line 144  FILE_TYPE_okay (const struct command *c)
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."),
# Line 151  FILE_TYPE_okay (const struct command *c) Line 151  FILE_TYPE_okay (const struct command *c)
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

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26