summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/.gitignore1
-rw-r--r--src/defs.h27
-rw-r--r--src/dirent.c114
-rw-r--r--src/dirent.h33
-rw-r--r--src/gzip.c263
-rw-r--r--src/gzip.h82
-rw-r--r--src/i18n.h11
-rw-r--r--src/local.mk16
-rw-r--r--src/main.c370
-rw-r--r--src/opk.c151
-rw-r--r--src/opk.h144
-rw-r--r--src/opk/local.mk4
-rw-r--r--src/opk/opk.h62
-rw-r--r--src/opk/read.c669
-rw-r--r--src/opk/write.c551
-rw-r--r--src/specials.c131
-rw-r--r--src/specials.h38
-rw-r--r--src/ustar.c446
-rw-r--r--src/ustar.h117
19 files changed, 0 insertions, 3230 deletions
diff --git a/src/.gitignore b/src/.gitignore
deleted file mode 100644
index e0f5f90..0000000
--- a/src/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-/opkg-opk
diff --git a/src/defs.h b/src/defs.h
deleted file mode 100644
index 24e9776..0000000
--- a/src/defs.h
+++ /dev/null
@@ -1,27 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_DEFS_H_
-#define OPKG_OPK_DEFS_H_
-
-#define OPKG_OPK_OK 0
-#define OPKG_OPK_END 1
-#define OPKG_OPK_ERROR -1
-
-#endif /* OPKG_OPK_DEFS_H_ */
diff --git a/src/dirent.c b/src/dirent.c
deleted file mode 100644
index 575e834..0000000
--- a/src/dirent.c
+++ /dev/null
@@ -1,114 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "defs.h"
-#include "dirent.h"
-
-static int
-_opkg_opk_dirent_name_prefix(struct opkg_opk_dirent *dirent, int is_dir,
- char **name_buf, size_t *name_buf_len,
- char **pref_buf, size_t *pref_buf_len,
- size_t *name_len, size_t *pref_len)
-{
- size_t len;
- char **buf;
- int sep;
-
- len = strlen(dirent->name);
- if ((*name_len > 0 || is_dir) && *name_len + len + 1 <= *name_buf_len) {
- /* Space available in name buffer. Not last node, or is a
- * directory, so append separator. */
- buf = name_buf;
- *name_len += len + 1;
- sep = 1;
- } else if (*name_len == 0 && *name_len + len <= *name_buf_len) {
- /* Space available in name buffer. Last node (first in
- * recursion), so don't append separator. */
- buf = name_buf;
- *name_len += len;
- sep = 0;
- } else if (*pref_len > 0 && *pref_len + len + 1 <= *pref_buf_len) {
- /* Space available in prefix buffer. Not last node, so append
- * separator. */
- buf = pref_buf;
- *pref_len += len + 1;
- sep = 1;
- } else if (*pref_len == 0 && *pref_len + len <= *pref_buf_len) {
- /* Space available in prefix buffer. Last node (first in
- * recursion), so don't append separator. */
- buf = pref_buf;
- *pref_len += len;
- sep = 0;
- } else {
- /* Both buffers full. */
- return OPKG_OPK_ERROR;
- }
- if (*buf == NULL) {
- /* Caller provided a NULL buffer pointer. */
- return OPKG_OPK_ERROR;
- }
-
- /* Recurse. */
- if (dirent->parent != NULL &&
- _opkg_opk_dirent_name_prefix(dirent->parent, is_dir,
- name_buf, name_buf_len, pref_buf, pref_buf_len,
- name_len, pref_len) == OPKG_OPK_ERROR) {
- return OPKG_OPK_ERROR;
- }
-
- /* Copy node name and possibly separator suffix. */
- memcpy(*buf, dirent->name, len);
- *buf += len;
- if (sep == 1) {
- **buf = '/';
- *buf += 1;
- }
-
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_dirent_name_prefix(struct opkg_opk_dirent *dirent, int is_dir,
- char *name_buf, size_t name_buf_len,
- char *pref_buf, size_t pref_buf_len)
-{
- size_t name_len = 0;
- size_t pref_len = 0;
- char *name = name_buf;
- char *pref = pref_buf;
-
- /* NUL bytes */
- --name_buf_len;
- --pref_buf_len;
-
- if (_opkg_opk_dirent_name_prefix(dirent, is_dir,
- &name_buf, &name_buf_len,
- &pref_buf, &pref_buf_len,
- &name_len, &pref_len) == OPKG_OPK_ERROR) {
- return OPKG_OPK_ERROR;
- }
-
- name[name_len] = '\0';
- pref[pref_len] = '\0';
-
- return OPKG_OPK_OK;
-}
diff --git a/src/dirent.h b/src/dirent.h
deleted file mode 100644
index 959ca1b..0000000
--- a/src/dirent.h
+++ /dev/null
@@ -1,33 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_DIRENT_H_
-#define OPKG_OPK_DIRENT_H_
-
-struct opkg_opk_dirent {
- const char *name;
- struct opkg_opk_dirent *parent;
-};
-
-int
-opkg_opk_dirent_name_prefix(struct opkg_opk_dirent *dirent, int is_dir,
- char *name_buf, size_t name_buf_len,
- char *pref_buf, size_t pref_buf_len);
-
-#endif /* OPKG_OPK_DIRENT_H_ */
diff --git a/src/gzip.c b/src/gzip.c
deleted file mode 100644
index 819a4e9..0000000
--- a/src/gzip.c
+++ /dev/null
@@ -1,263 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <zlib.h>
-#include "defs.h"
-#include "gzip.h"
-#include "ustar.h"
-
-#define OPKG_OPK_GZIP_WINDOW_BITS_ (15 + 16)
-
-enum _opkg_opk_gzip_dir {
- _OPKG_OPK_GZIP_DIR_READ,
- _OPKG_OPK_GZIP_DIR_WRITE,
-};
-
-struct opkg_opk_gzip {
- enum _opkg_opk_gzip_dir dir;
- opkg_opk_gzip_read_func *read_func;
- void *user_data;
- FILE *write_fp;
- char write_buffer[512];
- size_t written;
- z_stream stream;
- gz_header gz_header;
-};
-
-struct opkg_opk_gzip *
-opkg_opk_gzip_init_read(opkg_opk_gzip_read_func *read_func, void *user_data)
-{
- struct opkg_opk_gzip *gzip;
-
- gzip = malloc(sizeof(*gzip));
- if (gzip == NULL) {
- return NULL;
- }
-
- gzip->dir = _OPKG_OPK_GZIP_DIR_READ;
- gzip->read_func = read_func;
- gzip->user_data = user_data;
-
- gzip->stream.zalloc = Z_NULL;
- gzip->stream.zfree = Z_NULL;
- gzip->stream.opaque = Z_NULL;
-
- gzip->stream.next_in = Z_NULL;
- gzip->stream.avail_in = 0;
- if (inflateInit2(&gzip->stream, OPKG_OPK_GZIP_WINDOW_BITS_) != Z_OK) {
- free(gzip);
- return NULL;
- }
-
- return gzip;
-}
-
-struct opkg_opk_gzip *
-opkg_opk_gzip_init_write(FILE *write_fp)
-{
- struct opkg_opk_gzip *gzip;
-
- gzip = malloc(sizeof(*gzip));
- if (gzip == NULL) {
- return NULL;
- }
-
- gzip->dir = _OPKG_OPK_GZIP_DIR_WRITE;
- gzip->write_fp = write_fp;
- gzip->written = 0;
-
- gzip->stream.zalloc = Z_NULL;
- gzip->stream.zfree = Z_NULL;
- gzip->stream.opaque = Z_NULL;
-
- gzip->stream.next_out = Z_NULL;
- gzip->stream.avail_out = 0;
- if (deflateInit2(&gzip->stream, 9, Z_DEFLATED,
- OPKG_OPK_GZIP_WINDOW_BITS_, 9,
- Z_DEFAULT_STRATEGY) != Z_OK) {
- free(gzip);
- return NULL;
- }
- gzip->gz_header.text = 0;
- gzip->gz_header.time = 0; /* Stored as 32-bit uint */
- gzip->gz_header.os = 3; /* Unix, per RFC 1952 */
- gzip->gz_header.extra = Z_NULL;
- gzip->gz_header.name = Z_NULL;
- gzip->gz_header.comment = Z_NULL;
- gzip->gz_header.hcrc = 0;
- if (deflateSetHeader(&gzip->stream, &gzip->gz_header) != Z_OK) {
- deflateEnd(&gzip->stream);
- free(gzip);
- return NULL;
- }
-
- return gzip;
-}
-
-int
-opkg_opk_gzip_read(struct opkg_opk_gzip *gzip, void *record)
-{
- int end;
-
- /* Sanity check */
- if (gzip->dir != _OPKG_OPK_GZIP_DIR_READ) {
- return OPKG_OPK_ERROR;
- }
-
- gzip->stream.next_out = record;
- gzip->stream.avail_out = OPKG_OPK_USTAR_RECORD_SIZE;
-
- for (;;) {
- end = 0;
- if (gzip->stream.avail_in == 0) {
- /* Input buffer is empty and needs refilled. */
- switch (gzip->read_func(gzip->user_data,
- (char **) &gzip->stream.next_in,
- (size_t *) &gzip->stream.
- avail_in)) {
- case OPKG_OPK_OK:
- break;
- case OPKG_OPK_END:
- end = 1;
- break;
- case OPKG_OPK_ERROR:
- default:
- return OPKG_OPK_ERROR;
- }
- }
- switch (inflate(&gzip->stream, Z_SYNC_FLUSH)) {
- case Z_OK:
- break;
- case Z_BUF_ERROR:
- if (end == 1) {
- return OPKG_OPK_ERROR;
- }
- break;
- case Z_STREAM_END:
- if (gzip->stream.avail_out != 0) {
- /* Premature end */
- return OPKG_OPK_ERROR;
- }
- return OPKG_OPK_END;
- default:
- return OPKG_OPK_ERROR;
- }
- if (gzip->stream.avail_out == 0) {
- /* Output buffer is filled and ready for use. */
- return OPKG_OPK_OK;
- }
- }
-}
-
-static int
-_opkg_opk_gzip_write(struct opkg_opk_gzip *gzip, void *record, size_t size,
- int last)
-{
- size_t len;
-
- /* Sanity check */
- if (gzip->dir != _OPKG_OPK_GZIP_DIR_WRITE) {
- return OPKG_OPK_ERROR;
- }
-
- gzip->stream.next_in = record;
- gzip->stream.avail_in = size;
-
- do {
- gzip->stream.next_out = gzip->write_buffer;
- gzip->stream.avail_out = sizeof(gzip->write_buffer);
- switch (deflate(&gzip->stream,
- (last > 0 ? Z_FINISH : Z_NO_FLUSH))) {
- case Z_OK:
- case Z_BUF_ERROR:
- case Z_STREAM_END:
- break;
- default:
- return OPKG_OPK_ERROR;
- }
- /* Process output buffer. */
- len = sizeof(gzip->write_buffer) - gzip->stream.avail_out;
- if (fwrite(gzip->write_buffer, 1, len, gzip->write_fp) != len) {
- return OPKG_OPK_ERROR;
- }
- gzip->written += len;
- } while (gzip->stream.avail_out == 0);
-
- if (gzip->stream.avail_in != 0) {
- return OPKG_OPK_ERROR;
- }
- if (last == 0) {
- /* Input buffer is empty and needs refilled. */
- return OPKG_OPK_OK;
- } else {
- return OPKG_OPK_END;
- }
-}
-
-int
-opkg_opk_gzip_write(struct opkg_opk_gzip *gzip, void *record, size_t size)
-{
- if (_opkg_opk_gzip_write(gzip, record, size, 0) == OPKG_OPK_OK) {
- return OPKG_OPK_OK;
- } else {
- return OPKG_OPK_ERROR;
- }
-}
-
-size_t
-opkg_opk_gzip_written(struct opkg_opk_gzip *gzip)
-{
- return gzip->written;
-}
-
-int
-opkg_opk_gzip_finish_write(struct opkg_opk_gzip *gzip)
-{
- /* Sanity check */
- if (gzip->dir != _OPKG_OPK_GZIP_DIR_WRITE) {
- return OPKG_OPK_ERROR;
- }
-
- if (gzip->written > 0 && _opkg_opk_gzip_write(gzip, NULL, 0, 1) !=
- OPKG_OPK_END) {
- return OPKG_OPK_ERROR;
- }
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_gzip_free(struct opkg_opk_gzip *gzip)
-{
- int ret;
-
- ret = OPKG_OPK_OK;
- if (gzip->dir == _OPKG_OPK_GZIP_DIR_READ) {
- if (inflateEnd(&gzip->stream) != Z_OK) {
- ret = OPKG_OPK_ERROR;
- }
- } else {
- if (deflateEnd(&gzip->stream) != Z_OK) {
- ret = OPKG_OPK_ERROR;
- }
- }
- free(gzip);
- return ret;
-}
diff --git a/src/gzip.h b/src/gzip.h
deleted file mode 100644
index 2f91000..0000000
--- a/src/gzip.h
+++ /dev/null
@@ -1,82 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_GZIP_H_
-#define OPKG_OPK_GZIP_H_
-
-#include <stdio.h>
-
-struct opkg_opk_gzip;
-
-typedef int (opkg_opk_gzip_read_func)(void *, char **, size_t *);
-
-/*
- * Allocates and initializes a decompression structure.
- * Parameters:
- * - read: Function to read compressed data. Parameter 1 is user_data,
- * parameter 2 is an address in which the read function should
- * store an address to compressed data, and parameter 3 is an
- * address in which the read function should store the size of read
- * compressed data. Should return OPKG_OPK_OK if data is read,
- * OPKG_OPK_END if no more data is available (end of file or
- * archive), or OPKG_OPK_ERROR on error.
- * - user_data: Passed to read function.
- * Returns:
- * - Allocated decompression structure on success. Free with
- * opkg_opk_gzip_free().
- * - NULL on memory exhaustion.
- */
-struct opkg_opk_gzip *
-opkg_opk_gzip_init_read(opkg_opk_gzip_read_func *read_func, void *user_data);
-
-struct opkg_opk_gzip *
-opkg_opk_gzip_init_write(FILE *write_fp);
-
-/*
- * Reads and decompresses data to output the next record (512 octets).
- * Parameters:
- * - gzip: Decompression structure.
- * - record: Address in which to store decompressed record.
- * Returns:
- * - OPKG_OPK_OK if a record is read and decompressed.
- * - OPKG_OPK_END if the end of the gzip stream is reached.
- * - OPKG_OPK_ERROR if the read function returned an error, the compressed input
- * data or gzip stream end prematurely, or zlib returns an error.
- */
-int
-opkg_opk_gzip_read(struct opkg_opk_gzip *gzip, void *record);
-
-int
-opkg_opk_gzip_write(struct opkg_opk_gzip *gzip, void *record, size_t size);
-
-size_t
-opkg_opk_gzip_written(struct opkg_opk_gzip *gzip) __attribute__((__pure__));
-
-int
-opkg_opk_gzip_finish_write(struct opkg_opk_gzip *gzip);
-
-/*
- * Frees a decompression structure.
- * Parameters:
- * - gzip: Decompression structure.
- */
-int
-opkg_opk_gzip_free(struct opkg_opk_gzip *gzip);
-
-#endif /* OPKG_OPK_GZIP_H_ */
diff --git a/src/i18n.h b/src/i18n.h
deleted file mode 100644
index 4d8ee76..0000000
--- a/src/i18n.h
+++ /dev/null
@@ -1,11 +0,0 @@
-#ifdef ENABLE_NLS
-
-#include <libintl.h>
-
-#define _(msgid) gettext(msgid)
-
-#else
-
-#define _(msgid) (msgid)
-
-#endif
diff --git a/src/local.mk b/src/local.mk
deleted file mode 100644
index 72f6ef4..0000000
--- a/src/local.mk
+++ /dev/null
@@ -1,16 +0,0 @@
-src_opkg_opk_SOURCES += \
- %reldir%/defs.h \
- %reldir%/dirent.c \
- %reldir%/dirent.h \
- %reldir%/gzip.c \
- %reldir%/gzip.h \
- %reldir%/i18n.h \
- %reldir%/main.c \
- %reldir%/opk.c \
- %reldir%/opk.h \
- %reldir%/specials.c \
- %reldir%/specials.h \
- %reldir%/ustar.c \
- %reldir%/ustar.h
-
-include %reldir%/opk/local.mk
diff --git a/src/main.c b/src/main.c
deleted file mode 100644
index b33c268..0000000
--- a/src/main.c
+++ /dev/null
@@ -1,370 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include "config.h"
-
-#ifdef ENABLE_NLS
-#include <locale.h>
-#endif
-#include <stdio.h>
-#include <stdlib.h>
-#include "defs.h"
-#include "i18n.h"
-#include "opk.h"
-
-#ifdef HAVE_GETOPT_LONG
-#include <getopt.h>
-#else
-#include <unistd.h>
-#endif
-
-extern const char *PACKAGE_VERSION_GIT;
-
-static const char *_OPTSTRING = "bc:d:s:f:F:lLhV";
-#ifdef HAVE_GETOPT_LONG
-static const struct option _LONGOPTS[] = {
- {
- .name = "build",
- .has_arg = 0,
- .flag = NULL,
- .val = 'b',
- },
- {
- .name = "control-dir",
- .has_arg = 1,
- .flag = NULL,
- .val = 'c',
- },
- {
- .name = "data-dir",
- .has_arg = 1,
- .flag = NULL,
- .val = 'd',
- },
- {
- .name = "special",
- .has_arg = 1,
- .flag = NULL,
- .val = 's',
- },
- {
- .name = "control-file",
- .has_arg = 1,
- .flag = NULL,
- .val = 'f',
- },
- {
- .name = "data-file",
- .has_arg = 1,
- .flag = NULL,
- .val = 'F',
- },
- {
- .name = "list-control",
- .has_arg = 0,
- .flag = NULL,
- .val = 'l',
- },
- {
- .name = "list-data",
- .has_arg = 0,
- .flag = NULL,
- .val = 'L',
- },
- {
- .name = "help",
- .has_arg = 0,
- .flag = NULL,
- .val = 'h',
- },
- {
- .name = "version",
- .has_arg = 0,
- .flag = NULL,
- .val = 'V',
- },
-};
-#endif
-
-static void
-_help(const char *program_name)
-{
- printf(_("Usage: %s [-c CONTROL-DIR] [-f CONTROL-FILE] [-F DATA-FILE] "
- "[-l] [-L] PACKAGE\n"), program_name);
- printf(_(" or: %s -b -c CONTROL-DIR -d DATA-DIR [-s SPECIAL-FILE] "
- "PACKAGE\n"),
- program_name);
-#ifdef HAVE_GETOPT_LONG
- puts(_("Options:\n"
-" -b, --build Create a package from the specified\n"
-" CONTROL-DIR and DATA-DIR.\n"
-" -c, --control-dir=CONTROL-DIR In build mode, read control files from\n"
-" CONTROL-DIR. Otherwise, extract control\n"
-" files into CONTROL-DIR.\n"
-" -d, --data-dir=DATA-DIR In build mode, read data files from "
- "DATA-DIR\n"
-" -s, --special=SPECIAL-FILE Read device special files list from\n"
-" SPECIAL-FILE.\n"
-" -f, --control-file=CONTROL-FILE Print the contents of the named control "
- "file.\n"
-" If this option is given multiple times, the"
- "\n"
-" named control files will be printed in the"
- "\n"
-" order they appear in the package.\n"
-" -F, --data-file=DATA-FILE Print the contents of the named data file."
- "\n"
-" If this option is given multiple times, the"
- "\n"
-" named data files will be printed in the "
- "order\n"
-" they appear in the package.\n"
-" -l, --list-control List the control files.\n"
-" -L, --list-data List the data files. The list is currently"
- "\n"
-" produced in a format similar to that\n"
-" generated by GNU and BusyBox tar's verbose"
- "\n"
-" listing. User and group IDs and names are"
- "\n"
-" not checked against those on the host "
- "system,\n"
-" since they may differ.\n"
-" -h, --help Show this help information and exit.\n"
-" -V, --version Show version information and exit."));
-#else
- puts(_("Options:\n"
-" -b Create a package from the specified CONTROL-DIR and DATA-DIR.\n"
-" -c In build mode, read control files from CONTROL-DIR. Otherwise, extract"
- "\n"
-" control files into CONTROL-DIR.\n"
-" -d In build mode, read data files from DATA-DIR\n"
-" -s Read device special files list from SPECIAL-FILE.\n"
-" -f Print the contents of the named control file. If this option is given\n"
-" multiple times, the named control files will be printed in the order "
- "they\n"
-" appear in the package.\n"
-" -F Print the contents of the named data file. If this option is given\n"
-" multiple times, the named data files will be printed in the order they\n"
-" appear in the package.\n"
-" -l List the control files.\n"
-" -L List the data files. The list is currently produced in a format "
- "similar\n"
-" to that generated by GNU and BusyBox tar's verbose listing. User and\n"
-" group IDs and names are not checked against those on the host system,\n"
-" since they may differ.\n"
-" -h Show this help information and exit.\n"
-" -V Show version information and exit."));
-#endif
-}
-
-static void
-_version(void)
-{
- printf("%s %s%s\n", PACKAGE_NAME, PACKAGE_VERSION, PACKAGE_VERSION_GIT);
- /* TRANSLATORS: The "%s" conversion specifications are the copyright
- * year(s) and copyright holder(s), respectively. */
- printf(_("Copyright (C) %s %s\n"), "2023", "Patrick McDermott");
- puts(_("License GPLv3+: GNU GPL version 3 or later "
- "<http://gnu.org/licenses/gpl.html>.\n"
- "This is free software: you are free to change and "
- "redistribute it.\n"
- "There is NO WARRANTY, to the extent permitted by "
- "law.\n"));
- printf(_("Please report bugs to <%s>.\n"), PACKAGE_BUGREPORT);
-}
-
-static void
-_help_tip(const char *program_name)
-{
- /* TRANSLATORS: The "%s" conversion specifications are the program name
- * and help option, respectively. */
- fprintf(stderr, _("Try \"%s %s\" for more information\n"), program_name,
-#ifdef HAVE_GETOPT_LONG
- "--help"
-#else
- "-h"
-#endif
- );
-}
-
-static void
-_opt_mutex(const char *program_name, char opt1, char opt2)
-{
- fprintf(stderr, _("%s: Options -%c and -%c are mutually exclusive\n"),
- program_name, opt1, opt2);
- _help_tip(program_name);
-}
-
-int
-main(int argc, char *argv[])
-{
- const char *program_name;
- struct opkg_opk_opk *opk;
- int build;
- int opt_f;
- int opt_F;
- int opt_l;
- int opt_L;
- int opt;
-
-#ifdef ENABLE_NLS
- bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR);
-#ifdef HAVE_BIND_TEXTDOMAIN_CODESET
- bind_textdomain_codeset(PACKAGE, "UTF-8");
-#endif
- textdomain(PACKAGE);
- setlocale(LC_ALL, "");
-#endif
-
- program_name = argv[0];
-
- /* Initialize package. */
- opk = opkg_opk_opk_init();
- if (opk == NULL) {
- return EXIT_FAILURE;
- }
-
- opterr = 0;
- build = 0;
- opt_f = 0;
- opt_F = 0;
- opt_l = 0;
- opt_L = 0;
-#ifdef HAVE_GETOPT_LONG
- while ((opt = getopt_long(argc, argv, _OPTSTRING, _LONGOPTS, NULL))
- != -1) {
-#else
- while ((opt = getopt(argc, argv, _OPTSTRING)) != -1) {
-#endif
- switch(opt) {
- case 'b':
- build = 1;
- break;
- case 'c':
- opkg_opk_opk_control_dir(opk, optarg);
- break;
- case 'd':
- opkg_opk_opk_data_dir(opk, optarg);
- break;
- case 's':
- if (opkg_opk_opk_specials_read(opk, optarg) !=
- OPKG_OPK_OK) {
- fprintf(stderr, _("%s: Failed to read "
- "specials file"
- "\n"),
- program_name);
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- break;
- case 'f':
- if (opt_l > 0) {
- _opt_mutex(program_name, 'f', 'l');
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- opt_f = 1;
- if (opkg_opk_opk_print_control(opk, optarg)
- != OPKG_OPK_OK) {
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- break;
- case 'F':
- if (opt_L > 0) {
- _opt_mutex(program_name, 'F', 'L');
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- opt_F = 1;
- if (opkg_opk_opk_print_data(opk, optarg)
- != OPKG_OPK_OK) {
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- break;
- case 'l':
- if (opt_f > 0) {
- _opt_mutex(program_name, 'f', 'l');
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- opt_l = 1;
- opkg_opk_opk_list_control(opk);
- break;
- case 'L':
- if (opt_F > 0) {
- _opt_mutex(program_name, 'F', 'L');
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- opt_L = 1;
- opkg_opk_opk_list_data(opk);
- break;
- case 'h':
- _help(program_name);
- opkg_opk_opk_free(opk);
- return EXIT_SUCCESS;
- case 'V':
- _version();
- opkg_opk_opk_free(opk);
- return EXIT_SUCCESS;
- default:
- fprintf(stderr, _("%s: Invalid option: "
- "\"%c\"\n"),
- program_name, optopt);
- _help_tip(program_name);
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- }
- argc -= optind;
- argv += optind;
-
- if (argc < 1) {
- fprintf(stderr, _("%s: Missing package file operand\n"),
- program_name);
- _help_tip(program_name);
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- } else if (argc > 1) {
- fprintf(stderr, _("%s: Too many package file operands\n"),
- program_name);
- _help_tip(program_name);
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
-
- /* Read or build package. */
- if (build == 1) {
- if (opkg_opk_opk_write(opk, argv[0]) != OPKG_OPK_OK) {
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- } else {
- if (opkg_opk_opk_read(opk, argv[0]) != OPKG_OPK_OK) {
- opkg_opk_opk_free(opk);
- return EXIT_FAILURE;
- }
- }
-
- opkg_opk_opk_free(opk);
- return EXIT_SUCCESS;
-}
diff --git a/src/opk.c b/src/opk.c
deleted file mode 100644
index 457f7fa..0000000
--- a/src/opk.c
+++ /dev/null
@@ -1,151 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <stdlib.h>
-#include <string.h>
-#include "defs.h"
-#include "specials.h"
-#include "opk.h"
-#include "opk/opk.h"
-
-struct opkg_opk_opk *
-opkg_opk_opk_init(void)
-{
- struct opkg_opk_opk *opk;
-
- opk = malloc(sizeof(*opk));
- if (opk == NULL) {
- return NULL;
- }
-
- opk->print_control_head = NULL;
- opk->print_control_tail = NULL;
- opk->print_data_head = NULL;
- opk->print_data_tail = NULL;
- opk->list_control = 0;
- opk->list_data = 0;
- opk->control_dir = NULL;
- opk->specials = NULL;
- opk->previously_printed = 0;
-
- return opk;
-}
-
-static int
-_opkg_opk_opk_add_seek_name(struct _opkg_opk_opk_seek_name **head,
- struct _opkg_opk_opk_seek_name **tail, const char *name)
-{
- struct _opkg_opk_opk_seek_name *new;
-
- new = malloc(sizeof(*new));
- if (new == NULL) {
- return OPKG_OPK_ERROR;
- }
- if (name[0] == '.' && name[1] == '/') {
- new->name = name + 2;
- } else if (name[0] == '/') {
- new->name = name + 1;
- } else {
- new->name = name;
- }
-
- new->prev = *tail;
- new->next = NULL;
-
- if (*head == NULL) {
- *head = new;
- } else {
- (*tail)->next = new;
- }
- *tail = new;
-
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_opk_print_control(struct opkg_opk_opk *opk, const char *name)
-{
- return _opkg_opk_opk_add_seek_name(&opk->print_control_head,
- &opk->print_control_tail, name);
-}
-
-int
-opkg_opk_opk_print_data(struct opkg_opk_opk *opk, const char *name)
-{
- return _opkg_opk_opk_add_seek_name(&opk->print_data_head,
- &opk->print_data_tail, name);
-}
-
-int
-opkg_opk_opk_list_control(struct opkg_opk_opk *opk)
-{
- opk->list_control = 1;
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_opk_list_data(struct opkg_opk_opk *opk)
-{
- opk->list_data = 1;
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_opk_control_dir(struct opkg_opk_opk *opk, const char *dir)
-{
- opk->control_dir = dir;
- opk->control_dir_len = strlen(dir);
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_opk_data_dir(struct opkg_opk_opk *opk, const char *dir)
-{
- opk->data_dir = dir;
- opk->data_dir_len = strlen(dir);
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_opk_specials_read(struct opkg_opk_opk *opk, const char *file_name)
-{
- if (opkg_opk_specials_read(file_name, &opk->specials) != OPKG_OPK_OK) {
- return OPKG_OPK_ERROR;
- }
- return OPKG_OPK_OK;
-}
-
-void
-opkg_opk_opk_free(struct opkg_opk_opk *opk)
-{
- struct _opkg_opk_opk_seek_name *name;
-
- while (opk->print_control_head != NULL) {
- name = opk->print_control_head;
- opk->print_control_head = opk->print_control_head->next;
- free(name);
- }
- while (opk->print_data_head != NULL) {
- name = opk->print_data_head;
- opk->print_data_head = opk->print_data_head->next;
- free(name);
- }
- opkg_opk_specials_free(opk->specials);
- free(opk);
-}
diff --git a/src/opk.h b/src/opk.h
deleted file mode 100644
index c987431..0000000
--- a/src/opk.h
+++ /dev/null
@@ -1,144 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_OPK_H_
-#define OPKG_OPK_OPK_H_
-
-#include "ustar.h"
-
-struct opkg_opk_opk;
-
-/*
- * Allocates a package structure. Free with opkg_opk_opk_free().
- * Returns:
- * - Allocated package structure on success. Free with opkg_opk_opk_free().
- * - NULL on memory exhaustion.
- */
-struct opkg_opk_opk *
-opkg_opk_opk_init(void);
-
-/*
- * Adds a name to a list of control files to print when opkg_opk_opk_read() is
- * called.
- * Parameters:
- * - opk: Package structure.
- * - name: Name of control file to print.
- * Returns:
- * - OPKG_OPK_OK if the name was added to the list.
- * - OPKG_OPK_ERROR on memory exhaustion.
- */
-int
-opkg_opk_opk_print_control(struct opkg_opk_opk *opk, const char *name);
-
-/*
- * Adds a name to a list of data files to print when opkg_opk_opk_read() is
- * called.
- * Parameters:
- * - opk: Package structure.
- * - name: Name of data file to print.
- * Returns:
- * - OPKG_OPK_OK if the name was added to the list.
- * - OPKG_OPK_ERROR on memory exhaustion.
- */
-int
-opkg_opk_opk_print_data(struct opkg_opk_opk *opk, const char *name);
-
-/*
- * Lists control files when opkg_opk_opk_read() is called.
- * Parameters:
- * - opk: Package structure.
- * Returns:
- * - OPKG_OPK_OK.
- */
-int
-opkg_opk_opk_list_control(struct opkg_opk_opk *opk);
-
-/*
- * Lists data files when opkg_opk_opk_read() is called.
- * Parameters:
- * - opk: Package structure.
- * Returns:
- * - OPKG_OPK_OK.
- */
-int
-opkg_opk_opk_list_data(struct opkg_opk_opk *opk);
-
-/*
- * Sets the directory into which to extract control files when reading or in
- * which to find control files when writing. When extracting, the directory
- * (but not its ancestors) will be created if it doesn't exist.
- * Parameters:
- * - opk: Package structure.
- * - dir: Directory.
- * Returns:
- * - OPKG_OPK_OK.
- */
-int
-opkg_opk_opk_control_dir(struct opkg_opk_opk *opk, const char *dir);
-
-/*
- * Sets the directory in which to find data files when writing.
- * Parameters:
- * - opk: Package structure.
- * - dir: Directory.
- * Returns:
- * - OPKG_OPK_OK.
- */
-int
-opkg_opk_opk_data_dir(struct opkg_opk_opk *opk, const char *dir);
-
-/*
- * Reads types and device numbers of device special files from a list file for
- * use when writing.
- * Parameters:
- * - opk: Package structure.
- * - file_name: Device special files list file.
- * Returns:
- * - OPKG_OPK_OK if the list was successfully read.
- * - OPKG_OPK_ERROR if list file is unreadable or malformed or on memory
- * exhaustion.
- */
-int
-opkg_opk_opk_specials_read(struct opkg_opk_opk *opk, const char *file_name);
-
-/*
- * Performs the configured read actions.
- * Parameters:
- * - file_name: Package's file name.
- */
-int
-opkg_opk_opk_read(struct opkg_opk_opk *opk, const char *file_name);
-
-/*
- * Performs the configured write actions.
- * Parameters:
- * - file_name: Package's file name.
- */
-int
-opkg_opk_opk_write(struct opkg_opk_opk *opk, const char *file_name);
-
-/*
- * Frees a package structure.
- * Parameters:
- * - opk: Package structure.
- */
-void
-opkg_opk_opk_free(struct opkg_opk_opk *opk);
-
-#endif /* OPKG_OPK_OPK_H_ */
diff --git a/src/opk/local.mk b/src/opk/local.mk
deleted file mode 100644
index 9335153..0000000
--- a/src/opk/local.mk
+++ /dev/null
@@ -1,4 +0,0 @@
-src_opkg_opk_SOURCES += \
- %reldir%/opk.h \
- %reldir%/read.c \
- %reldir%/write.c
diff --git a/src/opk/opk.h b/src/opk/opk.h
deleted file mode 100644
index 93f9dfe..0000000
--- a/src/opk/opk.h
+++ /dev/null
@@ -1,62 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_OPK_OPK_H_
-#define OPKG_OPK_OPK_OPK_H_
-
-#include <stdio.h>
-#include "../gzip.h"
-#include "../opk.h"
-#include "../ustar.h"
-
-struct _opkg_opk_opk_seek_name {
- const char *name;
- struct _opkg_opk_opk_seek_name *prev;
- struct _opkg_opk_opk_seek_name *next;
-};
-
-struct opkg_opk_opk {
- struct _opkg_opk_opk_seek_name *print_control_head;
- struct _opkg_opk_opk_seek_name *print_control_tail;
- struct _opkg_opk_opk_seek_name *print_data_head;
- struct _opkg_opk_opk_seek_name *print_data_tail;
- int list_control;
- int list_data;
- const char *control_dir;
- size_t control_dir_len;
- const char *data_dir;
- size_t data_dir_len;
- FILE *file;
- struct opkg_opk_specials *specials;
- char file_buffer[8192];
- uint64_t mtime;
- const char *file_name;
- char *outer_uname;
- char *outer_gname;
- struct opkg_opk_gzip *outer_gzip;
- struct opkg_opk_ustar *outer_ustar;
- struct opkg_opk_gzip *inner_gzip;
- struct opkg_opk_ustar *inner_ustar;
- int previously_printed;
- char *path_real;
- char *path_virt;
- char *temp_file_name;
-};
-
-#endif /* OPKG_OPK_OPK_OPK_H_ */
diff --git a/src/opk/read.c b/src/opk/read.c
deleted file mode 100644
index 21fbc66..0000000
--- a/src/opk/read.c
+++ /dev/null
@@ -1,669 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <time.h>
-#include "../defs.h"
-#include "../gzip.h"
-#include "../i18n.h"
-#include "../opk.h"
-#include "../ustar.h"
-#include "opk.h"
-
-static int
-_opkg_opk_opk_read_file(void *user_data, char **buffer, size_t *size)
-{
- struct opkg_opk_opk *opk = user_data;
-
- *buffer = opk->file_buffer;
- *size = fread(opk->file_buffer, 1, sizeof(opk->file_buffer),
- opk->file);
- if (feof(opk->file)) {
- return OPKG_OPK_END;
- } else if (ferror(opk->file) || *size == 0) {
- return OPKG_OPK_ERROR;
- } else {
- return OPKG_OPK_OK;
- }
-}
-
-static int
-_opkg_opk_opk_read_init_inner(struct opkg_opk_opk *opk)
-{
- /* Initialize inner gzip decompressor. */
- opk->inner_gzip = opkg_opk_gzip_init_read(
- (opkg_opk_gzip_read_func *) &opkg_opk_ustar_read,
- opk->outer_ustar);
- if (opk->inner_gzip == NULL) {
- fputs(_("Error: Failed to initialize\n"), stderr);
- return OPKG_OPK_ERROR;
- }
-
- /* Initialize inner ustar unarchiver. */
- opk->inner_ustar = opkg_opk_ustar_init(opk->inner_gzip);
- if (opk->inner_ustar == NULL) {
- fputs(_("Error: Failed to initialize\n"), stderr);
- opkg_opk_gzip_free(opk->inner_gzip);
- return OPKG_OPK_ERROR;
- }
-
- return OPKG_OPK_OK;
-}
-
-static void
-_opkg_opk_opk_read_free_inner(struct opkg_opk_opk *opk)
-{
- opkg_opk_ustar_free(opk->inner_ustar);
- opkg_opk_gzip_free(opk->inner_gzip);
-}
-
-static int
-_opkg_opk_opk_read_check_name(const char *member_name,
- struct _opkg_opk_opk_seek_name **head,
- struct _opkg_opk_opk_seek_name **tail)
-{
- struct _opkg_opk_opk_seek_name *seek_name;
-
- if (member_name[0] == '.' && member_name[1] == '/') {
- member_name += 2;
- } else if (member_name[0] == '/') {
- member_name += 1;
- }
-
- /* Check each requested name. */
- for (seek_name = *head; seek_name != NULL; seek_name = seek_name->next)
- {
- if (strcmp(member_name, seek_name->name) == 0) {
- if (seek_name->prev != NULL) {
- seek_name->prev->next = seek_name->next;
- } else {
- /* This was the head. Update. */
- *head = seek_name->next;
- }
- if (seek_name->next != NULL) {
- seek_name->next->prev = seek_name->prev;
- } else {
- /* This was the tail. Update. */
- *tail = seek_name->prev;
- }
- free(seek_name);
- return OPKG_OPK_OK;
- }
- }
-
- return OPKG_OPK_ERROR; /* Member not found */
-}
-
-static int
-_opkg_opk_opk_read_control(struct opkg_opk_opk *opk)
-{
- struct stat stat_buf;
- char *path;
- struct opkg_opk_ustar_member *member;
- int ret_list;
- FILE *fp;
- int print;
- int ret_read;
- char *buffer;
- size_t size;
- struct _opkg_opk_opk_seek_name *seek_name;
-
- if (opk->control_dir != NULL) {
- if (stat(opk->control_dir, &stat_buf) == 0) {
- if (!S_ISDIR(stat_buf.st_mode)) {
- fputs(_("Error: Cannot create control directory"
- "\n"), stderr);
- return OPKG_OPK_ERROR;
- }
- } else if (mkdir(opk->control_dir, 0755) != 0) {
- fputs(_("Error: Cannot create control directory"
- "\n"), stderr);
- return OPKG_OPK_ERROR;
- }
-/* For below #pragmas: path initialized here
- * (opk->control_dir != NULL). */
- path = malloc(strlen(opk->control_dir) +
- OPKG_OPK_USTAR_NAME_SIZE + 1);
- if (path == NULL) {
- return OPKG_OPK_ERROR;
- }
- } else if (opk->list_control == 0 && opk->print_control_head == NULL) {
- /* Not listing or printing any control files. */
- return OPKG_OPK_OK;
- }
-
- if (_opkg_opk_opk_read_init_inner(opk) != OPKG_OPK_OK) {
- if (opk->control_dir != NULL) {
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- free(path);
-# pragma GCC diagnostic pop
- }
- return OPKG_OPK_ERROR;
- }
-
- while ((ret_list = opkg_opk_ustar_list(opk->inner_ustar, &member)) ==
- OPKG_OPK_OK) {
- /* Remove leading "./" if present and skip if nothing's left. */
- buffer = member->name;
- if (buffer[0] == '.' && buffer[1] == '/') {
- buffer += 2;
- }
- if (buffer[0] == '\0') {
- free(member);
- continue;
- }
-
- /* Only extract and/or print regular files. */
- if (member->type != '-') {
- fputs(_("Error: Non-regular control files not supported"
- "\n"), stderr);
- free(member);
- _opkg_opk_opk_read_free_inner(opk);
- if (opk->control_dir != NULL) {
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- free(path);
-# pragma GCC diagnostic pop
- }
- return OPKG_OPK_ERROR;
- }
-
- /* Open file for extraction. */
- if (opk->control_dir != NULL) {
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- if (sprintf(path, "%s/%s", opk->control_dir,
- member->name) <= 0) {
- free(member);
- _opkg_opk_opk_read_free_inner(opk);
- free(path);
- return OPKG_OPK_ERROR;
-# pragma GCC diagnostic pop
- }
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wmaybe-uninitialized"
-/* For below #pragmas: fp initialized here
- * (opk->control_dir != NULL). */
-/* GCC analyzer doesn't complain about this use of path? */
- fp = fopen(path, "wb");
-# pragma GCC diagnostic pop
- if (fp == NULL) {
- fputs(_("Error: Failed to extract control file"
- "\n"), stderr);
- free(member);
- _opkg_opk_opk_read_free_inner(opk);
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- free(path);
-# pragma GCC diagnostic pop
- return OPKG_OPK_ERROR;
- }
- }
-
- /* List file. */
- if (opk->list_control > 0) {
- puts(buffer);
- opk->previously_printed = 1;
- }
-
- /* Print file if requested. */
- if (opk->print_control_head != NULL &&
- _opkg_opk_opk_read_check_name(member->name,
- &opk->print_control_head,
- &opk->print_control_tail) ==
- OPKG_OPK_OK) {
- /* Name requested for printing. */
- print = 1;
- } else {
- print = 0;
- }
- free(member);
- if (print == 1 && opk->previously_printed == 1) {
- puts("");
- }
- while ((ret_read = opkg_opk_ustar_read(opk->inner_ustar,
- &buffer, &size)) == OPKG_OPK_OK)
- {
- if (print == 1 && fwrite(buffer, 1, size, stdout) !=
- size) {
- fputs(_("Error: Failed to print control file\n")
- , stderr);
- _opkg_opk_opk_read_free_inner(opk);
- if (opk->control_dir != NULL) {
- free(path);
- }
- return OPKG_OPK_ERROR;
- }
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- if (opk->control_dir != NULL && fwrite(buffer, 1, size,
- fp) != size) {
- fputs(_("Error: Failed to write control file\n")
- , stderr);
- _opkg_opk_opk_read_free_inner(opk);
- free(path);
-# pragma GCC diagnostic pop
- return OPKG_OPK_ERROR;
- }
- }
- if (ret_read == OPKG_OPK_ERROR) {
- fputs(_("Error: Failed to read control file\n"),
- stderr);
- _opkg_opk_opk_read_free_inner(opk);
- if (opk->control_dir != NULL) {
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
-# pragma GCC diagnostic ignored \
- "-Wmaybe-uninitialized"
- free(path);
- fclose(fp);
-# pragma GCC diagnostic pop
- }
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored "-Wanalyzer-file-leak"
- return OPKG_OPK_ERROR;
-# pragma GCC diagnostic pop
- }
- opk->previously_printed = 1;
-
- /* Close file for extraction. */
- if (opk->control_dir != NULL) {
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- if (fclose(fp) != 0) {
- _opkg_opk_opk_read_free_inner(opk);
- free(path);
-# pragma GCC diagnostic pop
- return OPKG_OPK_ERROR;
- }
- }
- }
- if (opk->control_dir != NULL) {
- /* Done with path buffer. */
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored \
- "-Wanalyzer-use-of-uninitialized-value"
- free(path);
-# pragma GCC diagnostic pop
- }
- if (ret_list == OPKG_OPK_ERROR) {
- fputs(_("Error: Failed to list control files\n"), stderr);
- _opkg_opk_opk_read_free_inner(opk);
- return OPKG_OPK_ERROR;
- }
-
- /* Check for files not found. */
- if (opk->print_control_head != NULL) {
- for (seek_name = opk->print_control_head; seek_name != NULL;
- seek_name = seek_name->next) {
- fprintf(stderr, _("Error: Failed to find control file "
- "\"%s\"\n"), seek_name->name);
- }
- _opkg_opk_opk_read_free_inner(opk);
- return OPKG_OPK_ERROR;
- }
-
- _opkg_opk_opk_read_free_inner(opk);
-
- return OPKG_OPK_OK;
-}
-
-static int
-_opkg_opk_opk_read_data(struct opkg_opk_opk *opk)
-{
- struct opkg_opk_ustar_member *head;
- struct opkg_opk_ustar_member *tail;
- struct opkg_opk_ustar_member *member;
- int ret;
- size_t uname_len;
- size_t uname_len_max;
- size_t gname_len;
- size_t gname_len_max;
- uint64_t size_max;
- uint32_t devmajor_max;
- uint32_t devminor_max;
- int ret_read;
- char *buffer;
- size_t size;
- long int size_len_max;
- long int devmajor_len_max;
- long int devminor_len_max;
- long int dev_len_max;
- char fmt[26];
- /* "%c%s %-32s/%-32s %16d %s " */
- char fmt_dev[30];
- /* "%c%s %-32s/%-32s %9d, %7d %s " */
- int len;
- char mode[10];
- char mtime[20];
-
- if (opk->list_data == 0 && opk->print_data_head == NULL) {
- /* Not listing or printing any data files. */
- return OPKG_OPK_OK;
- }
-
- if (_opkg_opk_opk_read_init_inner(opk) != OPKG_OPK_OK) {
- return OPKG_OPK_ERROR;
- }
-
- /* Build singly-linked list and find maximum column widths. */
- head = NULL;
- tail = NULL;
- uname_len_max = 0;
- gname_len_max = 0;
- size_max = 0;
- devmajor_max = 0;
- devminor_max = 0;
- while ((ret = opkg_opk_ustar_list(opk->inner_ustar, &member)) ==
- OPKG_OPK_OK) {
- /* If listing, link members and update max column widths. */
- if (opk->list_data > 0) {
- if (head == NULL) {
- head = member;
- } else {
- tail->next = member;
- }
- tail = member;
- uname_len = strlen(member->uname);
- if (uname_len > uname_len_max) {
- uname_len_max = uname_len;
- }
- gname_len = strlen(member->gname);
- if (gname_len > gname_len_max) {
- gname_len_max = gname_len;
- }
- if (member->size > size_max) {
- size_max = member->size;
- }
- if (member->devmajor > devmajor_max) {
- devmajor_max = member->devmajor;
- }
- if (member->devminor > devminor_max) {
- devminor_max = member->devminor;
- }
- }
-
- if (opk->print_data_head == NULL) {
- if (opk->list_data == 0) {
- free(member);
- }
- continue;
- }
- if (_opkg_opk_opk_read_check_name(member->name,
- &opk->print_data_head,
- &opk->print_data_tail) !=
- OPKG_OPK_OK) {
- /* Name not requested for printing. */
- if (opk->list_data == 0) {
- free(member);
- }
- continue;
- }
- if (opk->list_data == 0) {
- free(member);
- }
- if (opk->previously_printed == 1) {
- puts("");
- }
- while ((ret_read = opkg_opk_ustar_read(opk->inner_ustar,
- &buffer, &size)) == OPKG_OPK_OK)
- {
- if (fwrite(buffer, 1, size, stdout) != size) {
- fputs(_("Error: Failed to print data file\n")
- , stderr);
- _opkg_opk_opk_read_free_inner(opk);
- return OPKG_OPK_ERROR;
- }
- }
- if (ret_read == OPKG_OPK_ERROR) {
- fputs(_("Error: Failed to read data file\n"),
- stderr);
- _opkg_opk_opk_read_free_inner(opk);
- return OPKG_OPK_ERROR;
- }
- opk->previously_printed = 1;
- }
- if (ret == OPKG_OPK_ERROR) {
- fputs(_("Error: Failed to list data files\n"), stderr);
- _opkg_opk_opk_read_free_inner(opk);
- return OPKG_OPK_ERROR;
- }
- if (tail != NULL) {
- tail->next = NULL;
- }
-
- if (opk->list_data == 0) {
- _opkg_opk_opk_read_free_inner(opk);
- return OPKG_OPK_OK;
- }
-
- /* Print and free members. */
- if (opk->previously_printed == 1) {
- puts("");
- }
- ret = OPKG_OPK_OK;
- size_len_max = lrint(ceil(log10( size_max)));
- devmajor_len_max = lrint(ceil(log10(devmajor_max)));
- devminor_len_max = lrint(ceil(log10(devminor_max)));
- if (devmajor_len_max == 0) {
- devmajor_len_max = 1;
- }
- if (devminor_len_max == 0) {
- devminor_len_max = 1;
- }
- dev_len_max = devmajor_len_max + 2 /* ", " */ + devminor_len_max;
- if (dev_len_max > size_len_max) {
- size_len_max = dev_len_max;
- }
- snprintf(fmt , sizeof(fmt ), "%%c%%s %%-%zus/%%-%zus %%%lid %%s ",
- uname_len_max, gname_len_max, size_len_max);
- snprintf(fmt_dev, sizeof(fmt_dev), "%%c%%s %%-%zus/%%-%zus "
- "%%%lid, %%%lid %%s ",
- uname_len_max, gname_len_max,
- size_len_max - devminor_len_max - 2, devminor_len_max);
- len = 34 + uname_len_max + gname_len_max + size_len_max;
- for (member = head; member != NULL;) {
- if (member->mode & 00400) mode[0] = 'r'; else mode[0] = '-';
- if (member->mode & 00200) mode[1] = 'w'; else mode[1] = '-';
- if (member->mode & 00100) mode[2] = 'x'; else mode[2] = '-';
- if (member->mode & 04000) mode[2] = 's';
- if (member->mode & 00040) mode[3] = 'r'; else mode[3] = '-';
- if (member->mode & 00020) mode[4] = 'w'; else mode[4] = '-';
- if (member->mode & 00010) mode[5] = 'x'; else mode[5] = '-';
- if (member->mode & 02000) mode[5] = 's';
- if (member->mode & 00004) mode[6] = 'r'; else mode[6] = '-';
- if (member->mode & 00002) mode[7] = 'w'; else mode[7] = '-';
- if (member->mode & 00001) mode[8] = 'x'; else mode[8] = '-';
- if (member->mode & 01000) mode[8] = 't';
- mode[9] = '\0';
- strftime(mtime, sizeof(mtime), "%Y-%m-%d %H:%M:%S",
- localtime((const time_t *) &member->mtime));
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored "-Wformat-nonliteral"
- if (member->type != 'b' && member->type != 'c') {
- if (printf(fmt, member->type, mode,
- member->uname, member->gname,
- member->size, mtime) != len) {
- ret = OPKG_OPK_ERROR;
- }
- } else {
- if (printf(fmt_dev, member->type, mode,
- member->uname, member->gname,
- member->devmajor, member->devminor,
- mtime) != len) {
- ret = OPKG_OPK_ERROR;
- }
- }
-# pragma GCC diagnostic pop
- /* Print name, ensuring it begins with "/". */
- if (member->name[0] == '.' && member->name[1] == '/') {
- if (fputs(member->name + 1, stdout) == EOF) {
- ret = OPKG_OPK_ERROR;
- }
- } else {
- if (member->name[0] != '/' && putchar('/') == EOF) {
- ret = OPKG_OPK_ERROR;
- }
- if (fputs(member->name, stdout) == EOF) {
- ret = OPKG_OPK_ERROR;
- }
- }
- /* Print link name, if any. */
- if (member->type == 'l' && printf(" -> %s", member->linkname) !=
- (int) (strlen(member->linkname) + 4)) {
- ret = OPKG_OPK_ERROR;
- }
- if (puts("") == EOF) {
- ret = OPKG_OPK_ERROR;
- }
- head = member;
- member = member->next;
- free(head);
- }
-
- opk->previously_printed = 1;
-
- _opkg_opk_opk_read_free_inner(opk);
-
- return ret;
-}
-
-int
-opkg_opk_opk_read(struct opkg_opk_opk *opk, const char *file_name)
-{
- int ret;
- struct opkg_opk_ustar_member *member;
- char *version_buffer;
- size_t version_size;
-
- ret = OPKG_OPK_OK;
-
- /* Open outer archive. */
- opk->file = fopen(file_name, "rb");
- if (opk->file == NULL) {
- fprintf(stderr, _("Error: Failed to open file \"%s\"\n"),
- file_name);
- ret = OPKG_OPK_ERROR;
- goto out0;
- }
-
- /* Initialize outer gzip decompressor. */
- opk->outer_gzip = opkg_opk_gzip_init_read(&_opkg_opk_opk_read_file,
- opk);
- if (opk->outer_gzip == NULL) {
- fputs(_("Error: Failed to initialize\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out1;
- }
-
- /* Initialize outer ustar unarchiver. */
- opk->outer_ustar = opkg_opk_ustar_init(opk->outer_gzip);
- if (opk->outer_ustar == NULL) {
- fputs(_("Error: Failed to initialize\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out2;
- }
-
- /* Check package version. */
- if (opkg_opk_ustar_list(opk->outer_ustar, &member) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to find \"debian-binary\" in archive\n"),
- stderr);
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
- if (strcmp(member->name, "debian-binary") != 0) {
- free(member);
- fputs(_("Error: Failed to find \"debian-binary\" in archive\n"),
- stderr);
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
- free(member);
- if (opkg_opk_ustar_read(opk->outer_ustar,
- &version_buffer, &version_size) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to read \"debian-binary\" in archive\n"),
- stderr);
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
- if (version_size < 4 || strncmp(version_buffer, "2.", 2) != 0) {
- fputs(_("Error: Unsupported package version\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
-
- /* Read control archive. */
- if (opkg_opk_ustar_list(opk->outer_ustar, &member) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to find \"control.tar.gz\" in archive\n")
- , stderr);
- return OPKG_OPK_ERROR;
- }
- if (strcmp(member->name, "control.tar.gz") != 0) {
- free(member);
- fputs(_("Error: Failed to find \"control.tar.gz\" in archive\n")
- , stderr);
- return OPKG_OPK_ERROR;
- }
- free(member);
- if (_opkg_opk_opk_read_control(opk) != OPKG_OPK_OK) {
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
-
- /* Read data archive. */
- if (opkg_opk_ustar_list(opk->outer_ustar, &member) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to find \"data.tar.gz\" in archive\n"),
- stderr);
- return OPKG_OPK_ERROR;
- }
- if (strcmp(member->name, "data.tar.gz") != 0) {
- free(member);
- fputs(_("Error: Failed to find \"data.tar.gz\" in archive\n"),
- stderr);
- return OPKG_OPK_ERROR;
- }
- free(member);
- if (_opkg_opk_opk_read_data(opk) != OPKG_OPK_OK) {
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
-
- out3:
- opkg_opk_ustar_free(opk->outer_ustar);
- out2:
- opkg_opk_gzip_free(opk->outer_gzip);
- out1:
- fclose(opk->file);
- out0:
- return ret;
-}
diff --git a/src/opk/write.c b/src/opk/write.c
deleted file mode 100644
index 284b625..0000000
--- a/src/opk/write.c
+++ /dev/null
@@ -1,551 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <dirent.h>
-#include <grp.h>
-#include <pwd.h>
-#include <stdint.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <sys/sysmacros.h>
-#include <unistd.h>
-#include "../defs.h"
-#include "../dirent.h"
-#include "../gzip.h"
-#include "../i18n.h"
-#include "../opk.h"
-#include "../specials.h"
-#include "../ustar.h"
-#include "opk.h"
-
-enum _opkg_opk_opk_archive_type {
- OPKG_OPK_OPK_ARCHIVE_TYPE_CONTROL_ = 0,
- OPKG_OPK_OPK_ARCHIVE_TYPE_DATA_ = 1,
-};
-static const char *OPKG_OPK_OPK_ARCHIVE_NAMES_[] = {
- "control.tar.gz",
- "data.tar.gz",
-};
-
-static int
-_opkg_opk_opk_source_date_epoch(uint64_t *mtime)
-{
- char *env;
- char *end;
-
- env = getenv("SOURCE_DATE_EPOCH");
- if (env == NULL) {
- return OPKG_OPK_ERROR;
- }
- *mtime = strtol(env, &end, 10);
- if (*end != '\0') {
- return OPKG_OPK_ERROR;
- }
- return OPKG_OPK_OK;
-}
-
-static int
-_opkg_opk_opk_write_filter(const struct dirent *de)
-{
- if (de->d_name[0] == '.') {
- if (de->d_name[1] == '\0') {
- return 0;
- }
- if (de->d_name[1] == '.' && de->d_name[2] == '\0') {
- return 0;
- }
- }
- return 1;
-}
-
-static int
-_opkg_opk_opk_write_compar(const struct dirent **a, const struct dirent **b)
-{
- return strcmp((*a)->d_name, (*b)->d_name);
-}
-
-static int
-_opkg_opk_opk_write_dir_read(struct opkg_opk_opk *opk,
- struct opkg_opk_dirent *dir, size_t path_off)
-{
- char *child_path;
- int children_n;
- struct dirent **children;
- int children_i;
- struct opkg_opk_dirent child;
- size_t name_i;
- struct stat st;
- uid_t uid;
- char *uname;
- gid_t gid;
- char *gname;
- /* Extra byte (in macro definition) to detect
- * overflow, not for NUL */
- char link[OPKG_OPK_USTAR_LINKNAME_SIZE];
- ssize_t link_len;
- char type;
- uint32_t devmajor;
- uint32_t devminor;
- FILE *fp;
- char *buffer;
- size_t size;
- size_t num_read;
- size_t tot_read;
- int ret;
-
- child_path = opk->path_virt + path_off;
- children_n = scandir(opk->path_real, &children, _opkg_opk_opk_write_filter,
- _opkg_opk_opk_write_compar);
- for (children_i = 0; children_i < children_n; ++children_i) {
- child.name = children[children_i]->d_name;
- child.parent = dir;
- for (name_i = 0; children[children_i]->d_name[name_i] != '\0';
- ++name_i) {
- if (path_off + name_i + 1 == OPKG_OPK_USTAR_NAME_SIZE) {
- fprintf(stderr, "Error: File name \"%s\" too "
- "long",
- children[children_i]->d_name);
- goto err;
- }
- child_path[name_i] =
- children[children_i]->d_name[name_i];
- }
- child_path[name_i] = '\0';
- if (lstat(opk->path_real, &st) != 0) {
- fprintf(stderr, _("Error: Failed to stat \"%s\"\n"),
- opk->path_real);
- goto err;
- }
- /* TODO: Ownership override */
- uid = st.st_uid;
- uname = getpwuid(uid)->pw_name;
- gid = st.st_gid;
- gname = getgrgid(gid)->gr_name;
- if (S_ISDIR(st.st_mode)) {
- if (path_off + name_i + 2 == OPKG_OPK_USTAR_NAME_SIZE) {
- fprintf(stderr, "Error: File name \"%s\" too "
- "long", child_path);
- goto err;
- }
- child_path[name_i] = '/';
- child_path[++name_i] = '\0';
- if (opkg_opk_ustar_write_header(opk->inner_ustar,
- &child, st.st_mode & 0777,
- uid, uname, gid, gname, 0, 0, 0,
- opk->mtime, 'd', NULL) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err;
- }
- if (_opkg_opk_opk_write_dir_read(opk, &child,
- path_off + name_i) !=
- OPKG_OPK_OK) {
- goto err;
- }
- } else if (S_ISLNK(st.st_mode)) {
- link_len = readlink(opk->path_real, link,
- OPKG_OPK_USTAR_LINKNAME_SIZE);
- if (link_len < 0) {
- goto err;
- }
- if (link_len == OPKG_OPK_USTAR_LINKNAME_SIZE) {
- goto err;
- }
- link[link_len] = '\0';
- if (opkg_opk_ustar_write_header(opk->inner_ustar,
- &child, 0777,
- uid, uname, gid, gname, 0, 0, 0,
- opk->mtime, 'l', link) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err;
- }
- } else if (S_ISCHR(st.st_mode)) {
- if (opkg_opk_ustar_write_header(opk->inner_ustar,
- &child, st.st_mode & 0777,
- uid, uname, gid, gname,
- major(st.st_rdev),
- minor(st.st_rdev),
- 0, opk->mtime, 'c', NULL) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err;
- }
- } else if (S_ISBLK(st.st_mode)) {
- if (opkg_opk_ustar_write_header(opk->inner_ustar,
- &child, st.st_mode & 0777,
- uid, uname, gid, gname,
- major(st.st_rdev),
- minor(st.st_rdev),
- 0, opk->mtime, 'b', NULL) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err;
- }
- } else if (S_ISFIFO(st.st_mode)) {
- if (opkg_opk_ustar_write_header(opk->inner_ustar,
- &child, st.st_mode & 0777,
- uid, uname, gid, gname, 0, 0, 0,
- opk->mtime, 'p', NULL) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err;
- }
- } else if (S_ISREG(st.st_mode)) {
- if (opkg_opk_specials_find(opk->specials,
- opk->path_virt, &type,
- &devmajor, &devminor) ==
- OPKG_OPK_OK) {
- if (opkg_opk_ustar_write_header(
- opk->inner_ustar,
- &child,
- st.st_mode & 0777,
- uid, uname, gid, gname,
- devmajor, devminor, 0,
- opk->mtime, type, NULL)
- != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header"
- "\n"), stderr);
- goto err;
- }
- continue;
- }
- if (opkg_opk_ustar_write_header(opk->inner_ustar,
- &child, st.st_mode & 0777,
- uid, uname, gid, gname, 0, 0,
- st.st_size, opk->mtime, '-',
- NULL) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err;
- }
- fp = fopen(opk->path_real, "rb");
- if (fp == NULL) {
- fprintf(stderr, _("Error: Failed to open file "
- "\"%s\"\n"),
- opk->path_real);
- goto err;
- }
- opkg_opk_ustar_get_buffer(opk->inner_ustar,
- &buffer, &size);
- tot_read = 0;
- while ((num_read = fread(buffer, 1, size, fp)) > 0) {
- opkg_opk_ustar_write_data(opk->inner_ustar,
- num_read);
- tot_read += num_read;
- }
- if (ferror(fp) != 0) {
- fputs(_("Error: Error reading file\n"), stderr);
- fclose(fp);
- goto err;
- }
- if (fclose(fp) != 0) {
- fputs(_("Error: Failed to close file\n"),
- stderr);
- goto err;
- }
- if ((uintmax_t) tot_read != (uintmax_t) st.st_size) {
- fprintf(stderr, _("Error: Expected %jd bytes "
- "but read %zu\n"),
- (intmax_t) st.st_size,
- num_read);
- goto err;
- }
- } else {
- fprintf(stderr, _("Error: Unknown type of file \"%s\"\n"
- ), opk->path_real);
- goto err;
- }
- }
-
- ret = OPKG_OPK_OK;
- goto out;
- err:
- ret = OPKG_OPK_ERROR;
- out:
- for (children_i = 0; children_i < children_n; ++children_i) {
- free(children[children_i]);
- }
- free(children);
- return ret;
-}
-
-static int
-_opkg_opk_opk_build_inner_archive(struct opkg_opk_opk *opk,
- enum _opkg_opk_opk_archive_type archive_type)
-{
- FILE *fp;
- struct opkg_opk_dirent dirent;
- struct stat st;
- uid_t uid;
- char *uname;
- gid_t gid;
- char *gname;
- size_t written;
- char *buffer;
- size_t size;
- size_t num_read;
- size_t tot_read;
-
- /* Initialize inner gzip compressor. */
- if (sprintf(opk->temp_file_name, "%s~%s", opk->file_name,
- OPKG_OPK_OPK_ARCHIVE_NAMES_[archive_type]) <= 0)
- {
- goto err0;
- }
- fp = fopen(opk->temp_file_name, "w+b");
- if (fp == NULL) {
- fprintf(stderr, _("Error: Failed to open file \"%s\"\n"),
- opk->temp_file_name);
- goto err0;
- }
- opk->inner_gzip = opkg_opk_gzip_init_write(fp);
- if (opk->inner_gzip == NULL) {
- fputs(_("Error: Failed to initialize compressor\n"), stderr);
- goto err1;
- }
-
- /* Initialize inner ustar archiver. */
- opk->inner_ustar = opkg_opk_ustar_init(opk->inner_gzip);
- if (opk->inner_ustar == NULL) {
- fputs(_("Error: Failed to initialize archiver\n"), stderr);
- goto err2;
- }
-
- /* Write inner archive to temporary file. */
- dirent.name = ".";
- dirent.parent = NULL;
- if (archive_type == OPKG_OPK_OPK_ARCHIVE_TYPE_CONTROL_) {
- sprintf(opk->path_real, "%s/", opk->control_dir);
- opk->path_virt = opk->path_real + opk->control_dir_len;
- } else {
- sprintf(opk->path_real, "%s/", opk->data_dir);
- opk->path_virt = opk->path_real + opk->data_dir_len;
- }
- if (stat(opk->path_real, &st) != 0) {
- fprintf(stderr, _("Error: Failed to stat \"%s\"\n"),
- opk->path_real);
- goto err3;
- }
- uid = st.st_uid;
- uname = getpwuid(uid)->pw_name;
- gid = st.st_gid;
- gname = getgrgid(gid)->gr_name;
- if (opkg_opk_ustar_write_header(opk->inner_ustar, &dirent,
- st.st_mode & 0777, uid, uname, gid, gname, 0,
- 0, 0, opk->mtime, 'd', NULL) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"),
- stderr);
- goto err3;
- }
- if (_opkg_opk_opk_write_dir_read(opk, &dirent, 1 /* Skip '/' */) !=
- OPKG_OPK_OK) {
- goto err3;
- }
-
- /* Write trailer. */
- if (opkg_opk_ustar_write_trailer(opk->inner_ustar) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write trailer\n"), stderr);
- goto err3;
- }
-
- /* Finish inner archive. */
- opkg_opk_ustar_free(opk->inner_ustar);
- opkg_opk_gzip_finish_write(opk->inner_gzip);
- written = opkg_opk_gzip_written(opk->inner_gzip);
- opkg_opk_gzip_free(opk->inner_gzip);
-
- /* Write header in outer archive. */
- dirent.name = OPKG_OPK_OPK_ARCHIVE_NAMES_[archive_type];
- dirent.parent = NULL;
- if (opkg_opk_ustar_write_header(opk->outer_ustar, &dirent, 0644,
- 0, opk->outer_uname, 0, opk->outer_gname, 0, 0,
- written, opk->mtime, '-', NULL) !=
- OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"), stderr);
- goto err1;
- }
-
- /* Read temporary file into outer archive. */
- if (fseek(fp, 0L, SEEK_SET) != 0) {
- fputs(_("Error: Failed to seek in file\n"), stderr);
- goto err1;
- }
- opkg_opk_ustar_get_buffer(opk->outer_ustar, &buffer, &size);
- tot_read = 0;
- while ((num_read = fread(buffer, 1, size, fp)) > 0) {
- opkg_opk_ustar_write_data(opk->outer_ustar, num_read);
- tot_read += num_read;
- }
- if (ferror(fp) != 0) {
- fputs(_("Error: Error reading file\n"), stderr);
- fclose(fp);
- goto err1;
- }
- if (fclose(fp) != 0) {
- fputs(_("Error: Failed to close file\n"), stderr);
- goto err1;
- }
- unlink(opk->temp_file_name);
- if (tot_read != written) {
- fprintf(stderr, _("Error: Wrote %lu bytes but read %lu\n"),
- written, num_read);
- goto err1;
- }
-
- return OPKG_OPK_OK;
-
- err3:
- opkg_opk_ustar_free(opk->inner_ustar);
- err2:
- opkg_opk_gzip_free(opk->inner_gzip);
- err1:
- fclose(fp);
- err0:
- return OPKG_OPK_ERROR;
-}
-
-int
-opkg_opk_opk_write(struct opkg_opk_opk *opk, const char *file_name)
-{
- int ret;
- struct opkg_opk_dirent dirent;
- char *buffer;
- size_t size;
- size_t path_len;
-
- ret = OPKG_OPK_OK;
-
- if (_opkg_opk_opk_source_date_epoch(&opk->mtime) == OPKG_OPK_ERROR) {
- fputs(_("Error: Missing or invalid SOURCE_DATE_EPOCH\n"),
- stderr);
- ret = OPKG_OPK_ERROR;
- goto out0;
- }
-
- opk->file_name = file_name;
-
- /* Open outer archive. */
- opk->file = fopen(file_name, "wb");
- if (opk->file == NULL) {
- fprintf(stderr, _("Error: Failed to open file \"%s\"\n"),
- file_name);
- ret = OPKG_OPK_ERROR;
- goto out0;
- }
-
- /* Initialize outer gzip compressor. */
- opk->outer_gzip = opkg_opk_gzip_init_write(opk->file);
- if (opk->outer_gzip == NULL) {
- fputs(_("Error: Failed to initialize\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out1;
- }
-
- /* Initialize outer ustar archiver. */
- opk->outer_ustar = opkg_opk_ustar_init(opk->outer_gzip);
- if (opk->outer_ustar == NULL) {
- fputs(_("Error: Failed to initialize\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out2;
- }
-
- opk->outer_uname = getpwuid(0)->pw_name;
- opk->outer_gname = getgrgid(0)->gr_name;
-
- /* Write version file. */
- dirent.name = "debian-binary";
- dirent.parent = NULL;
- if (opkg_opk_ustar_write_header(opk->outer_ustar, &dirent, 0644,
- 0, opk->outer_uname, 0, opk->outer_gname, 0, 0,
- 4, opk->mtime, '-', NULL) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write header\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
- opkg_opk_ustar_get_buffer(opk->outer_ustar, &buffer, &size);
- memcpy(buffer, "2.0\n", 4);
- if (opkg_opk_ustar_write_data(opk->outer_ustar, 4) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write data\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
-
- /* Allocate control and data file path buffer. */
- if (opk->control_dir_len >= opk->data_dir_len) {
- path_len = opk->control_dir_len;
- } else {
- path_len = opk->data_dir_len;
- }
- path_len += 1 /* '/' */ + OPKG_OPK_USTAR_NAME_SIZE;
- opk->path_real = malloc(path_len);
- if (opk->path_real == NULL) {
- ret = OPKG_OPK_ERROR;
- goto out3;
- }
-
- /* Allocate temporary archive file name buffer. */
- opk->temp_file_name =
- malloc(strlen(file_name) + strlen("~control.tar.gz") + 1);
- if (opk->temp_file_name == NULL) {
- ret = OPKG_OPK_ERROR;
- goto out4;
- }
-
- if (_opkg_opk_opk_build_inner_archive(opk,
- OPKG_OPK_OPK_ARCHIVE_TYPE_CONTROL_) !=
- OPKG_OPK_OK) {
- ret = OPKG_OPK_ERROR;
- goto out5;
- }
- if (_opkg_opk_opk_build_inner_archive(opk,
- OPKG_OPK_OPK_ARCHIVE_TYPE_DATA_) !=
- OPKG_OPK_OK) {
- ret = OPKG_OPK_ERROR;
- goto out5;
- }
-
- /* Write trailer. */
- if (opkg_opk_ustar_write_trailer(opk->outer_ustar) != OPKG_OPK_OK) {
- fputs(_("Error: Failed to write trailer\n"), stderr);
- ret = OPKG_OPK_ERROR;
- goto out5;
- }
-
- out5:
- free(opk->temp_file_name);
- out4:
- free(opk->path_real);
- out3:
- opkg_opk_ustar_free(opk->outer_ustar);
- out2:
- opkg_opk_gzip_finish_write(opk->outer_gzip);
- opkg_opk_gzip_free(opk->outer_gzip);
- out1:
- fclose(opk->file);
- out0:
- return ret;
-}
diff --git a/src/specials.c b/src/specials.c
deleted file mode 100644
index b13ff86..0000000
--- a/src/specials.c
+++ /dev/null
@@ -1,131 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <inttypes.h>
-#include <stdint.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "defs.h"
-#include "specials.h"
-
-struct opkg_opk_specials {
- char type;
- uint32_t devmajor;
- uint32_t devminor;
- char *name;
- struct opkg_opk_specials *next;
-};
-
-static int
-_opkg_opk_specials_read_v1(FILE *fp, struct opkg_opk_specials **specials)
-{
- struct opkg_opk_specials *special;
-
- *specials = NULL;
- fscanf(fp, "%*[^\n]\n"); /* Header line */
- while (feof(fp) == 0) {
- special = malloc(sizeof(*special));
- if (special == NULL) {
- opkg_opk_specials_free(*specials);
- return OPKG_OPK_ERROR;
- }
-/* POSIX specifies the assignment-allocation character 'm', but ISO
- * C doesn't, so GCC prints a warning. */
-# pragma GCC diagnostic push
-# pragma GCC diagnostic ignored "-Wformat"
- if (fscanf(fp, " %c %" SCNu32 " %" SCNu32 " %ms \n",
- &special->type,
- &special->devmajor, &special->devminor,
- &special->name) != 4) {
-# pragma GCC diagnostic pop
- opkg_opk_specials_free(*specials);
- return OPKG_OPK_ERROR;
- }
- if (special->type != 'c' && special->type != 'b') {
- opkg_opk_specials_free(*specials);
- return OPKG_OPK_ERROR;
- }
- special->next = *specials;
- *specials = special;
- }
-
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_specials_read(const char *file_name,
- struct opkg_opk_specials **specials)
-{
- FILE *fp;
- unsigned int version;
-
- fp = fopen(file_name, "r");
- if (fp == NULL) {
- return OPKG_OPK_ERROR;
- }
- if (fscanf(fp, " version = %u \n", &version) != 1) {
- fclose(fp);
- return OPKG_OPK_ERROR;
- }
- switch (version) {
- case 1U:
- if (_opkg_opk_specials_read_v1(fp, specials) !=
- OPKG_OPK_OK) {
- fclose(fp);
- return OPKG_OPK_ERROR;
- }
- break;
- default:
- fclose(fp);
- return OPKG_OPK_ERROR;
- }
-
- fclose(fp); /* Just reading, so OK to ignore errors */
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_specials_find(struct opkg_opk_specials *specials, const char *find,
- char *type, uint32_t *devmajor, uint32_t *devminor)
-{
- for (; specials != NULL; specials = specials->next) {
- if (strcmp(find, specials->name) == 0) {
- *type = specials->type;
- *devmajor = specials->devmajor;
- *devminor = specials->devminor;
- return OPKG_OPK_OK;
- }
- }
-
- return OPKG_OPK_END;
-}
-
-void
-opkg_opk_specials_free(struct opkg_opk_specials *specials)
-{
- struct opkg_opk_specials *special;
-
- while (specials != NULL) {
- special = specials;
- specials = specials->next;
- free(special->name);
- free(special);
- }
-}
diff --git a/src/specials.h b/src/specials.h
deleted file mode 100644
index f69ae51..0000000
--- a/src/specials.h
+++ /dev/null
@@ -1,38 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_SPECIALS_H_
-#define OPKG_OPK_SPECIALS_H_
-
-#include <stdint.h>
-
-struct opkg_opk_specials;
-
-int
-opkg_opk_specials_read(const char *file_name,
- struct opkg_opk_specials **specials);
-
-int
-opkg_opk_specials_find(struct opkg_opk_specials *specials, const char *find,
- char *type, uint32_t *devmajor, uint32_t *devminor);
-
-void
-opkg_opk_specials_free(struct opkg_opk_specials *specials);
-
-#endif /* OPKG_OPK_SPECIALS_H_ */
diff --git a/src/ustar.c b/src/ustar.c
deleted file mode 100644
index 2b26ed1..0000000
--- a/src/ustar.c
+++ /dev/null
@@ -1,446 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#include <stdint.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "defs.h"
-#include "dirent.h"
-#include "gzip.h"
-#include "ustar.h"
-
-#define OPKG_OPK_USTAR_NUM_BASE_ 8
-
-/* #define OPKG_OPK_USTAR_BB_EXACT_HEADER_ 1 */
-
-struct _opkg_opk_ustar_header {
- char name [100];
- char mode [8];
- char uid [8];
- char gid [8];
- char size [12];
- char mtime [12];
- char chksum [8];
- char typeflag [1];
- char linkname [100];
- char magic [6];
- char version [2];
- char uname [32];
- char gname [32];
- char devmajor [8];
- char devminor [8];
- char prefix [155];
- char padding [12];
-} __attribute__((__packed__));
-
-struct opkg_opk_ustar {
- struct opkg_opk_gzip *gzip;
- uint64_t data_size_remaining;
- struct _opkg_opk_ustar_header header;
- char record[OPKG_OPK_USTAR_RECORD_SIZE];
-};
-
-struct opkg_opk_ustar *
-opkg_opk_ustar_init(struct opkg_opk_gzip *gzip)
-{
- struct opkg_opk_ustar *ustar;
-
- ustar = malloc(sizeof(*ustar));
- if (ustar == NULL) {
- return NULL;
- }
-
- ustar->gzip = gzip;
- ustar->data_size_remaining = 0;
-
- return ustar;
-}
-
-static int
-_opkg_opk_ustar_next(struct opkg_opk_ustar *ustar)
-{
- char *end;
- uint32_t chksum_got;
- uint32_t chksum_exp;
- size_t i;
- unsigned char *header_uc;
-
- /* Seek through data records until next header record. */
- while (ustar->data_size_remaining > 0) {
- if (opkg_opk_ustar_read(ustar, NULL, NULL) == OPKG_OPK_ERROR) {
- return OPKG_OPK_ERROR;
- }
- }
-
- /* Decompress next (hopefully valid header) record. */
- switch (opkg_opk_gzip_read(ustar->gzip, &ustar->header)) {
- case OPKG_OPK_OK:
- break;
- case OPKG_OPK_END:
- /* End of gzip stream before end of ustar archive */
- case OPKG_OPK_ERROR:
- return OPKG_OPK_ERROR;
- }
-
- /* Check for end of archive. */
- memset(ustar->record, 0, OPKG_OPK_USTAR_RECORD_SIZE);
- if (memcmp(&ustar->header, ustar->record,
- OPKG_OPK_USTAR_RECORD_SIZE) == 0) {
- return OPKG_OPK_END;
- }
-
- /* Verify magic. */
- if (memcmp(ustar->header.magic, "ustar", strlen("ustar")) != 0) {
- return OPKG_OPK_ERROR;
- }
-
- /* Verify checksum. */
- /* Assumes chksum is NUL-terminated. Not required by POSIX, but done by
- * GNU and BB tar and opkg_opk_ustar_write_header(). */
- chksum_got = strtol(ustar->header.chksum, &end,
- OPKG_OPK_USTAR_NUM_BASE_);
- chksum_exp = 0;
- if (*end != '\0') {
- return OPKG_OPK_ERROR;
- }
- for (i = 0; i < sizeof(ustar->header.chksum); ++i) {
- ustar->header.chksum[i] = ' ';
- }
- header_uc = (unsigned char *) &ustar->header;
- for (i = 0; i < OPKG_OPK_USTAR_RECORD_SIZE; ++i) {
- chksum_exp += header_uc[i];
- }
- if (chksum_got != chksum_exp) {
- return OPKG_OPK_ERROR;
- }
-
- /* Depending on type, get size. */
- switch (*ustar->header.typeflag) {
- case '0': /* Regular file */
- case '7': /* High-performance or regular file */
- /* Assumes size is NUL-terminated. Not required by
- * POSIX, but done by GNU and BB tar and
- * opkg_opk_ustar_write_header(). */
- ustar->data_size_remaining = strtol(
- ustar->header.size, &end,
- OPKG_OPK_USTAR_NUM_BASE_);
- if (*end != '\0') {
- return OPKG_OPK_ERROR;
- }
- break;
- case '2': /* Symbolic link */
- case '3': /* Character special file */
- case '4': /* Block special file */
- case '5': /* Directory */
- case '6': /* FIFO special file */
- ustar->data_size_remaining = 0;
- break;
- case '1': /* Link */
- default: /* Reserved */
- return OPKG_OPK_ERROR; /* Unsupported */
- }
-
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_ustar_list(struct opkg_opk_ustar *ustar,
- struct opkg_opk_ustar_member **member)
-{
- int ret;
- char *end;
-
- /* Get next header record, if any. */
- if ((ret =_opkg_opk_ustar_next(ustar)) != OPKG_OPK_OK) {
- return ret; /* Error or end of archive */
- }
-
- /* Allocate outward-facing member information structure. */
- *member = malloc(sizeof(**member));
- if (*member == NULL) {
- return OPKG_OPK_ERROR;
- }
-
- /* Set name, mode, size, mtime, type, linkname, uname, gname, devmajor,
- * and devminor. */
- if (ustar->header.prefix[0] != '\0') {
- sprintf((*member)->name, "%s/%s",
- ustar->header.prefix, ustar->header.name);
- } else {
- /* Use memcpy() because ustar->header.name may not be
- * NUL-terminated. */
- memcpy((*member)->name, ustar->header.name,
- sizeof(ustar->header.name));
- (*member)->name[sizeof(ustar->header.name)] = '\0';
- }
- /* Assumes mode and mtime are NUL-terminated. Not required by POSIX,
- * but done by GNU and BB tar and opkg_opk_ustar_write_header(). */
- (*member)->mode = strtol(ustar->header.mode, &end,
- OPKG_OPK_USTAR_NUM_BASE_);
- if (*end != '\0') {
- free(*member);
- return OPKG_OPK_ERROR;
- }
- (*member)->size = ustar->data_size_remaining;
- (*member)->mtime = strtol(ustar->header.mtime, &end,
- OPKG_OPK_USTAR_NUM_BASE_);
- if (*end != '\0') {
- free(*member);
- return OPKG_OPK_ERROR;
- }
- switch (*ustar->header.typeflag) {
- case '0': /* Regular file */
- case '7': /* High-performance or regular file */
- (*member)->type = '-';
- break;
- case '2': /* Symbolic link */
- (*member)->type = 'l';
- strncpy((*member)->linkname, ustar->header.linkname,
- sizeof(ustar->header.linkname));
- (*member)->linkname[sizeof((*member)->linkname) - 1] =
- '\0';
- break;
- case '3': /* Character special file */
- (*member)->type = 'c';
- break;
- case '4': /* Block special file */
- (*member)->type = 'b';
- break;
- case '5': /* Directory */
- (*member)->type = 'd';
- break;
- case '6': /* FIFO special file */
- (*member)->type = 'p';
- break;
- case '1': /* Link */
- default: /* Reserved */
- free(*member);
- return OPKG_OPK_ERROR; /* Unsupported */
- }
- strncpy((*member)->uname, ustar->header.uname,
- sizeof((*member)->uname));
- strncpy((*member)->gname, ustar->header.gname,
- sizeof((*member)->gname));
- (*member)->devmajor = strtol(ustar->header.devmajor, &end,
- OPKG_OPK_USTAR_NUM_BASE_);
- if (*end != '\0') {
- free(*member);
- return OPKG_OPK_ERROR;
- }
- (*member)->devminor = strtol(ustar->header.devminor, &end,
- OPKG_OPK_USTAR_NUM_BASE_);
- if (*end != '\0') {
- free(*member);
- return OPKG_OPK_ERROR;
- }
-
- return OPKG_OPK_OK; /* Possibly more members in archive */
-}
-
-int
-opkg_opk_ustar_read(struct opkg_opk_ustar *ustar, char **buffer, size_t *size)
-{
- if (ustar->data_size_remaining == 0) {
- return OPKG_OPK_END;
- }
-
- /* Decompress next data record. */
- switch (opkg_opk_gzip_read(ustar->gzip, ustar->record)) {
- case OPKG_OPK_OK:
- break;
- case OPKG_OPK_END:
- case OPKG_OPK_ERROR:
- return OPKG_OPK_ERROR;
- }
-
- /* Store buffer and size in caller's memory and update remaining size.
- */
- if (buffer != NULL) {
- *buffer = ustar->record;
- }
- if (ustar->data_size_remaining >= OPKG_OPK_USTAR_RECORD_SIZE) {
- if (size != NULL) {
- *size = OPKG_OPK_USTAR_RECORD_SIZE;
- }
- ustar->data_size_remaining -= OPKG_OPK_USTAR_RECORD_SIZE;
- } else {
- if (size != NULL) {
- *size = ustar->data_size_remaining;
- }
- ustar->data_size_remaining = 0;
- }
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_ustar_write_header(struct opkg_opk_ustar *ustar,
- struct opkg_opk_dirent *dirent, uint16_t mode,
- uid_t uid, const char *uname, gid_t gid, const char *gname,
- uint32_t devmajor, uint32_t devminor,
- uint64_t size, uint64_t mtime, char type, const char *linkname)
-{
- uint32_t chksum;
- size_t i;
- unsigned char *header_uc;
-
- memset(&ustar->header, 0, sizeof(ustar->header));
-
- if (opkg_opk_dirent_name_prefix(dirent, (type == 'd' ? 1 : 0),
- ustar->header.name,
- sizeof(ustar->header.name),
- ustar->header.prefix,
- sizeof(ustar->header.prefix)) != OPKG_OPK_OK) {
- return OPKG_OPK_ERROR;
- }
- /* POSIX doesn't say to NUL-terminate mode, uid, gid, size, or mtime.
- * GNU and BB tar accept values that aren't (but generate values that
- * ARE) NUL-terminated. But more importantly, opkg-lede (see file
- * libbb/unarchive.c) parses these with simple strtol() calls, without
- * even checking endptr, so we have to NUL-terminate these fields. Also
- * parsing these fields with strtol() are our very own
- * _opkg_opk_ustar_next() and opkg_opk_ustar_list() above. */
- sprintf(ustar->header.mode, "%07o", mode);
- sprintf(ustar->header.uid, "%07o", uid);
- sprintf(ustar->header.gid, "%07o", gid);
- sprintf(ustar->header.size, "%011o", size);
- sprintf(ustar->header.mtime, "%011o", mtime);
- sprintf(ustar->header.devmajor, "%07o", devmajor);
- sprintf(ustar->header.devminor, "%07o", devminor);
- switch (type) {
- case '-': /* Regular file */
- *ustar->header.typeflag = '0';
- break;
- case 'l': /* Symbolic link */
- *ustar->header.typeflag = '2';
- strncpy(ustar->header.linkname, linkname,
- sizeof(ustar->header.linkname));
- break;
- case 'c': /* Character special file */
- *ustar->header.typeflag = '3';
- break;
- case 'b': /* Block special file */
- *ustar->header.typeflag = '4';
- break;
- case 'd': /* Directory */
- *ustar->header.typeflag = '5';
- break;
- case 'p': /* FIFO special file */
- *ustar->header.typeflag = '6';
- break;
- default:
- return OPKG_OPK_ERROR; /* Unsupported */
- }
- strncpy(ustar->header.uname, uname, sizeof(ustar->header.uname));
- strncpy(ustar->header.gname, gname, sizeof(ustar->header.gname));
-
- /* In these fields POSIX says to write: But GNU and BB tar write: */
- strcpy(ustar->header.magic, "ustar"); /* "ustar " */
- memcpy(ustar->header.version, "00", 2); /* " \0" i.e. 0x20 0x00 */
- /* See files in BusyBox:
- * include/bb_archive.h
- * archival/chksum_and_xwrite_tar_header.c
- * archival/libarchive/get_header_tar.c
- * GNU and BB tar accept POSIX-conformant magic and version fields.
- * opkg-lede libbb/unarchive.c only checks first 5 bytes of magic and
- * ignores version. So conforming to POSIX seems safe.
- */
-#if OPKG_OPK_USTAR_BB_EXACT_HEADER_
- strcpy(ustar->header.magic, "ustar ");
-#endif
-
- chksum = 0;
- for (i = 0; i < sizeof(ustar->header.chksum); ++i) {
- ustar->header.chksum[i] = ' ';
- }
- header_uc = (unsigned char *) &ustar->header;
- for (i = 0; i < OPKG_OPK_USTAR_RECORD_SIZE; ++i) {
- chksum += header_uc[i];
- }
- /* See above about NUL-terminating and strtol() in opkg-lede. */
- /* Since commit 5661fe078eed752780b11f3f4fdd33bbd76a6c5e, BB tar has
- * filled chksum with "[6] digits, a null, then a space -- rather than
- * digits, followed by a null like the other fields...". The maxiumum
- * checksum is (255 x 512 = octal 377000), i.e. a maximum of 6 octal
- * digits, so it doesn't matter whether we use 6 or 7 digits. */
-#if OPKG_OPK_USTAR_BB_EXACT_HEADER_
- sprintf(ustar->header.chksum, "%06o", chksum);
-#else
- sprintf(ustar->header.chksum, "%07o", chksum);
-#endif
-
- if (opkg_opk_gzip_write(ustar->gzip, &ustar->header,
- OPKG_OPK_USTAR_RECORD_SIZE) != OPKG_OPK_OK) {
- return OPKG_OPK_ERROR;
- }
-
- ustar->data_size_remaining = size;
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_ustar_get_buffer(struct opkg_opk_ustar *ustar, char **buffer,
- size_t *size)
-{
- *buffer = ustar->record;
- *size = sizeof(ustar->record);
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_ustar_write_data(struct opkg_opk_ustar *ustar, size_t size)
-{
- /* Sanity check. */
- if (size > ustar->data_size_remaining ||
- size > OPKG_OPK_USTAR_RECORD_SIZE) {
- return OPKG_OPK_ERROR;
- }
-
- /* Zero out end of record. */
- memset(ustar->record + size, 0, OPKG_OPK_USTAR_RECORD_SIZE - size);
-
- /* Write to gzip stream. */
- if (opkg_opk_gzip_write(ustar->gzip, ustar->record,
- OPKG_OPK_USTAR_RECORD_SIZE) != OPKG_OPK_OK) {
- return OPKG_OPK_ERROR;
- }
-
- ustar->data_size_remaining -= size;
- return OPKG_OPK_OK;
-}
-
-int
-opkg_opk_ustar_write_trailer(struct opkg_opk_ustar *ustar)
-{
- memset(ustar->record, 0, OPKG_OPK_USTAR_RECORD_SIZE);
- if (opkg_opk_gzip_write(ustar->gzip, ustar->record,
- OPKG_OPK_USTAR_RECORD_SIZE) != OPKG_OPK_OK ||
- opkg_opk_gzip_write(ustar->gzip, ustar->record,
- OPKG_OPK_USTAR_RECORD_SIZE) != OPKG_OPK_OK)
- {
- return OPKG_OPK_ERROR;
- }
- return OPKG_OPK_OK;
-}
-
-void
-opkg_opk_ustar_free(struct opkg_opk_ustar *ustar)
-{
- free(ustar);
-}
diff --git a/src/ustar.h b/src/ustar.h
deleted file mode 100644
index 4a3dc1a..0000000
--- a/src/ustar.h
+++ /dev/null
@@ -1,117 +0,0 @@
-/*
- * Copyright (C) 2023 Patrick McDermott
- *
- * This file is part of opkg-opk.
- *
- * opkg-opk 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.
- *
- * opkg-opk 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 opkg-opk. If not, see <https://www.gnu.org/licenses/>.
- */
-
-#ifndef OPKG_OPK_USTAR_H_
-#define OPKG_OPK_USTAR_H_
-
-#include <stdint.h>
-#include "dirent.h"
-#include "gzip.h"
-
-#define OPKG_OPK_USTAR_RECORD_SIZE 512
-#define OPKG_OPK_USTAR_NAME_SIZE 257 /* prefix[155] + '/' + name[100]
- + '\0' */
-#define OPKG_OPK_USTAR_LINKNAME_SIZE 101 /* linkname[100] + '\0' */
-
-struct opkg_opk_ustar;
-
-struct opkg_opk_ustar_member {
- char name [OPKG_OPK_USTAR_NAME_SIZE];
- uint16_t mode;
- uint64_t size;
- uint64_t mtime;
- char type;
- char linkname[OPKG_OPK_USTAR_LINKNAME_SIZE];
- char uname [32];
- char gname [32];
- uint32_t devmajor;
- uint32_t devminor;
- struct opkg_opk_ustar_member *next;
-};
-
-struct opkg_opk_ustar_seek_name;
-
-/*
- * Allocates and initializes an archive structure.
- * Parameters:
- * - gzip: Decompressor for archive's gzip stream.
- * Returns:
- * - Allocated archive structure on success. Free with opkg_opk_ustar_free().
- * - NULL on memory exhaustion.
- */
-struct opkg_opk_ustar *
-opkg_opk_ustar_init(struct opkg_opk_gzip *gzip);
-
-/*
- * Lists member files one at a time.
- * Parameters:
- * - ustar: Archive structure.
- * - member: Address in which to store address of allocated member structure.
- * Free with free().
- * Returns:
- * - OPKG_OPK_OK if a member was listed. More members may exist.
- * - OPKG_OPK_END if no more members exist. Parameter "member" is unchanged.
- * - OPKG_OPK_ERROR on decompression error, memory exhaustion, mode or mtime
- * integer conversion error, or unsupported file type.
- */
-int
-opkg_opk_ustar_list(struct opkg_opk_ustar *ustar,
- struct opkg_opk_ustar_member **member);
-
-/*
- * Reads up to a record (512 octets) of member file data at a time.
- * Parameters:
- * - ustar: Archive structure.
- * - buffer: Address in which to store address of data buffer. May be NULL. Do
- * not free.
- * - size: Address in which to store size of read data. May be NULL.
- * Returns:
- * - OPKG_OPK_OK if data was read.
- * - OPKG_OPK_END if no more data exists.
- * - OPKG_OPK_ERROR on decompression error or premature end of gzip stream.
- */
-int
-opkg_opk_ustar_read(struct opkg_opk_ustar *ustar, char **buffer, size_t *size);
-
-int
-opkg_opk_ustar_write_header(struct opkg_opk_ustar *ustar,
- struct opkg_opk_dirent *dirent, uint16_t mode,
- uid_t uid, const char *uname, gid_t gid, const char *gname,
- uint32_t devmajor, uint32_t devminor,
- uint64_t size, uint64_t mtime, char type, const char *linkname);
-
-int
-opkg_opk_ustar_get_buffer(struct opkg_opk_ustar *ustar, char **buffer,
- size_t *size);
-
-int
-opkg_opk_ustar_write_data(struct opkg_opk_ustar *ustar, size_t size);
-
-int
-opkg_opk_ustar_write_trailer(struct opkg_opk_ustar *ustar);
-
-/*
- * Frees an archive structure.
- * Parameters:
- * - ustar: Archive structure.
- */
-void
-opkg_opk_ustar_free(struct opkg_opk_ustar *ustar);
-
-#endif /* OPKG_OPK_USTAR_H_ */