/* * This file is part of the LinuxBIOS project. * * Copyright (C) 2006-2007 coresystems GmbH * (Written by Stefan Reinauer for coresystems GmbH) * Copyright (C) 2007 Advanced Micro Devices, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; version 2 of the License. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA, 02110-1301 USA */ #include #include #include #include #ifndef CONFIG_BIG_ENDIAN #define ntohl(x) ( ((x&0xff)<<24) | ((x&0xff00)<<8) | \ ((x&0xff0000) >> 8) | ((x&0xff000000) >> 24) ) #else #define ntohl(x) (x) #endif int find_file(struct mem_file *archive, char *filename, struct mem_file *result) { char *walk, *fullname; struct lar_header *header; printk(BIOS_INFO, "LAR: Attempting to open '%s'.\n", filename); printk(BIOS_SPEW, "LAR: Start %p len 0x%x\n", archive->start, archive->len); for (walk = archive->start; (walk - 1) < (char *)(archive->start + archive->len - 1 ); walk += 16) { if (strcmp(walk, MAGIC) != 0) continue; header = (struct lar_header *)walk; fullname = walk + sizeof(struct lar_header); printk(BIOS_SPEW, "LAR: current filename is %s\n", fullname); // FIXME: check checksum if (strcmp(fullname, filename) == 0) { result->start = walk + ntohl(header->offset); result->len = ntohl(header->len); result->reallen = ntohl(header->reallen); result->compression = ntohl(header->compression); return 0; } // skip file walk += (ntohl(header->len) + ntohl(header->offset) - 1) & 0xfffffff0; } return 1; } int copy_file(struct mem_file *archive, char *filename, void *where) { int ret; struct mem_file result; ret = find_file(archive, filename, &result); if (ret) { printk(BIOS_INFO, "LAR: copy_file: No such file '%s'\n", filename); return 1; } printk(BIOS_SPEW, "LAR: Compression algorithm #%i used\n", result.compression); /* no compression */ if (result.compression == 0) { memcpy(where, result.start, result.len); return 0; } #ifdef CONFIG_COMPRESSION_LZMA /* lzma */ unsigned long ulzma(unsigned char * src, unsigned char * dst); if (result.compression == 1) { ulzma(result.start, where); return 0; } #endif #ifdef CONFIG_COMPRESSION_NRV2B /* nrv2b */ unsigned long unrv2b(u8 * src, u8 * dst, unsigned long *ilen_p); if (result.compression == 2) { int tmp; unrv2b(result.start, where, &tmp); return 0; } #endif printk(BIOS_INFO, "LAR: Compression algorithm #%i not supported!\n", result.compression); return 1; } /** * Find the file in the LAR header, copy it to the desired location, * and execute it. A location of 0xFFFFFFFF means execute in place (XIP). */ int run_file(struct mem_file *archive, char *filename, void *where) { int (*v) (void); struct mem_file result; if ((u32) where != 0xFFFFFFFF) { if (copy_file(archive, filename, where)) { printk(BIOS_INFO, "LAR: Run file %s failed: No such file.\n", filename); return 1; } } else { /* XIP */ if (find_file(archive, filename, &result)) { printk(BIOS_INFO, "LAR: Run file %s failed: No such file.\n", filename); return 1; } where = result.start; } v = where; return v(); } /** * Call run_file() to execute in place. */ int execute_in_place(struct mem_file *archive, char *filename) { return run_file(archive, filename, (void *) 0xFFFFFFFF); }