mpack_src/mpack-1.6-4/macfile.c

/* macfile.c -- simple applesingle/appledouble encoding/decoding routines
 */
/* (C) Copyright 1995 by Carnegie Mellon University
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, distribute, and sell this software
 * and its documentation for any purpose is hereby granted without
 * fee, provided that the above copyright notice appear in all copies
 * and that both that copyright notice and this permission notice
 * appear in supporting documentation, and that the name of Carnegie
 * Mellon University not be used in advertising or publicity
 * pertaining to distribution of the software without specific,
 * written prior permission.  Carnegie Mellon University makes no
 * representations about the suitability of this software for any
 * purpose.  It is provided "as is" without express or implied
 * warranty.
 *
 * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
 * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */
/* (C) Copyright 1994-1995 by Christopher J. Newman
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Christopher J. Newman not be used in
 * advertising or publicity pertaining to distribution of the software without
 * specific, written prior permission.  Christopher J. Newman makes no
 * representations about the suitability of this software for any purpose.  It
 * is provided "as is" without express or implied warranty.
 *
 * CHRISTOPHER J. NEWMAN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
 * SHALL CHRISTOPHER J. NEWMAN BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 */

#include <stdio.h>
#include <string.h>
#include "macmpack.h"   /* for copy_buf & watch */

/* applefile definitions used */
#define APPLESINGLE_MAGIC 0x00051600L
#define APPLEDOUBLE_MAGIC 0x00051607L
#define VERSION 0x00020000
#define ENT_DFORK   1
#define ENT_RFORK   2
#define ENT_NAME    3
#define ENT_COMMENT 4
#define ENT_DATES   8
#define ENT_FINFO   9
#define CONVERT_TIME 1265437696L

/* applefile structures */
typedef struct ap_header {
        long magic;
        long version;
        char fill[16];
        short entries;
} ap_header;
typedef struct ap_entry {
        unsigned long id;
        unsigned long offset;
        unsigned long length;
} ap_entry;
typedef struct ap_dates {
        long create, modify, backup, access;
} ap_dates;

/* default number of entries */
#define NUM_ENTRIES 6

/* Generate an applefile
 *  outfile -- output file
 *  fpb -- hierarchical file parameter block
 *  rfork, dfork -- resource & data forks
 * returns -1 on failure, 0 on success
 *
 * closes dfork & rfork, but not outputfile
 */
int encode_applefile(FILE *outfile, HFileInfo *fpb, FILE *rfork, FILE *dfork)
{
        ap_header head;
        ap_entry entries[NUM_ENTRIES];
        ap_dates dates;
        short i, count;
        long comlen, procID;
        DateTimeRec cur_time;
        unsigned long cur_secs;
        IOParam vinfo;
        GetVolParmsInfoBuffer vp;
        DTPBRec dtp;
        char comment[256];
        
        /* make sure things look OK */
        if (!rfork || !outfile) {
                if (rfork) fclose(rfork);
                if (dfork) fclose(dfork);
                if (outfile) fclose(outfile);
                return (-1);
        }
        
        /* get a file comment, if possible */
        procID = 0;
        GetWDInfo(fpb->ioVRefNum, &fpb->ioVRefNum, &fpb->ioDirID, &procID);
        memset((void *) &vinfo, '\0', sizeof (vinfo));
        vinfo.ioVRefNum = fpb->ioVRefNum;
        vinfo.ioBuffer = (Ptr) &vp;
        vinfo.ioReqCount = sizeof (vp);
        comlen = 0;
        if (PBHGetVolParmsSync((HParmBlkPtr) &vinfo) == noErr &&
                ((vp.vMAttrib >> bHasDesktopMgr) & 1)) {
                memset((void *) &dtp, '\0', sizeof (dtp));
                dtp.ioVRefNum = fpb->ioVRefNum;
                if (PBDTGetPath(&dtp) == noErr) {
                        dtp.ioDTBuffer = (Ptr) comment;
                        dtp.ioNamePtr = fpb->ioNamePtr;
                        dtp.ioDirID = fpb->ioFlParID;
                        if (PBDTGetCommentSync(&dtp) == noErr) comlen = dtp.ioDTActCount;
                }
        }
        
        /* write header */
        head.magic = dfork ? APPLESINGLE_MAGIC : APPLEDOUBLE_MAGIC;
        head.version = VERSION;
        memset(head.fill, '\0', sizeof (head.fill));
        head.entries = NUM_ENTRIES - (dfork ? 0 : 1);
        fwrite((char *) &head, sizeof (head), 1, outfile);
        
        /* write entry descriptors */
        entries[0].offset = sizeof (head) + sizeof (ap_entry) * head.entries;
        entries[0].id = ENT_NAME;
        entries[0].length = *fpb->ioNamePtr;
        entries[1].id = ENT_FINFO;
        entries[1].length = sizeof (FInfo) + sizeof (FXInfo);
        entries[2].id = ENT_DATES;
        entries[2].length = sizeof (ap_dates);
        entries[3].id = ENT_COMMENT;
        entries[3].length = comlen;
        entries[4].id = ENT_RFORK;
        entries[4].length = fpb->ioFlRLgLen;
        entries[5].id = ENT_DFORK;
        entries[5].length = fpb->ioFlLgLen;
        for (i = 1; i < NUM_ENTRIES; ++i) {
                entries[i].offset = entries[i-1].offset + entries[i-1].length;
        }
        fwrite((char *) entries, sizeof (ap_entry), head.entries, outfile);
        
        /* write name */
        fwrite((char *) fpb->ioNamePtr + 1, *fpb->ioNamePtr, 1, outfile);
        /* write finder info */
        fwrite((char *) &fpb->ioFlFndrInfo, sizeof (FInfo), 1, outfile);
        fwrite((char *) &fpb->ioFlXFndrInfo, sizeof (FXInfo), 1, outfile);
        /* write dates */
        GetTime(&cur_time);
        Date2Secs(&cur_time, &cur_secs);
        dates.create = fpb->ioFlCrDat + CONVERT_TIME;
        dates.modify = fpb->ioFlMdDat + CONVERT_TIME;
        dates.backup = fpb->ioFlBkDat + CONVERT_TIME;
        dates.access = cur_secs + CONVERT_TIME;
        fwrite((char *) &dates, sizeof (ap_dates), 1, outfile);
        /* write comment */
        if (comlen) fwrite(comment, sizeof (char), comlen, outfile);
        /* write resource fork */
        while ((count = fread(copy_buf, sizeof (char), sizeof (copy_buf), rfork)) > 0) {
                fwrite(copy_buf, sizeof (char), count, outfile);
        }
        fclose(rfork);
        /* write data fork */
        if (dfork) {
                while ((count = fread(copy_buf, sizeof (char), sizeof (copy_buf), dfork)) > 0) {
                        fwrite(copy_buf, sizeof (char), count, outfile);
                }
                fclose(dfork);
        }
        
        return (0);
}

/* decode an applefile
 *  infile -- input file
 *  fspec  -- file spec of saved file
 * returns -1 on failure, 0 on success
 */
int decode_applefile(FILE *infile, FSSpec *fspec)
{
        ap_header head;
        ap_entry entries[NUM_ENTRIES + 1];
        ap_dates dates;
        StandardFileReply reply;
        int i, j;
        short refnum;
        long count;
        OSErr err;
        HFileInfo *fpb;
        CInfoPBRec cipbr;
        long procID;
        IOParam vinfo;
        GetVolParmsInfoBuffer vp;
        DTPBRec dtp;
        char comment[256];
        
        /* read & verify header */
        fread((char *) &head, sizeof (head), 1, infile);
        if (head.magic != APPLESINGLE_MAGIC && head.magic != APPLEDOUBLE_MAGIC) {
                return (-1);
        }
        if (head.version != VERSION) {
                return (-1);
        }
        
        /* read entries */
        for (i = j = 0; i < head.entries; ++i) {
                fread((char *) (entries + j), sizeof (ap_entry), 1, infile);
                if (j < NUM_ENTRIES) switch (entries[j].id) {
                        case ENT_NAME:
                        case ENT_FINFO:
                        case ENT_DATES:
                        case ENT_COMMENT:
                        case ENT_RFORK:
                        case ENT_DFORK:
                                ++j;
                                break;
                }
        }
        
        /* read name */
        for (i = 0; i < j && entries[i].id != ENT_NAME; ++i);
        if (i == j) return (-1);
        fseek(infile, entries[i].offset, SEEK_SET);
        if (entries[i].length > 63) entries[i].length = 63;
        *fspec->name = fread((char *) fspec->name + 1, sizeof (char), entries[i].length, infile);
        SetCursor(&arrow);
        NAputFile("\pSave decoded file as:", fspec->name, &reply);
        SetCursor(&watch);
        statrefresh();
        if (!reply.sfGood) return (didchat = -1);
        *fspec = reply.sfFile;

        /* create & get info for file */
        if (reply.sfReplacing) HDelete(fspec->vRefNum, fspec->parID, fspec->name);
        if (HCreate(fspec->vRefNum, fspec->parID, fspec->name, '????', '????') != noErr) {
                return (-1);
        }
        fpb = (HFileInfo *) &cipbr;
        fpb->ioVRefNum = fspec->vRefNum;
        fpb->ioNamePtr = fspec->name;
        fpb->ioDirID = fspec->parID;
        fpb->ioFDirIndex = 0;
        PBGetCatInfoSync(&cipbr);
        
        /* get finder info */
        for (i = 0; i < j && entries[i].id != ENT_FINFO; ++i);
        if (i < j) {
                fseek(infile, entries[i].offset, SEEK_SET);
                fread((char *) &fpb->ioFlFndrInfo, sizeof (FInfo), 1, infile);
                fread((char *) &fpb->ioFlXFndrInfo, sizeof (FXInfo), 1, infile);
                fpb->ioFlFndrInfo.fdFlags &= 0xf800; /* clear flags maintained by finder */
        }
        
        /* get file date info */
        for (i = 0; i < j && entries[i].id != ENT_DATES; ++i);
        if (i < j) {
                fseek(infile, entries[i].offset, SEEK_SET);
                fread((char *) &dates, sizeof (dates), 1, infile);
                fpb->ioFlCrDat = dates.create - CONVERT_TIME;
                fpb->ioFlMdDat = dates.modify - CONVERT_TIME;
                fpb->ioFlBkDat = dates.backup - CONVERT_TIME;
        }
        
        /* update info */
        fpb->ioDirID = fpb->ioFlParID;
        PBSetCatInfoSync(&cipbr);
        
        /* get comment & save it */
        for (i = 0; i < j && entries[i].id != ENT_COMMENT; ++i);
        if (i < j && entries[i].length != 0) {
                memset((void *) &vinfo, '\0', sizeof (vinfo));
                vinfo.ioVRefNum = fpb->ioVRefNum;
                vinfo.ioBuffer = (Ptr) &vp;
                vinfo.ioReqCount = sizeof (vp);
                if (PBHGetVolParmsSync((HParmBlkPtr) &vinfo) == noErr &&
                        ((vp.vMAttrib >> bHasDesktopMgr) & 1)) {
                        memset((void *) &dtp, '\0', sizeof (dtp));
                        dtp.ioVRefNum = fpb->ioVRefNum;
                        if (PBDTGetPath(&dtp) == noErr) {
                                if (entries[i].length > 255) entries[i].length = 255;
                                fseek(infile, entries[i].offset, SEEK_SET);
                                fread(comment, entries[i].length, 1, infile);
                                dtp.ioDTBuffer = (Ptr) comment;
                                dtp.ioNamePtr = fpb->ioNamePtr;
                                dtp.ioDirID = fpb->ioDirID;
                                dtp.ioDTReqCount = entries[i].length;
                                if (PBDTSetCommentSync(&dtp) == noErr) {
                                        PBDTFlushSync(&dtp);
                                }
                        }
                }
        }
        
        /* do resource/data forks */
        for (i = 0; i < j; ++i) {
                if (entries[i].id == ENT_RFORK || entries[i].id == ENT_DFORK) {
                        fseek(infile, entries[i].offset, SEEK_SET);
                        if (entries[i].id == ENT_DFORK) {
                                err = HOpen(fspec->vRefNum, fspec->parID, fspec->name, 2, &refnum);
                        } else {
                                err = HOpenRF(fspec->vRefNum, fspec->parID, fspec->name, 2, &refnum);
                        }
                        if (err != noErr) {
                                HDelete(fspec->vRefNum, fspec->parID, fspec->name);
                                return (-1);
                        }
                        while (entries[i].length > sizeof (copy_buf)) {
                                count = fread(copy_buf, sizeof (char), sizeof (copy_buf), infile);
                                entries[i].length -= count;
                                FSWrite(refnum, &count, (Ptr) copy_buf);
                        }
                        count = fread(copy_buf, sizeof (char), entries[i].length, infile);
                        FSWrite(refnum, &count, (Ptr) copy_buf);
                        FSClose(refnum);
                }
        }
        
        return (0);
}
1	jmc	1.1	/* macfile.c -- simple applesingle/appledouble encoding/decoding routines
2			*/
3			/* (C) Copyright 1995 by Carnegie Mellon University
4			* All Rights Reserved.
5			*
6			* Permission to use, copy, modify, distribute, and sell this software
7			* and its documentation for any purpose is hereby granted without
8			* fee, provided that the above copyright notice appear in all copies
9			* and that both that copyright notice and this permission notice
10			* appear in supporting documentation, and that the name of Carnegie
11			* Mellon University not be used in advertising or publicity
12			* pertaining to distribution of the software without specific,
13			* written prior permission. Carnegie Mellon University makes no
14			* representations about the suitability of this software for any
15			* purpose. It is provided "as is" without express or implied
16			* warranty.
17			*
18			* CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
19			* THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
20			* AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
21			* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
22			* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
23			* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
24			* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
25			* SOFTWARE.
26			*/
27			/* (C) Copyright 1994-1995 by Christopher J. Newman
28			* All Rights Reserved.
29			*
30			* Permission to use, copy, modify, distribute, and sell this software and its
31			* documentation for any purpose is hereby granted without fee, provided that
32			* the above copyright notice appear in all copies and that both that
33			* copyright notice and this permission notice appear in supporting
34			* documentation, and that the name of Christopher J. Newman not be used in
35			* advertising or publicity pertaining to distribution of the software without
36			* specific, written prior permission. Christopher J. Newman makes no
37			* representations about the suitability of this software for any purpose. It
38			* is provided "as is" without express or implied warranty.
39			*
40			* CHRISTOPHER J. NEWMAN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
41			* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
42			* SHALL CHRISTOPHER J. NEWMAN BE LIABLE FOR ANY SPECIAL, INDIRECT OR
43			* CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
44			* DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
45			* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
46			* OF THIS SOFTWARE.
47			*/
48
49			#include <stdio.h>
50			#include <string.h>
51			#include "macmpack.h" /* for copy_buf & watch */
52
53			/* applefile definitions used */
54			#define APPLESINGLE_MAGIC 0x00051600L
55			#define APPLEDOUBLE_MAGIC 0x00051607L
56			#define VERSION 0x00020000
57			#define ENT_DFORK 1
58			#define ENT_RFORK 2
59			#define ENT_NAME 3
60			#define ENT_COMMENT 4
61			#define ENT_DATES 8
62			#define ENT_FINFO 9
63			#define CONVERT_TIME 1265437696L
64
65			/* applefile structures */
66			typedef struct ap_header {
67			long magic;
68			long version;
69			char fill[16];
70			short entries;
71			} ap_header;
72			typedef struct ap_entry {
73			unsigned long id;
74			unsigned long offset;
75			unsigned long length;
76			} ap_entry;
77			typedef struct ap_dates {
78			long create, modify, backup, access;
79			} ap_dates;
80
81			/* default number of entries */
82			#define NUM_ENTRIES 6
83
84			/* Generate an applefile
85			* outfile -- output file
86			* fpb -- hierarchical file parameter block
87			* rfork, dfork -- resource & data forks
88			* returns -1 on failure, 0 on success
89			*
90			* closes dfork & rfork, but not outputfile
91			*/
92			int encode_applefile(FILE outfile, HFileInfo fpb, FILE rfork, FILE dfork)
93			{
94			ap_header head;
95			ap_entry entries[NUM_ENTRIES];
96			ap_dates dates;
97			short i, count;
98			long comlen, procID;
99			DateTimeRec cur_time;
100			unsigned long cur_secs;
101			IOParam vinfo;
102			GetVolParmsInfoBuffer vp;
103			DTPBRec dtp;
104			char comment[256];
105
106			/* make sure things look OK */
107			if (!rfork \|\| !outfile) {
108			if (rfork) fclose(rfork);
109			if (dfork) fclose(dfork);
110			if (outfile) fclose(outfile);
111			return (-1);
112			}
113
114			/* get a file comment, if possible */
115			procID = 0;
116			GetWDInfo(fpb->ioVRefNum, &fpb->ioVRefNum, &fpb->ioDirID, &procID);
117			memset((void *) &vinfo, '\0', sizeof (vinfo));
118			vinfo.ioVRefNum = fpb->ioVRefNum;
119			vinfo.ioBuffer = (Ptr) &vp;
120			vinfo.ioReqCount = sizeof (vp);
121			comlen = 0;
122			if (PBHGetVolParmsSync((HParmBlkPtr) &vinfo) == noErr &&
123			((vp.vMAttrib >> bHasDesktopMgr) & 1)) {
124			memset((void *) &dtp, '\0', sizeof (dtp));
125			dtp.ioVRefNum = fpb->ioVRefNum;
126			if (PBDTGetPath(&dtp) == noErr) {
127			dtp.ioDTBuffer = (Ptr) comment;
128			dtp.ioNamePtr = fpb->ioNamePtr;
129			dtp.ioDirID = fpb->ioFlParID;
130			if (PBDTGetCommentSync(&dtp) == noErr) comlen = dtp.ioDTActCount;
131			}
132			}
133
134			/* write header */
135			head.magic = dfork ? APPLESINGLE_MAGIC : APPLEDOUBLE_MAGIC;
136			head.version = VERSION;
137			memset(head.fill, '\0', sizeof (head.fill));
138			head.entries = NUM_ENTRIES - (dfork ? 0 : 1);
139			fwrite((char *) &head, sizeof (head), 1, outfile);
140
141			/* write entry descriptors */
142			entries[0].offset = sizeof (head) + sizeof (ap_entry) * head.entries;
143			entries[0].id = ENT_NAME;
144			entries[0].length = *fpb->ioNamePtr;
145			entries[1].id = ENT_FINFO;
146			entries[1].length = sizeof (FInfo) + sizeof (FXInfo);
147			entries[2].id = ENT_DATES;
148			entries[2].length = sizeof (ap_dates);
149			entries[3].id = ENT_COMMENT;
150			entries[3].length = comlen;
151			entries[4].id = ENT_RFORK;
152			entries[4].length = fpb->ioFlRLgLen;
153			entries[5].id = ENT_DFORK;
154			entries[5].length = fpb->ioFlLgLen;
155			for (i = 1; i < NUM_ENTRIES; ++i) {
156			entries[i].offset = entries[i-1].offset + entries[i-1].length;
157			}
158			fwrite((char *) entries, sizeof (ap_entry), head.entries, outfile);
159
160			/* write name */
161			fwrite((char ) fpb->ioNamePtr + 1, fpb->ioNamePtr, 1, outfile);
162			/* write finder info */
163			fwrite((char *) &fpb->ioFlFndrInfo, sizeof (FInfo), 1, outfile);
164			fwrite((char *) &fpb->ioFlXFndrInfo, sizeof (FXInfo), 1, outfile);
165			/* write dates */
166			GetTime(&cur_time);
167			Date2Secs(&cur_time, &cur_secs);
168			dates.create = fpb->ioFlCrDat + CONVERT_TIME;
169			dates.modify = fpb->ioFlMdDat + CONVERT_TIME;
170			dates.backup = fpb->ioFlBkDat + CONVERT_TIME;
171			dates.access = cur_secs + CONVERT_TIME;
172			fwrite((char *) &dates, sizeof (ap_dates), 1, outfile);
173			/* write comment */
174			if (comlen) fwrite(comment, sizeof (char), comlen, outfile);
175			/* write resource fork */
176			while ((count = fread(copy_buf, sizeof (char), sizeof (copy_buf), rfork)) > 0) {
177			fwrite(copy_buf, sizeof (char), count, outfile);
178			}
179			fclose(rfork);
180			/* write data fork */
181			if (dfork) {
182			while ((count = fread(copy_buf, sizeof (char), sizeof (copy_buf), dfork)) > 0) {
183			fwrite(copy_buf, sizeof (char), count, outfile);
184			}
185			fclose(dfork);
186			}
187
188			return (0);
189			}
190
191			/* decode an applefile
192			* infile -- input file
193			* fspec -- file spec of saved file
194			* returns -1 on failure, 0 on success
195			*/
196			int decode_applefile(FILE infile, FSSpec fspec)
197			{
198			ap_header head;
199			ap_entry entries[NUM_ENTRIES + 1];
200			ap_dates dates;
201			StandardFileReply reply;
202			int i, j;
203			short refnum;
204			long count;
205			OSErr err;
206			HFileInfo *fpb;
207			CInfoPBRec cipbr;
208			long procID;
209			IOParam vinfo;
210			GetVolParmsInfoBuffer vp;
211			DTPBRec dtp;
212			char comment[256];
213
214			/* read & verify header */
215			fread((char *) &head, sizeof (head), 1, infile);
216			if (head.magic != APPLESINGLE_MAGIC && head.magic != APPLEDOUBLE_MAGIC) {
217			return (-1);
218			}
219			if (head.version != VERSION) {
220			return (-1);
221			}
222
223			/* read entries */
224			for (i = j = 0; i < head.entries; ++i) {
225			fread((char *) (entries + j), sizeof (ap_entry), 1, infile);
226			if (j < NUM_ENTRIES) switch (entries[j].id) {
227			case ENT_NAME:
228			case ENT_FINFO:
229			case ENT_DATES:
230			case ENT_COMMENT:
231			case ENT_RFORK:
232			case ENT_DFORK:
233			++j;
234			break;
235			}
236			}
237
238			/* read name */
239			for (i = 0; i < j && entries[i].id != ENT_NAME; ++i);
240			if (i == j) return (-1);
241			fseek(infile, entries[i].offset, SEEK_SET);
242			if (entries[i].length > 63) entries[i].length = 63;
243			fspec->name = fread((char ) fspec->name + 1, sizeof (char), entries[i].length, infile);
244			SetCursor(&arrow);
245			NAputFile("\pSave decoded file as:", fspec->name, &reply);
246			SetCursor(&watch);
247			statrefresh();
248			if (!reply.sfGood) return (didchat = -1);
249			*fspec = reply.sfFile;
250
251			/* create & get info for file */
252			if (reply.sfReplacing) HDelete(fspec->vRefNum, fspec->parID, fspec->name);
253			if (HCreate(fspec->vRefNum, fspec->parID, fspec->name, '????', '????') != noErr) {
254			return (-1);
255			}
256			fpb = (HFileInfo *) &cipbr;
257			fpb->ioVRefNum = fspec->vRefNum;
258			fpb->ioNamePtr = fspec->name;
259			fpb->ioDirID = fspec->parID;
260			fpb->ioFDirIndex = 0;
261			PBGetCatInfoSync(&cipbr);
262
263			/* get finder info */
264			for (i = 0; i < j && entries[i].id != ENT_FINFO; ++i);
265			if (i < j) {
266			fseek(infile, entries[i].offset, SEEK_SET);
267			fread((char *) &fpb->ioFlFndrInfo, sizeof (FInfo), 1, infile);
268			fread((char *) &fpb->ioFlXFndrInfo, sizeof (FXInfo), 1, infile);
269			fpb->ioFlFndrInfo.fdFlags &= 0xf800; /* clear flags maintained by finder */
270			}
271
272			/* get file date info */
273			for (i = 0; i < j && entries[i].id != ENT_DATES; ++i);
274			if (i < j) {
275			fseek(infile, entries[i].offset, SEEK_SET);
276			fread((char *) &dates, sizeof (dates), 1, infile);
277			fpb->ioFlCrDat = dates.create - CONVERT_TIME;
278			fpb->ioFlMdDat = dates.modify - CONVERT_TIME;
279			fpb->ioFlBkDat = dates.backup - CONVERT_TIME;
280			}
281
282			/* update info */
283			fpb->ioDirID = fpb->ioFlParID;
284			PBSetCatInfoSync(&cipbr);
285
286			/* get comment & save it */
287			for (i = 0; i < j && entries[i].id != ENT_COMMENT; ++i);
288			if (i < j && entries[i].length != 0) {
289			memset((void *) &vinfo, '\0', sizeof (vinfo));
290			vinfo.ioVRefNum = fpb->ioVRefNum;
291			vinfo.ioBuffer = (Ptr) &vp;
292			vinfo.ioReqCount = sizeof (vp);
293			if (PBHGetVolParmsSync((HParmBlkPtr) &vinfo) == noErr &&
294			((vp.vMAttrib >> bHasDesktopMgr) & 1)) {
295			memset((void *) &dtp, '\0', sizeof (dtp));
296			dtp.ioVRefNum = fpb->ioVRefNum;
297			if (PBDTGetPath(&dtp) == noErr) {
298			if (entries[i].length > 255) entries[i].length = 255;
299			fseek(infile, entries[i].offset, SEEK_SET);
300			fread(comment, entries[i].length, 1, infile);
301			dtp.ioDTBuffer = (Ptr) comment;
302			dtp.ioNamePtr = fpb->ioNamePtr;
303			dtp.ioDirID = fpb->ioDirID;
304			dtp.ioDTReqCount = entries[i].length;
305			if (PBDTSetCommentSync(&dtp) == noErr) {
306			PBDTFlushSync(&dtp);
307			}
308			}
309			}
310			}
311
312			/* do resource/data forks */
313			for (i = 0; i < j; ++i) {
314			if (entries[i].id == ENT_RFORK \|\| entries[i].id == ENT_DFORK) {
315			fseek(infile, entries[i].offset, SEEK_SET);
316			if (entries[i].id == ENT_DFORK) {
317			err = HOpen(fspec->vRefNum, fspec->parID, fspec->name, 2, &refnum);
318			} else {
319			err = HOpenRF(fspec->vRefNum, fspec->parID, fspec->name, 2, &refnum);
320			}
321			if (err != noErr) {
322			HDelete(fspec->vRefNum, fspec->parID, fspec->name);
323			return (-1);
324			}
325			while (entries[i].length > sizeof (copy_buf)) {
326			count = fread(copy_buf, sizeof (char), sizeof (copy_buf), infile);
327			entries[i].length -= count;
328			FSWrite(refnum, &count, (Ptr) copy_buf);
329			}
330			count = fread(copy_buf, sizeof (char), entries[i].length, infile);
331			FSWrite(refnum, &count, (Ptr) copy_buf);
332			FSClose(refnum);
333			}
334			}
335
336			return (0);
337			}