The R13B03 release.OTP_R13B03

1 files changed, 130 insertions, 0 deletions

diff --git a/erts/emulator/sys/unix/erl9_start.c b/erts/emulator/sys/unix/erl9_start.c
new file mode 100644
index 0000000000..578062d7e2
--- /dev/null
+++ b/erts/emulator/sys/unix/erl9_start.c
@@ -0,0 +1,130 @@
+/*
+ * %CopyrightBegin%
+ * 
+ * Copyright Ericsson AB 2002-2009. All Rights Reserved.
+ * 
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ * 
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ * 
+ * %CopyrightEnd%
+ */
+#ifdef HAVE_CONFIG_H
+#  include "config.h"
+#endif
+#include "sys.h"
+#include "erl_vm.h"
+#include "global.h"
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+
+/*
+ * XXX This is a temporary dummy to make sys.c happy until we'll rewrite it.
+ */
+unsigned preloaded_size_ring0 = 1;
+unsigned char preloaded_ring0[1] = {0};
+
+Preload pre_loaded[] = {
+    {"ring0", 1, preloaded_ring0},
+    {0, 0, 0}
+};
+
+int
+main(int argc, char** argv)
+{
+    char sbuf[1024];
+    struct {
+	void* p;
+	int sz;
+    } bins[2];
+    int bin_num = 0;
+    FILE* fp;
+    char* progname = argv[0];
+    char* eq;
+
+    argv++, argc--;
+
+    if (argc > 0 && argv[0][0] == '-') {
+	argv++, argc--;
+    }
+    if (argc < 1) {
+	abort();
+    }
+    if ((fp = fopen(argv[0], "r")) == NULL) {
+	abort();
+    }
+    
+    /* Needs to be called before any memory allocation */
+    erts_short_init();
+
+    while (fgets(sbuf, sizeof sbuf, fp)) {
+	if (sbuf[0] == '#') {
+	    continue;		/* Comment */
+	} else if (sbuf[0] == 'e' && strncmp("exec", sbuf, 4) == 0) {
+	    continue;		/* Comment ;-) */
+	} else if ((eq = strchr(sbuf, '=')) != NULL) {
+	    char* val;
+	    char* p = strchr(sbuf, '\n');
+	    if (p) {
+		*p = '\0';
+	    }
+	    *eq = '\0';
+	    val = erts_read_env(sbuf);
+	    if (val == NULL) {
+		*eq = '=';
+		erts_sys_putenv(sbuf, eq - &sbuf[0]);
+	    }
+	    erts_free_read_env(val);
+	} else if (sbuf[0] == ':' && '0' <= sbuf[1] && sbuf[1] <= '9') {
+	    int load_size = atoi(sbuf+1);
+	    void* bin;
+	    
+	    bin = malloc(load_size);
+	    if (fread(bin, 1, load_size, fp) != load_size) {
+		abort();
+	    }
+	    bins[bin_num].p = bin;
+	    bins[bin_num].sz = load_size;
+	    bin_num++;
+	} else if (strcmp(sbuf, "--end--\n") == 0) {
+	    int rval;
+	    Eterm mod = NIL;
+	    char *val;
+
+	    fclose(fp);
+
+	    if (bin_num != 2) {
+		abort();
+	    }
+
+	    val = erts_read_env("ERLBREAKHANDLER");
+ 	    if (val) {
+		init_break_handler();
+	    }
+	    erts_free_read_env(val);
+
+	    if ((rval = erts_load_module(NULL, 0, NIL, &mod, bins[0].p, bins[0].sz)) < 0) {
+		fprintf(stderr, "%s: Load of initial module failed: %d\n",
+			progname, rval);
+		abort();
+	    }
+	    erts_first_process(mod, bins[1].p, bins[1].sz, argc, argv);
+	    free(bins[0].p);
+	    free(bins[1].p);
+	    process_main();
+	    abort();
+	} else {
+	    fprintf(stderr, "%s: bad line: %s\n", progname, sbuf);
+	    abort();
+	}
+    }
+    abort();
+}