/*  This file is part of "reprepro"
 *  Copyright (C) 2005,2006 Bernhard R. Link
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License version 2 as
 *  published by the Free Software Foundation.
 *
 *  This program 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 this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02111-1301  USA
 */
#include <config.h>

#include <errno.h>
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>

#include "error.h"
#include "names.h"
#include "optionsfile.h"

void optionsfile_parse(const char *directory, const struct option *longopts, void handle_option(int,const char *)) {
	FILE *f;
	char *filename;
	char buffer[1000];
	int linenr = 0;
	const struct option *option;

	filename = calc_dirconcat(directory, "options");
	if( FAILEDTOALLOC(filename) ) {
		(void)fputs("Out of memory!\n", stderr);
		exit(EXIT_FAILURE);
	}

	f = fopen(filename,"r");
	if( f == NULL ) {
		free(filename);
		return;
	}
	while( fgets(buffer,999,f) != NULL ) {
		size_t l;
		char *optionname,*argument;

		linenr++;

		l = strlen(buffer);
		if( l == 0 || buffer[l-1] != '\n' ) {
			fprintf(stderr,"%s:%d: Ignoring too long (or incomplete) line.\n",filename,linenr);
			do {
				if( fgets(buffer,999,f) == NULL )
					break;
				l = strlen(buffer);
			} while( l > 0 && buffer[l-1] != '\n' );
			continue;
		}
		do{
			buffer[l-1] = '\0';
			l--;
		} while( l > 0 && xisspace(buffer[l-1]));

		if( l == 0 )
			continue;

		optionname = buffer;
		while( *optionname != '\0' && xisspace(*optionname) )
			optionname++;
		assert( *optionname != '\0' );
		if( *optionname == '#' || *optionname == ';' )
			continue;
		argument = optionname;
		while( *argument != '\0' && !xisspace(*argument) )
			argument++;
		while( *argument != '\0' && xisspace(*argument) ) {
			*argument = '\0';
			argument++;
		}
		if( *argument == '\0' )
			argument = NULL;
		option = longopts;
		while( option->name != NULL && strcmp(option->name,optionname) != 0 )
			option++;
		if( option->name == NULL ) {
			fprintf(stderr,"%s:%d: unknown option '%s'!\n",
					filename,linenr,optionname);
			exit(EXIT_FAILURE);
		}
		if( option->has_arg==no_argument && argument != NULL ) {
			fprintf(stderr,"%s:%d: option '%s' has an unexpected argument '%s'!\n",
					filename,linenr,optionname,argument);
			exit(EXIT_FAILURE);
		}
		if( option->has_arg==required_argument && argument == NULL ) {
			fprintf(stderr,"%s:%d: option '%s' is missing an argument!\n",
					filename,linenr,optionname);
			exit(EXIT_FAILURE);
		}
		if( option->flag == NULL )
			handle_option(option->val,argument);
		else {
			*option->flag = option->val;
			handle_option(0,argument);
		}
	}
	if( ferror(f) != 0 ) {
		int e = ferror(f);
		fprintf(stderr,"%s: error while reading config file: %d=%s\n",
				filename, e, strerror(e));
		exit(EXIT_FAILURE);
	}
	if( fclose(f) != 0 ) {
		int e = errno;
		fprintf(stderr,"%s: error while reading config file: %d=%s\n",
				filename, e, strerror(e));
		exit(EXIT_FAILURE);
	}
	free(filename);
}