/* wydawca - automatic release submission daemon -*- c -*-
   Copyright (C) 2007, 2009, 2010 Sergey Poznyakoff

   Wydawca 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 of the License, or (at your
   option) any later version.

   Wydawca 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 wydawca. If not, see <http://www.gnu.org/licenses/>. */

static struct txtacc *pp_cmd_acc;

static struct grecs_list *source_list;
static struct grecs_list *tag_list;

static int
string_cmp (const void *elt1, const void *elt2)
{
  return strcmp ((const char *)elt1, (const char *)elt2);
}

int
selected_spools ()
{
  return (source_list != NULL || tag_list != NULL);
}

int
enabled_spool_p (const struct spool *spool)
{
  if (source_list || tag_list)
    return (source_list && grecs_list_locate (source_list, spool->source_dir))
            || (tag_list && grecs_list_locate (tag_list, spool->tag));
  return 1;	
}

OPTIONS_BEGIN("wydawca",
              [<wydawca synchronizes files from a set of upload directories with the corresponding distribution sites>],
	      [<UID [UID...]>],
	      [<gnu>],
              [<copyright_year=2011>],
              [<copyright_holder=Sergey Poznyakoff>])

GROUP(Selecting program mode)

OPTION(lint,t,,
       [<parse configuration file and exit>])
BEGIN
	lint_mode = 1;
	log_to_stderr = 1;
END

OPTION(,E,,
       [<preprocess config and exit>])
BEGIN
	preprocess_only = 1;
END

OPTION(dry-run,n,,
       [<do nothing, print almost everything; implies `--debug --stderr',
         use additional `--debug' options to get even more info>])
BEGIN
	log_to_stderr = 1;
	debug_level++;
	dry_run_mode = 1;
END

OPTION(cron,,,
       [<force cron mode>])
BEGIN
	cron_option = 1;
	log_to_stderr = 0;
END

OPTION(force,,,
       [<force start up even if the pid file already exists>])
BEGIN
	force_startup = 1;
END	

OPTION(foreground,,,
       [<foreground mode>])
BEGIN
	foreground_option = 1;
END

OPTION(single-process,,,
       [<single process mode>])
BEGIN
	single_process_option = 1;
END	

OPTION(config-file,c,FILE,
       [<use FILE instead of the default configuration>])
BEGIN
	conffile = optarg;
END

OPTION(spool,S,TAG,
       [<process only spool with the given tag (may be used multiple times)>])
BEGIN
	if (!tag_list)
	  {
	    tag_list = grecs_list_create ();
	    tag_list->cmp = string_cmp;
	  }
        grecs_list_append (tag_list, optarg);   
END

OPTION(source,s,SOURCE-DIR,
       [<process only spool with the given source (may be used multiple times)>])
BEGIN
	if (!source_list)
	  {
	    source_list = grecs_list_create ();
	    source_list->cmp = string_cmp;
	  }
        grecs_list_append (source_list, optarg);   
END       

GROUP(Logging)

OPTION(syslog,,,
       [<log to syslog>])       
BEGIN
	log_to_stderr = 0;
END

OPTION(stderr,e,,
       [<log to stderr>])
BEGIN
        log_to_stderr = 1;
END

GROUP(Preprocessor control)

OPTION(include-directory,I,DIR,
       [<add include directory>])
BEGIN
	grecs_preproc_add_include_dir (optarg);
END

OPTION(define,D,SYMBOL[=VALUE],
       [<define a preprocessor symbol>])
BEGIN
	char *p;

	if (!pp_cmd_acc)
          pp_cmd_acc = txtacc_create ();
	txtacc_grow (pp_cmd_acc, " \"-D", 4);
	for (p = optarg; *p; p++)
	  {
	    if (*p == '\\' || *p == '"')
	      txtacc_1grow (pp_cmd_acc, '\\');
	    txtacc_1grow (pp_cmd_acc, *p);
	  }
	txtacc_1grow (pp_cmd_acc, '"');  
END

OPTION(preprocessor,,COMMAND,
       [<use COMMAND instead of the default preprocessor>])
BEGIN
	grecs_preprocessor = optarg;
END

OPTION(no-preprocessor,,,
       [<disable preprocessing>])
BEGIN
	grecs_preprocessor = NULL;
END

GROUP(Debugging)

OPTION(debug,d,,
       [<increase debugging level>])
BEGIN
        debug_level++;
END

OPTION(dump-grammar-trace,,,
       [<dump configuration grammar traces>])
BEGIN
	grecs_gram_trace (1);
END

OPTION(dump-lex-trace,,,
       [<dump lexical analyzer traces>])
BEGIN
	grecs_lex_trace (1);
END

GROUP([<Additional help>])
OPTION(config-help,,,
       [<show configuration file summary>])
BEGIN
	config_help ();
	exit (0);
END

OPTIONS_END

void
parse_options(int argc, char *argv[])
{
  GETOPT(argc, argv)
  if (pp_cmd_acc && grecs_preprocessor)
    {
      char *defs = txtacc_finish (pp_cmd_acc);
      char *cmd = xmalloc (strlen (grecs_preprocessor) + strlen (defs) + 1);
      strcpy (cmd, grecs_preprocessor);
      strcat (cmd, defs);
      grecs_preprocessor = cmd;
      txtacc_free (pp_cmd_acc);
    }
}