audio.tcl

来自「一个用在mips体系结构中的操作系统」· TCL 代码 · 共 33 行

#
# Copyright (C) 1996-1998 by the Board of Trustees
#    of Leland Stanford Junior University.
# 
# This file is part of the SimOS distribution. 
# See LICENSE file for terms of the license. 
#


annotation set simos periodic {
    speak "buh boom"
}

annotation set pc kernel::main:START {
    play /morse/m1/simos/sounds/simpsons/nerd.aiff
}

annotation set simos exit  {
    play /morse/m1/simos/sounds/simpsons/HomerOutOfHere.wav
}

##
## the thing that started it all
##

trace variable MEMORY w plugplug

proc plugplug {name element op} {
    speak plug
    return 1
}