commit 24e3c9cfc40a7a662eed114f1dae60a0475bd660
Author: zyppe <210hcl@gmail.com>
Date:   Fri Sep 27 15:45:41 2024 +0800

    NBuild init project

diff --git a/initvm.c b/initvm.c
new file mode 100644
index 0000000..ff3703d
--- /dev/null
+++ b/initvm.c
@@ -0,0 +1,420 @@
+/*
+ * NAME
+ *	initvm - init for qemu, setup binfmt_misc launch build
+ *	
+ * SYNOPSIS
+ *	initvm
+ *
+ * DESCRIPTION
+ *	This is the kernel init script for virtual machines which will
+ *	be running executables for an embedded (non-native)
+ *	architecture. It registers binfmt_misc handlers for qemu and
+ *	executes the build script, and tests many assumptions.
+ *
+ * FILES
+ *	/.build/qemu-reg
+ *		text file with lines to stuff into the binfmt_misc
+ *		filesystem registration file
+ *	/.build/build
+ *		build script to execute once binfmts are set up
+ *
+ * AUTHOR
+ *      Copyright (c) 2012 James Perkins <james.perkins@linuxfoundation.org>
+ *                         Adrian Schroeter <adrian@suse.de>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License version 2 or 3 as
+ * published by the Free Software Foundation.
+ *
+ * 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 (see the file COPYING); if not, write to the
+ * Free Software Foundation, Inc.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#include <sys/mount.h>
+#include <sys/stat.h>
+#include <sys/utsname.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <stdio.h>
+#include <unistd.h>
+
+/* to enable debugging, compile with -DDEBUG */
+#ifdef DEBUG
+#define DBG(x)	do { x; } while(0)
+#else
+#define DBG(x)
+#endif
+
+/* function return codes */
+enum okfail { FAIL=0, OK=1 };
+
+/* qemu registration fields, see kernel/Documentation/binfmt_misc.txt */
+enum fields { ignore=0, name, type, offset, magic, mask, interpreter, flags };
+const char * const fieldnames[] = {
+	"ignore", "name", "type", "offset",
+	"magic", "mask", "interpreter", "flags"
+};
+const int n_fields = 8;
+
+/* files in useful places */
+#define SYSFS_BINFMT_MISC	"/proc/sys/fs/binfmt_misc"
+#define SYSFS_BINFMT_MISC_REG	"/proc/sys/fs/binfmt_misc/register"
+#define SYSFS_BINFMT_MISC_STAT	"/proc/sys/fs/binfmt_misc/status"
+
+/* /usr/lib/build/x paths are copied to /.build inside a virtual machine */
+#define BINFMT_REGF_0		"/.build/qemu-reg"
+#define BINFMT_REGF_1		"/usr/lib/build/qemu-reg"
+#define BUILD			"/.build/build"
+
+/* useful constant arrays */
+static char *rx_files[] = { "/proc", "/proc/sys", "/proc/sys/fs",
+	 SYSFS_BINFMT_MISC, NULL };
+static char *w_files[] = { SYSFS_BINFMT_MISC_REG, NULL };
+
+static char* const args[] = { BUILD, NULL };
+
+/* test access modes for files, return OK or FAIL */
+enum okfail test_access_files(char *files[], int mode, const char *errstr)
+{
+	int i;
+
+	for (i = 0; files[i] != NULL; i++) {
+		if (access(files[i], mode) != 0) {
+			fprintf(stderr, "%s: %s: fails test\n",
+				files[i], errstr);
+			return FAIL;
+		}
+	}
+
+	return OK;
+}
+
+/* find a string in the given file, return OK or FAIL */
+enum okfail strfile(const char *filename, const char *string)
+{
+	char buf[BUFSIZ];
+	FILE *fp;
+	enum okfail found = FAIL;
+
+	fp = fopen(filename, "r");
+	if (fp == NULL)
+	{
+		perror(filename);
+		return FAIL;
+	}
+	while (fgets(buf, sizeof(buf), fp) != NULL)
+	{
+		if (strcmp(buf, string) == 0) {
+			found = OK;
+			break;
+		}
+
+	}
+	(void)fclose(fp);
+
+	return found;
+}
+
+/* write the file with given string, return OK or FAIL */
+enum okfail write_file_string(const char *filename, const char *string)
+{
+	int fd;
+
+	if ((fd = open(filename, O_WRONLY)) == -1)
+	{
+		perror(filename);
+		return FAIL;
+	}
+
+	if (write(fd, string, strlen(string)) == -1)
+	{
+		perror("write");
+		fprintf(stderr, "%s: write failed\n", filename);
+		close(fd);
+		return FAIL;
+	}
+
+	close(fd);
+	return OK;
+}
+
+#ifdef DEBUG
+/* dump contents of the file to stderr, return OK or FAIL */
+enum okfail dump_file(char *path)
+{
+	FILE *fp;
+	char buf[BUFSIZ];
+
+	fp = fopen(path, "r");
+	if (fp == NULL) {
+		perror(path);
+		return FAIL;
+	}
+
+	while (fgets(buf, sizeof(buf), fp) != NULL)
+	{
+		fputs(buf, stderr);
+	}
+
+	fclose(fp);
+	return OK;
+}
+#endif /* DEBUG */
+
+/* parse datafile and register (to regfile) all binary formats found */
+enum okfail binfmt_register(char *datafile, char *regfile)
+{
+	char buf[BUFSIZ + 7];	/* extra room for -binfmt */
+	FILE *fp;
+	int line;
+	struct utsname myuname;
+	uname(&myuname);
+
+	fp = fopen(datafile, "r");
+	if (fp == NULL)
+	{
+		perror(datafile);
+		return FAIL;
+	}
+
+	for (line = 1; fgets(buf, sizeof(buf) - 7, fp) != NULL; line++)
+	{
+		char tokens[BUFSIZ];
+		char *s = tokens;
+		char *blacklist;
+		char *f[n_fields];	/* field content pointers */
+		int n;			/* current field */
+		char path[BUFSIZ];
+
+		if (buf[0] != ':')	/* non-data input line */
+		{
+			continue;
+		}
+		blacklist = strchr(buf, ' ');
+		if (blacklist) {
+			int skip = 0;
+			char *eol;
+
+			*blacklist = '\0';
+			blacklist++;
+
+			eol = strchr(blacklist, '\n');
+			if (eol)
+				*eol = '\0';
+
+			for (n = 0; blacklist != NULL; n++)
+			{
+				char *bp = strsep(&blacklist, " ");
+				if (!strcmp(bp, myuname.machine)) {
+#ifdef DEBUG
+					fprintf(stderr, " skipping on hostarch %s line %s\n", bp, buf);
+#endif /* DEBUG */
+					skip = 1;
+					break;
+				}
+			}
+			if (skip)
+				continue;
+		}
+
+		/* copy buf and tokenize :-seperated fields into f[] */
+		strcpy(tokens, buf);
+		for (n = 0; s != NULL && n < n_fields; n++)
+		{
+			f[n] = strsep(&s, ":");
+		}
+
+#ifdef DEBUG
+		int i;
+		fprintf(stderr, "DEBUG: line %d, fields %d:\n",  line, n);
+		for (i = name; i < n; i++)
+		{
+			fprintf(stderr, " %s %s\n", fieldnames[i], f[i]);
+		}
+#endif /* DEBUG */
+
+		if (n == n_fields && s != NULL)
+		{
+			fprintf(stderr, "%s: line %d: extra fields, ignoring."
+				" Content: %s", datafile, line, buf);
+			continue;
+		}
+
+		if (n < n_fields)
+		{
+			fprintf(stderr, "%s: line %d: missing fields, ignoring."
+				" Content: %s", datafile, line, buf);
+			continue;
+		}
+
+		int ret;
+                /* Is an interpreter for this arch already registered? */
+		snprintf(path, sizeof(path), SYSFS_BINFMT_MISC "/%s", f[name]);
+		ret=access(path, X_OK);
+		if (ret == 0) {
+#ifdef DEBUG
+			fprintf(stderr, 
+				"interpreter for '%s' already registered, ignoring\n",
+				f[name]);
+#endif /* DEBUG */
+			continue;
+		}
+#ifdef DEBUG
+		fprintf(stderr, 
+			"registering interpreter for '%s'...\n",
+			f[name]);
+#endif /* DEBUG */
+
+		/* check if a special -binfmt interpreter version exists */
+		snprintf(path, sizeof(path), "%s-binfmt", f[interpreter]);
+		ret=access(path, X_OK);
+		if (ret == 0) {
+		    /* special -binfmt interpreter exists, patch buf */
+		    size_t off = f[interpreter] + strlen(f[interpreter]) - tokens;
+		    size_t len = strlen(buf) + 1;
+		    memmove(buf + off + 7, buf + off, len - off);
+		    memcpy(buf + off, "-binfmt", 7);
+		} else {
+		    /* Does the interpreter exists? */
+		    ret=access(f[interpreter], X_OK);
+		}
+		if (ret != 0) {
+#ifdef DEBUG
+			fprintf(stderr, 
+				"%s: line %d: interpreter '%s' not found,"
+				" ignoring, return %d\n", datafile, line, f[interpreter], ret);
+#endif /* DEBUG */
+			continue;
+		}
+
+		if (!write_file_string(regfile, buf)) {
+			fprintf(stderr, "%s: line %d: write failed."
+				" Content: %s\n", datafile, line, buf);
+			(void)fclose(fp);
+			return FAIL;
+		}
+
+		/* verify registration completed correctly */
+		snprintf(path, sizeof(path), SYSFS_BINFMT_MISC "/%s", f[name]);
+
+		if (access(path, R_OK) != 0) {
+			fprintf(stderr, 
+				"%s: line %d: binfmt path not created, content '%s'\n",
+				path, line, buf);
+			(void)fclose(fp);
+			return FAIL;
+		}
+
+		DBG(fprintf(stderr, "dumping: %s\n", path));
+		DBG(dump_file(path));
+	}
+
+
+	(void)fclose(fp);
+
+	return OK;
+}
+
+/* set up/verify binfmt FS support, program more binfmts, and launch build */
+int main(int argc, char* argv[], char* env[])
+{
+	int retval;
+	char buf[BUFSIZ], *build_dir;
+
+        /* Docker builds get /proc mounted, so test for /proc/self */
+        struct stat sb;
+        if (lstat("/proc/self", &sb)) {
+	        /* mount proc filesystem if it isn't already. */
+		if (mount("proc", "/proc", "proc", MS_MGC_VAL, NULL) == -1) {
+			if (errno != EBUSY) {
+				perror("mount: /proc");
+				exit(1);
+			}
+		}
+        }
+
+        /* Docker builds need to have binfmt_misc loaded already */
+        if (stat(SYSFS_BINFMT_MISC_STAT, &sb)) {
+		/* try to load binfmt module if present, no big deal if it fails */
+		if ((retval = system("/sbin/modprobe binfmt_misc")) != 0) {
+			DBG(fprintf(stderr, "modprobe binfmt_misc exit code %d\n",
+				retval));
+		}
+
+		/* mount binfmt filesystem */
+		if (mount("binfmt_misc", SYSFS_BINFMT_MISC, "binfmt_misc", MS_MGC_VAL,
+			NULL) == -1) {
+			if (errno != EBUSY) {
+				perror("mount: binfmt_misc, " SYSFS_BINFMT_MISC);
+			}
+		}
+        }
+
+	/* verify all paths resulting from this are OK */
+	if (!test_access_files(rx_files, R_OK|X_OK, "read/search")) {
+		exit(1);
+	}
+	if (!test_access_files(w_files, W_OK, "write")) {
+		exit(1);
+	}
+
+	if (!strfile("/proc/filesystems", "nodev\tbinfmt_misc\n")) {
+		fprintf(stderr,
+			"/proc/filesystems: binfmt_misc support missing\n");
+		exit(1);
+	}
+
+	if (!strfile(SYSFS_BINFMT_MISC_STAT, "enabled\n")) {
+		fprintf(stderr,
+			"%s: binfmt_misc filesystem support not enabled\n",
+			SYSFS_BINFMT_MISC_STAT);
+		exit(1);
+	}
+
+	*buf = 0;
+	build_dir = getenv("BUILD_DIR");
+	if (build_dir && strlen(build_dir) < sizeof(buf) - 10)
+		sprintf(buf, "%s/qemu-reg", build_dir);
+
+        if (!*buf || !binfmt_register(buf, SYSFS_BINFMT_MISC_REG)) {
+		/* setup all done, do the registration */
+		if (!binfmt_register(BINFMT_REGF_0, SYSFS_BINFMT_MISC_REG)) {
+			fprintf(stderr, "%s: failed. Trying alternate binfmt file\n",
+				BINFMT_REGF_0);
+			if (!binfmt_register(BINFMT_REGF_1, SYSFS_BINFMT_MISC_REG)) {
+				fprintf(stderr, "%s: binfmt registration failed\n",
+					BINFMT_REGF_1);
+				exit(1);
+			}
+		}
+	}
+
+	/* if we are the init process, start build */
+	if (getpid() == 1)
+	{
+		if (access(BUILD, F_OK) != 0) {
+			fprintf(stderr, "%s: build executable missing\n",
+				BUILD);
+			exit(1);
+		}
+		if (access(BUILD, X_OK) != 0) {
+			fprintf(stderr, "%s: not executable\n", BUILD);
+			exit(1);
+		}
+		execve(BUILD, args, env);
+		perror("execve of "BUILD);
+		exit(1);
+	}
+
+	/* success! */
+	exit(0);
+}
diff --git a/lib/NBuild/Func.pm b/lib/NBuild/Func.pm
new file mode 100644
index 0000000..b0a94ae
--- /dev/null
+++ b/lib/NBuild/Func.pm
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+package NBuild;
+
+use strict;
+use warnings;
+use v5.10;
+
+sub buildroot_umount {
+    
+}
+1;
\ No newline at end of file
diff --git a/lib/NBuild/nbuild-pkg b/lib/NBuild/nbuild-pkg
new file mode 100644
index 0000000..ca27ece
--- /dev/null
+++ b/lib/NBuild/nbuild-pkg
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+package NBuild;
+
+use strict;
+use warnings;
+use v5.10;
+
+1;
\ No newline at end of file
diff --git a/lib/NBuild/nbuild-recipe b/lib/NBuild/nbuild-recipe
new file mode 100644
index 0000000..ca27ece
--- /dev/null
+++ b/lib/NBuild/nbuild-recipe
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+package NBuild;
+
+use strict;
+use warnings;
+use v5.10;
+
+1;
\ No newline at end of file
diff --git a/lib/NBuild/nbuild-validate-params b/lib/NBuild/nbuild-validate-params
new file mode 100644
index 0000000..ca27ece
--- /dev/null
+++ b/lib/NBuild/nbuild-validate-params
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+package NBuild;
+
+use strict;
+use warnings;
+use v5.10;
+
+1;
\ No newline at end of file
diff --git a/lib/NBuild/nbuild-vm b/lib/NBuild/nbuild-vm
new file mode 100644
index 0000000..ca27ece
--- /dev/null
+++ b/lib/NBuild/nbuild-vm
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+package NBuild;
+
+use strict;
+use warnings;
+use v5.10;
+
+1;
\ No newline at end of file
diff --git a/lib/NBuild/readvar b/lib/NBuild/readvar
new file mode 100644
index 0000000..d6497a3
--- /dev/null
+++ b/lib/NBuild/readvar
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use v5.10;
+
+print $ARGV[1];
\ No newline at end of file
diff --git a/nbuild b/nbuild
new file mode 100644
index 0000000..3683993
--- /dev/null
+++ b/nbuild
@@ -0,0 +1,112 @@
+#!/usr/bin/perl
+package NBuild;
+
+=pod
+A rewrite for obs-build;
+=cut
+
+=TODO
+Use json or toml or other to process the environment variables for the origin "build"
+=cut
+
+use strict;
+use warnings;
+use v5.10;
+
+use NBuild::Func;
+use File::Path qw(rmtree mkpath);
+use Sys::Hostname;
+use Log::Log4perl;
+
+=todo
+# some VMs do not allow to specify the init process...
+if test "$0" = /sbin/init; then
+	exec /.build/build "$@"
+fi
+=cut
+
+our $BUILD_CONF = '/etc/build.conf';
+our ( $BUILD_DIR, $BUILD_ROOT, $CONFIG_DIR );
+$BUILD_DIR = '/usr/lib/build' if -e $BUILD_CONF;
+
+=todo
+# for build build
+test -z "$BUILD_DIR" -a -e /.build/build.data -a -z "$BUILD_IGNORE_2ND_STAGE" && BUILD_DIR=/.build
+=cut
+
+$BUILD_DIR  = '/usr/lib/build'     unless defined $BUILD_DIR;
+$CONFIG_DIR = "$BUILD_DIR/configs" unless defined $CONFIG_DIR;
+
+our (
+    $BUILD_ARCH, $BUILD_HOST_ARCH, $BUILD_RPMS, $BUILD_DEBUG,
+    $BUILD_DIST, $ABUILD_UID,      $ABUILD_GID
+);
+
+my $icecream = 0;
+my ( @definesnstuff, @repos, @old_packages );
+
+my $browner = '';
+
+$ABUILD_UID = 399;
+$ABUILD_GID = 399;
+
+our (
+    $BUILD_OPTIONS_PARSED, $DO_LINT,                  $DO_CHECKS,
+    $CLEAN_BUILD,          $GENBUILDREQS_CLEAN_BUILD, $RECIPEPATH,
+    $SRCDIR,               $BUILD_JOBS,               $BUILD_THREADS,
+    $ABUILD_TARGET,        $CREATE_BASELIBS,          $USEUSEDFORBUILD,
+    $LIST_STATE
+);
+our @RECIPEFILES;
+our $DO_INIT        = 1;
+our $DO_INIT_TOPDIR = 1;
+our (
+    $RUNNING_IN_VM,           $RPMLIST,
+    $RELEASE,                 $REASON,
+    $NOROOTFORBUILD,          $LOGFILE,
+    $KILL,                    $DO_WIPE,
+    $SEND_SYSRQ,              $CHANGELOG,
+    $INCARNATION,             $DISTURL,
+    $LINKSOURCES,             $OVERLAY,
+    $RSYNCSRC,                $RSYNCDEST,
+    $RSYNCDONE,               $SIGNDUMMY,
+    $DO_STATISTICS,           $RUN_SHELL,
+    $RUN_SHELL_AFTER_FAIL,    $RUN_SHELL_CMD,
+    $CCACHE,                  $CCACHE_ARCHIVE,
+    $CCACHE_CREATE_ARCHIVE,   $CCACHE_TYPE,
+    $CCACHE_CLEAN,            $DLNOSIGNATURE,
+    $BUILD_FLAVOR,            $OBS_PACKAGE,
+    $OBSURL,                  $NO_TIMESTAMPS,
+    $CACHE_DIR,               $BUILD_DIST_TMP,
+    $BUILD_SUCCEEDED,         $COPY_SOURCES_ASIS,
+    $RECIPE_BUILD_START_TIME, $CCACHE_SETUP_START_TIME
+);
+
+# set all verbose modes to off by default
+our $BUILD_VERBOSE_VM;
+
+`sh ./prepare.sh`;
+
+=todo
+The help need to rewrite.
+=cut
+
+sub echo_help {
+    print << "EOT";
+	Some comments for build
+-----------------------
+
+With build you can create binary packages.  They will be built in a chroot
+system.  This chroot system will be setup automatically.  Normally you can
+simply call build with a spec file as parameter - nothing else has to be
+set.
+
+EOT
+}
+
+sub cleanup_and_exit {
+    my ($var, $msg)=@_;
+    $var=0 unless defined $var;
+    if(defined )    
+}
+
diff --git a/prepare.sh b/prepare.sh
new file mode 100644
index 0000000..b4b45b9
--- /dev/null
+++ b/prepare.sh
@@ -0,0 +1,10 @@
+#!/bin/sh
+# This is for insserv
+export YAST_IS_RUNNING=instsys
+# https://github.com/systemd/systemd/blob/master/docs/ENVIRONMENT.md
+export SYSTEMD_OFFLINE=1
+
+unset LANGUAGE
+unset LANG
+export LC_ALL=POSIX
+umask 022
\ No newline at end of file