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