1 files changed, 96 insertions, 0 deletions
diff --git a/src/util/slbt_copy_file.c b/src/util/slbt_copy_file.c
new file mode 100644
index 0000000..23d8cc3
--- /dev/null
+++ b/src/util/slbt_copy_file.c
@@ -0,0 +1,96 @@
+/*******************************************************************/
+/*  slibtool: a strong libtool implementation, written in C        */
+/*  Copyright (C) 2016--2024  SysDeer Technologies, LLC            */
+/*  Released under the Standard MIT License; see COPYING.SLIBTOOL. */
+/*******************************************************************/
+
+#include <slibtool/slibtool.h>
+#include "slibtool_driver_impl.h"
+#include "slibtool_spawn_impl.h"
+#include "slibtool_symlink_impl.h"
+#include "slibtool_errinfo_impl.h"
+
+int slbt_util_copy_file(
+	struct slbt_exec_ctx *	ectx,
+	const char *		from,
+	const char *		to)
+{
+	int	ret;
+	int	fdcwd;
+	char **	oargv;
+	char *	oprogram;
+	char *  src;
+	char *  dst;
+	char *	cp[4];
+
+	const struct slbt_driver_ctx *  dctx;
+
+	/* driver context */
+	dctx = (slbt_get_exec_ictx(ectx))->dctx;
+
+	/* fdcwd */
+	fdcwd = slbt_driver_fdcwd(dctx);
+
+	/* placeholder? */
+	if (slbt_symlink_is_a_placeholder(fdcwd,from))
+		return 0;
+
+	/* until we perform an in-memory copy ... */
+	if (!(src = strdup(from)))
+		return SLBT_SYSTEM_ERROR(dctx,0);
+
+	if (!(dst = strdup(to))) {
+		free(src);
+		return SLBT_SYSTEM_ERROR(dctx,0);
+	}
+
+	/* cp argv */
+	cp[0] = "cp";
+	cp[1] = src;
+	cp[2] = dst;
+	cp[3] = 0;
+
+	/* alternate argument vector */
+	oprogram      = ectx->program;
+	oargv         = ectx->argv;
+	ectx->argv    = cp;
+	ectx->program = "cp";
+
+	/* step output */
+	if (!(dctx->cctx->drvflags & SLBT_DRIVER_SILENT)) {
+		if (dctx->cctx->mode == SLBT_MODE_LINK) {
+			if (slbt_output_link(ectx)) {
+				ectx->argv = oargv;
+				ectx->program = oprogram;
+				free(src); free(dst);
+				return SLBT_NESTED_ERROR(dctx);
+			}
+		} else {
+			if (slbt_output_install(ectx)) {
+				ectx->argv = oargv;
+				ectx->program = oprogram;
+				free(src); free(dst);
+				return SLBT_NESTED_ERROR(dctx);
+			}
+		}
+	}
+
+	/* cp spawn */
+	if ((slbt_spawn(ectx,true) < 0) && (ectx->pid < 0)) {
+		ret = SLBT_SPAWN_ERROR(dctx);
+
+	} else if (ectx->exitcode) {
+		ret = SLBT_CUSTOM_ERROR(
+			dctx,
+			SLBT_ERR_COPY_ERROR);
+	} else {
+		ret = 0;
+	}
+
+	free(src);
+	free(dst);
+
+	ectx->argv = oargv;
+	ectx->program = oprogram;
+	return ret;
+}