--- /dev/null
+/*#############################################################################
+# #
+# Pakfire - The IPFire package management system #
+# Copyright (C) 2024 Pakfire development team #
+# #
+# 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 3 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, see <http://www.gnu.org/licenses/>. #
+# #
+#############################################################################*/
+
+#ifndef PAKFIRE_STRIPPER_H
+#define PAKFIRE_STRIPPER_H
+
+#ifdef PAKFIRE_PRIVATE
+
+#define BUILD_SRC_DIR "/build/source"
+#define DEBUG_SRC_DIR "/usr/src/debug"
+
+struct pakfire_stripper;
+
+int pakfire_stripper_create(struct pakfire_stripper** stripper,
+ struct pakfire* pakfire, const char* path);
+
+struct pakfire_stripper* pakfire_stripper_ref(struct pakfire_stripper* stripper);
+struct pakfire_stripper* pakfire_stripper_unref(struct pakfire_stripper* stripper);
+
+int pakfire_stripper_run(struct pakfire_stripper* stripper);
+
+#endif /* PAKFIRE_PRIVATE */
+#endif /* PAKFIRE_STRIPPER_H */
--- /dev/null
+/*#############################################################################
+# #
+# Pakfire - The IPFire package management system #
+# Copyright (C) 2023 Pakfire development team #
+# #
+# 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 3 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, see <http://www.gnu.org/licenses/>. #
+# #
+#############################################################################*/
+
+#include <errno.h>
+#include <stdlib.h>
+
+// libdw
+#include <elfutils/libdw.h>
+
+#include <pakfire/filelist.h>
+#include <pakfire/pakfire.h>
+#include <pakfire/path.h>
+#include <pakfire/string.h>
+#include <pakfire/stripper.h>
+
+struct pakfire_stripper {
+ struct pakfire_ctx* ctx;
+ int nrefs;
+
+ // Pakfire
+ struct pakfire* pakfire;
+
+ // Path
+ char path[PATH_MAX];
+
+ // Filelist
+ struct pakfire_filelist* filelist;
+};
+
+int pakfire_stripper_create(struct pakfire_stripper** stripper,
+ struct pakfire* pakfire, const char* path) {
+ struct pakfire_stripper* s = NULL;
+ int r;
+
+ // Allocate a new object
+ s = calloc(1, sizeof(*s));
+ if (!s)
+ return -errno;
+
+ // Store a reference to the context
+ s->ctx = pakfire_ctx(pakfire);
+
+ // Store a reference to Pakfire
+ s->pakfire = pakfire_ref(pakfire);
+
+ // Initialize the reference counter
+ s->nrefs = 1;
+
+ // Store the path
+ r = pakfire_string_set(s->path, path);
+ if (r < 0)
+ goto ERROR;
+
+ // Create a filelist
+ r = pakfire_filelist_create(&s->filelist, s->pakfire);
+ if (r < 0)
+ goto ERROR;
+
+ // Return the pointer
+ *stripper = pakfire_stripper_ref(s);
+
+ERROR:
+ if (s)
+ pakfire_stripper_unref(s);
+
+ return r;
+}
+
+static void pakfire_stripper_free(struct pakfire_stripper* stripper) {
+ if (stripper->filelist)
+ pakfire_filelist_unref(stripper->filelist);
+ if (stripper->pakfire)
+ pakfire_unref(stripper->pakfire);
+ if (stripper->ctx)
+ pakfire_ctx_unref(stripper->ctx);
+ free(stripper);
+}
+
+struct pakfire_stripper* pakfire_stripper_ref(struct pakfire_stripper* stripper) {
+ ++stripper->nrefs;
+
+ return stripper;
+}
+
+struct pakfire_stripper* pakfire_stripper_unref(struct pakfire_stripper* stripper) {
+ if (--stripper->nrefs > 0)
+ return stripper;
+
+ pakfire_stripper_free(stripper);
+ return NULL;
+}
+
+static int pakfire_stripper_find_elf(
+ struct pakfire_ctx* ctx, struct pakfire_file* file, void* data) {
+ struct pakfire_stripper* stripper = data;
+ int r;
+
+ // Add ELF files to the filelist
+ if (pakfire_file_matches_class(file, PAKFIRE_FILE_ELF)) {
+ r = pakfire_filelist_add(stripper->filelist, file);
+ if (r < 0)
+ return r;
+ }
+
+ return 0;
+}
+
+/*
+ Scan all files in path and identify ELF files
+*/
+static int pakfire_stripper_scan(struct pakfire_stripper* stripper) {
+ struct pakfire_filelist* filelist = NULL;
+ int r;
+
+ // Create a new filelist
+ r = pakfire_filelist_create(&filelist, stripper->pakfire);
+ if (r < 0)
+ goto ERROR;
+
+ // Scan path for all files
+ r = pakfire_filelist_scan(filelist, stripper->path, NULL, NULL, 0);
+ if (r < 0)
+ goto ERROR;
+
+ // Walk through all files to find ELF files
+ r = pakfire_filelist_walk(filelist, pakfire_stripper_find_elf, stripper, 0);
+ if (r < 0)
+ goto ERROR;
+
+ERROR:
+ if (filelist)
+ pakfire_filelist_unref(filelist);
+
+ return r;
+}
+
+static int pakfire_stripper_copy_source_file(
+ struct pakfire_stripper* stripper, const char* filename) {
+ printf("FILENAME = %s\n", filename);
+
+ return 0;
+}
+
+/*
+ libdw does not seem to export the error codes in their header files,
+ although there is a function to retrieve them...
+*/
+#ifndef DWARF_E_NO_DWARF
+#define DWARF_E_NO_DWARF 6
+#endif
+
+static int pakfire_stripper_copy_sources(
+ struct pakfire_ctx* ctx, struct pakfire_file* file, void* data) {
+ struct pakfire_stripper* stripper = data;
+ const char* filename = NULL;
+ char basename[PATH_MAX];
+ Dwarf* dwarf = NULL;
+ Dwarf_Files* files = NULL;
+ Dwarf_Die* die = NULL;
+ Dwarf_Off offset = 0;
+ Dwarf_Off next_offset;
+ size_t cu_header_length;
+ Dwarf_Die die_mem;
+ size_t count;
+ FILE* f = NULL;
+ int r;
+
+ // Open the file
+ f = pakfire_file_open(file);
+ if (!f) {
+ r = -errno;
+ goto ERROR;
+ }
+
+ // Read DWARF information
+ dwarf = dwarf_begin(fileno(f), DWARF_C_READ);
+ if (!dwarf) {
+ switch (dwarf_errno()) {
+ // If we don't have any DWARF information there is nothing to do
+ case DWARF_E_NO_DWARF:
+ r = 0;
+ goto ERROR;
+
+ default:
+ ERROR(ctx, "Could not initialize DWARF context: %s\n", dwarf_errmsg(-1));
+ r = -errno;
+ goto ERROR;
+ }
+ }
+
+ for (;;) {
+ // Fetch the next compilation unit
+ r = dwarf_nextcu(dwarf, offset, &next_offset, &cu_header_length, NULL, NULL, NULL);
+ if (r < 0)
+ goto ERROR;
+
+ // Fetch the Debug Information Entry
+ die = dwarf_offdie(dwarf, offset + cu_header_length, &die_mem);
+ if (!die)
+ break;
+
+ // Fetch the source files
+ r = dwarf_getsrcfiles(die, &files, &count);
+ if (r < 0) {
+ ERROR(ctx, "Could not fetch the source files: %s\n", dwarf_errmsg(-1));
+ r = -errno;
+ goto ERROR;
+ }
+
+ // Iterate over all files...
+ for (unsigned int i = 0; i < count; i++) {
+ // Fetch the filename
+ filename = dwarf_filesrc(files, i, NULL, NULL);
+
+ // If the source file is not in the right path, we ignore it
+ if (!pakfire_string_startswith(filename, BUILD_SRC_DIR))
+ continue;
+
+ // Determine the basename
+ r = pakfire_path_basename(basename, filename);
+ if (r < 0)
+ goto ERROR;
+
+ // Ignore things like <artificial> or <built-in>
+ if (pakfire_string_startswith(basename, "<") && pakfire_string_endswith(basename, ">"))
+ continue;
+
+ DEBUG(ctx, "Found source file: %s\n", filename);
+
+ // Copy the file
+ r = pakfire_stripper_copy_source_file(stripper, filename);
+ if (r < 0) {
+ ERROR(ctx, "Could not copy source file %s: %s\n", filename, strerror(-r));
+ goto ERROR;
+ }
+ }
+
+ offset = next_offset;
+ }
+
+ERROR:
+ if (f)
+ fclose(f);
+ if (dwarf)
+ dwarf_end(dwarf);
+
+ return r;
+}
+
+int pakfire_stripper_run(struct pakfire_stripper* stripper) {
+ int r;
+
+ // Scan for all ELF files in path
+ r = pakfire_stripper_scan(stripper);
+ if (r < 0)
+ return r;
+
+ // If the filelist is empty, there is nothing to do
+ if (pakfire_filelist_is_empty(stripper->filelist))
+ return 0;
+
+ // Copy sources
+ r = pakfire_filelist_walk(stripper->filelist, pakfire_stripper_copy_sources, stripper, 0);
+ if (r < 0)
+ return r;
+
+ return 0;
+}
projects / people / ric9 / pakfire.git / commitdiff
