Home | History | Annotate | Line # | Download | only in cd9660 
      1 /* $NetBSD: cd9660_archimedes.c,v 1.3 2022/04/09 10:05:35 riastradh 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 #if HAVE_NBTOOL_CONFIG_H
     41 #include "nbtool_config.h"
     42 #endif
     43 
     44 #include <sys/cdefs.h>
     45 #if defined(__RCSID) && !defined(__lint)
     46 __RCSID("$NetBSD: cd9660_archimedes.c,v 1.3 2022/04/09 10:05:35 riastradh Exp $");
     47 #endif  /* !__lint */
     48 
     49 #include <assert.h>
     50 #include <stdint.h>
     51 #include <stdio.h>
     52 #include <string.h>
     53 #include <util.h>
     54 
     55 #include "makefs.h"
     56 #include "cd9660.h"
     57 #include "cd9660_archimedes.h"
     58 
     59 /*
     60  * Convert a Unix time_t (non-leap seconds since 1970-01-01) to a RISC
     61  * OS time (non-leap(?) centiseconds since 1900-01-01(?)).
     62  */
     63 
     64 static u_int64_t
     65 riscos_date(time_t unixtime)
     66 {
     67 	u_int64_t base;
     68 
     69 	base = 31536000ULL * 70 + 86400 * 17;
     70 	return (((u_int64_t)unixtime) + base)*100;
     71 }
     72 
     73 /*
     74  * Add "ARCHIMEDES" metadata to a node if that seems appropriate.
     75  *
     76  * We touch regular files with names matching /,[0-9a-f]{3}$/ and
     77  * directories matching /^!/.
     78  */
     79 static void
     80 archimedes_convert_node(cd9660node *node)
     81 {
     82 	struct ISO_ARCHIMEDES *arc;
     83 	size_t len;
     84 	int type = -1;
     85 	uint64_t stamp;
     86 
     87 	if (node->su_tail_data != NULL)
     88 		/* Something else already has the tail. */
     89 		return;
     90 
     91 	len = strlen(node->node->name);
     92 	if (len < 1) return;
     93 
     94 	if (len >= 4 && node->node->name[len-4] == ',')
     95 		/* XXX should support ,xxx and ,lxa */
     96 		type = strtoul(node->node->name + len - 3, NULL, 16);
     97 	if (type == -1 && node->node->name[0] != '!')
     98 		return;
     99 	if (type == -1) type = 0;
    100 
    101 	assert(sizeof(*arc) == 32);
    102 	arc = ecalloc(1, sizeof(*arc));
    103 
    104 	stamp = riscos_date(node->node->inode->st.st_mtime);
    105 
    106 	memcpy(arc->magic, "ARCHIMEDES", 10);
    107 	cd9660_731(0xfff00000 | (type << 8) | (stamp >> 32), arc->loadaddr);
    108 	cd9660_731(stamp & 0x00ffffffffULL, arc->execaddr);
    109 	arc->ro_attr = RO_ACCESS_UR | RO_ACCESS_OR;
    110 	arc->cdfs_attr = node->node->name[0] == '!' ? CDFS_PLING : 0;
    111 	node->su_tail_data = (void *)arc;
    112 	node->su_tail_size = sizeof(*arc);
    113 }
    114 
    115 /*
    116  * Add "ARCHIMEDES" metadata to an entire tree recursively.
    117  */
    118 void
    119 archimedes_convert_tree(cd9660node *node)
    120 {
    121 	cd9660node *cn;
    122 
    123 	assert(node != NULL);
    124 
    125 	archimedes_convert_node(node);
    126 
    127 		/* Recurse on children. */
    128 	TAILQ_FOREACH(cn, &node->cn_children, cn_next_child)
    129 		archimedes_convert_tree(cn);
    130 }
    131