From 8bf49d16a637cca0cd116450dfcabc4c941baf6c Mon Sep 17 00:00:00 2001
From: ticktock35 <ticktock35@e8e0d7a0-c8d9-11dd-a880-a1081c7ac358>
Date: Sun, 14 Dec 2008 23:10:56 -0500
Subject: * Add ipkg for future development

git-svn-id: http://opkg.googlecode.com/svn/trunk@3 e8e0d7a0-c8d9-11dd-a880-a1081c7ac358
---
(limited to 'pkg_extract.c')

diff --git a/pkg_extract.c b/pkg_extract.c
new file mode 100644
index 0000000..1358989
--- /dev/null
+++ b/pkg_extract.c
@@ -0,0 +1,168 @@
+/* pkg_extract.c - the itsy package management system
+
+   Carl D. Worth
+
+   Copyright (C) 2001 University of Southern California
+
+   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, 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.
+*/
+
+#include "ipkg.h"
+#include <errno.h>
+
+#include "pkg_extract.h"
+
+#include "libbb/libbb.h"
+#include "file_util.h"
+#include "sprintf_alloc.h"
+
+/* assuage libb functions */
+const char *applet_name = "ipkg";
+
+int pkg_extract_control_file_to_stream(pkg_t *pkg, FILE *stream)
+{
+    char *buffer = deb_extract(pkg->local_filename, stderr,
+			       extract_control_tar_gz
+			       | extract_one_to_buffer,
+			       NULL, "./control");
+    if (buffer == NULL) {
+	return EINVAL;
+    }
+
+    /* XXX: QUESTION: Is there a way to do this directly with deb_extract now? */
+    fputs(buffer, stream);
+    free(buffer);
+
+    return 0;
+}
+
+int pkg_extract_control_files_to_dir(pkg_t *pkg, const char *dir)
+{
+    return pkg_extract_control_files_to_dir_with_prefix(pkg, dir, "");
+}
+
+int pkg_extract_control_files_to_dir_with_prefix(pkg_t *pkg,
+						 const char *dir,
+						 const char *prefix)
+{
+    char *dir_with_prefix;
+
+    sprintf_alloc(&dir_with_prefix, "%s/%s", dir, prefix);
+
+    deb_extract(pkg->local_filename, stderr,
+		extract_control_tar_gz
+                | extract_all_to_fs| extract_preserve_date
+		| extract_unconditional,
+		dir_with_prefix, NULL);
+
+    free(dir_with_prefix);
+
+    /* XXX: BUG: how do we know if deb_extract worked or not? This is
+       a defect in the current deb_extract from what I can tell.
+
+       Once this is fixed, audit all calls to deb_extract. */
+    return 0;
+}
+
+int pkg_extract_data_files_to_dir(pkg_t *pkg, const char *dir)
+{
+    deb_extract(pkg->local_filename, stderr,
+		extract_data_tar_gz
+                | extract_all_to_fs| extract_preserve_date
+		| extract_unconditional,
+		dir, NULL);
+
+    /* BUG: How do we know if deb_extract worked or not? This is a
+       defect in the current deb_extract from what I can tell. */
+    return 0;
+}
+
+int pkg_extract_data_file_names_to_file(pkg_t *pkg, const char *file_name)
+{
+     int err=0;
+     char *line, *data_file;
+     FILE *file;
+     FILE *tmp;
+
+     file = fopen(file_name, "w");
+     if (file == NULL) {
+	  fprintf(stderr, "%s: ERROR: Failed to open %s for writing.\n",
+		  __FUNCTION__, file_name);
+	  return EINVAL;
+     }
+
+     tmp = tmpfile();
+     if (pkg->installed_files) {
+	  str_list_elt_t *elt;
+	  for (elt = pkg->installed_files->head; elt; elt = elt->next) {
+	       fprintf(file, "%s\n", elt->data);
+	  }
+     } else {
+	  err = pkg_extract_data_file_names_to_stream(pkg, tmp);
+	  if (err) {
+	       fclose(file);
+	       fclose(tmp);
+	       return err;
+	  }
+
+	  /* Fixup data file names by removing the initial '.' */
+	  rewind(tmp);
+	  while (1) {
+	       line = file_read_line_alloc(tmp);
+	       if (line == NULL) {
+		    break;
+	       }
+
+	       data_file = line;
+	       if (*data_file == '.') {
+		    data_file++;
+	       }
+
+	       if (*data_file != '/') {
+		    fputs("/", file);
+	       }
+
+	       /* I have no idea why, but this is what dpkg does */
+	       if (strcmp(data_file, "/\n") == 0) {
+		    fputs("/.\n", file);
+	       } else {
+		    fputs(data_file, file);
+	       }
+	  }
+     }
+     fclose(tmp);
+     fclose(file);
+
+     return err;
+}
+
+int pkg_extract_data_file_names_to_stream(pkg_t *pkg, FILE *file)
+{
+    /* XXX: DPKG_INCOMPATIBILITY: deb_extract will extract all of the
+       data file names with a '.' as the first character. I've taught
+       ipkg how to cope with the presence or absence of the '.', but
+       this may trip up dpkg.
+
+       For all I know, this could actually be a bug in ipkg-build. So,
+       I'll have to try installing some .debs and comparing the *.list
+       files.
+
+       If we wanted to, we could workaround the deb_extract behavior
+       right here, by writing to a tmpfile, then munging things as we
+       wrote to the actual stream. */
+     deb_extract(pkg->local_filename, file,
+		 extract_quiet | extract_data_tar_gz | extract_list,
+		 NULL, NULL);
+
+    /* BUG: How do we know if deb_extract worked or not? This is a
+       defect in the current deb_extract from what I can tell. */
+    return 0;
+}
--
cgit v0.9.1