/*

  * Copyright (C) 2008  Kristian Høgsberg <krh@redhat.com>

  * Copyright (C) 2008  Red Hat, Inc

  * Copyright (C) 2009, 2011-2012, 2014  J. Ali Harlow <ali@juiblex.co.uk>

  *

  * 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.,

  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

  */

 #define _GNU_SOURCE

 #include "config.h"

 #include <stdlib.h>

 #include <stddef.h>

 #include <stdio.h>

 #include <stdint.h>

 #include <string.h>

 #include <sys/stat.h>

 #include <unistd.h>

 #include <fcntl.h>

 #include <dirent.h>

 #include <limits.h>

 #ifdef MSWIN_API

 #include <windows.h>

 #include <shlwapi.h>

 #endif

 #ifdef HAVE_CURL

 #include <curl/curl.h>

 #endif

 #if !defined(HAVE_CURL) && !defined(MSWIN_API)

 #include <ctype.h>

 #endif

 #include <fnmatch.h>

 #include <errno.h>

 #include <getopt.h>

 #include "razor.h"

 static const char system_repo_filename[] = "system.rzdb";

 static const char next_repo_filename[] = "system-next.rzdb";

 static const char rawhide_repo_filename[] = "rawhide.rzdb";

 static const char *install_root = "";

 static const char *repo_filename = system_repo_filename;

 static const char *yum_url;

 #ifndef FALSE

 #define FALSE 0

 #endif

 #ifndef TRUE

 #define TRUE (!FALSE)

 #endif

 #define ARRAY_SIZE(a) (sizeof(a) / sizeof((a)[0]))

 static int

 update_packages(struct razor_transaction *trans,

 		struct razor_install_iterator *ii, struct razor_set *system,

 		struct razor_set *next, struct razor_atomic *atomic,

 		struct razor_relocations *relocations,

 		enum razor_stage_type stage);

 static int

 update_system(struct razor_root *root, struct razor_relocations *relocations,

 	      struct razor_transaction *trans, struct razor_set *next,

 	      const char *verb);

 static int command_help(int argc, char * const argv[]);

 struct razor_option {

 	char *name;

 	int has_arg;

 	int val;

 	char *description;

 	char *arg_description;

 };

 static void

 razor_usage(const char *command, int n_options, struct razor_option *options,

 	    const char *parameter_string)

 {

 	int i, help_printed = FALSE;

 	char buf[19];

 	printf("Usage: razor %s [options] %s\n", command, parameter_string);

 	printf("(Specify the --help global option for a list of other "

 	       "help options)\n");

 	printf("\nOptions:\n");

 	for(i = 0; i < n_options; i++) {

 		if (!help_printed && strcmp(options[i].name, "help") > 0) {

 			printf("  --help              "

 			       "Show this help message and exit\n");

 			help_printed = TRUE;

 		}

 		if (options[i].has_arg != no_argument)

 			snprintf(buf, sizeof(buf), "%s=%s", options[i].name,

 				 options[i].arg_description);

 		else

 			strncpy(buf, options[i].name, sizeof(buf));

 		buf[18] = '\0';

 		printf("  --%-18s%s\n", buf, options[i].description);

 	}

 	if (!help_printed)

 		printf("  --help              "

 		       "Show this help message and exit\n");

 }

 /**

  * razor_getopt:

  *

  *

  * Returns: The next option found or -2 on handled or -1 on error

  *          or 0 on end of option list.

  **/

 static int

 razor_getopt(int argc, char * const argv[], int n_options,

 	     struct razor_option *options, const char *parameter_string,

 	     const char **arg)

 {

 	int i, opt, do_help = 0, retval;

 	struct option *longopts;

 	longopts = calloc((n_options + 2), sizeof(*longopts));

 	for(i = 0; i < n_options; i++) {

 		longopts[i].name = options[i].name;

 		longopts[i].has_arg = options[i].has_arg;

 		longopts[i].flag = &retval;

 		longopts[i].val = options[i].val;

 	}

 	longopts[i].name = "help";

 	longopts[i].has_arg = no_argument;

 	longopts[i].flag = &do_help;

 	longopts[i].val = TRUE;

 	opterr = 0;

 	opt = getopt_long(argc, argv, "+", longopts, NULL);

 	switch (opt)

 	{

 		case 0:

 			if (do_help) {

 				razor_usage(argv[0], n_options, options,

 					    parameter_string);

 				retval = -2;

 			} else if (arg)

 				*arg = optarg;

 			break;

 		case -1:

 			retval = 0;

 			break;

 		default:

 			razor_usage(argv[0], n_options, options,

 				    parameter_string);

 			retval = -1;

 	}

 	free(longopts);

 	return retval;

 }

 static struct razor_package_iterator *

 create_iterator_from_argv(struct razor_set *set, int argc, char * const argv[])

 {

 	struct razor_package_query *query;

 	struct razor_package_iterator *iter;

 	struct razor_package *package;

 	const char *name, *pattern;

 	int i, count;

 	if (argc == 0)

 		return razor_package_iterator_create(set);

 	query = razor_package_query_create(set);

 	for (i = 0; i < argc; i++) {

 		iter = razor_package_iterator_create(set);

 		pattern = argv[i];

 		count = 0;

 		while (razor_package_iterator_next(iter, &package,

 						   RAZOR_DETAIL_NAME, &name,

 						   RAZOR_DETAIL_LAST)) {

 			if (fnmatch(pattern, name, 0) != 0)

 				continue;

 			razor_package_query_add_package(query, package);

 			count++;

 		}

 		razor_package_iterator_destroy(iter);

 		if (count == 0)

 			fprintf(stderr,

 				"no package matches \"%s\"\n", pattern);

 	}

 	return razor_package_query_finish(query);

 }

 #define LIST_PACKAGES_ONLY_NAMES 0x01

 static void

 list_packages(struct razor_package_iterator *iter, uint32_t flags)

 {

 	struct razor_package *package;

 	const char *name, *version, *arch;

 	while (razor_package_iterator_next(iter, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_LAST)) {

 		if (flags & LIST_PACKAGES_ONLY_NAMES)

 			printf("%s\n", name);

 		else

 			printf("%s-%s.%s\n", name, version, arch);

 	}

 }

 static int

 command_list(int argc, char * const argv[])

 {

 	int opt;

 	struct razor_package_iterator *pi;

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	uint32_t flags = 0;

 	enum {

 		opt_only_names = 1,

 	};

 	static struct razor_option options[] = {

 		{ .name = "only-names", .has_arg = no_argument,

 		  .val = opt_only_names,

 		  .description = "Only list package names" },

 	};

 	do {

 		opt = razor_getopt(argc, argv, ARRAY_SIZE(options), options,

 				   "pattern ...", NULL);

 		switch (opt) {

 			case -2:

 				return 0;

 			case -1:

 				return 1;

 			case opt_only_names:

 				flags |= LIST_PACKAGES_ONLY_NAMES;

 				break;

 		}

 	} while (opt);

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = create_iterator_from_argv(set, argc - optind, argv + optind);

 	list_packages(pi, flags);

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 static void

 list_package_properties(struct razor_set *set,

 			struct razor_package *package, uint32_t type)

 {

 	struct razor_property_iterator *pi;

 	struct razor_property *property;

 	const char *name, *version;

 	uint32_t flags;

 	pi = razor_property_iterator_create(set, package);

 	while (razor_property_iterator_next(pi, &property,

 					    &name, &flags, &version)) {

 		if ((flags & RAZOR_PROPERTY_TYPE_MASK) != type)

 			continue;

 		printf("%s", name);

 		if (version[0] != '\0')

 			printf(" %s %s",

 			       razor_property_relation_to_string(property),

 			       version);

 		if (flags & ~(RAZOR_PROPERTY_RELATION_MASK | RAZOR_PROPERTY_TYPE_MASK)) {

 			printf(" [");

 			if (flags & RAZOR_PROPERTY_PRE)

 				printf(" pre");

 			if (flags & RAZOR_PROPERTY_POST)

 				printf(" post");

 			if (flags & RAZOR_PROPERTY_PREUN)

 				printf(" preun");

 			if (flags & RAZOR_PROPERTY_POSTUN)

 				printf(" postun");

 			printf(" ]");

 		}

 		printf("\n");

 	}

 	razor_property_iterator_destroy(pi);

 }

 static int

 list_properties(int argc, char * const argv[], uint32_t type)

 {

 	struct razor_set *set;

 	struct razor_error *error = NULL;

 	struct razor_package *package;

 	struct razor_package_iterator *pi;

 	const char *name, *version, *arch;

 	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = create_iterator_from_argv(set, argc - optind, argv + optind);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_LAST))

 		list_package_properties(set, package, type);

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 static int

 command_list_requires(int argc, char * const argv[])

 {

 	return list_properties(argc, argv, RAZOR_PROPERTY_REQUIRES);

 }

 static int

 command_list_provides(int argc, char * const argv[])

 {

 	return list_properties(argc, argv, RAZOR_PROPERTY_PROVIDES);

 }

 static int

 command_list_obsoletes(int argc, char * const argv[])

 {

 	return list_properties(argc, argv, RAZOR_PROPERTY_OBSOLETES);

 }

 static int

 command_list_conflicts(int argc, char * const argv[])

 {

 	return list_properties(argc, argv, RAZOR_PROPERTY_CONFLICTS);

 }

 static int

 command_list_scripts(int argc, char * const argv[])

 {

 	struct razor_set *set;

 	struct razor_error *error = NULL;

 	struct razor_package *package;

 	struct razor_package_iterator *pi;

 	const char *preunprog, *preun, *postunprog, *postun;

 	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = create_iterator_from_argv(set, argc - optind, argv + optind);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_PREUNPROG, &preunprog,

 					   RAZOR_DETAIL_PREUN, &preun,

 					   RAZOR_DETAIL_POSTUNPROG, &postunprog,

 					   RAZOR_DETAIL_POSTUN, &postun,

 					   RAZOR_DETAIL_LAST)) {

 		if (preun && *preun) {

 			printf("preuninstall scriptlet");

 			if (preunprog && *preunprog)

 				printf(" (using %s)",preunprog);

 			printf(":\n%s\n",preun);

 		}

 		if (postun && *postun) {

 			printf("postuninstall scriptlet");

 			if (postunprog && *postunprog)

 				printf(" (using %s)",postunprog);

 			printf(":\n%s\n",postun);

 		}

 	}

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 static int

 command_list_files(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	switch (razor_getopt(argc, argv, 0, NULL, "[pattern]", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 1) {

 		razor_usage(argv[0], 0, NULL, "[pattern]");

 		return 1;

 	}

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	razor_set_list_files(set, argv[optind]);

 	razor_set_unref(set);

 	return 0;

 }

 static int

 command_list_file_packages(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	struct razor_package_iterator *pi;

 	switch (razor_getopt(argc, argv, 0, NULL, "pattern", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind != 1) {

 		razor_usage(argv[0], 0, NULL, "pattern");

 		return 1;

 	}

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = razor_package_iterator_create_for_file(set, argv[optind]);

 	list_packages(pi, 0);

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 static int

 command_list_package_files(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	struct razor_package_iterator *pi;

 	struct razor_package *package;

 	const char *name, *version, *arch;

 	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = create_iterator_from_argv(set, argc - optind, argv + optind);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_LAST))

 		razor_set_list_package_files(set, package);

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 static int

 list_property_packages(const char *ref_name,

 		       const char *ref_version,

 		       uint32_t type)

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	struct razor_property *property;

 	struct razor_property_iterator *prop_iter;

 	struct razor_package_iterator *pkg_iter;

 	const char *name, *version;

 	uint32_t flags;

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	prop_iter = razor_property_iterator_create(set, NULL);

 	while (razor_property_iterator_next(prop_iter, &property,

 					    &name, &flags, &version)) {

 		if (strcmp(ref_name, name) != 0)

 			continue;

 		if (ref_version &&

 		    (flags & RAZOR_PROPERTY_RELATION_MASK) == RAZOR_PROPERTY_EQUAL &&

 		    strcmp(ref_version, version) != 0)

 			continue;

 		if ((flags & RAZOR_PROPERTY_TYPE_MASK) != type)

 			continue;

 		pkg_iter =

 			razor_package_iterator_create_for_property(set,

 								   property);

 		list_packages(pkg_iter, 0);

 		razor_package_iterator_destroy(pkg_iter);

 	}

 	razor_property_iterator_destroy(prop_iter);

 	razor_set_unref(set);

 	return 0;

 }

 static int

 command_what_requires(int argc, char * const argv[])

 {

 	switch (razor_getopt(argc, argv, 0, NULL, "name [version-release]",

 			     NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind < 1 || argc - optind > 2) {

 		razor_usage(argv[0], 0, NULL, "name [version-release]");

 		return 1;

 	}

 	return list_property_packages(argv[optind], argv[optind + 1],

 				      RAZOR_PROPERTY_REQUIRES);

 }

 static int

 command_what_provides(int argc, char * const argv[])

 {

 	switch (razor_getopt(argc, argv, 0, NULL, "name [version-release]",

 			     NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind < 1 || argc - optind > 2) {

 		razor_usage(argv[0], 0, NULL, "name [version-release]");

 		return 1;

 	}

 	return list_property_packages(argv[optind], argv[optind + 1],

 				      RAZOR_PROPERTY_PROVIDES);

 }

 #ifndef HAVE_CURL

 static int

 download_local(const char *url, const char *file)

 {

 	FILE *wfp, *rfp;

 	char buffer[256], *ptr, *local;

 	size_t nb, n;

 	local = razor_path_from_url(url);

 	if (local == NULL) {

 		fprintf(stderr,

 			"%s: download manually (curl not available)\n",

 			file);

 		return -1;

 	} else {

 		rfp = fopen(local, "rb");

 		if (rfp == NULL) {

 			perror(local);

 			free(local);

 			return -1;

 		}

 		wfp = fopen(file, "wb");

 		if (wfp == NULL) {

 			perror(file);

 			fclose(rfp);

 			free(local);

 			return -1;

 		}

 		while((nb = fread(buffer, 1, sizeof(buffer), rfp)) > 0) {

 			ptr = buffer;

 			while (nb > 0 && (n = fwrite(ptr, 1, nb, wfp)) > 0) {

 				ptr += n;

 				nb -= n;

 			}

 			if (nb != 0) {

 				perror(file);

 				fclose(wfp);

 				fclose(rfp);

 				unlink(file);

 				free(local);

 				return -1;

 			}

 		}

 		if (ferror(rfp)) {

 			perror(local);

 			fclose(wfp);

 			fclose(rfp);

 			unlink(file);

 			free(local);

 			return -1;

 		}

 		fclose(wfp);

 		fclose(rfp);

 		free(local);

 		return 0;

 	}

 }

 #endif /* !HAVE_CURL */

 #ifdef HAVE_CURL

 static int

 show_progress(void *clientp,

 	      double dltotal, double dlnow, double ultotal, double ulnow)

 {

 	const char *file = clientp;

 	if (!dlnow < dltotal)

 		fprintf(stderr, "\rdownloading %s, %dkB/%dkB",

 			file, (int) dlnow / 1024, (int) dltotal / 1024);

 	return 0;

 }

 static int

 download_with_curl(const char *url, const char *file)

 {

 	FILE *fp;

 	CURL *curl;

 	char error[256];

 	CURLcode res;

 	long response;

 	curl = curl_easy_init();

 	if (curl == NULL) {

 		fprintf(stderr,

 			"%s: download manually (curl failed)\n", file);

 		return -1;

 	}

 	curl_easy_setopt(curl, CURLOPT_ERRORBUFFER, error);

 	curl_easy_setopt(curl, CURLOPT_NOPROGRESS, 0);

 	curl_easy_setopt(curl, CURLOPT_PROGRESSFUNCTION, show_progress);

 	curl_easy_setopt(curl, CURLOPT_PROGRESSDATA, file);

 	fp = fopen(file, "wb");

 	if (fp == NULL) {

 		perror(file);

 		return -1;

 	}

 	curl_easy_setopt(curl, CURLOPT_WRITEDATA, fp);

 	curl_easy_setopt(curl, CURLOPT_URL, url);

 	res = curl_easy_perform(curl);

 	fclose(fp);

 	if (res != CURLE_OK) {

 		fprintf(stderr, "curl error: %s\n", error);

 		unlink(file);

 		return -1;

 	}

 	res = curl_easy_getinfo(curl,

 				CURLINFO_RESPONSE_CODE, &response);

 	if (res != CURLE_OK) {

 		fprintf(stderr, "curl error: %s\n", error);

 		unlink(file);

 		return -1;

 	}

 	if (response != 200) {

 		fprintf(stderr, " - failed %ld\n", response);

 		unlink(file);

 		return -1;

 	}

 	fprintf(stderr, "\n");

 	curl_easy_cleanup(curl);

 	return 0;

 }

 #endif	/* HAVE_CURL */

 static int

 download_if_missing(const char *url, const char *file)

 {

 	struct stat buf;

 	if (stat(file, &buf) >= 0)

 		return 0;

 #ifndef HAVE_CURL

 	return download_local(url, file);

 #else

 	return download_with_curl(url, file);

 #endif

 }

 #define YUM_URL "http://download.fedora.redhat.com" \

 	"/pub/fedora/linux/development/i386/os"

 static int

 command_import_yum(int argc, char * const argv[])

 {

 	int retval;

 	struct razor_set *set;

 	struct razor_atomic *atomic;

 	char buffer[512];

 	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 0) {

 		razor_usage(argv[0], 0, NULL, "");

 		return 1;

 	}

 	printf("downloading from '%s'.\n", yum_url);

 	snprintf(buffer, sizeof buffer,

 		 "%s/repodata/primary.xml.gz", yum_url);

 	if (download_if_missing(buffer, "primary.xml.gz") < 0)

 		return -1;

 	snprintf(buffer, sizeof buffer,

 		 "%s/repodata/filelists.xml.gz", yum_url);

 	if (download_if_missing(buffer, "filelists.xml.gz") < 0)

 		return -1;

 	set = razor_set_create_from_yum();

 	if (set == NULL)

 		return 1;

 	atomic = razor_atomic_open("Yum import repository");

 	razor_set_write(set, atomic, rawhide_repo_filename, RAZOR_SECTION_ALL);

 	retval = razor_atomic_commit(atomic);

 	razor_set_unref(set);

 	if (retval)

 		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

 	else

 		printf("wrote %s\n", rawhide_repo_filename);

 	razor_atomic_destroy(atomic);

 	return retval;

 }

 #if HAVE_RPMLIB

 static int

 command_import_rpmdb(int argc, char * const argv[])

 {

 	struct razor_set *set;

 	struct razor_root *root;

 	struct razor_error *error = NULL;

 	struct razor_atomic *atomic;

 	int retval;

 	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 0) {

 		razor_usage(argv[0], 0, NULL, "");

 		return 1;

 	}

 	root = razor_root_open(install_root, &error);

 	if (root == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	set = razor_set_create_from_rpmdb();

 	if (set == NULL)

 		return 1;

 	atomic = razor_atomic_open("Import RPM database");

 	retval = razor_root_update(root, set, atomic);

 	if (retval)

 		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

 	razor_atomic_destroy(atomic);

 	razor_root_close(root);

 	return retval;

 }

 #endif

 static int

 mark_packages_for_update(struct razor_transaction *trans,

 			 struct razor_set *set, const char *pattern)

 {

 	struct razor_package_iterator *pi;

 	struct razor_package *package;

 	const char *name;

 	int matches = 0;

 	pi = razor_package_iterator_create(set);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_LAST)) {

 		if (pattern && fnmatch(pattern, name, 0) == 0) {

 			razor_transaction_update_package(trans, package);

 			matches++;

 		}

 	}

 	razor_package_iterator_destroy(pi);

 	return matches;

 }

 static int

 mark_packages_for_removal(struct razor_transaction *trans,

 			  struct razor_set *set, const char *pattern)

 {

 	struct razor_package_iterator *pi;

 	struct razor_package *package;

 	const char *name;

 	int matches = 0;

 	pi = razor_package_iterator_create(set);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_LAST)) {

 		if (pattern && fnmatch(pattern, name, 0) == 0) {

 			razor_transaction_remove_package(trans, package);

 			matches++;

 		}

 	}

 	razor_package_iterator_destroy(pi);

 	return matches;

 }

 static int

 command_remove(int argc, char * const argv[])

 {

 	struct razor_set *system, *upstream, *next;

 	struct razor_transaction *trans;

 	struct razor_error *error = NULL;

 	struct razor_root *root;

 	int i, retval;

 	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	root = razor_root_open(install_root, &error);

 	if (root == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	system = razor_root_get_system_set(root);

 	upstream = razor_set_create_without_root();

 	trans = razor_transaction_create(system, upstream);

 	razor_set_unref(upstream);

 	for (i = optind; i < argc; i++) {

 		if (mark_packages_for_removal(trans, system, argv[i]) == 0) {

 			fprintf(stderr, "no match for %s\n", argv[i]);

 			razor_transaction_destroy(trans);

 			razor_root_close(root);

 			return 1;

 		}

 	}

 	razor_transaction_resolve(trans);

 	retval = razor_transaction_describe(trans);

 	if (retval) {

 		razor_transaction_destroy(trans);

 		razor_root_close(root);

 		return 1;

 	}

 	next = razor_transaction_commit(trans);

 	retval = update_system(root, NULL, trans, next, "Remove");

 	razor_transaction_destroy(trans);

 	razor_root_close(root);

 	razor_set_unref(next);

 	return retval;

 }

 static void

 print_diff(enum razor_diff_action action,

 	   struct razor_package *package,

 	   const char *name,

 	   const char *version,

 	   const char *arch,

 	   void *data)

 {

 	if (action == RAZOR_DIFF_ACTION_ADD)

 		printf("install %s-%s.%s\n", name, version, arch);

 	if (action == RAZOR_DIFF_ACTION_REMOVE)

 		printf("remove %s-%s.%s\n", name, version, arch);

 }

 static int

 command_diff(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set, *updated;

 	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 0) {

 		razor_usage(argv[0], 0, NULL, "");

 		return 1;

 	}

 	set = razor_root_open_read_only(install_root, &error);

 	if (set)

 		updated = razor_set_open(rawhide_repo_filename, 0, &error);

 	else

 		updated = NULL;

 	if (updated == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		if (set)

 			razor_set_unref(set);

 		return 1;

 	}

 	razor_set_diff(set, updated, print_diff, NULL);

 	razor_set_unref(set);

 	razor_set_unref(updated);

 	return 0;

 }

 static int

 command_import_rpms(int argc, char * const argv[])

 {

 	DIR *dir;

 	struct dirent *de;

 	struct razor_importer *importer;

 	struct razor_set *set;

 	struct razor_rpm *rpm;

 	struct razor_error *error=NULL;

 	struct razor_atomic *atomic;

 	int len, imported_count = 0;

 	char filename[256];

 	const char *dirname;

 	int retval;

 	switch (razor_getopt(argc, argv, 0, NULL, "dir", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind != 1) {

 		razor_usage(argv[0], 0, NULL, "dir");

 		return 1;

 	}

 	dirname = argv[optind];

 	dir = opendir(dirname);

 	if (dir == NULL) {

 		fprintf(stderr, "couldn't read dir %s\n", dirname);

 		return -1;

 	}

 	importer = razor_importer_create();

 	while (de = readdir(dir), de != NULL) {

 		len = strlen(de->d_name);

 		if (len < 5 || strcmp(de->d_name + len - 4, ".rpm") != 0)

 			continue;

 		snprintf(filename, sizeof filename,

 			 "%s/%s", dirname, de->d_name);

 		rpm = razor_rpm_open(filename, &error);

 		if (rpm == NULL) {

 			fprintf(stderr, "%s\n", razor_error_get_msg(error));

 			razor_error_free(error);

 			error=NULL;

 			continue;

 		}

 		if (razor_importer_add_rpm(importer, rpm)) {

 			fprintf(stderr, "couldn't import %s\n", filename);

 			break;

 		}

 		razor_rpm_close(rpm);

 		printf("\rimporting %d", ++imported_count);

 		fflush(stdout);

 	}

 	if (de != NULL) {

 		razor_importer_destroy(importer);

 		return -1;

 	}

 	printf("\nsaving\n");

 	set = razor_importer_finish(importer);

 	atomic = razor_atomic_open("Update system database");

 	razor_set_write(set, atomic, repo_filename, RAZOR_SECTION_ALL);

 	razor_set_unref(set);

 	retval = razor_atomic_commit(atomic);

 	if (retval)

 		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

 	else

 		printf("wrote %s\n", repo_filename);

 	razor_atomic_destroy(atomic);

 	return retval;

 }

 static char *

 rpm_filename(const char *name, const char *version, const char *arch)

 {

  	const char *v;

  	/* Skip epoch */

 	v = strchr(version, ':');

  	if (v != NULL)

  		v = v + 1;

  	else

 		v = version;

 	return razor_concat(name, "-", v, ".", arch, ".rpm", NULL);

 }

 static int

 download_packages(struct razor_set *system, struct razor_set *next)

 {

 	struct razor_install_iterator *ii;

 	struct razor_package *package;

 	enum razor_install_action action;

 	const char *name, *version, *arch;

 	char *file, *url, *s;

 	int errors = 0, count;

 	ii = razor_set_create_install_iterator(system, next);

 	while (razor_install_iterator_next(ii, &package, &action, &count)) {

 		if (action != RAZOR_INSTALL_ACTION_ADD)

 			continue;

 		razor_package_get_details(next, package,

 					  RAZOR_DETAIL_NAME, &name,

 					  RAZOR_DETAIL_VERSION, &version,

 					  RAZOR_DETAIL_ARCH, &arch,

 					  RAZOR_DETAIL_LAST);

 		s = rpm_filename(name, version, arch);

 		url = razor_concat(yum_url, "/Packages/", s, NULL);

 		file = razor_concat("rpms/", s, NULL);

 		free(s);

 		if (download_if_missing(url, file) < 0)

 			errors++;

 		free(file);

 		free(url);

 	}

 	razor_install_iterator_destroy(ii);

 	if (errors > 0) {

 		fprintf(stderr, "failed to download %d packages\n", errors);

                 return -1;

         }

 	return 0;

 }

 static struct razor_set *

 relocate_packages(struct razor_set *set, struct razor_atomic *atomic,

 		  struct razor_relocations *relocations)

 {

 	int i;

 	struct razor_importer *importer;

 	struct razor_property_iterator *prop_iter;

 	struct razor_package_iterator *pkg_iter;

  	struct razor_file_iterator *file_iter;

  	struct razor_package *package;

 	struct razor_property *property;

 	struct razor_rpm *rpm;

 	struct razor_error *error=NULL;

 	const char *name, *version, *arch, *summary, *desc, *url, *license;

 	const char *preunprog, *preun, *postunprog, *postun;

 	const char *install_prefix;

 	const char *const *prefixes;

 	char *file, *s;

 	uint32_t flags;

 	importer = razor_importer_create();

 	pkg_iter = razor_package_iterator_create(set);

 	while (razor_package_iterator_next(pkg_iter, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_SUMMARY, &summary,

 					   RAZOR_DETAIL_DESCRIPTION, &desc,

 					   RAZOR_DETAIL_URL, &url,

 					   RAZOR_DETAIL_LICENSE, &license,

 					   RAZOR_DETAIL_PREUNPROG, &preunprog,

 					   RAZOR_DETAIL_PREUN, &preun,

 					   RAZOR_DETAIL_POSTUNPROG, &postunprog,

 					   RAZOR_DETAIL_POSTUN, &postun,

 					   RAZOR_DETAIL_LAST)) {

 		s = rpm_filename(name, version, arch);

 		file = razor_concat("rpms/", s, NULL);

 		free(s);

 		rpm = razor_rpm_open(file, &error);

 		free(file);

 		if (rpm == NULL) {

 			razor_atomic_propagate_error(atomic, error, NULL);

 			razor_error_free(error);

 			razor_package_iterator_destroy(pkg_iter);

 			razor_importer_destroy(importer);

 			return NULL;

 		}

 		razor_relocations_set_rpm(relocations, rpm);

 		razor_importer_begin_package(importer, name, version, arch);

 		razor_importer_add_details(importer,

 					   summary, desc, url, license);

 		razor_rpm_get_details(rpm, RAZOR_DETAIL_PREFIXES, &prefixes,

 				      RAZOR_DETAIL_LAST);

 		for (i = 0; prefixes && prefixes[i]; i++) {

 			install_prefix = razor_relocations_apply(relocations,

 								 prefixes[i]);

 			razor_importer_add_install_prefix(importer,

 							  install_prefix);

 		}

 		razor_rpm_close(rpm);

 		prop_iter = razor_property_iterator_create(set, package);

 		while (razor_property_iterator_next(prop_iter, &property,

 						    &name, &flags, &version))

 			razor_importer_add_property(importer,

 						    name, flags, version);

 		razor_property_iterator_destroy(prop_iter);

 		file_iter = razor_file_iterator_create(set, package, 0);

 		while (razor_file_iterator_next(file_iter, &name)) {

 			name = razor_relocations_apply(relocations, name);

 			razor_importer_add_file(importer, name);

 		}

 		razor_file_iterator_destroy(file_iter);

 		razor_importer_add_script(importer, RAZOR_PROPERTY_PREUN,

 					  preunprog, preun);

 		razor_importer_add_script(importer, RAZOR_PROPERTY_POSTUN,

 					  postunprog, postun);

 		razor_importer_finish_package(importer);

 	}

 	razor_package_iterator_destroy(pkg_iter);

 	return razor_importer_finish(importer);

 }

 static int

 install_package(struct razor_transaction *trans, struct razor_set *set,

 		struct razor_atomic *atomic, struct razor_package *package,

 		struct razor_relocations *relocations, int install_count,

 		enum razor_stage_type stage)

 {

 	int retval;

 	const char *name, *version, *arch;

 	char *file, *s;

 	struct razor_rpm *rpm;

 	struct razor_error *error=NULL;

 	razor_package_get_details(set, package,

 				  RAZOR_DETAIL_NAME, &name,

 				  RAZOR_DETAIL_VERSION, &version,

 				  RAZOR_DETAIL_ARCH, &arch,

 				  RAZOR_DETAIL_LAST);

 	if (stage & RAZOR_STAGE_SCRIPTS_PRE)

 		printf("install %s-%s\n", name, version);

 	s = rpm_filename(name, version, arch);

 	file = razor_concat("rpms/", s, NULL);

 	free(s);

 	rpm = razor_rpm_open(file, &error);

 	free(file);

 	if (rpm == NULL) {

 		razor_atomic_propagate_error(atomic, error, NULL);

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return -1;

 	}

 	if (relocations)

 		razor_rpm_set_relocations(rpm, relocations);

 	razor_transaction_fixup_package(trans, package, rpm);

 	retval = razor_rpm_install(rpm, atomic, install_root, install_count,

 				   stage);

 	if (retval < 0) {

 		s = rpm_filename(name, version, arch);

 		fprintf(stderr, "%s: %s\n", s,

 			razor_atomic_get_error_msg(atomic));

 		free(s);

 	}

 	razor_rpm_close(rpm);

 	return retval;

 }

 /*

  * Returns 0 on success, -1 on failure and 1 if a RAZOR_INSTALL_ACTION_COMMIT

  * is met (in which case the action is consumed).

  */

 static int

 update_packages(struct razor_transaction *trans,

 		struct razor_install_iterator *ii, struct razor_set *system,

 		struct razor_set *next, struct razor_atomic *atomic,

 		struct razor_relocations *relocations,

 		enum razor_stage_type stage)

 {

 	struct razor_package *package;

 	enum razor_install_action action;

 	int retval = 0, count;

 	while (!retval && razor_install_iterator_next(ii, &package, &action,

 						      &count)) {

 		if (action == RAZOR_INSTALL_ACTION_ADD) {

 			if (install_package(trans, next, atomic, package,

 					    relocations, count, stage))

 				retval = -1;

 		} else if (action == RAZOR_INSTALL_ACTION_REMOVE) {

 			if (razor_package_remove(system, next, atomic, package,

 						 install_root, count, stage))

 				retval = -1;

 		} else if (action == RAZOR_INSTALL_ACTION_COMMIT)

 				retval = 1;

 	}

 	return retval;

 }

 static int

 update_system(struct razor_root *root, struct razor_relocations *relocations,

 	      struct razor_transaction *trans, struct razor_set *next,

 	      const char *verb)

 {

 	struct razor_set *system, *set;

 	struct razor_atomic *atomic;

 	struct razor_install_iterator *ii;

 	int r, retval = 0;

 	char *description;

 	size_t pos;

 	description = razor_concat(verb, " packages", NULL);

 	system = razor_set_ref(razor_root_get_system_set(root));

 	ii = razor_set_create_install_iterator(system, next);

 	do {

 		pos = razor_install_iterator_tell(ii);

 		atomic = razor_atomic_open(description);

 		r = update_packages(trans, ii, system, next, atomic,

 				    relocations, RAZOR_STAGE_SCRIPTS_PRE);

 		if (r < 0) {

 			fprintf(stderr, "%s aborted\n", verb);

 			retval = r;

 		} else {

 			razor_install_iterator_seek(ii, pos);

 			r = update_packages(trans, ii, system, next, atomic,

 					    relocations, RAZOR_STAGE_FILES);

 			if (r == 1) {

 				set = razor_install_iterator_commit_set(ii);

 				razor_root_update(root, set, atomic);

 				razor_set_unref(set);

 			} else if (r == 0)

 				razor_root_update(root, next, atomic);

 			retval = razor_atomic_commit(atomic);

 			if (retval)

 				fprintf(stderr, "%s\n",

 					razor_atomic_get_error_msg(atomic));

 			else {

 				razor_install_iterator_seek(ii, pos);

 				update_packages(trans, ii, system, next,

 						atomic, relocations,

 						RAZOR_STAGE_SCRIPTS_POST);

 			}

 		}

 		razor_atomic_destroy(atomic);

 	} while(!retval && r == 1);

 	razor_install_iterator_destroy(ii);

 	razor_set_unref(system);

 	free(description);

 	return retval;

 }

 static int

 command_install_or_update(int argc, char * const argv[], int do_update)

 {

 	struct razor_relocations *relocations = NULL;

 	struct razor_set *system, *upstream, *next, *set;

 	struct razor_transaction *trans;

 	struct razor_error *error = NULL;

 	struct razor_atomic *atomic;

 	struct razor_root *root;

 	int opt, i, retval = 0, len, dependencies = 1;

 	char *oldpath;

 	const char *arg;

 	enum {

 		opt_no_dependencies = 1,

 		opt_relocate = 2,

 	};

 	static struct razor_option options[] = {

 		{ .name = "no-dependencies", .has_arg = no_argument,

 		  .val = opt_no_dependencies,

 		  .description = "Do not verify package dependencies" },

 		{ .name = "relocate", .has_arg = required_argument,

 		  .val = opt_relocate,

 		  .description = "Relocate files from path OLD to NEW",

 		  .arg_description = "OLD=NEW" },

 	};

 	do {

 		opt = razor_getopt(argc, argv, ARRAY_SIZE(options), options,

 				   "rpm ...", &arg);

 		switch (opt) {

 			case -2:

 				return 0;

 			case -1:

 				return 1;

 			case opt_no_dependencies:

 				dependencies = 0;

 				break;

 			case opt_relocate:

 				if (strchr(arg, '=') == NULL) {

 					razor_usage(argv[0],

 						    ARRAY_SIZE(options),

 						    options, "rpm ...");

 					return 1;

 				}

 				len = strchr(arg, '=') - arg;

 				oldpath = malloc(len + 1);

 				strncpy(oldpath, arg, len);

 				oldpath[len] = '\0';

 				if (!relocations)

 				       relocations = razor_relocations_create();

 				razor_relocations_add(relocations, oldpath,

 						      arg + len + 1);

 				free(oldpath);

 				break;

 		}

 	} while (opt);

 	upstream = razor_set_open(rawhide_repo_filename, 0, &error);

 	if (upstream == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		if (relocations)

 			razor_relocations_destroy(relocations);

 		return 1;

 	}

 	if (do_update)

 		atomic = razor_atomic_open("Update packages");

 	else

 		atomic = razor_atomic_open("Install packages");

 	if (relocations) {

 		set = relocate_packages(upstream, atomic, relocations);

 		if (set == NULL) {

 			fprintf(stderr, "%s\n",

 				razor_atomic_get_error_msg(atomic));

 			razor_atomic_destroy(atomic);

 			razor_set_unref(upstream);

 			return 1;

 		}

 		razor_set_unref(upstream);

 		upstream = set;

 	}

 	root = razor_root_open(install_root, &error);

 	if (root == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		razor_atomic_destroy(atomic);

 		razor_set_unref(upstream);

 		if (relocations)

 			razor_relocations_destroy(relocations);

 		return 1;

 	}

 	system = razor_root_get_system_set(root);

 	trans = razor_transaction_create(system, upstream);

 	if (optind == argc && do_update)

 		razor_transaction_update_all(trans);

 	for (i = optind; i < argc; i++) {

 		if (do_update &&

 		    mark_packages_for_update(trans, system, argv[i]))

 			continue;

 		if (mark_packages_for_update(trans, upstream, argv[i]) == 0) {

 			fprintf(stderr, "no package matched %s\n", argv[i]);

 			razor_transaction_destroy(trans);

 			razor_root_close(root);

 			razor_set_unref(upstream);

 			razor_atomic_destroy(atomic);

 			if (relocations)

 				razor_relocations_destroy(relocations);

 			return 1;

 		}

 	}

 	if (dependencies) {

 		razor_transaction_resolve(trans);

 		if (razor_transaction_describe(trans) > 0) {

 			razor_transaction_destroy(trans);

 			razor_set_unref(upstream);

 			razor_root_close(root);

 			razor_atomic_destroy(atomic);

 			if (relocations)

 				razor_relocations_destroy(relocations);

 			return 1;

 		}

 	}

 	if (razor_atomic_create_dir(atomic, "rpms",

 				    S_IRWXU | S_IRWXG | S_IRWXO) ||

 	    razor_atomic_commit(atomic)) {

 		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

 		razor_transaction_destroy(trans);

 		razor_set_unref(upstream);

 		razor_root_close(root);

 		razor_atomic_destroy(atomic);

 		if (relocations)

 			razor_relocations_destroy(relocations);

 		return 1;

 	}

 	razor_atomic_destroy(atomic);

 	next = razor_transaction_commit(trans);

 	if (download_packages(system, next) < 0) {

 		razor_set_unref(next);

 		razor_transaction_destroy(trans);

 		razor_set_unref(upstream);

 		razor_root_close(root);

 		if (relocations)

 			razor_relocations_destroy(relocations);

                 return 1;

         }

 	retval = update_system(root, relocations, trans, next,

 			       do_update ? "Update" : "Install");

 	razor_set_unref(upstream);

 	razor_root_close(root);

 	razor_transaction_destroy(trans);

 	if (relocations)

 		razor_relocations_destroy(relocations);

 	razor_set_unref(next);

 	return retval;

 }

 static int

 command_update(int argc, char * const argv[])

 {

 	return command_install_or_update(argc, argv, 1);

 }

 static int

 command_install(int argc, char * const argv[])

 {

 	return command_install_or_update(argc, argv, 0);

 }

 static int

 command_init(int argc, char * const argv[])

 {

 	int retval;

 	struct razor_error *error = NULL;

 	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 0) {

 		razor_usage(argv[0], 0, NULL, "");

 		return 1;

 	}

 	retval = razor_root_create(install_root, &error);

 	if (retval) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 	} else

 		printf("Created install root\n");

 	return retval;

 }

 static int

 command_download(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_atomic *atomic;

 	struct razor_set *set;

 	struct razor_package_iterator *pi;

 	struct razor_package *package;

 	const char *pattern, *name, *version, *arch;

 	char url[256], file[256];

 	int matches = 0;

 	switch (razor_getopt(argc, argv, 0, NULL, "[pattern]", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 1) {

 		razor_usage(argv[0], 0, NULL, "[pattern]");

 		return 1;

 	}

 	pattern = argv[optind];

 	set = razor_set_open(rawhide_repo_filename, 0, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	atomic = razor_atomic_open("Download packages");

 	if (razor_atomic_create_dir(atomic, "rpms", 

 				    S_IRWXU | S_IRWXG | S_IRWXO)) {

 		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

 		razor_atomic_destroy(atomic);

 		return 1;

 	}

 	if (razor_atomic_commit(atomic)) {

 		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

 		razor_atomic_destroy(atomic);

 		return 1;

 	}

 	razor_atomic_destroy(atomic);

 	pi = razor_package_iterator_create(set);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_LAST)) {

 		if (pattern && fnmatch(pattern, name, 0) != 0)

 			continue;

 		matches++;

 		snprintf(url, sizeof url,

 			 "%s/Packages/%s-%s.%s.rpm",

 			 yum_url, name, version, arch);

 		snprintf(file, sizeof file,

 			 "rpms/%s-%s.%s.rpm", name, version, arch);

 		download_if_missing(url, file);

 	}

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	if (matches == 0)

 		fprintf(stderr, "no packages matched \"%s\"\n", pattern);

 	else if (matches == 1)

 		fprintf(stderr, "downloaded 1 package\n");

 	else

 		fprintf(stderr, "downloaded %d packages\n", matches);

 	return 0;

 }

 static int

 command_dump(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	const char *filename;

 	switch (razor_getopt(argc, argv, 0, NULL, "[filename]", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 1) {

 		razor_usage(argv[0], 0, NULL, "[filename]");

 		return 1;

 	}

 	filename = argv[optind];

 	if (razor_dump_database(stdout, install_root, filename, &error)) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	return 0;

 }

 static int

 command_info(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	struct razor_package_iterator *pi;

 	struct razor_package *package;

 	struct razor_string_iterator *si;

 	const char *pattern, *name, *version, *arch;

 	const char *summary, *description, *url, *license;

 	const char *prefix;

 	switch (razor_getopt(argc, argv, 0, NULL, "[pattern]", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc - optind > 1) {

 		razor_usage(argv[0], 0, NULL, "[pattern]");

 		return 1;

 	}

 	pattern = argv[optind];

 	set = razor_root_open_read_only(install_root, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = razor_package_iterator_create(set);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_LAST)) {

 		if (pattern && fnmatch(pattern, name, 0) != 0)

 			continue;

 		printf ("Name:        %s\n", name);

 		printf ("Arch:        %s\n", arch);

 		printf ("Version:     %s\n", version);

 		si = razor_install_prefix_iterator_create(set, package);

 		if (razor_string_iterator_next(si, &prefix)) {

 			printf ("Relocations: %s\n", prefix);

 			while (razor_string_iterator_next(si, &prefix))

 				printf ("           : %s\n", prefix);

 		}

 		razor_string_iterator_destroy(si);

 		razor_package_get_details (set, package,

 					   RAZOR_DETAIL_SUMMARY, &summary,

 					   RAZOR_DETAIL_DESCRIPTION, &description,

 					   RAZOR_DETAIL_URL, &url,

 					   RAZOR_DETAIL_LICENSE, &license,

 					   RAZOR_DETAIL_LAST);

 		printf ("URL:         %s\n", url);

 		printf ("License:     %s\n", license);

 		printf ("Summary:     %s\n", summary);

 		printf ("Description:\n");

 		printf ("%s\n", description);

 		printf ("\n");

 	}

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 #define SEARCH_MAX 256

 static int

 command_search(int argc, char * const argv[])

 {

 	struct razor_error *error = NULL;

 	struct razor_set *set;

 	struct razor_package_iterator *pi;

 	struct razor_package *package;

 	char pattern[SEARCH_MAX];

 	const char *name, *version, *arch;

 	const char *summary, *description, *url, *license;

 	switch (razor_getopt(argc, argv, 0, NULL, "pattern", NULL)) {

 		case -2:

 			return 0;

 		case -1:

 			return 1;

 	}

 	if (argc != 2) {

 		razor_usage(argv[0], 0, NULL, "pattern");

 		return 1;

 	}

 	snprintf(pattern, sizeof pattern, "*%s*", argv[1]);

 	set = razor_set_open(rawhide_repo_filename, 0, &error);

 	if (set == NULL) {

 		fprintf(stderr, "%s\n", razor_error_get_msg(error));

 		razor_error_free(error);

 		return 1;

 	}

 	pi = razor_package_iterator_create(set);

 	while (razor_package_iterator_next(pi, &package,

 					   RAZOR_DETAIL_NAME, &name,

 					   RAZOR_DETAIL_VERSION, &version,

 					   RAZOR_DETAIL_ARCH, &arch,

 					   RAZOR_DETAIL_SUMMARY, &summary,

 					   RAZOR_DETAIL_DESCRIPTION, &description,

 					   RAZOR_DETAIL_URL, &url,

 					   RAZOR_DETAIL_LICENSE, &license,

 					   RAZOR_DETAIL_LAST)) {

 		if (!fnmatch(pattern, name, FNM_CASEFOLD) ||

 		    !fnmatch(pattern, url, FNM_CASEFOLD) ||

 		    !fnmatch(pattern, summary, FNM_CASEFOLD) ||

 		    !fnmatch(pattern, description, FNM_CASEFOLD))

 			printf("%s-%s.%s: %s\n", name, version, arch, summary);

 	}

 	razor_package_iterator_destroy(pi);

 	razor_set_unref(set);

 	return 0;

 }

 static struct {

 	const char *name;

 	const char *description;

 	int (*func)(int argc, char * const argv[]);

 } razor_commands[] = {

 	{ "diff", "Show diff between two package sets", command_diff },

 	{ "download", "Download packages", command_download },

 	{ "dump", "Low-level database dump (for debugging)", command_dump },

 	{ "help", "List available commands", command_help },

 #if HAVE_RPMLIB

 	{ "import-rpmdb", "Import the system rpm database",

 	  command_import_rpmdb },

 #endif

 	{ "import-rpms", "Import rpms from the given directory",

 	  command_import_rpms },

 	{ "import-yum", "Import yum metadata files", command_import_yum },

 	{ "info", "Display package details", command_info },

 	{ "init", "Init razor root", command_init },

 	{ "install", "Install rpm", command_install },

 	{ "list", "List all packages", command_list },

 	{ "list-conflicts", "List all conflicts for the given package",

 	  command_list_conflicts },

 	{ "list-file-packages", "List packages owning file",

 	  command_list_file_packages },

 	{ "list-files", "List files for package set", command_list_files },

 	{ "list-obsoletes", "List all obsoletes for the given package",

 	  command_list_obsoletes },

 	{ "list-package-files", "List files in package",

 	  command_list_package_files },

 	{ "list-provides", "List all provides for the given package",

 	  command_list_provides },

 	{ "list-requires", "List all requires for the given package",

 	  command_list_requires },

 	{ "list-scripts", "List all scripts for the given package",

 	  command_list_scripts },

 	{ "remove", "Remove specified packages", command_remove },

 	{ "search", "Search package details", command_search },

 	{ "update", "Update all or specified packages", command_update },

 	{ "what-provides", "List the packages that have the given provides",

 	  command_what_provides },

 	{ "what-requires", "List the packages that have the given requires",

 	  command_what_requires },

 };

 static int

 command_help(int argc, char * const argv[])

 {

 	int i;

 	printf("Available commands:\n");

 	for (i = 0; i < ARRAY_SIZE(razor_commands); i++)

 		printf("  %-20s%s\n",

 		       razor_commands[i].name, razor_commands[i].description);

 	printf("\nType \"razor --help\" for help about global options\n"

 	       "or \"razor <command> --help\" for help about a particular "

 	       "command's options.\n");

 	return 0;

 }

 int

 main(int argc, char *argv[])

 {

 	char *repo, *root;

 	int i, opt, main_optind;

 	int do_help_commands = 0;

 	enum {

 		opt_database = 1,

 		opt_help,

 		opt_help_commands,

 		opt_root,

 		opt_url,

 	};

 	struct option options[] = {

 		{ .name = "database", .has_arg = required_argument,

 		  .val = opt_database },

 		{ .name = "help", .has_arg = no_argument, .val = opt_help },

 		{ .name = "help-commands", .has_arg = no_argument,

 		  .flag = &do_help_commands, .val = TRUE },

 		{ .name = "root", .has_arg = required_argument,

 		  .val = opt_root },

 		{ .name = "url", .has_arg = required_argument, .val = opt_url },

 		{ 0, }

 	};

 	repo = getenv("RAZOR_REPO");

 	if (repo != NULL)

 		repo_filename = repo;

 	root = getenv("RAZOR_ROOT");

 	if (root != NULL)

 		install_root = root;

 	yum_url = getenv("YUM_URL");

 	if (yum_url == NULL)

 		yum_url = YUM_URL;

 	if (getenv("RAZOR_NO_ROOT_NAME_CHECKS"))

 		razor_disable_root_name_checks(1);

 	optind = 1;

 	opterr = 0;

 	while ((opt = getopt_long(argc, argv, "+", options, NULL)) != -1) {

 		switch (opt) {

 			case opt_database:

 				razor_set_database_path(optarg);

 				break;

 			case opt_help:

 			default:

 				printf("Usage: razor [global-options] command "

 				       "[command-options-and-arguments]\n\n");

 				printf("Options:\n");

 				printf("  --help              "

 				       "Show this help message and exit\n");

 				printf("  --help-commands     List commands\n");

 				printf("  --database=PATH     "

 				       "Use alternative database\n");

 				printf("  --root=ROOT         "

 				       "Use ROOT as top level directory\n");

 				printf("  --url=URL           "

 				       "Use URL as upstream repository\n");

 				return opt != opt_help;

 			case opt_root:

 				install_root = optarg;

 				break;

 			case opt_url:

 				yum_url = optarg;

 				break;

 			case 0:

 				break;

 		}

 	}

 	main_optind = optind;

 	optind = 1;

 	if (do_help_commands || argc - main_optind < 1) {

 		command_help(argc - main_optind, argv + main_optind);

 		return 1;

 	}

 	for (i = 0; i < ARRAY_SIZE(razor_commands); i++)

 		if (strcmp(razor_commands[i].name, argv[main_optind]) == 0)

 			return razor_commands[i].func(argc - main_optind,

 						      argv + main_optind);

 	command_help(argc - main_optind, argv + main_optind);

 	return 1;

 }