Changeset 4777

Timestamp:

04/16/10 11:37:58 (3 years ago)

Author:

douglask

Message:

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

Files:

• vic/branches/mpeg4/tcl/ui-util.tcl (modified) (1 diff)

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

@@ -371 +371 @@
         }
         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 ""
+}
+