From 38283e32ac53d1852d3b8471e2ad3a4292719270 Mon Sep 17 00:00:00 2001
From: Laurent Vivier <Laurent@vivier.eu>
Date: Tue, 1 Sep 2009 23:44:24 +0000
Subject: [PATCH] Use the load method to load and execute CHRP script.

This adds a better support of Apple BootX script.
However, "init-program" and "go" are always missing to be able to really boot with BootX.

Signed-off-by: Laurent Vivier <Laurent@vivier.eu>


git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@576 f158a5a8-5612-0410-a976-696ce0be7e32
---
 arch/ppc/qemu/main.c | 94 +++++++++++++++++++++++++++++---------------
 1 file changed, 63 insertions(+), 31 deletions(-)

diff --git a/arch/ppc/qemu/main.c b/arch/ppc/qemu/main.c
index 045390f..0296df1 100644
--- a/arch/ppc/qemu/main.c
+++ b/arch/ppc/qemu/main.c
@@ -38,6 +38,14 @@
 #define ELF_DPRINTF(fmt, args...) SUBSYS_DPRINTF("ELF", fmt, ##args)
 #define NEWWORLD_DPRINTF(fmt, args...) SUBSYS_DPRINTF("NEWWORLD", fmt, ##args)
 
+static void
+load(const char *path)
+{
+	char buffer[1024];
+	sprintf(buffer, "load %s", path);
+	feval(buffer);
+}
+
 static void
 transfer_control_to_elf( ulong elf_entry )
 {
@@ -235,10 +243,13 @@ try_path(const char *path, const char *param)
 static void
 try_chrp_script(const char *of_path, const char *param, const char *script_path)
 {
-    int fd, len, tag, taglen, script, scriptlen, entity;
-    char tagbuf[256], bootscript[2048], c;
+    int tag, taglen, script, scriptlen, entity, chrp;
+    char tagbuf[128], path[1024], c;
     char *device, *filename, *directory;
     int partition;
+    int current, size;
+    char *base;
+    char *bootscript;
 
     device = get_device(of_path);
     partition = get_partition(of_path);
@@ -249,31 +260,39 @@ try_chrp_script(const char *of_path, const char *param, const char *script_path)
     /* read boot script */
 
     if (partition == -1)
-        snprintf(bootscript, sizeof(bootscript), "%s:,%s",
+        snprintf(path, sizeof(path), "%s:,%s",
                  device, script_path);
     else
-        snprintf(bootscript, sizeof(bootscript), "%s:%d,%s",
+        snprintf(path, sizeof(path), "%s:%d,%s",
                  device, partition, script_path);
 
-    CHRP_DPRINTF("Trying %s\n", bootscript);
-    if ((fd = open_io(bootscript)) == -1) {
-        ELF_DPRINTF("Can't open %s\n", bootscript);
+    CHRP_DPRINTF("Trying %s\n", path);
+    load(path);
+    feval("load-size");
+    size = POP();
+    if (size == 0) {
+        ELF_DPRINTF("Can't open %s\n", of_path);
         return;
     }
-    len = read_io(fd, tagbuf, 11);
-    tagbuf[11] = '\0';
-    if (len < 0 || strcasecmp(tagbuf, "<chrp-boot>") != 0)
-        goto badf;
+    bootscript = malloc(size);
+    if (bootscript == NULL) {
+        ELF_DPRINTF("Can't malloc %d bytes\n", size);
+        return;
+    }
+    feval("load-base");
+    base = (char*)POP();
 
+    chrp = 0;
     tag = 0;
     taglen = 0;
     script = 0;
     scriptlen = 0;
     entity = 0;
-    do {
-        len = read_io(fd, &c, 1);
-        if (len < 0)
-            goto badf;
+    current = 0;
+    while (current < size) {
+
+        c = base[current++];
+
         if (c == '<') {
             script = 0;
             tag = 1;
@@ -281,12 +300,27 @@ try_chrp_script(const char *of_path, const char *param, const char *script_path)
         } else if (c == '>') {
             tag = 0;
             tagbuf[taglen] = '\0';
-            if (strcasecmp(tagbuf, "boot-script") == 0)
-                script = 1;
-            else if (strcasecmp(tagbuf, "/boot-script") == 0)
-                bootscript[scriptlen] = '\0';
-            else if (strcasecmp(tagbuf, "/chrp-boot") == 0)
-		break;
+            if (strcasecmp(tagbuf, "chrp-boot") == 0) {
+                chrp = 1;
+            } else if (chrp == 1) {
+                if (strcasecmp(tagbuf, "boot-script") == 0) {
+                    script = 1;
+                    scriptlen = 0;
+                } else if (strcasecmp(tagbuf, "/boot-script") == 0) {
+
+                    script = 0;
+                    bootscript[scriptlen] = '\0';
+
+                    CHRP_DPRINTF("got bootscript %s\n", bootscript);
+
+                    encode_bootpath(of_path, param);
+
+                    feval(bootscript);
+
+                    break;
+                } else if (strcasecmp(tagbuf, "/chrp-boot") == 0)
+		    break;
+            }
         } else if (tag && taglen < sizeof(tagbuf)) {
             tagbuf[taglen++] = c;
         } else if (script && c == '&') {
@@ -295,7 +329,11 @@ try_chrp_script(const char *of_path, const char *param, const char *script_path)
         } else if (entity && c ==';') {
             entity = 0;
             tagbuf[taglen] = '\0';
-            if (strcasecmp(tagbuf, "device") == 0) {
+            if (strcasecmp(tagbuf, "lt") == 0) {
+                bootscript[scriptlen++] = '<';
+            } else if (strcasecmp(tagbuf, "gt") == 0) {
+                bootscript[scriptlen++] = '>';
+            } else if (strcasecmp(tagbuf, "device") == 0) {
                 strcpy(bootscript + scriptlen, device);
                 scriptlen += strlen(device);
             } else if (strcasecmp(tagbuf, "partition") == 0) {
@@ -322,18 +360,12 @@ try_chrp_script(const char *of_path, const char *param, const char *script_path)
             }
         } else if (entity && taglen < sizeof(tagbuf)) {
             tagbuf[taglen++] = c;
-        } else if (script && scriptlen < sizeof(bootscript)) {
+        } else if (script && scriptlen < size) {
             bootscript[scriptlen++] = c;
         }
-    } while (1);
+    }
 
-    CHRP_DPRINTF("got bootscript %s\n", bootscript);
-
-    encode_bootpath(of_path, param);
-
-    feval(bootscript);
- badf:
-    close_io( fd );
+    free(bootscript);
 }
 
 #define OLDWORLD_BOOTCODE_BASEADDR	(0x3f4000)