usr.sbin/makefs/cd9660/cd9660_archimedes.c

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