/usr/share/tcltk/transcriber/convert/lola.tcl is in transcriber 1.5.1.1-10.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | # RCS: @(#) $Id: lola.tcl,v 1.2 2002/07/10 07:36:37 barras Exp $
# Read OGI Lola format
namespace eval lola {
variable msg "OGI lola"
variable ext ".lola"
proc readSegmt {content} {
set mpf 10.0
set header 1
set segmt {}
foreach line [split $content "\n"] {
set line [string trim $line]
if {$line == ""} continue
if {$header} {
switch -glob -- $line {
"MillisecondsPerFrame:*" {
set mpf [lindex $line 1] }
"END OF HEADER" {
set header 0
}
}
} else {
set begin [expr [lindex $line 0]*$mpf/1000.0]
set end [expr [lindex $line 1]*$mpf/1000.0]
set text [lrange $line 2 end]
lappend segmt [list $begin $end $text]
}
}
return $segmt
}
}
|