ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/cmd/gif2bit.b/
# # 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; } }