Return to forth_load.c CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / libopenbios

Annotation of qemu/roms/openbios/libopenbios/forth_load.c, revision 1.1.1.1

1.1       root        1: /* tag: forth source loader
                      2:  *
                      3:  * Copyright (C) 2004 Stefan Reinauer
                      4:  *
                      5:  * See the file "COPYING" for further information about
                      6:  * the copyright and warranty status of this work.
                      7:  */
                      8: 
                      9: #include "config.h"
                     10: #include "kernel/kernel.h"
                     11: #include "libopenbios/bindings.h"
                     12: #include "libopenbios/sys_info.h"
                     13: #include "libc/diskio.h"
                     14: #include "libopenbios/forth_load.h"
                     15: #define printk printk
                     16: #define debug printk
                     17: 
                     18: static int fd;
                     19: static char *forthtext=NULL;
                     20: 
                     21: int is_forth(char *forth)
                     22: {
                     23:        return (forth[0] == '\\' && forth[1] == ' ');
                     24: }
                     25: 
                     26: int forth_load(ihandle_t dev)
                     27: {
                     28:     char magic[2];
                     29:     unsigned long forthsize;
                     30:     int retval = -1;
                     31: 
                     32:     /* Mark the saved-program-state as invalid */
                     33:     feval("0 state-valid !");
                     34: 
                     35:     fd = open_ih(dev);
                     36:     if (fd == -1) {
                     37:        goto out;
                     38:     }
                     39: 
                     40:     if (read_io(fd, magic, 2) != 2) {
                     41:        debug("Can't read magic header\n");
                     42:        retval = LOADER_NOT_SUPPORT;
                     43:        goto out;
                     44:     }
                     45: 
                     46:     if (!is_forth(magic)) {
                     47:        debug("No forth source image\n");
                     48:        retval = LOADER_NOT_SUPPORT;
                     49:        goto out;
                     50:     }
                     51: 
                     52:     /* Calculate the file size by seeking to the end of the file */
                     53:     seek_io(fd, -1);
                     54:     forthsize = tell(fd);
                     55:     forthtext = malloc(forthsize+1);
                     56:     seek_io(fd, 0);
                     57: 
                     58:     printk("Loading forth source ...");
                     59:     if ((size_t)read_io(fd, forthtext, forthsize) != forthsize) {
                     60:        printk("Can't read forth text\n");
                     61:        goto out;
                     62:     }
                     63:     forthtext[forthsize]=0;
                     64:     printk("ok\n");
                     65: 
                     66:     // Initialise saved-program-state
                     67:     PUSH((ucell)forthtext);
                     68:     feval("saved-program-state >sps.entry !");
                     69:     PUSH((ucell)forthsize);
                     70:     feval("saved-program-state >sps.file-size !");
                     71:     feval("forth saved-program-state >sps.file-type !");
                     72: 
                     73:     feval("-1 state-valid !");
                     74: 
                     75:     retval=0;
                     76: 
                     77: out:
                     78:     //if (forthtext)
                     79:     // free(forthtext);
                     80:     return retval;
                     81: }
                     82: 
                     83: void 
                     84: forth_init_program(void)
                     85: {
                     86:        // Currently not implemented
                     87:        feval("0 state-valid !");
                     88: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.