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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#
# gif2bit -
#
# A simple command line utility for converting GIF images to
# inferno bitmaps.
#
# Craig Newell, Jan. 1999 CraigN@cheque.uq.edu.au
#
implement gif2bit;
include "sys.m";
sys: Sys;
include "draw.m";
draw: Draw;
Display: import draw;
include "string.m";
include "bufio.m";
bufio: Bufio;
Iobuf: import bufio;
include "imagefile.m";
mod_name := "gif2bit";
gif2bit : module
{
init: fn(ctx: ref Draw->Context, argv: list of string);
};
usage()
{
sys->print("usage: %s <GIF file>\n", mod_name);
exit;
}
init(ctx: ref Draw->Context, argv: list of string)
{
sys = load Sys Sys->PATH;
# check arguments
if (argv == nil)
usage();
mod_name = hd argv;
argv = tl argv;
if (argv == nil)
usage();
s := hd argv;
if (len s && s[0] == '-')
usage();
# load the modules
str := load String String->PATH;
draw = load Draw Draw->PATH;
bufio = load Bufio Bufio->PATH;
remap := load Imageremap Imageremap->PATH;
imgfile := load RImagefile RImagefile->READGIFPATH;
imgfile->init(bufio);
# open the display
display: ref Draw->Display;
if (ctx == nil) {
display = Display.allocate(nil);
} else {
display = ctx.display;
}
# process all the files
while (argv != nil) {
# get the filenames
gif_name := hd argv;
argv = tl argv;
(base_name, nil) := str->splitstrl(gif_name, ".gif");
bit_name := base_name + ".bit";
i := bufio->open(gif_name, Bufio->OREAD);
if (i == nil) {
sys->print("%s: unable to open <%s>\n", mod_name, gif_name);
continue;
}
(raw_img, errstr) := imgfile->read(i);
if (errstr != nil) {
sys->print("%s: %s\n", mod_name, errstr);
continue;
}
i.close();
(img, errstr1) := remap->remap(raw_img, display, 0);
if (errstr1 != nil) {
sys->print("%s: %s\n", mod_name, errstr1);
continue;
}
ofd := sys->create(bit_name, Sys->OWRITE, 8r644);
if (ofd == nil) {
sys->print("%s: unable to create <%s>\n", mod_name, bit_name);
continue;
}
display.writeimage(ofd, img);
ofd = nil;
}
}
|
