/* This file is part of Idest. -*- c -*-
   Copyright (C) 2009-2011 Sergey Poznyakoff

   Idest is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3, or (at your option)
   any later version.

   Idest is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with Idest.  If not, see <http://www.gnu.org/licenses/>. */

static int mode_set = 0;
#define SET_MODE(m) do {                                                   \
		if (mode_set++ && mode != m)                               \
			error(1, 0, "only one of -q, -s, -d may be used"); \
		mode = m;                                                  \
	} while(0)

static unsigned
get_version_list(const char *arg)
{
	unsigned vers = 0;

	while (1) {
		switch (*arg) {
		case '1':
			vers |= IDEST_ID3V_1;
			break;
		case '2':
			vers |= IDEST_ID3V_2;
			break;
		default:
			error(1, 0, "invalid or unsupported version near %s",
			      arg);
		}
		if (*++arg == ',')
			++arg;
		else if (*arg == 0)
			break;
		else
			error(1, 0, "malformed version list near %s",
			      arg);
	}
	return vers;
}

OPTIONS_BEGIN(gnu, "idest",
	      [<idest - ID3 Edit and Scripting Tool>],
	      [<FILE [FILE...]>])

GROUP([<Operation mode>])

OPTION(query,q,[FLIST],
       [<query mode>])
BEGIN
	SET_MODE(MODE_QUERY);
	if (optarg)
		parse_filter_items(optarg);
END

OPTION(all,a,,
       [<query all frames>])
BEGIN
       SET_MODE(MODE_QUERY);
       all_frames = 1;
END

OPTION(set,s,FIELD=VALUE,
       [<set FIELD to VALUE>])
BEGIN
       char *p;

       SET_MODE(MODE_MOD);
       p = strchr(optarg, '=');
       if (!p)
	       error(1, 0, "missing `=' sign in assignment");
       *p++ = 0;
       input_list_add_assignment(optarg, p);
END

OPTION(delete,d,[FLIST],
       [<delete ID3 tags>])
BEGIN
	SET_MODE(MODE_DELETE);
	if (optarg)
		parse_filter_items(optarg);
END

OPTION(info,i,,
       [<display information about ID3 tags>])
BEGIN
	SET_MODE(MODE_INFO);
END

OPTION(copy,c,FILE,
       [<copy frames from FILE>])
BEGIN
	source_file = optarg;
END

OPTION(list-frames,L,,
       [<list all supported frames>])
BEGIN
	SET_MODE(MODE_LIST);
END

GROUP([<Operation modifiers>])

OPTION(filter,F,FRAME-LIST,
       [<operate only on matching frames>])
BEGIN
	parse_filter_items(optarg);
END

OPTION(id-version,V,VERSION,
       [<write new and changed tags in the given ID3 version>])
BEGIN
	version_option = get_version_list(optarg);
END

OPTION(default-id-version,U,VERSION,
       [<create new tags in the given ID3 version>])
BEGIN
	default_version_option = get_version_list(optarg);
END

OPTION(convert,C,VERSION,
       [<convert tags to VERSION>])
BEGIN
	convert_version = get_version_list(optarg);
END

OPTION(latin1,,,
       [<force latin1 output>])
BEGIN
	latin1_option = 1;
END

OPTION(verbose,v,,
       [<verbosely list files processed>])
BEGIN
	verbose_option = 1;
END

OPTION(describe,D,,
       [<print verbose frame descriptions instead of short names>])
BEGIN
	describe_option = 1;
END

GROUP([<Backup options>])

OPTION(backup,,[CONTROL],
       [<backup before modifying, choose version CONTROL>])
BEGIN
       if (optarg)
		backup_type = xget_version ("--backup", optarg);
       else
		backup_type = xget_version ("VERSION_CONTROL",
					    getenv("VERSION_CONTROL"));
END

OPTION(backup-suffix,,SUF,
       [<set backup suffix, instead of the default ~>])
BEGIN
       simple_backup_suffix = optarg;
END

OPTION(backup-directory,,DIR,
       [<backup to given DIR>])
BEGIN
       backup_dir = optarg;
END

IFDEF(GUILE_VERSION,[<

GROUP([<Scripting options>])

OPTION(script,S,FILE,
       [<read Guile script from FILE; this stops further argument processing>])
BEGIN
       set_guile_argv(argc - optind, argv + optind); /* Save rest of arguments */
       *--guile_argv = optarg;
       optind = argc; /* Stop argument processing */
END

OPTION(format,H,NAME,
       [<apply external format NAME; this stops further argument processing>])
BEGIN
       format_name = optarg;
       stop = 1; /* Stop argument processing */
END

OPTION(batch,B,NAME,
       [<apply batch modification module NAME; this stops further argument processing>])
BEGIN
       batch_name = optarg;
       stop = 1; /* Stop argument processing */
END

OPTION(dry-run,n,,
       [<run the script, print modified frames but do not write them to the file>])
BEGIN
       dry_run_option = 1;
END

OPTION(trace,,[LEVEL],
       [<start with debugging evaluator and backtraces>])
BEGIN
       if (optarg)
	       guile_debug = atoi(optarg);
       else
	       guile_debug = 1;
END

OPTION(load-path,P,PATH,
       [<append PATH to the load path>])
BEGIN
       guile_add_load_path(optarg, 1);
END

OPTION(prepend-load-path,p,PATH,
       [<prepend PATH to the load path>])
BEGIN
       guile_add_load_path(optarg, 0);
END

OPTION(no-init-files,N,,
       [<do not load Scheme init files>])
BEGIN
       no_init_files_option = 1;
END
>])

OPTIONS_END

void
get_options(int argc, char *argv[])
{
	GETOPT(argc, argv)
	if (optind < argc && mode == MODE_MOD) {
		char *p;
		/* See if we've been given any assignment arguments */
		while (argv[optind] && (p = strchr(argv[optind], '='))) {
			*p++ = 0;
			input_list_add_assignment(argv[optind++], p);
		}
	}
}