/*
 *  remove.c
 * 
 *  Copyright (c) 2002-2005 by Judd Vinet <jvinet@zeroflux.org>
 * 
 *  This program 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 2 of the License, or
 *  (at your option) any later version.
 *
 *  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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 
 *  USA.
 */

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

#include <alpm.h>
/* pacman */
#include "util.h"
#include "list.h"
#include "pacman.h"

extern unsigned char pmo_flags;

extern PM_DB *db_local;

int pacman_remove(list_t *targets)
{
	PM_LIST *data;
	list_t *i;
	list_t *finaltargs = NULL;

	if(targets == NULL) {
		return(0);
	}

	/* If the target is a group, ask if its packages should be removed 
	 * (the library can't remove groups for now)
	 */
	for(i = targets; i; i = i->next) {
		PM_GRP *grp;

		grp = alpm_db_readgrp(db_local, i->data);
		if(grp) {
			PM_LIST *lp, *pkgnames;
			int all;

			pkgnames = alpm_grp_getinfo(grp, PM_GRP_PKGNAMES);

			MSG(NL, ":: group %s:\n", alpm_grp_getinfo(grp, PM_GRP_NAME));
			PM_LIST_display("   ", pkgnames);
			all = yesno("    Remove whole content? [Y/n] ");
			for(lp = alpm_list_first(pkgnames); lp; lp = alpm_list_next(lp)) {
				if(all || yesno(":: Remove %s from group %s? [Y/n] ", (char *)alpm_list_getdata(lp), i->data)) {
					finaltargs = list_add(finaltargs, strdup(alpm_list_getdata(lp)));
				}
			}
		} else {
			/* not a group, so add it to the final targets */
			finaltargs = list_add(finaltargs, strdup(i->data));
		}
	}

	/* Step 1: create a new transaction
	 */
	if(alpm_trans_init(PM_TRANS_TYPE_REMOVE, pmo_flags, cb_trans) == -1) {
		ERR(NL, "failed to init transaction (%s)\n", alpm_strerror(pm_errno));
		goto error;
	}
	/* and add targets to it */
	for(i = finaltargs; i; i = i->next) {
		if(alpm_trans_addtarget(i->data) == -1) {
			ERR(NL, "failed to add target '%s' (%s)\n", (char *)i->data, alpm_strerror(pm_errno));
			goto error;
		}
	}

	/* Step 2: prepare the transaction based on its type, targets and flags
	 */
	if(alpm_trans_prepare(&data) == -1) {
		PM_LIST *i;
		ERR(NL, "failed to prepare transaction (%s)\n", alpm_strerror(pm_errno));
		switch(pm_errno) {
			case PM_ERR_UNSATISFIED_DEPS:
				for(i = alpm_list_first(data); i; i = alpm_list_next(i)) {
					pmdepmissing_t *miss = alpm_list_getdata(i);
					MSG(NL, "  %s: is required by %s\n", miss->target, miss->depend.name);
				}
				alpm_list_free(data);
			break;
			default:
				ERR(NL, "%s\n", alpm_strerror(pm_errno));
		}
		goto error;
	}

	/* Warn user in case of dangerous operation
	 */
	if(pmo_flags & PM_TRANS_FLAG_RECURSE || pmo_flags & PM_TRANS_FLAG_CASCADE) {
		/* list transaction targets */
		PM_LIST_display("\nTargets:", alpm_trans_getinfo(PM_TRANS_TARGETS));
		/* get confirmation */
		if(yesno("\nDo you want to remove these packages? [Y/n] ") == 0) {
			goto error;
		}
		MSG(NL, "\n");
	}

	/* Step 3: actually perform the removal
	 */
	if(alpm_trans_commit() == -1) {
		ERR(NL, "failed to commit transaction (%s)\n", alpm_strerror(pm_errno));
		goto error;
	}

	/* Step 4: cleanup */
	FREELIST(finaltargs);

	return(0);

error:
	FREELIST(finaltargs);
	alpm_trans_release();

	return(1);
}

/* vim: set ts=2 sw=2 noet: */