1 files changed, 137 insertions, 0 deletions
diff --git a/src/pacman/remove.c b/src/pacman/remove.c
new file mode 100644
index 00000000..2f543106
--- /dev/null
+++ b/src/pacman/remove.c
@@ -0,0 +1,137 @@
+/*
+ *  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: */