1/* $NetBSD: cd9660_archimedes.c,v 1.1 2009/01/10 22:06:29 bjh21 Exp $ */ 2 3/*- 4 * Copyright (c) 1998, 2009 Ben Harris 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. The name of the author may not be used to endorse or promote products 16 * derived from this software without specific prior written permission. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28 */ 29/* 30 * cd9660_archimedes.c - support for RISC OS "ARCHIMEDES" extension 31 * 32 * RISC OS CDFS looks for a special block at the end of the System Use 33 * Field for each file. If present, this contains the RISC OS load 34 * and exec address (used to hold the file timestamp and type), the 35 * file attributes, and a flag indicating whether the first character 36 * of the filename should be replaced with '!' (since many special 37 * RISC OS filenames do). 38 */ 39 40#include <sys/cdefs.h> 41__FBSDID("$FreeBSD$"); 42 43#include <assert.h> 44#include <stdint.h> 45#include <stdio.h> 46#include <string.h> 47 48#include "makefs.h" 49#include "cd9660.h" 50#include "cd9660_archimedes.h" 51 52/* 53 * Convert a Unix time_t (non-leap seconds since 1970-01-01) to a RISC 54 * OS time (non-leap(?) centiseconds since 1900-01-01(?)). 55 */ 56 57static u_int64_t 58riscos_date(time_t unixtime) 59{ 60 u_int64_t base; 61 62 base = 31536000ULL * 70 + 86400 * 17; 63 return (((u_int64_t)unixtime) + base)*100; 64} 65 66/* 67 * Add "ARCHIMEDES" metadata to a node if that seems appropriate. 68 * 69 * We touch regular files with names matching /,[0-9a-f]{3}$/ and 70 * directories matching /^!/. 71 */ 72static void 73archimedes_convert_node(cd9660node *node) 74{ 75 struct ISO_ARCHIMEDES *arc; 76 size_t len; 77 int type = -1; 78 uint64_t stamp; 79 80 if (node->su_tail_data != NULL) 81 /* Something else already has the tail. */ 82 return; 83 84 len = strlen(node->node->name); 85 if (len < 1) return; 86 87 if (len >= 4 && node->node->name[len-4] == ',') 88 /* XXX should support ,xxx and ,lxa */ 89 type = strtoul(node->node->name + len - 3, NULL, 16); 90 if (type == -1 && node->node->name[0] != '!') 91 return; 92 if (type == -1) type = 0; 93 94 assert(sizeof(struct ISO_ARCHIMEDES) == 32); 95 if ((arc = calloc(1, sizeof(struct ISO_ARCHIMEDES))) == NULL) { 96 CD9660_MEM_ALLOC_ERROR("archimedes_convert_node"); 97 exit(1); 98 } 99 100 stamp = riscos_date(node->node->inode->st.st_mtime); 101 102 memcpy(arc->magic, "ARCHIMEDES", 10); 103 cd9660_731(0xfff00000 | (type << 8) | (stamp >> 32), arc->loadaddr); 104 cd9660_731(stamp & 0x00ffffffffULL, arc->execaddr); 105 arc->ro_attr = RO_ACCESS_UR | RO_ACCESS_OR; 106 arc->cdfs_attr = node->node->name[0] == '!' ? CDFS_PLING : 0; 107 node->su_tail_data = (void *)arc; 108 node->su_tail_size = sizeof(*arc); 109} 110 111/* 112 * Add "ARCHIMEDES" metadata to an entire tree recursively. 113 */ 114void 115archimedes_convert_tree(cd9660node *node) 116{ 117 cd9660node *cn; 118 119 assert(node != NULL); 120 121 archimedes_convert_node(node); 122 123 /* Recurse on children. */ 124 TAILQ_FOREACH(cn, &node->cn_children, cn_next_child) 125 archimedes_convert_tree(cn); 126} 127