mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
8a6d445d38
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@siriusit.co.uk> git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@708 f158a5a8-5612-0410-a976-696ce0be7e32
81 lines
1.8 KiB
C
81 lines
1.8 KiB
C
/* tag: forth source loader
|
|
*
|
|
* Copyright (C) 2004 Stefan Reinauer
|
|
*
|
|
* See the file "COPYING" for further information about
|
|
* the copyright and warranty status of this work.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include "kernel/kernel.h"
|
|
#include "libopenbios/bindings.h"
|
|
#include "libopenbios/sys_info.h"
|
|
#include "libc/diskio.h"
|
|
#include "boot.h"
|
|
#define printk printk
|
|
#define debug printk
|
|
|
|
static char *forthtext=NULL;
|
|
static int fd;
|
|
|
|
int forth_load(struct sys_info *info, const char *filename, const char *cmdline)
|
|
{
|
|
char magic[2];
|
|
unsigned long forthsize;
|
|
int retval = -1;
|
|
|
|
/* Mark the saved-program-state as invalid */
|
|
feval("0 state-valid !");
|
|
|
|
fd = open_io(filename);
|
|
if (!fd)
|
|
goto out;
|
|
|
|
if (read_io(fd, magic, 2) != 2) {
|
|
debug("Can't read magic header\n");
|
|
retval = LOADER_NOT_SUPPORT;
|
|
goto out;
|
|
}
|
|
|
|
if (magic[0] != '\\' || magic[1] != ' ') {
|
|
debug("No forth source image\n");
|
|
retval = LOADER_NOT_SUPPORT;
|
|
goto out;
|
|
}
|
|
|
|
/* Calculate the file size by seeking to the end of the file */
|
|
seek_io(fd, -1);
|
|
forthsize = tell(fd);
|
|
forthtext = malloc(forthsize+1);
|
|
seek_io(fd, 0);
|
|
|
|
printk("Loading forth source ...");
|
|
if (read_io(fd, forthtext, forthsize) != forthsize) {
|
|
printk("Can't read forth text\n");
|
|
goto out;
|
|
}
|
|
forthtext[forthsize]=0;
|
|
printk("ok\n");
|
|
|
|
close_io(fd);
|
|
|
|
// Initialise saved-program-state
|
|
PUSH((ucell)forthtext);
|
|
feval("saved-program-state >sps.entry !");
|
|
PUSH((ucell)forthsize);
|
|
feval("saved-program-state >sps.file-size !");
|
|
feval("forth saved-program-state >sps.file-type !");
|
|
|
|
feval("-1 state-valid !");
|
|
|
|
PUSH ( (ucell)forthtext );
|
|
PUSH ( (ucell)forthsize );
|
|
fword("eval2");
|
|
retval=0;
|
|
|
|
out:
|
|
//if (forthtext)
|
|
// free(forthtext);
|
|
return retval;
|
|
}
|