ref: c8b187f9db503465460d8bafa2d7a758bbcf59ca
dir: /module/quicktime.m/
# # Apple QuickTime File Format # QuickTime: module { PATH: con "/dis/lib/quicktime.dis"; DEFBUF: con 8192; AtomHDR: con 8; Tkhdr: adt { version: int; creation: int; modtime: int; trackid: int; timescale: int; duration: int; timeoff: int; priority: int; layer: int; altgrp: int; volume: int; matrix: array of int; width: int; height: int; }; MvhdrSIZE: con 100; Mvhdr: adt { version: int; create: int; modtime: int; timescale: int; duration: int; rate: int; vol: int; r1: int; r2: int; matrix: array of int; r3: int; r4: int; pvtime: int; posttime: int; seltime: int; seldurat: int; curtime: int; nxttkid: int; }; # QuickTime descriptor QD: adt { fd: ref sys->FD; # descriptor of QuickTime file buf: array of byte; # buffer nbyte: int; # bytes remaining ptr: int; # buffer pointer mvhdr: ref Mvhdr; # movie header desctiptor readn: fn(r: self ref QD, b: array of byte, l: int): int; skip: fn(r: self ref QD, size: int): int; skipatom: fn(r: self ref QD, size: int): int; atomhdr: fn(r: self ref QD): (string, int); mvhd: fn(r: self ref QD, l: int): string; trak: fn(r: self ref QD, l: int): string; }; init: fn(); open: fn(file: string): (ref QD, string); };