1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#include <string.h>
#include "macunpack.h"
#ifdef BIN
#include "globals.h"
#include "../fileio/machdr.h"
#include "../fileio/wrfile.h"
#include "../fileio/kind.h"
#include "../util/util.h"
#include "../util/masks.h"
extern void mcb();
void bin(header, data_size, UMcp)
char *header;
int data_size, UMcp;
{
char hdr[INFOBYTES];
unsigned long rsrcLength, dataLength;
hdr[0] = getb(infp);
(void)ungetc(hdr[0], infp);
if(hdr[0] != 0) {
if(!strncmp(header + I_AUTHOFF, "BnHq", 4) && hdr[0] == '(') {
do_indent(indent);
(void)fprintf(stderr, "Sorry, this is a fake BinHex 5.0 file. ");
(void)fprintf(stderr, "Debinhex with hexbin first.\n");
#ifdef SCAN
do_error("macunpack: fake BinHex 5.0");
#endif /* SCAN */
} else {
do_indent(indent);
(void)fprintf(stderr, "Sorry, contents not recognized.\n");
#ifdef SCAN
do_error("macunpack: contents not recognized");
#endif /* SCAN */
}
do_indent(indent);
(void)fprintf(stderr, "Copying as a plain file.\n");
#ifdef SCAN
do_idf("", COPY);
#endif /* SCAN */
mcb(header, (unsigned long)in_data_size, (unsigned long)in_rsrc_size,
in_ds + in_rs);
ds_skip = 0;
rs_skip = 0;
in_ds = 0;
in_rs = 0;
return;
}
if(fread(hdr, 1, INFOBYTES - 1, infp) != INFOBYTES) {
(void)fprintf(stderr, "Can't read file header\n");
#ifdef SCAN
do_error("macunpack: Can't read file header");
#endif /* SCAN */
exit(1);
}
rsrcLength = get4(hdr + I_RLENOFF);
dataLength = get4(hdr + I_DLENOFF);
if(UMcp) {
/* Why this? Moreover, we are losing the bundle bit! */
put4(hdr + I_RLENOFF, ++rsrcLength);
put4(hdr + I_DLENOFF, ++dataLength);
}
mcb(hdr, rsrcLength, dataLength, data_size - INFOBYTES);
}
#else /* BIN */
int bin; /* keep lint and some compilers happy */
#endif /* BIN */
|
