[xiph-commits] r3234 - oogg/trunk

[shans at svn.annodex.net]

Author: shans
Date: 2007-09-11 14:56:42 -0700 (Tue, 11 Sep 2007)
New Revision: 3234

Added:
   oogg/trunk/oogg_dump_complete_packets.ml
Log:
repair packet splits and dump



Added: oogg/trunk/oogg_dump_complete_packets.ml
===================================================================
--- oogg/trunk/oogg_dump_complete_packets.ml	                        (rev 0)
+++ oogg/trunk/oogg_dump_complete_packets.ml	2007-09-11 21:56:42 UTC (rev 3234)
@@ -0,0 +1,7 @@
+let f = File.file_open Sys.argv.(1);;
+let s = File.to_stream f 0;;
+let ps = Page.to_pageStream s;;
+let pps = Packet.to_packetStream ps;;
+let ppps = Packet.reconstruct_timing pps;;
+let pppps = Packet.repair_splits ppps;;
+Packet_util.print_packetStream pppps;;