diff options
Diffstat (limited to 'appl/wm/mpeg/mpegio.m')
| -rw-r--r-- | appl/wm/mpeg/mpegio.m | 218 |
1 files changed, 218 insertions, 0 deletions
diff --git a/appl/wm/mpeg/mpegio.m b/appl/wm/mpeg/mpegio.m new file mode 100644 index 00000000..378db8aa --- /dev/null +++ b/appl/wm/mpeg/mpegio.m @@ -0,0 +1,218 @@ +# +# MPEG ISO 11172 IO module. +# +Mpegio: module +{ + PATH: con "/dis/mpeg/mpegio.dis"; + + MBSZ: con Sys->ATOMICIO; + + PICTURE_SC: con 16r100; + SLICE1_SC: con 16r101; + SLICEN_SC: con 16r1AF; + USER_SC: con 16r1B2; + SEQUENCE_SC: con 16r1B3; + EXTENSION_SC: con 16r1B5; + SEQUENCE_EC: con 16r1B7; + GROUP_SC: con 16r1B8; + STREAM_EC: con 16r1B9; + PACK_SC: con 16r1BA; + SYSHD_SC: con 16r1BB; + STREAM_BASE: con 16r1BC; + PRIVSTREAM2: con 16r1BF; + AUDIO_STR0: con 16r1C0; + VIDEO_STR0: con 16r1E0; + + MEXCEPT: con "mpeg: "; + X_FORMAT: con "fmt error"; + X_READ: con "read error"; + X_WRITE: con "write error"; + X_EOF: con "premature eof"; + + UNDEF: con 100; + + CONSTRAINED, CLOSED, BROKEN: con 1 << iota; + FPFV, FPBV, GSTART: con 1 << iota; + + IPIC: con 1; + PPIC: con 2; + BPIC: con 3; + DPIC: con 4; + + ptypes: con "0IPBD"; + + MB_Q, MB_MF, MB_MB, MB_P, MB_I: con 1 << iota; + + Stream: adt + { + id: byte; + scale: byte; + bound: int; + fd: ref Sys->FD; + }; + + Picture: adt + { + seek: int; + eos: int; + temporal: int; + ptype: int; + vbvdelay: int; + flags: int; + forwfc: int; + backfc: int; + slices: array of ref Slice; + addr: int; + }; + + Slice: adt + { + blocks: array of ref MacroBlock; + }; + + MacroBlock: adt + { + flags: int; + qscale: int; + mhfc, mhfr, mvfc, mvfr: int; + mhbc, mhbr, mvbc, mvbr: int; + pcode: int; + rls: array of array of Pair; + addr: int; + }; + + YCbCr: adt + { + Y, Cb, Cr: array of byte; + }; + + Pair: type (int, int); + Triple: type (int, int, int); + + Mpegi: adt + { + fd: ref Sys->FD; + name: string; + error: string; + looked: int; + value: int; + # info + width: int; + height: int; + aspect: int; + frames: int; + rate: int; + vbv: int; + flags: int; + intra: array of int; + nintra: array of int; + smpte: int; + # real buffer + seek: int; + index: int; + size: int; + buff: array of byte; + # stream buffer + sid: int; # stream id + slim: int; # stream limit <= size + sresid: int; # stream residual (-1 entire file) + sbits: int; # bits remaining + svalue: int; # current value + + packt0: int; + packt1: int; + packmr: int; + syssz: int; + boundmr: int; + syspar: int; + nstream: int; + streams: array of Stream; + log: ref Sys->FD; + + startsys: fn(m: self ref Mpegi); + packhdr: fn(m: self ref Mpegi); + syshdr: fn(m: self ref Mpegi); + packetcp: fn(m: self ref Mpegi): int; + getfd: fn(m: self ref Mpegi, c: int): ref Sys->FD; + stamps: fn(m: self ref Mpegi): int; + + streaminit: fn(m: self ref Mpegi, c: int); + inittables: fn(); + sseek: fn(m: self ref Mpegi); + seqhdr: fn(m: self ref Mpegi); + grphdr: fn(m: self ref Mpegi); + getquant: fn(m: self ref Mpegi): array of int; + getpicture: fn(m: self ref Mpegi, detail: int): ref Picture; + picture: fn(m: self ref Mpegi, detail: int): ref Picture; + detail: fn(m: self ref Mpegi, p: ref Picture); + skipdetail: fn(m: self ref Mpegi); + slice: fn(m: self ref Mpegi, p: ref Picture): ref Slice; + + cpn: fn(m: self ref Mpegi, fd: ref Sys->FD, n: int); + fill: fn(m: self ref Mpegi); + tell: fn(m: self ref Mpegi): int; + skipn: fn(m: self ref Mpegi, n: int); + getb: fn(m: self ref Mpegi): int; + getw: fn(m: self ref Mpegi): int; + get22: fn(m: self ref Mpegi, s: string): int; + getsc: fn(m: self ref Mpegi): int; + nextsc: fn(m: self ref Mpegi): int; + peeksc: fn(m: self ref Mpegi): int; + xnextsc: fn(m: self ref Mpegi, code: int); + + sfill: fn(m: self ref Mpegi); + sgetb: fn(m: self ref Mpegi): int; + sgetn: fn(m: self ref Mpegi, n: int): int; + sdiffn: fn(m: self ref Mpegi, n: int): int; + sdct: fn(m: self ref Mpegi, a: array of Triple, s: string): Pair; + speekn: fn(m: self ref Mpegi, n: int): int; + smarker: fn(m: self ref Mpegi); + sgetsc: fn(m: self ref Mpegi): int; + snextsc: fn(m: self ref Mpegi): int; + speeksc: fn(m: self ref Mpegi): int; + sseeksc: fn(m: self ref Mpegi); + svlc: fn(m: self ref Mpegi, a: array of Pair, n: int, s: string): int; + + fmterr: fn(m: self ref Mpegi, s: string); + }; + + init: fn(); + prepare: fn(fd: ref Sys->FD, name: string): ref Mpegi; + raisex: fn(s: string); +}; + +Mpegd: module +{ + PATH: con "/dis/mpeg/decode.dis"; + PATH4: con "/dis/mpeg/decode4.dis"; + + init: fn(m: ref Mpegio->Mpegi); + Idecode: fn(p: ref Mpegio->Picture): ref Mpegio->YCbCr; + Pdecode: fn(p: ref Mpegio->Picture): ref Mpegio->YCbCr; + Bdecode: fn(p: ref Mpegio->Picture): ref Mpegio->YCbCr; + Bdecode2: fn(p: ref Mpegio->Picture, f0, f1: ref Mpegio->YCbCr): ref Mpegio->YCbCr; +}; + +IDCT: module +{ + FPATH: con "/dis/mpeg/fltidct.dis"; # based on rob's jpeg + RPATH: con "/dis/mpeg/refidct.dis"; # reference (full idct) + SPATH: con "/dis/mpeg/scidct.dis"; # scaled integer implementation + XPATH: con "/dis/mpeg/fixidct.dis"; # nasty fixed point + PATH: con SPATH; + + init: fn(); + idct: fn(block: array of int); +}; + +Remap: module +{ + PATH: con "/dis/mpeg/remap.dis"; + PATH1: con "/dis/mpeg/remap1.dis"; + PATH2: con "/dis/mpeg/remap2.dis"; + PATH4: con "/dis/mpeg/remap4.dis"; + PATH24: con "/dis/mpeg/remap24.dis"; + + init: fn(m: ref Mpegio->Mpegi); + remap: fn(p: ref Mpegio->YCbCr): array of byte; +}; |