ref: d0ab3a0dd8f6355b3603d0fb04043a9ae867639b
dir: /module/riff.m/
# # Microsoft Resource Interchange File Format # with AVI support # Riff: module { PATH: con "/dis/lib/riff.dis"; DEFBUF: con 8192; BI_RGB: con 0; BI_RLE8: con 1; BI_RLE4: con 2; BI_BITFEILD: con 3; RGB: adt { r: int; g: int; b: int; }; Binfosize: con 10*4; Bitmapinfo: adt # Windows bitmap info structure { width: int; # width in pixels height: int; # height in pixels planes: int; # planes of output device (must be 1) bitcount: int; # bits per pixel compression: int; # coding BI_RGB... or IV32 for indeo sizeimage: int; # size in bytes of image xpelpermeter: int; # resolution in pixels per meter ypelpermeter: int; clrused: int; # colors used clrimportant: int; # how fixed is the map cmap: array of RGB; # color map }; AVImainhdr: con 14*4; AVIhdr: adt { usecperframe: int; bytesec: int; flag: int; frames: int; initframes: int; streams: int; bufsize: int; width: int; height: int; }; AVIstreamhdr: con 2*4 + 10*4; AVIstream: adt { # Stream Header information stype: string; handler: string; flags: int; priority: int; initframes: int; scale: int; rate: int; start: int; length: int; bufsize: int; quality: int; samplesz: int; # Stream Format information (decoder specific) fmt: array of byte; binfo: ref Bitmapinfo; fmt2binfo: fn(a: self ref AVIstream): string; }; # Riff descriptor RD: adt { fd: ref sys->FD; # descriptor of RIFF file buf: array of byte; # buffer nbyte: int; # bytes remaining ptr: int; # buffer pointer gethdr: fn(r: self ref RD): (string, int); readn: fn(r: self ref RD, b: array of byte, l: int): int; check4: fn(r: self ref RD, code: string): string; avihdr: fn(r: self ref RD): (ref AVIhdr, string); streaminfo: fn(r: self ref RD): (ref AVIstream, string); skip: fn(r: self ref RD, size: int): int; }; init: fn(); open: fn(file: string): (ref RD, string); };