nkeynes@26 | 1 | /**
|
nkeynes@502 | 2 | * $Id: loader.c,v 1.22 2007-11-08 11:54:16 nkeynes Exp $
|
nkeynes@1 | 3 | *
|
nkeynes@26 | 4 | * File loading routines, mostly for loading demos without going through the
|
nkeynes@26 | 5 | * whole procedure of making a CD image for them.
|
nkeynes@26 | 6 | *
|
nkeynes@26 | 7 | * Copyright (c) 2005 Nathan Keynes.
|
nkeynes@26 | 8 | *
|
nkeynes@26 | 9 | * This program is free software; you can redistribute it and/or modify
|
nkeynes@26 | 10 | * it under the terms of the GNU General Public License as published by
|
nkeynes@26 | 11 | * the Free Software Foundation; either version 2 of the License, or
|
nkeynes@26 | 12 | * (at your option) any later version.
|
nkeynes@26 | 13 | *
|
nkeynes@26 | 14 | * This program is distributed in the hope that it will be useful,
|
nkeynes@26 | 15 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
nkeynes@26 | 16 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
nkeynes@26 | 17 | * GNU General Public License for more details.
|
nkeynes@1 | 18 | */
|
nkeynes@1 | 19 |
|
nkeynes@481 | 20 | #include <unistd.h>
|
nkeynes@1 | 21 | #include <stdio.h>
|
nkeynes@1 | 22 | #include <fcntl.h>
|
nkeynes@1 | 23 | #include <sys/stat.h>
|
nkeynes@1 | 24 | #include <errno.h>
|
nkeynes@1 | 25 | #include <stdint.h>
|
nkeynes@105 | 26 | #include <elf.h>
|
nkeynes@26 | 27 | #include "mem.h"
|
nkeynes@1 | 28 | #include "sh4core.h"
|
nkeynes@26 | 29 | #include "bootstrap.h"
|
nkeynes@171 | 30 | #include "dreamcast.h"
|
nkeynes@450 | 31 | #include "config.h"
|
nkeynes@427 | 32 | #include "loader.h"
|
nkeynes@427 | 33 | #include "syscall.h"
|
nkeynes@537 | 34 | #include "gui.h"
|
nkeynes@481 | 35 |
|
nkeynes@26 | 36 | char bootstrap_magic[32] = "SEGA SEGAKATANA SEGA ENTERPRISES";
|
nkeynes@1 | 37 | char iso_magic[6] = "\001CD001";
|
nkeynes@26 | 38 | char *file_loader_extensions[][2] = {
|
nkeynes@26 | 39 | { "sbi", "Self Boot Inducer" },
|
nkeynes@26 | 40 | { "bin", "SH4 Bin file" },
|
nkeynes@26 | 41 | { NULL, NULL } };
|
nkeynes@26 | 42 |
|
nkeynes@26 | 43 | #define BOOTSTRAP_LOAD_ADDR 0x8C008000
|
nkeynes@26 | 44 | #define BOOTSTRAP_SIZE 32768
|
nkeynes@26 | 45 |
|
nkeynes@26 | 46 | #define BINARY_LOAD_ADDR 0x8C010000
|
nkeynes@1 | 47 |
|
nkeynes@1 | 48 | #define CDI_V2 0x80000004
|
nkeynes@1 | 49 | #define CDI_V3 0x80000005
|
nkeynes@1 | 50 |
|
nkeynes@446 | 51 | gboolean file_load_elf_fd( int fd );
|
nkeynes@427 | 52 |
|
nkeynes@427 | 53 |
|
nkeynes@26 | 54 | gboolean file_load_magic( const gchar *filename )
|
nkeynes@1 | 55 | {
|
nkeynes@1 | 56 | char buf[32];
|
nkeynes@1 | 57 | struct stat st;
|
nkeynes@446 | 58 | gboolean result = TRUE;
|
nkeynes@1 | 59 |
|
nkeynes@1 | 60 | int fd = open( filename, O_RDONLY );
|
nkeynes@1 | 61 | if( fd == -1 ) {
|
nkeynes@26 | 62 | return FALSE;
|
nkeynes@1 | 63 | }
|
nkeynes@88 | 64 |
|
nkeynes@1 | 65 | fstat( fd, &st );
|
nkeynes@1 | 66 |
|
nkeynes@1 | 67 | /* begin magic */
|
nkeynes@1 | 68 | if( read( fd, buf, 32 ) != 32 ) {
|
nkeynes@1 | 69 | ERROR( "Unable to read from file '%s'", filename );
|
nkeynes@1 | 70 | close(fd);
|
nkeynes@26 | 71 | return FALSE;
|
nkeynes@1 | 72 | }
|
nkeynes@26 | 73 | if( memcmp( buf, bootstrap_magic, 32 ) == 0 ) {
|
nkeynes@1 | 74 | /* we have a DC bootstrap */
|
nkeynes@1 | 75 | if( st.st_size == BOOTSTRAP_SIZE ) {
|
nkeynes@502 | 76 | sh4ptr_t load = mem_get_region( BOOTSTRAP_LOAD_ADDR );
|
nkeynes@1 | 77 | lseek( fd, 0, SEEK_SET );
|
nkeynes@1 | 78 | read( fd, load, BOOTSTRAP_SIZE );
|
nkeynes@171 | 79 | bootstrap_dump( load, TRUE );
|
nkeynes@1 | 80 | sh4_set_pc( BOOTSTRAP_LOAD_ADDR + 0x300 );
|
nkeynes@537 | 81 | gui_update_state();
|
nkeynes@1 | 82 | } else {
|
nkeynes@1 | 83 | /* look for a valid ISO9660 header */
|
nkeynes@1 | 84 | lseek( fd, 32768, SEEK_SET );
|
nkeynes@1 | 85 | read( fd, buf, 8 );
|
nkeynes@1 | 86 | if( memcmp( buf, iso_magic, 6 ) == 0 ) {
|
nkeynes@1 | 87 | /* Alright, got it */
|
nkeynes@1 | 88 | INFO( "Loading ISO9660 filesystem from '%s'",
|
nkeynes@1 | 89 | filename );
|
nkeynes@1 | 90 | }
|
nkeynes@1 | 91 | }
|
nkeynes@26 | 92 | } else if( memcmp( buf, "PK\x03\x04", 4 ) == 0 ) {
|
nkeynes@26 | 93 | /* ZIP file, aka SBI file */
|
nkeynes@26 | 94 | WARN( "SBI files not supported yet" );
|
nkeynes@446 | 95 | result = FALSE;
|
nkeynes@294 | 96 | } else if( memcmp( buf, DREAMCAST_SAVE_MAGIC, 16 ) == 0 ) {
|
nkeynes@294 | 97 | /* Save state */
|
nkeynes@446 | 98 | result = (dreamcast_load_state( filename )==0);
|
nkeynes@105 | 99 | } else if( buf[0] == 0x7F && buf[1] == 'E' &&
|
nkeynes@105 | 100 | buf[2] == 'L' && buf[3] == 'F' ) {
|
nkeynes@88 | 101 | /* ELF binary */
|
nkeynes@105 | 102 | lseek( fd, 0, SEEK_SET );
|
nkeynes@446 | 103 | result = file_load_elf_fd( fd );
|
nkeynes@1 | 104 | } else {
|
nkeynes@446 | 105 | result = FALSE;
|
nkeynes@446 | 106 | }
|
nkeynes@1 | 107 | close(fd);
|
nkeynes@446 | 108 | return result;
|
nkeynes@1 | 109 | }
|
nkeynes@19 | 110 |
|
nkeynes@427 | 111 | void file_load_postload( int pc )
|
nkeynes@110 | 112 | {
|
nkeynes@450 | 113 | const gchar *bootstrap_file = lxdream_get_config_value(CONFIG_BOOTSTRAP);
|
nkeynes@88 | 114 | if( bootstrap_file != NULL ) {
|
nkeynes@88 | 115 | /* Load in a bootstrap before the binary, to initialize everything
|
nkeynes@88 | 116 | * correctly
|
nkeynes@88 | 117 | */
|
nkeynes@180 | 118 | if( mem_load_block( bootstrap_file, BOOTSTRAP_LOAD_ADDR, BOOTSTRAP_SIZE ) != 0 ) {
|
nkeynes@180 | 119 | /* Try it without the bootstrap */
|
nkeynes@180 | 120 | sh4_set_pc( pc );
|
nkeynes@180 | 121 | } else {
|
nkeynes@180 | 122 | sh4_set_pc( BOOTSTRAP_LOAD_ADDR + 0x300 );
|
nkeynes@180 | 123 | }
|
nkeynes@88 | 124 | } else {
|
nkeynes@110 | 125 | sh4_set_pc( pc );
|
nkeynes@88 | 126 | }
|
nkeynes@93 | 127 | bios_install();
|
nkeynes@110 | 128 | dcload_install();
|
nkeynes@537 | 129 | gui_update_state();
|
nkeynes@110 | 130 | }
|
nkeynes@110 | 131 |
|
nkeynes@110 | 132 |
|
nkeynes@427 | 133 | gboolean file_load_binary( const gchar *filename )
|
nkeynes@110 | 134 | {
|
nkeynes@110 | 135 | /* Load the binary itself */
|
nkeynes@427 | 136 | if( mem_load_block( filename, BINARY_LOAD_ADDR, -1 ) == 0 ) {
|
nkeynes@427 | 137 | file_load_postload( BINARY_LOAD_ADDR );
|
nkeynes@427 | 138 | return TRUE;
|
nkeynes@427 | 139 | } else {
|
nkeynes@427 | 140 | return FALSE;
|
nkeynes@427 | 141 | }
|
nkeynes@19 | 142 | }
|
nkeynes@105 | 143 |
|
nkeynes@446 | 144 | gboolean file_load_elf_fd( int fd )
|
nkeynes@105 | 145 | {
|
nkeynes@105 | 146 | Elf32_Ehdr head;
|
nkeynes@105 | 147 | Elf32_Phdr phdr;
|
nkeynes@105 | 148 | int i;
|
nkeynes@105 | 149 |
|
nkeynes@105 | 150 | if( read( fd, &head, sizeof(head) ) != sizeof(head) )
|
nkeynes@446 | 151 | return FALSE;
|
nkeynes@105 | 152 | if( head.e_ident[EI_CLASS] != ELFCLASS32 ||
|
nkeynes@105 | 153 | head.e_ident[EI_DATA] != ELFDATA2LSB ||
|
nkeynes@105 | 154 | head.e_ident[EI_VERSION] != 1 ||
|
nkeynes@105 | 155 | head.e_type != ET_EXEC ||
|
nkeynes@105 | 156 | head.e_machine != EM_SH ||
|
nkeynes@105 | 157 | head.e_version != 1 ) {
|
nkeynes@105 | 158 | ERROR( "File is not an SH4 ELF executable file" );
|
nkeynes@446 | 159 | return FALSE;
|
nkeynes@105 | 160 | }
|
nkeynes@105 | 161 |
|
nkeynes@105 | 162 | /* Program headers */
|
nkeynes@105 | 163 | for( i=0; i<head.e_phnum; i++ ) {
|
nkeynes@105 | 164 | lseek( fd, head.e_phoff + i*head.e_phentsize, SEEK_SET );
|
nkeynes@105 | 165 | read( fd, &phdr, sizeof(phdr) );
|
nkeynes@105 | 166 | if( phdr.p_type == PT_LOAD ) {
|
nkeynes@105 | 167 | lseek( fd, phdr.p_offset, SEEK_SET );
|
nkeynes@502 | 168 | sh4ptr_t target = mem_get_region( phdr.p_vaddr );
|
nkeynes@105 | 169 | read( fd, target, phdr.p_filesz );
|
nkeynes@105 | 170 | if( phdr.p_memsz > phdr.p_filesz ) {
|
nkeynes@105 | 171 | memset( target + phdr.p_filesz, 0, phdr.p_memsz - phdr.p_filesz );
|
nkeynes@105 | 172 | }
|
nkeynes@105 | 173 | INFO( "Loaded %d bytes to %08X", phdr.p_filesz, phdr.p_vaddr );
|
nkeynes@105 | 174 | }
|
nkeynes@105 | 175 | }
|
nkeynes@110 | 176 |
|
nkeynes@427 | 177 | file_load_postload( head.e_entry );
|
nkeynes@446 | 178 | return TRUE;
|
nkeynes@105 | 179 | }
|