/*
 *   Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
 *   NOVELL (All rights reserved)
 *
 *   This program is free software; you can redistribute it and/or
 *   modify it under the terms of version 2 of the GNU General Public
 *   License 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, contact Novell, Inc.
 */

#include <linux/unistd.h>

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

#include "parser.h"
#include "profile.h"

static int strrcmp(const char *a, int ta,
		   const char *b, int tb)
{
	while (ta && tb) {
		int res = (int) a[ta--] - (int) b[tb--];
		if (res)
			return res;
	}
	if (ta < tb)
		return -1;
	if (ta > tb)
		return 1;
	return 0;
}

static int file_comp(const void *c1, const void *c2)
{
	struct cod_entry **e1, **e2;
	e1 = (struct cod_entry **)c1;
	e2 = (struct cod_entry **)c2;
	int res = 0;

	if ((*e1)->link_name) {
		if ((*e2)->link_name)
			res = strrcmp((*e1)->link_name, (*e1)->llen,
				      (*e2)->link_name, (*e2)->llen);
		else
			return 1;
	} else if ((*e2)->link_name) {
		return -1;
	}
	if (res)
		return res;

	if ((*e1)->link_name)
		res = ((int) (*e2)->subset) - ((int) (*e1)->subset);
	if (res)
		return res;

	if ((*e1)->rule_mode != (*e2)->rule_mode)
		return (*e1)->rule_mode < (*e2)->rule_mode ? -1 : 1;

	if ((*e1)->audit != (*e2)->audit)
		return (*e1)->audit < (*e2)->audit ? -1 : 1;

	if ((*e1)->priority != (*e2)->priority)
		return (*e2)->priority - (*e1)->priority;

	return strrcmp((*e1)->name, (*e1)->len,
		       (*e2)->name, (*e2)->len);
}

static int process_file_entries(Profile *prof)
{
	struct cod_entry *cur, *next;
	struct cod_entry **table;
	int n, count = 0;

	for (cur = prof->entries; cur; cur = cur->next)
		count++;

	if (count < 2)
		return 0;

	table = (struct cod_entry **) malloc(sizeof(struct cod_entry *) * (count + 1));
	if (!table) {
		PERROR(_("Couldn't merge entries. Out of Memory\n"));
		return -ENOMEM;
	}

	for (cur = prof->entries, n = 0; cur; cur = cur->next, n++) {
		table[n] = cur;
		cur->len = strlen(cur->name);
		cur->llen = cur->link_name ? strlen(cur->link_name) : 0;
	}
	qsort(table, count, sizeof(struct cod_entry *), file_comp);
	table[count] = NULL;
	for (n = 0; n < count; n++)
		table[n]->next = table[n + 1];
	prof->entries = table[0];
	free(table);

	count = 0;
	/* walk the sorted table merging similar entries */
	for (cur = prof->entries, next = cur->next; next; next = cur->next) {
		if (file_comp(&cur, &next) != 0) {
			cur = next;
			continue;
		}

		/* check for merged x consistency */
		if (!is_merged_x_consistent(cur->perms, next->perms)) {
			PERROR(_("profile %s: has merged rule %s with conflicting x modifiers\n"),
				prof->name, cur->name);
			return -1;
		}
		cur->perms |= next->perms;
		cur->next = next->next;

		next->next = NULL;
		free_cod_entries(next);
		count++;
	}

	return count;
}

int profile_merge_rules(Profile *prof)
{
	if (!(parseopts.control & CONTROL_RULE_MERGE))
		return 0;

	int res, tmp = process_file_entries(prof);
	if (tmp < 0)
		return -tmp;
	res = prof->merge_rules();
	if (res < 0)
		return -res;
	if (parseopts.dump & DUMP_RULE_MERGE)
	        fprintf(stderr, "RULE MERGE: deleted %d file rules, %d rules\n", tmp, res);
	return 0;
}
