src/AmigaOS/extfs_amiga.cpp

/*
 *  extfs_amiga.cpp - MacOS file system for access native file system access, AmigaOS specific stuff
 *
 *  Basilisk II (C) 1997-1999 Christian Bauer
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include <exec/types.h>
#include <proto/dos.h>

#include <sys/types.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <dirent.h>
#include <errno.h>

#include "sysdeps.h"
#include "extfs.h"
#include "extfs_defs.h"

#define DEBUG 0
#include "debug.h"


// Default Finder flags
const uint16 DEFAULT_FINDER_FLAGS = kHasBeenInited;


/*
 *  Initialization
 */

void extfs_init(void)
{
}


/*
 *  Deinitialization
 */

void extfs_exit(void)
{
}


/*
 *  Add component to path name
 */

void add_path_component(char *path, const char *component)
{
        AddPart(path, (char *)component, MAX_PATH_LENGTH);
}


/*
 *  Finder info and resource forks are kept in helper files
 *
 *  Finder info:
 *    /path/.finf/file
 *  Resource fork:
 *    /path/.rsrc/file
 */

// Layout of Finder info helper files (all fields big-endian)
struct finf_struct {
        uint32 type;
        uint32 creator;
        uint16 flags;
        uint16 pad0;
};

static void make_helper_path(const char *src, char *dest, const char *add, bool only_dir = false)
{
        dest[0] = 0;

        // Get pointer to last component of path
        const char *last_part = FilePart((char *)src);

        // Copy everything before
        strncpy(dest, src, last_part-src);
        dest[last_part-src] = 0;

        // Add additional component
        AddPart(dest, (char *)add, MAX_PATH_LENGTH);

        // Add last component
        if (!only_dir)
                AddPart(dest, (char *)last_part, MAX_PATH_LENGTH);
}

static int create_helper_dir(const char *path, const char *add)
{
        char helper_dir[MAX_PATH_LENGTH];
        make_helper_path(path, helper_dir, add, true);
        return mkdir(helper_dir, 0777);
}

static int open_helper(const char *path, const char *add, int flag)
{
        char helper_path[MAX_PATH_LENGTH];
        make_helper_path(path, helper_path, add);

        if ((flag & O_ACCMODE) == O_RDWR || (flag & O_ACCMODE) == O_WRONLY)
                flag |= O_CREAT;
        int fd = open(helper_path, flag, 0666);
        if (fd < 0) {
                if (errno == ENOENT && (flag & O_CREAT)) {
                        // One path component was missing, probably the helper
                        // directory. Try to create it and re-open the file.
                        int ret = create_helper_dir(path, add);
                        if (ret < 0)
                                return ret;
                        fd = open(helper_path, flag, 0666);
                }
        }
        return fd;
}

static int open_finf(const char *path, int flag)
{
        return open_helper(path, ".finf/", flag);
}

static int open_rsrc(const char *path, int flag)
{
        return open_helper(path, ".rsrc/", flag);
}


/*
 *  Get/set finder type/creator for file specified by full path
 */

struct ext2type {
        const char *ext;
        uint32 type;
        uint32 creator;
};

static const ext2type e2t_translation[] = {
        {".Z", 'ZIVM', 'LZIV'},
        {".gz", 'Gzip', 'Gzip'},
        {".hqx", 'TEXT', 'SITx'},
        {".pdf", 'PDF ', 'CARO'},
        {".ps", 'TEXT', 'ttxt'},
        {".sit", 'SIT!', 'SITx'},
        {".tar", 'TARF', 'TAR '},
        {".uu", 'TEXT', 'SITx'},
        {".uue", 'TEXT', 'SITx'},
        {".zip", 'ZIP ', 'ZIP '},
        {".8svx", '8SVX', 'SNDM'},
        {".aifc", 'AIFC', 'TVOD'},
        {".aiff", 'AIFF', 'TVOD'},
        {".au", 'ULAW', 'TVOD'},
        {".mid", 'MIDI', 'TVOD'},
        {".midi", 'MIDI', 'TVOD'},
        {".mp2", 'MPG ', 'TVOD'},
        {".mp3", 'MPG ', 'TVOD'},
        {".wav", 'WAVE', 'TVOD'},
        {".bmp", 'BMPf', 'ogle'},
        {".gif", 'GIFf', 'ogle'},
        {".lbm", 'ILBM', 'GKON'},
        {".ilbm", 'ILBM', 'GKON'},
        {".jpg", 'JPEG', 'ogle'},
        {".jpeg", 'JPEG', 'ogle'},
        {".pict", 'PICT', 'ogle'},
        {".png", 'PNGf', 'ogle'},
        {".sgi", '.SGI', 'ogle'},
        {".tga", 'TPIC', 'ogle'},
        {".tif", 'TIFF', 'ogle'},
        {".tiff", 'TIFF', 'ogle'},
        {".html", 'TEXT', 'MOSS'},
        {".txt", 'TEXT', 'ttxt'},
        {".rtf", 'TEXT', 'MSWD'},
        {".c", 'TEXT', 'R*ch'},
        {".C", 'TEXT', 'R*ch'},
        {".cc", 'TEXT', 'R*ch'},
        {".cpp", 'TEXT', 'R*ch'},
        {".cxx", 'TEXT', 'R*ch'},
        {".h", 'TEXT', 'R*ch'},
        {".hh", 'TEXT', 'R*ch'},
        {".hpp", 'TEXT', 'R*ch'},
        {".hxx", 'TEXT', 'R*ch'},
        {".s", 'TEXT', 'R*ch'},
        {".S", 'TEXT', 'R*ch'},
        {".i", 'TEXT', 'R*ch'},
        {".mpg", 'MPEG', 'TVOD'},
        {".mpeg", 'MPEG', 'TVOD'},
        {".mov", 'MooV', 'TVOD'},
        {".fli", 'FLI ', 'TVOD'},
        {".avi", 'VfW ', 'TVOD'},
        {NULL, 0, 0}    // End marker
};

void get_finder_type(const char *path, uint32 &type, uint32 &creator)
{
        type = 0;
        creator = 0;

        // Open Finder info file
        int fd = open_finf(path, O_RDONLY);
        if (fd >= 0) {

                // Read file
                finf_struct finf;
                if (read(fd, &finf, sizeof(finf_struct)) == sizeof(finf_struct)) {

                        // Type/creator are in Finder info file, return them
                        type = ntohl(finf.type);
                        creator = ntohl(finf.creator);
                        close(fd);
                        return;
                }
                close(fd);
        }

        // No Finder info file, translate file name extension to MacOS type/creator
        int path_len = strlen(path);
        for (int i=0; e2t_translation[i].ext; i++) {
                int ext_len = strlen(e2t_translation[i].ext);
                if (path_len < ext_len)
                        continue;
                if (!strcmp(path + path_len - ext_len, e2t_translation[i].ext)) {
                        type = e2t_translation[i].type;
                        creator = e2t_translation[i].creator;
                        break;
                }
        }
}

void set_finder_type(const char *path, uint32 type, uint32 creator)
{
        // Open Finder info file
        int fd = open_finf(path, O_RDWR);
        if (fd < 0)
                return;

        // Read file
        finf_struct finf = {0, 0, DEFAULT_FINDER_FLAGS, 0};
        read(fd, &finf, sizeof(finf_struct));

        // Set Finder flags
        finf.type = htonl(type);
        finf.creator = htonl(creator);

        // Update file
        lseek(fd, 0, SEEK_SET);
        write(fd, &finf, sizeof(finf_struct));
        close(fd);
}


/*
 *  Get/set finder flags for file/dir specified by full path
 */

void get_finder_flags(const char *path, uint16 &flags)
{
        flags = DEFAULT_FINDER_FLAGS;   // Default

        // Open Finder info file
        int fd = open_finf(path, O_RDONLY);
        if (fd < 0)
                return;

        // Read Finder flags
        finf_struct finf;
        if (read(fd, &finf, sizeof(finf_struct)) == sizeof(finf_struct))
                flags = ntohs(finf.flags);

        // Close file
        close(fd);
}

void set_finder_flags(const char *path, uint16 flags)
{
        // Open Finder info file
        int fd = open_finf(path, O_RDWR);
        if (fd < 0)
                return;

        // Read file
        finf_struct finf = {0, 0, DEFAULT_FINDER_FLAGS, 0};
        read(fd, &finf, sizeof(finf_struct));

        // Set Finder flags
        finf.flags = htons(flags);

        // Update file
        lseek(fd, 0, SEEK_SET);
        write(fd, &finf, sizeof(finf_struct));
        close(fd);
}


/*
 *  Resource fork emulation functions
 */

uint32 get_rfork_size(const char *path)
{
        // Open resource file
        int fd = open_rsrc(path, O_RDONLY);
        if (fd < 0)
                return 0;

        // Get size
        off_t size = lseek(fd, 0, SEEK_END);
        
        // Close file and return size
        close(fd);
        return size < 0 ? 0 : size;
}

int open_rfork(const char *path, int flag)
{
        return open_rsrc(path, flag);
}

void close_rfork(const char *path, int fd)
{
        close(fd);
}


/*
 *  Read "length" bytes from file to "buffer",
 *  returns number of bytes read (or 0)
 */

size_t extfs_read(int fd, void *buffer, size_t length)
{
        errno = 0;
        return read(fd, buffer, length);
}


/*
 *  Write "length" bytes from "buffer" to file,
 *  returns number of bytes written (or 0)
 */

size_t extfs_write(int fd, void *buffer, size_t length)
{
        errno = 0;
        return write(fd, buffer, length);
}


/*
 *  Remove file/directory (and associated helper files),
 *  returns false on error (and sets errno)
 */

bool extfs_remove(const char *path)
{
        // Remove helpers first, don't complain if this fails
        char helper_path[MAX_PATH_LENGTH];
        make_helper_path(path, helper_path, ".finf/", false);
        remove(helper_path);
        make_helper_path(path, helper_path, ".rsrc/", false);
        remove(helper_path);

        // Now remove file or directory
        if (remove(path) < 0) {
                if (errno == EISDIR)
                        return rmdir(path) == 0;
                else
                        return false;
        }
        return true;
}


/*
 *  ftruncate() is missing from libnix
 */

extern unsigned long *__stdfiledes;

int ftruncate(int fd, off_t size)
{
        if (SetFileSize(__stdfiledes[fd], size, OFFSET_BEGINNING) < 0)
                return -1;
        else
                return 0;
}
Revision:	1.3
Committed:	1999-11-08T17:00:11Z (25 years ago) by cebix
Branch:	MAIN
Changes since 1.2:	+25 -0 lines
Log Message:	- fs_delete() will also delete helper files
#	User	Rev	Content
1	cebix	1.1	/*
2			* extfs_amiga.cpp - MacOS file system for access native file system access, AmigaOS specific stuff
3			*
4			* Basilisk II (C) 1997-1999 Christian Bauer
5			*
6			* This program is free software; you can redistribute it and/or modify
7			* it under the terms of the GNU General Public License as published by
8			* the Free Software Foundation; either version 2 of the License, or
9			* (at your option) any later version.
10			*
11			* This program is distributed in the hope that it will be useful,
12			* but WITHOUT ANY WARRANTY; without even the implied warranty of
13			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			* GNU General Public License for more details.
15			*
16			* You should have received a copy of the GNU General Public License
17			* along with this program; if not, write to the Free Software
18			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19			*/
20
21			#include <exec/types.h>
22			#include <proto/dos.h>
23
24			#include <sys/types.h>
25			#include <sys/stat.h>
26			#include <stdio.h>
27			#include <stdlib.h>
28			#include <unistd.h>
29			#include <fcntl.h>
30			#include <dirent.h>
31			#include <errno.h>
32
33			#include "sysdeps.h"
34			#include "extfs.h"
35			#include "extfs_defs.h"
36
37			#define DEBUG 0
38			#include "debug.h"
39
40
41			// Default Finder flags
42			const uint16 DEFAULT_FINDER_FLAGS = kHasBeenInited;
43
44
45			/*
46			* Initialization
47			*/
48
49			void extfs_init(void)
50			{
51			}
52
53
54			/*
55			* Deinitialization
56			*/
57
58			void extfs_exit(void)
59			{
60			}
61
62
63			/*
64			* Add component to path name
65			*/
66
67			void add_path_component(char path, const char component)
68			{
69			AddPart(path, (char *)component, MAX_PATH_LENGTH);
70			}
71
72
73			/*
74			* Finder info and resource forks are kept in helper files
75			*
76			* Finder info:
77			* /path/.finf/file
78			* Resource fork:
79			* /path/.rsrc/file
80			*/
81
82			// Layout of Finder info helper files (all fields big-endian)
83			struct finf_struct {
84			uint32 type;
85			uint32 creator;
86			uint16 flags;
87			uint16 pad0;
88			};
89
90			static void make_helper_path(const char src, char dest, const char *add, bool only_dir = false)
91			{
92			dest[0] = 0;
93
94			// Get pointer to last component of path
95			const char last_part = FilePart((char )src);
96
97			// Copy everything before
98			strncpy(dest, src, last_part-src);
99			dest[last_part-src] = 0;
100
101			// Add additional component
102			AddPart(dest, (char *)add, MAX_PATH_LENGTH);
103
104			// Add last component
105			if (!only_dir)
106			AddPart(dest, (char *)last_part, MAX_PATH_LENGTH);
107			}
108
109			static int create_helper_dir(const char path, const char add)
110			{
111			char helper_dir[MAX_PATH_LENGTH];
112			make_helper_path(path, helper_dir, add, true);
113			return mkdir(helper_dir, 0777);
114			}
115
116			static int open_helper(const char path, const char add, int flag)
117			{
118			char helper_path[MAX_PATH_LENGTH];
119			make_helper_path(path, helper_path, add);
120
121	cebix	1.2	if ((flag & O_ACCMODE) == O_RDWR \|\| (flag & O_ACCMODE) == O_WRONLY)
122	cebix	1.1	flag \|= O_CREAT;
123			int fd = open(helper_path, flag, 0666);
124			if (fd < 0) {
125			if (errno == ENOENT && (flag & O_CREAT)) {
126			// One path component was missing, probably the helper
127			// directory. Try to create it and re-open the file.
128			int ret = create_helper_dir(path, add);
129			if (ret < 0)
130			return ret;
131			fd = open(helper_path, flag, 0666);
132			}
133			}
134			return fd;
135			}
136
137			static int open_finf(const char *path, int flag)
138			{
139			return open_helper(path, ".finf/", flag);
140			}
141
142			static int open_rsrc(const char *path, int flag)
143			{
144			return open_helper(path, ".rsrc/", flag);
145			}
146
147
148			/*
149			* Get/set finder type/creator for file specified by full path
150			*/
151
152			struct ext2type {
153			const char *ext;
154			uint32 type;
155			uint32 creator;
156			};
157
158			static const ext2type e2t_translation[] = {
159			{".Z", 'ZIVM', 'LZIV'},
160			{".gz", 'Gzip', 'Gzip'},
161			{".hqx", 'TEXT', 'SITx'},
162			{".pdf", 'PDF ', 'CARO'},
163			{".ps", 'TEXT', 'ttxt'},
164			{".sit", 'SIT!', 'SITx'},
165			{".tar", 'TARF', 'TAR '},
166			{".uu", 'TEXT', 'SITx'},
167			{".uue", 'TEXT', 'SITx'},
168			{".zip", 'ZIP ', 'ZIP '},
169			{".8svx", '8SVX', 'SNDM'},
170			{".aifc", 'AIFC', 'TVOD'},
171			{".aiff", 'AIFF', 'TVOD'},
172			{".au", 'ULAW', 'TVOD'},
173			{".mid", 'MIDI', 'TVOD'},
174			{".midi", 'MIDI', 'TVOD'},
175			{".mp2", 'MPG ', 'TVOD'},
176			{".mp3", 'MPG ', 'TVOD'},
177			{".wav", 'WAVE', 'TVOD'},
178			{".bmp", 'BMPf', 'ogle'},
179			{".gif", 'GIFf', 'ogle'},
180			{".lbm", 'ILBM', 'GKON'},
181			{".ilbm", 'ILBM', 'GKON'},
182			{".jpg", 'JPEG', 'ogle'},
183			{".jpeg", 'JPEG', 'ogle'},
184			{".pict", 'PICT', 'ogle'},
185			{".png", 'PNGf', 'ogle'},
186			{".sgi", '.SGI', 'ogle'},
187			{".tga", 'TPIC', 'ogle'},
188			{".tif", 'TIFF', 'ogle'},
189			{".tiff", 'TIFF', 'ogle'},
190			{".html", 'TEXT', 'MOSS'},
191			{".txt", 'TEXT', 'ttxt'},
192			{".rtf", 'TEXT', 'MSWD'},
193			{".c", 'TEXT', 'R*ch'},
194			{".C", 'TEXT', 'R*ch'},
195			{".cc", 'TEXT', 'R*ch'},
196			{".cpp", 'TEXT', 'R*ch'},
197			{".cxx", 'TEXT', 'R*ch'},
198			{".h", 'TEXT', 'R*ch'},
199			{".hh", 'TEXT', 'R*ch'},
200			{".hpp", 'TEXT', 'R*ch'},
201			{".hxx", 'TEXT', 'R*ch'},
202			{".s", 'TEXT', 'R*ch'},
203			{".S", 'TEXT', 'R*ch'},
204			{".i", 'TEXT', 'R*ch'},
205			{".mpg", 'MPEG', 'TVOD'},
206			{".mpeg", 'MPEG', 'TVOD'},
207			{".mov", 'MooV', 'TVOD'},
208			{".fli", 'FLI ', 'TVOD'},
209			{".avi", 'VfW ', 'TVOD'},
210			{NULL, 0, 0} // End marker
211			};
212
213			void get_finder_type(const char *path, uint32 &type, uint32 &creator)
214			{
215			type = 0;
216			creator = 0;
217
218			// Open Finder info file
219			int fd = open_finf(path, O_RDONLY);
220			if (fd >= 0) {
221
222			// Read file
223			finf_struct finf;
224			if (read(fd, &finf, sizeof(finf_struct)) == sizeof(finf_struct)) {
225
226			// Type/creator are in Finder info file, return them
227			type = ntohl(finf.type);
228			creator = ntohl(finf.creator);
229			close(fd);
230			return;
231			}
232			close(fd);
233			}
234
235			// No Finder info file, translate file name extension to MacOS type/creator
236			int path_len = strlen(path);
237			for (int i=0; e2t_translation[i].ext; i++) {
238			int ext_len = strlen(e2t_translation[i].ext);
239			if (path_len < ext_len)
240			continue;
241			if (!strcmp(path + path_len - ext_len, e2t_translation[i].ext)) {
242			type = e2t_translation[i].type;
243			creator = e2t_translation[i].creator;
244			break;
245			}
246			}
247			}
248
249			void set_finder_type(const char *path, uint32 type, uint32 creator)
250			{
251			// Open Finder info file
252			int fd = open_finf(path, O_RDWR);
253			if (fd < 0)
254			return;
255
256			// Read file
257			finf_struct finf = {0, 0, DEFAULT_FINDER_FLAGS, 0};
258			read(fd, &finf, sizeof(finf_struct));
259
260			// Set Finder flags
261			finf.type = htonl(type);
262			finf.creator = htonl(creator);
263
264			// Update file
265			lseek(fd, 0, SEEK_SET);
266			write(fd, &finf, sizeof(finf_struct));
267			close(fd);
268			}
269
270
271			/*
272			* Get/set finder flags for file/dir specified by full path
273			*/
274
275			void get_finder_flags(const char *path, uint16 &flags)
276			{
277			flags = DEFAULT_FINDER_FLAGS; // Default
278
279			// Open Finder info file
280			int fd = open_finf(path, O_RDONLY);
281			if (fd < 0)
282			return;
283
284			// Read Finder flags
285			finf_struct finf;
286			if (read(fd, &finf, sizeof(finf_struct)) == sizeof(finf_struct))
287			flags = ntohs(finf.flags);
288
289			// Close file
290			close(fd);
291			}
292
293			void set_finder_flags(const char *path, uint16 flags)
294			{
295			// Open Finder info file
296			int fd = open_finf(path, O_RDWR);
297			if (fd < 0)
298			return;
299
300			// Read file
301			finf_struct finf = {0, 0, DEFAULT_FINDER_FLAGS, 0};
302			read(fd, &finf, sizeof(finf_struct));
303
304			// Set Finder flags
305			finf.flags = htons(flags);
306
307			// Update file
308			lseek(fd, 0, SEEK_SET);
309			write(fd, &finf, sizeof(finf_struct));
310			close(fd);
311			}
312
313
314			/*
315			* Resource fork emulation functions
316			*/
317
318			uint32 get_rfork_size(const char *path)
319			{
320			// Open resource file
321			int fd = open_rsrc(path, O_RDONLY);
322			if (fd < 0)
323			return 0;
324
325			// Get size
326			off_t size = lseek(fd, 0, SEEK_END);
327
328			// Close file and return size
329			close(fd);
330			return size < 0 ? 0 : size;
331			}
332
333			int open_rfork(const char *path, int flag)
334			{
335			return open_rsrc(path, flag);
336			}
337
338			void close_rfork(const char *path, int fd)
339			{
340			close(fd);
341			}
342
343
344			/*
345			* Read "length" bytes from file to "buffer",
346			* returns number of bytes read (or 0)
347			*/
348
349			size_t extfs_read(int fd, void *buffer, size_t length)
350			{
351			errno = 0;
352			return read(fd, buffer, length);
353			}
354
355
356			/*
357			* Write "length" bytes from "buffer" to file,
358			* returns number of bytes written (or 0)
359			*/
360
361			size_t extfs_write(int fd, void *buffer, size_t length)
362			{
363			errno = 0;
364			return write(fd, buffer, length);
365			}
366
367
368			/*
369	cebix	1.3	* Remove file/directory (and associated helper files),
370			* returns false on error (and sets errno)
371			*/
372
373			bool extfs_remove(const char *path)
374			{
375			// Remove helpers first, don't complain if this fails
376			char helper_path[MAX_PATH_LENGTH];
377			make_helper_path(path, helper_path, ".finf/", false);
378			remove(helper_path);
379			make_helper_path(path, helper_path, ".rsrc/", false);
380			remove(helper_path);
381
382			// Now remove file or directory
383			if (remove(path) < 0) {
384			if (errno == EISDIR)
385			return rmdir(path) == 0;
386			else
387			return false;
388			}
389			return true;
390			}
391
392
393			/*
394	cebix	1.1	* ftruncate() is missing from libnix
395			*/
396
397			extern unsigned long *__stdfiledes;
398
399			int ftruncate(int fd, off_t size)
400			{
401			if (SetFileSize(__stdfiledes[fd], size, OFFSET_BEGINNING) < 0)
402			return -1;
403			else
404			return 0;
405			}