[Sumover-dev] [svn commit] r4777 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: douglask
Date: Fri Apr 16 11:37:58 2010
New Revision: 4777

Modified:
   vic/branches/mpeg4/tcl/ui-util.tcl

Log:
With 'vic -Q' now also output the supported codecs


Modified: vic/branches/mpeg4/tcl/ui-util.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-util.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-util.tcl	Fri Apr 16 11:37:58 2010
@@ -370,5 +370,15 @@
 		}
 	}
 	puts "</devices>"
+
+	puts "<codecs>"
+	set codecList [list h261 h261as h263 h263+ mpeg4 h264 raw cellbbvc pvh jpeg]
+	foreach codec $codecList {
+		if { [codecexists $codec] } {
+			puts "	<codec>$codec</codec>"
+		}
+	}
+	puts "</codecs>"
+	puts ""
 }