1 /*
2  * hfsutils - tools for reading and writing Macintosh HFS volumes
3  * Copyright (C) 1996, 1997 Robert Leslie
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software
17  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18  */
19 
20 # include <string.h>
21 # include <time.h>
22 
23 # include "internal.h"
24 # include "data.h"
25 # include "btree.h"
26 
27 # define MUTDIFF  2082844800L
28 
29 static
30 unsigned long tzdiff = -1;
31 
32 unsigned char hfs_charorder[256] = {
33   0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
34   0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
35   0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
36   0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f,
37 
38   0x20, 0x22, 0x23, 0x28, 0x29, 0x2a, 0x2b, 0x2c,
39   0x2f, 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36,
40   0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e,
41   0x3f, 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46,
42 
43   0x47, 0x48, 0x58, 0x5a, 0x5e, 0x60, 0x67, 0x69,
44   0x6b, 0x6d, 0x73, 0x75, 0x77, 0x79, 0x7b, 0x7f,
45   0x8d, 0x8f, 0x91, 0x93, 0x96, 0x98, 0x9f, 0xa1,
46   0xa3, 0xa5, 0xa8, 0xaa, 0xab, 0xac, 0xad, 0xae,
47 
48   0x54, 0x48, 0x58, 0x5a, 0x5e, 0x60, 0x67, 0x69,
49   0x6b, 0x6d, 0x73, 0x75, 0x77, 0x79, 0x7b, 0x7f,
50   0x8d, 0x8f, 0x91, 0x93, 0x96, 0x98, 0x9f, 0xa1,
51   0xa3, 0xa5, 0xa8, 0xaf, 0xb0, 0xb1, 0xb2, 0xb3,
52 
53   0x4c, 0x50, 0x5c, 0x62, 0x7d, 0x81, 0x9a, 0x55,
54   0x4a, 0x56, 0x4c, 0x4e, 0x50, 0x5c, 0x62, 0x64,
55   0x65, 0x66, 0x6f, 0x70, 0x71, 0x72, 0x7d, 0x89,
56   0x8a, 0x8b, 0x81, 0x83, 0x9c, 0x9d, 0x9e, 0x9a,
57 
58   0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0x95,
59   0xbb, 0xbc, 0xbd, 0xbe, 0xbf, 0xc0, 0x52, 0x85,
60   0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8,
61   0xc9, 0xca, 0xcb, 0x57, 0x8c, 0xcc, 0x52, 0x85,
62 
63   0xcd, 0xce, 0xcf, 0xd0, 0xd1, 0xd2, 0xd3, 0x26,
64   0x27, 0xd4, 0x20, 0x4a, 0x4e, 0x83, 0x87, 0x87,
65   0xd5, 0xd6, 0x24, 0x25, 0x2d, 0x2e, 0xd7, 0xd8,
66   0xa7, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0xdf,
67 
68   0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7,
69   0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
70   0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
71   0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff
72 };
73 
74 /*
75  * NAME:	data->getb()
76  * DESCRIPTION:	marshal 1 byte into local host format
77  */
78 char d_getb(unsigned char *ptr)
79 {
80   return (char) ptr[0];
81 }
82 
83 /*
84  * NAME:	data->getw()
85  * DESCRIPTION:	marshal 2 bytes into local host format
86  */
87 short d_getw(unsigned char *ptr)
88 {
89   return (short)
90     ((ptr[0] << 8) |
91      (ptr[1] << 0));
92 }
93 
94 /*
95  * NAME:	data->getl()
96  * DESCRIPTION:	marshal 4 bytes into local host format
97  */
98 long d_getl(unsigned char *ptr)
99 {
100   return (long)
101     ((ptr[0] << 24) |
102      (ptr[1] << 16) |
103      (ptr[2] <<  8) |
104      (ptr[3] <<  0));
105 }
106 
107 /*
108  * NAME:	data->putb()
109  * DESCRIPTION:	marshal 1 byte out to Macintosh (big-endian) format
110  */
111 void d_putb(unsigned char *ptr, char data)
112 {
113   ptr[0] = (unsigned char) data;
114 }
115 
116 /*
117  * NAME:	data->putw()
118  * DESCRIPTION:	marshal 2 bytes out to Macintosh (big-endian) format
119  */
120 void d_putw(unsigned char *ptr, short data)
121 {
122   ptr[0] = ((unsigned short) data & 0xff00) >> 8;
123   ptr[1] = ((unsigned short) data & 0x00ff) >> 0;
124 }
125 
126 /*
127  * NAME:	data->putl()
128  * DESCRIPTION:	marshal 4 bytes out to Macintosh (big-endian) format
129  */
130 void d_putl(unsigned char *ptr, long data)
131 {
132   ptr[0] = ((unsigned long) data & 0xff000000) >> 24;
133   ptr[1] = ((unsigned long) data & 0x00ff0000) >> 16;
134   ptr[2] = ((unsigned long) data & 0x0000ff00) >>  8;
135   ptr[3] = ((unsigned long) data & 0x000000ff) >>  0;
136 }
137 
138 /*
139  * NAME:	data->fetchb()
140  * DESCRIPTION:	incrementally retrieve a byte of data
141  */
142 void d_fetchb(unsigned char **ptr, char *dest)
143 {
144   *dest = d_getb(*ptr);
145   *ptr += 1;
146 }
147 
148 /*
149  * NAME:	data->fetchw()
150  * DESCRIPTION:	incrementally retrieve a word of data
151  */
152 void d_fetchw(unsigned char **ptr, short *dest)
153 {
154   *dest = d_getw(*ptr);
155   *ptr += 2;
156 }
157 
158 /*
159  * NAME:	data->fetchl()
160  * DESCRIPTION:	incrementally retrieve a long word of data
161  */
162 void d_fetchl(unsigned char **ptr, long *dest)
163 {
164   *dest = d_getl(*ptr);
165   *ptr += 4;
166 }
167 
168 /*
169  * NAME:	data->fetchs()
170  * DESCRIPTION:	incrementally retrieve a string
171  */
172 void d_fetchs(unsigned char **ptr, char *dest, int size)
173 {
174   int len;
175   char blen;
176 
177   d_fetchb(ptr, &blen);
178   len = blen;
179 
180   if (len > 0 && len < size)
181     memcpy(dest, *ptr, len);
182   else
183     len = 0;
184 
185   dest[len] = 0;
186 
187   *ptr += size - 1;
188 }
189 
190 /*
191  * NAME:	data->storeb()
192  * DESCRIPTION:	incrementally store a byte of data
193  */
194 void d_storeb(unsigned char **ptr, char data)
195 {
196   d_putb(*ptr, data);
197   *ptr += 1;
198 }
199 
200 /*
201  * NAME:	data->storew()
202  * DESCRIPTION:	incrementally store a word of data
203  */
204 void d_storew(unsigned char **ptr, short data)
205 {
206   d_putw(*ptr, data);
207   *ptr += 2;
208 }
209 
210 /*
211  * NAME:	data->storel()
212  * DESCRIPTION:	incrementally store a long word of data
213  */
214 void d_storel(unsigned char **ptr, long data)
215 {
216   d_putl(*ptr, data);
217   *ptr += 4;
218 }
219 
220 /*
221  * NAME:	data->stores()
222  * DESCRIPTION:	incrementally store a string
223  */
224 void d_stores(unsigned char **ptr, char *src, int size)
225 {
226   int len;
227 
228   len = strlen(src);
229   if (len > --size)
230     len = 0;
231 
232   d_storeb(ptr, (unsigned char) len);
233 
234   memcpy(*ptr, src, len);
235   memset(*ptr + len, 0, size - len);
236 
237   *ptr += size;
238 }
239 
240 /*
241  * NAME:	calctzdiff()
242  * DESCRIPTION:	calculate the timezone difference between local time and UTC
243  */
244 static
245 void calctzdiff(void)
246 {
247   time_t t;
248   int isdst;
249   struct tm tm, *tmp;
250 
251   time(&t);
252   isdst = localtime(&t)->tm_isdst;
253 
254   tmp = gmtime(&t);
255   if (tmp)
256     {
257       tm = *tmp;
258       tm.tm_isdst = isdst;
259 
260       tzdiff = t - mktime(&tm);
261     }
262   else
263     tzdiff = 0;
264 }
265 
266 /*
267  * NAME:	data->tomtime()
268  * DESCRIPTION:	convert UNIX time to Macintosh time
269  */
270 unsigned long d_tomtime(unsigned long secs)
271 {
272   time_t utime = secs;
273 
274   if (tzdiff == -1)
275     calctzdiff();
276 
277   return utime + tzdiff + MUTDIFF;
278 }
279 
280 /*
281  * NAME:	data->toutime()
282  * DESCRIPTION:	convert Macintosh time to UNIX time
283  */
284 unsigned long d_toutime(unsigned long secs)
285 {
286   time_t utime = secs;
287 
288   if (tzdiff == -1)
289     calctzdiff();
290 
291   return utime - MUTDIFF - tzdiff;
292 }
293 
294 /*
295  * NAME:	data->relstring()
296  * DESCRIPTION:	compare two strings as per MacOS for HFS
297  */
298 int d_relstring(char *str1, char *str2)
299 {
300   int diff;
301 
302   while (*str1 && *str2)
303     {
304       diff = hfs_charorder[(unsigned char) *str1] -
305 	     hfs_charorder[(unsigned char) *str2];
306 
307       if (diff)
308 	return diff;
309 
310       ++str1, ++str2;
311     }
312 
313   if (! *str1 && *str2)
314     return -1;
315   else if (*str1 && ! *str2)
316     return 1;
317 
318   return 0;
319 }
320