/usr/lib/exmh/sound.tcl is in exmh 1:2.8.0-4.
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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | #
# sound.tcl
#
# Audio feedback
#
# Copyright (c) 1993 Xerox Corporation.
# Use and copying of this software and preparation of derivative works based
# upon this software are permitted. Any distribution of this software or
# derivative works must comply with all applicable United States export
# control laws. This software is made available AS IS, and Xerox Corporation
# makes no warranty about the software, its performance or its conformity to
# any specification.
proc Sound_Off {} {
global sound
set oldValue $sound(enabled)
set sound(enabled) 0
return $oldValue
}
proc Sound_On {} {
global sound
if {$sound(cmd) != {} || $sound(bell)} {
set sound(enabled) 1
}
}
proc Sound_Feedback { delta } {
global sound exmh
if {$sound(enabled) && $sound(bell)} {
if [catch bell] {
catch blt_bell
}
Exmh_Debug bell
return
}
if {!$sound(enabled) || ($sound(cmd) == {})} {
return
}
if [string match ~* $sound(newMsg)] {
set sound(newMsg) [glob -nocomplain $sound(newMsg)]
}
if ![string match /* $sound(newMsg)] {
set sound(newMsg) $exmh(library)/$sound(newMsg)
}
set num 0
while {$delta > 0} {
incr num
set delta [expr $delta/4]
}
set cmd [concat exec $sound(cmd)]
if {$sound(multifile)} {
for {set i 0} {$i < $num} {incr i} {
lappend cmd $sound(newMsg)
}
if [catch {
eval $cmd &
} err] {
Exmh_Debug "Sound_Feedback: $err"
}
} else {
for {set i 0} {$i < $num} {incr i} {
if [catch {
eval $cmd $sound(newMsg)
} err] {
Exmh_Debug "Sound_Feedback: $err"
}
}
}
}
proc Sound_Error { } {
global sound exmh
if {!$sound(enabled) || ($sound(cmd) == {})} {
return
}
if [string match ~* $sound(error)] {
set sound(error) [glob -nocomplain $sound(error)]
}
if ![string match /* $sound(error)] {
set sound(error) $exmh(library)/$sound(error)
}
if [catch {
eval exec $sound(cmd) $sound(error)
} err] {
Exmh_Debug "Sound_Error: $err"
}
}
|