+
+ /* Read most of the subcommands. */
+ for (;;)
+ {
+ if (lex_match_id ("VERSION"))
+ {
+ lex_match ('=');
+ if ( lex_force_num() )
+ {
+ lex_get();
+ version = tokval;
+
+ if ( 0 == strncasecmp (tokid,"x", 1) )
+ {
+ lex_get();
+ no_name_table = 1;
+ }
+
+ }
+ }
+ else if (lex_match_id ("OUTFILE"))
+ {
+ lex_match ('=');
+
+ fh = fh_parse ();
+ if (fh == NULL)
+ goto error;
+
+ }
+ if ( ! lex_match('/') )
+ break;
+
+ }
+
+ if (token != '.')
+ {
+ lex_error (_("expecting end of command"));
+ goto error;
+ }
+
+ if ( fh == NULL )
+ {
+ msg ( ME, _("The required %s subcommand was not present"), "OUTFILE");
+ goto error;
+ }
+
+ if ( version != default_version )
+ {
+ msg (MW, _("Unsupported sysfile version: %d. Using version %d instead."),
+ version, default_version);
+
+ version = default_version;
+ }