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
|
include <mach.h>
define SZ_IOBUF 2048
# BSWAP -- Copy a file, swapping the bytes.
procedure t_bswap()
bool wordswap
int in, out, nchars
pointer sp, input, output, bp
int open(), read()
bool clgetb()
begin
call smark (sp)
call salloc (input, SZ_FNAME, TY_CHAR)
call salloc (output, SZ_FNAME, TY_CHAR)
call salloc (bp, SZ_IOBUF, TY_CHAR)
call clgstr ("input", Memc[input], SZ_FNAME)
call clgstr ("output", Memc[output], SZ_FNAME)
wordswap = clgetb ("wordswap")
in = open (Memc[input], READ_ONLY, BINARY_FILE)
out = open (Memc[output], NEW_FILE, BINARY_FILE)
repeat {
nchars = read (in, Memc[bp], SZ_IOBUF)
if (nchars > 0) {
if (wordswap)
call bswap4 (Memc[bp], 1, Memc[bp], 1, nchars * SZB_CHAR)
else
call bswap2 (Memc[bp], 1, Memc[bp], 1, nchars * SZB_CHAR)
call write (out, Memc[bp], nchars)
}
} until (nchars == EOF)
call close (in)
call close (out)
end
|
