Changeset 4777

Show
Ignore:
Timestamp:
04/16/10 11:37:58 (4 years ago)
Author:
douglask
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • vic/branches/mpeg4/tcl/ui-util.tcl

    r4715 r4777  
    371371        } 
    372372        puts "</devices>" 
    373 } 
    374  
     373 
     374        puts "<codecs>" 
     375        set codecList [list h261 h261as h263 h263+ mpeg4 h264 raw cellbbvc pvh jpeg] 
     376        foreach codec $codecList { 
     377                if { [codecexists $codec] } { 
     378                        puts "  <codec>$codec</codec>" 
     379                } 
     380        } 
     381        puts "</codecs>" 
     382        puts "" 
     383} 
     384