Initial revision

12 files changed, 536 insertions, 0 deletions

diff --git a/Demo/sgi/al/alwatch.py b/Demo/sgi/al/alwatch.py
new file mode 100755
index 0000000..5af0935
--- /dev/null
+++ b/Demo/sgi/al/alwatch.py
@@ -0,0 +1,19 @@
+import time
+import al
+dev = 1
+name = ['input source', 'left input atten', 'right input atten', \
+	'input rate', 'output rate', \
+	'left speaker gain', 'right speaker gain', \
+	'input count', 'output count', 'unused count', \
+	'sync input to aes', 'sync output to aes', \
+	]
+x = al.queryparams(dev)
+al.getparams(dev, x)
+while 1:
+	time.millisleep(100)
+	y = x[:]
+	al.getparams(dev, x)
+	if x <> y:
+		for i in range(0, len(x), 2):
+			if x[i+1] <> y[i+1]:
+				print name[x[i]], ':', y[i+1], '-->', x[i+1]
diff --git a/Demo/sgi/al/broadcast.py b/Demo/sgi/al/broadcast.py
new file mode 100755
index 0000000..22452a3
--- /dev/null
+++ b/Demo/sgi/al/broadcast.py
@@ -0,0 +1,27 @@
+#! /ufs/guido/bin/sgi/python
+
+# broadcast [port]
+#
+# Broadcast audio input on the network as UDP packets;
+# they can be received on any SGI machine with "radio.py".
+# This uses the input sampling rate, input source etc. set by apanel.
+# It uses the default sample width and #channels (16 bit/sample stereo).
+# (This is 192,000 Bytes at a sampling speed of 48 kHz, or ~137
+# packets/second -- use with caution!!!)
+
+import sys, al
+from socket import *
+
+port = 54321
+if sys.argv[1:]: port = eval(sys.argv[1])
+
+s = socket(AF_INET, SOCK_DGRAM)
+s.allowbroadcast(1)
+
+p = al.openport('broadcast', 'r')
+
+address = '<broadcast>', port
+while 1:
+	# 700 samples equals 1400 bytes, or about the max packet size!
+	data = p.readsamps(700)
+	s.sendto(data, address)
diff --git a/Demo/sgi/al/intercom.py b/Demo/sgi/al/intercom.py
new file mode 100755
index 0000000..67c424a
--- /dev/null
+++ b/Demo/sgi/al/intercom.py
@@ -0,0 +1,218 @@
+# intercom -- use mike and headset to *talk* to a person on another host.
+# For SGI 4D/35 or Indigo running IRIX 4.0.
+# Uses 16 bit sampling at 16000 samples/sec, or 32000 bytes/sec,
+# tranmitted in 32 1000-byte UDP packets.  (In each direction!)
+#
+# usage:
+#	intercom hostname	- start talking to person on other host
+#	intercom -r hostname	- called remotely to do the setup
+
+import sys, time, posix, gl, fl, FL, al, AL, getopt, rand
+from socket import *
+
+# Hack sys.path so AL can be found
+LIB = '/ufs/guido/lib/python'
+if LIB not in sys.path: sys.path.insert(0, LIB)
+
+# Python binary to be used on remote machine
+PYTHON = '/ufs/guido/bin/sgi/python'
+
+# Directory where the programs live
+AUDIODIR = '/ufs/guido/mm/demo/audio'
+
+# UDP port numbers used (one for each direction!)
+PORT1 = 51042
+PORT2 = PORT1+1
+
+# Figure out the user name
+try:
+	user = posix.environ['LOGNAME']
+except:
+	user = posix.environ['USER']
+
+# Debug flags (Implemented as a list; non-empty means debugging is on)
+debug = []
+
+def main():
+	remote = 0
+	opts, args = getopt.getopt(sys.argv[1:], 'rd')
+	for opt, arg in opts:
+		if opt = '-r': remote = 1
+		elif opt = '-d': debug.append(opt)
+	if len(args) <> 1:
+		msg = 'usage: intercom [-d] [-r] hostname'
+		msg = msg + ' (-r is for internal use only!)\n'
+		sys.stderr.write(msg)
+		sys.exit(2)
+	if remote:
+		server(args[0])
+	else:
+		client(args[0])
+
+def client(hostname):
+	print 'client starting'
+	cmd = 'rsh ' + hostname + ' "cd ' + AUDIODIR
+	cmd = cmd + '; DISPLAY=:0; export DISPLAY'
+	cmd = cmd + '; exec ' + PYTHON + ' intercom.py -r '
+	for flag in debug: cmd = cmd + flag + ' '
+	cmd = cmd + gethostname()
+	cmd = cmd + '"'
+	pipe = posix.popen(cmd, 'r')
+	ack = 0
+	nak = 0
+	while 1:
+		line = pipe.readline()
+		if not line: break
+		sys.stdout.write('remote: ' + line)
+		if line = 'NAK\n':
+			nak = 1
+			break
+		elif line = 'ACK\n':
+			ack = 1
+			break
+	if nak:
+		print 'Remote user doesn\'t want to talk to you.'
+		return
+	if not ack:
+		print 'No acknowledgement (remote side crashed?).'
+		return
+	#
+	print 'Ready...'
+	#
+	s = socket(AF_INET, SOCK_DGRAM)
+	s.bind('', PORT2)
+	#
+	otheraddr = gethostbyname(hostname), PORT1
+	try:
+		ioloop(s, otheraddr)
+	except KeyboardInterrupt:
+		log('client got intr')
+	except error:
+		log('client got error')
+	finally:
+		s.sendto('', otheraddr)
+		log('client finished sending empty packet to server')
+	#
+	log('client exit')
+	print 'Done.'
+
+def server(hostname):
+	print 'server starting'
+	sys.stdout.flush()
+	# 
+	if not remotedialog():
+		print 'NAK'
+		return
+	#
+	print 'ACK'
+	#
+	s = socket(AF_INET, SOCK_DGRAM)
+	s.bind('', PORT1)
+	#
+	# Close std{in,out,err} so rsh will exit; reopen them as dummies
+	#
+	sys.stdin.close()
+	sys.stdin = open('/dev/null', 'r')
+	sys.stdout.close()
+	sys.stdout = open('/dev/null', 'w')
+	sys.stderr.close()
+	if debug:
+		sys.stderr = open('/tmp/intercom.err', 'a')
+	else:
+		sys.stderr = open('/dev/null', 'w')
+	#
+	ioloop(s, (gethostbyname(hostname), PORT2))
+	log('server exit')
+	sys.exit(0)
+
+def remotedialog():
+	gl.foreground()
+	gl.ringbell()
+	m1 = user + ' wants to talk to you over the audio channel.'
+	m2 = 'If it\'s OK, put on your headset and click Yes.'
+	m3 = 'If you\'re too busy, click No.'
+	return fl.show_question(m1, m2, m3)
+
+def ioloop(s, otheraddr):
+	#
+	dev = AL.DEFAULT_DEVICE
+	params = al.queryparams(dev)
+	al.getparams(dev, params)
+	time.sleep(1)
+	saveparams = params[:]
+	for i in range(0, len(params), 2):
+		if params[i] in (AL.INPUT_RATE, AL.OUTPUT_RATE):
+			params[i+1] = AL.RATE_16000
+		elif params[i] = AL.INPUT_SOURCE:
+			params[i+1] = AL.INPUT_MIC
+	try:
+		al.setparams(dev, params)
+		ioloop1(s, otheraddr)
+	finally:
+		al.setparams(dev, saveparams)
+
+def ioloop1(s, otheraddr):
+	#
+	# Watch out! data is in bytes, but the port counts in samples,
+	# which are two bytes each (for 16-bit samples).
+	# Luckily, we use mono, else it would be worse (2 samples/frame...)
+	#
+	SAMPSPERBUF = 500
+	BYTESPERSAMP = 2 # AL.SAMPLE_16
+	BUFSIZE = BYTESPERSAMP*SAMPSPERBUF
+	QSIZE = 4*SAMPSPERBUF
+	#
+	config = al.newconfig()
+	config.setqueuesize(QSIZE)
+	config.setwidth(AL.SAMPLE_16)
+	config.setchannels(AL.MONO)
+	#
+	pid = posix.fork()
+	if pid:
+		# Parent -- speaker/headphones handler
+		log('parent started')
+		spkr = al.openport('spkr', 'w', config)
+		while 1:
+			data = s.recv(BUFSIZE)
+			if len(data) = 0:
+				# EOF packet
+				log('parent got empty packet; killing child')
+				posix.kill(pid, 15)
+				return
+			# Discard whole packet if we are too much behind
+			if spkr.getfillable() > len(data) / BYTESPERSAMP:
+				if len(debug) >= 2:
+					log('parent Q full; dropping packet')
+				spkr.writesamps(data)
+	else:
+		# Child -- microphone handler
+		log('child started')
+		try:
+			mike = al.openport('mike', 'r', config)
+			# Sleep a while to let the other side get started
+			time.sleep(1)
+			# Drain the queue before starting to read
+			data = mike.readsamps(mike.getfilled())
+			# Loop, sending packets from the mike to the net
+			while 1:
+				data = mike.readsamps(SAMPSPERBUF)
+				s.sendto(data, otheraddr)
+		except KeyboardInterrupt:
+			log('child got interrupt; exiting')
+			posix._exit(0)
+		except error:
+			log('child got error; exiting')
+			posix._exit(1)
+		finally:
+			log('child got unexpected error; leaving w/ traceback')
+
+def log(msg):
+	if not debug: return
+	if type(msg) <> type(''):
+		msg = `msg`
+	
+	f = open('/tmp/intercom.log', 'a')
+	f.write(`sys.argv` + ' ' + `posix.getpid()` + ': ' + msg + '\n')
+	f.close()
+
+main()
diff --git a/Demo/sgi/al/listen.py b/Demo/sgi/al/listen.py
new file mode 100755
index 0000000..83f850a
--- /dev/null
+++ b/Demo/sgi/al/listen.py
@@ -0,0 +1,34 @@
+# Listen to the input on host argv[1].
+
+import sys, al, AL, posix
+
+BUFSIZE = 2000
+QSIZE = 4000
+
+def main():
+	if len(sys.argv) <> 2:
+		sys.stderr.write('usage: ' + sys.argv[0] + ' hostname\n')
+		sys.exit(2)
+	hostname = sys.argv[1]
+	cmd = 'exec rsh </dev/null ' + hostname + \
+		' "cd /ufs/guido/mm/demo/audio; ' + \
+		'exec /ufs/guido/bin/sgi/python record.py"'
+	pipe = posix.popen(cmd, 'r')
+	config = al.newconfig()
+	config.setchannels(AL.MONO)
+	config.setqueuesize(QSIZE)
+	port = al.openport('', 'w', config)
+	while 1:
+		data = pipe.read(BUFSIZE)
+		if not data:
+			sts = pipe.close()
+			sys.stderr.write(sys.argv[0] + ': end of data\n')
+			if sts: sys.stderr.write('rsh exit status '+`sts`+'\n')
+			sys.exit(1)
+		port.writesamps(data)
+		del data
+
+try:
+	main()
+except KeyboardInterrupt:
+	sys.exit(1)
diff --git a/Demo/sgi/al/playaiff.py b/Demo/sgi/al/playaiff.py
new file mode 100755
index 0000000..f84a68c
--- /dev/null
+++ b/Demo/sgi/al/playaiff.py
@@ -0,0 +1,54 @@
+import aiff
+import al
+import sys
+import time
+
+def main():
+	v = 1
+	c = al.newconfig()
+	nchannels = c.getchannels()
+	nsampframes = 0 # ???
+	sampwidth = c.getwidth()
+	samprate = 0.0 # unknown
+	filename = sys.argv[1]
+	f = open(filename, 'r')
+	type, totalsize = aiff.read_chunk_header(f)
+	if type <> 'FORM':
+		raise aiff.Error, 'FORM chunk expected at start of file'
+	aiff.read_form_chunk(f)
+	while 1:
+		try:
+			type, size = aiff.read_chunk_header(f)
+		except EOFError:
+			break
+		if v: print 'header:', `type`, size
+		if type = 'COMM':
+			nchannels, nsampframes, sampwidth, samprate = \
+				aiff.read_comm_chunk(f)
+			if v: print nchannels, nsampframes, sampwidth, samprate
+		elif type = 'SSND':
+			offset, blocksize = aiff.read_ssnd_chunk(f)
+			if v: print offset, blocksize
+			data = f.read(size-8)
+			if size%2: void = f.read(1)
+			p = makeport(nchannels, sampwidth, samprate)
+			play(p, data, offset, blocksize)
+		elif type in aiff.skiplist:
+			aiff.skip_chunk(f, size)
+		else:
+			raise aiff.Error, 'bad chunk type ' + type
+
+def makeport(nchannels, sampwidth, samprate):
+	c = al.newconfig()
+	c.setchannels(nchannels)
+	c.setwidth(sampwidth/8)
+	# can't set the rate...
+	p = al.openport('', 'w', c)
+	return p
+
+def play(p, data, offset, blocksize):
+	data = data[offset:]
+	p.writesamps(data)
+	while p.getfilled() > 0: time.millisleep(10)
+
+main()
diff --git a/Demo/sgi/al/playback.py b/Demo/sgi/al/playback.py
new file mode 100755
index 0000000..967f746
--- /dev/null
+++ b/Demo/sgi/al/playback.py
@@ -0,0 +1,23 @@
+# Read mono 16bit samples from stdin and write them to the audio device.
+# Assume the sampling rate is compatible.
+# Use a small queue size to minimize delays.
+
+import al, sys
+import AL
+
+BUFSIZE = 2000
+QSIZE = 4000
+
+def main():
+	c = al.newconfig()
+	c.setchannels(AL.MONO)
+	c.setqueuesize(QSIZE)
+	p = al.openport('', 'w', c)
+	while 1:
+		data = sys.stdin.read(BUFSIZE)
+		p.writesamps(data)
+
+try:
+	main()
+except KeyboardInterrupt:
+	sys.exit(1)
diff --git a/Demo/sgi/al/playold.py b/Demo/sgi/al/playold.py
new file mode 100755
index 0000000..85a157d
--- /dev/null
+++ b/Demo/sgi/al/playold.py
@@ -0,0 +1,51 @@
+# Play old style sound files (Guido's private format)
+
+import al, sys, time
+import AL
+
+BUFSIZE = 8000
+
+def main():
+	if len(sys.argv) < 2:
+		f = sys.stdin
+		filename = sys.argv[0]
+	else:
+		if len(sys.argv) <> 2:
+			sys.stderr.write('usage: ' + \
+					 sys.argv[0] + ' filename\n')
+			sys.exit(2)
+		filename = sys.argv[1]
+		f = open(filename, 'r')
+	#
+	magic = f.read(4)
+	extra = ''
+	if magic = '0008':
+		rate = 8000
+	elif magic = '0016':
+		rate = 16000
+	elif magic = '0032':
+		rate = 32000
+	else:
+		sys.stderr.write('no magic header; assuming 8k samples/sec.\n')
+		rate = 8000
+		extra = magic
+	#
+	pv = [AL.OUTPUT_RATE, rate]
+	al.setparams(AL.DEFAULT_DEVICE, pv)
+	c = al.newconfig()
+	c.setchannels(AL.MONO)
+	c.setwidth(AL.SAMPLE_8)
+	port = al.openport(filename, 'w', c)
+	if extra:
+		port.writesamps(extra)
+	while 1:
+		buf = f.read(BUFSIZE)
+		if not buf: break
+		port.writesamps(buf)
+	while port.getfilled() > 0:
+		time.millisleep(100)
+
+try:
+	main()
+except KeyboardInterrupt:
+	sys.exit(1)
diff --git a/Demo/sgi/al/radio.py b/Demo/sgi/al/radio.py
new file mode 100755
index 0000000..1b72369
--- /dev/null
+++ b/Demo/sgi/al/radio.py
@@ -0,0 +1,21 @@
+#! /ufs/guido/bin/sgi/python
+
+# radio [port]
+#
+# Receive audio packets broadcast by "broadcast.py" on another SGI machine.
+# Use apanel to set the output sampling rate to match that of the broadcast.
+
+import sys, al
+from socket import *
+
+port = 54321
+if sys.argv[1:]: port = eval(sys.argv[1])
+
+s = socket(AF_INET, SOCK_DGRAM)
+s.bind('', port)
+
+p = al.openport('radio', 'w')
+
+while 1:
+	data = s.recv(1400)
+	p.writesamps(data)
diff --git a/Demo/sgi/al/rec_play.py b/Demo/sgi/al/rec_play.py
new file mode 100755
index 0000000..e538b99
--- /dev/null
+++ b/Demo/sgi/al/rec_play.py
@@ -0,0 +1,28 @@
+#
+# records an AIFF sample and plays it
+# infinity number of times.
+#
+
+import time
+import al
+
+def recordit () :
+	p = al.openport('hello', 'r')
+	print 'recording...'
+	buf = p.readsamps(500000)
+	print 'done.'
+	p.closeport()
+	
+	return buf
+
+def playit (buf) :
+	p = al.openport('hello', 'w')
+	print 'playing...'
+	p.writesamps(buf)
+	while p.getfilled() > 0:
+		time.millisleep(10)
+	print 'done.'
+	p.closeport()
+
+while 1 :
+	playit (recordit ())
diff --git a/Demo/sgi/al/record.py b/Demo/sgi/al/record.py
new file mode 100755
index 0000000..e5c0f5b
--- /dev/null
+++ b/Demo/sgi/al/record.py
@@ -0,0 +1,23 @@
+# Record mono 16bits samples from the audio device and send them to stdout.
+# Assume the sampling rate is compatible.
+# Use a small queue size to minimize delays.
+
+import al, sys
+import AL
+
+BUFSIZE = 2000
+QSIZE = 4000
+
+def main():
+	c = al.newconfig()
+	c.setchannels(AL.MONO)
+	c.setqueuesize(QSIZE)
+	p = al.openport('', 'r', c)
+	while 1:
+		data = p.readsamps(BUFSIZE)
+		sys.stdout.write(data)
+
+try:
+	main()
+except KeyboardInterrupt:
+	sys.exit(1)
diff --git a/Demo/sgi/al/unicast.py b/Demo/sgi/al/unicast.py
new file mode 100755
index 0000000..8a53592
--- /dev/null
+++ b/Demo/sgi/al/unicast.py
@@ -0,0 +1,26 @@
+#! /ufs/guido/bin/sgi/python
+
+# unicast host [port]
+#
+# Similar to "broadcast.py" but sends to a specific host only;
+# use "radio.py" on the designated host to receive.
+# This is less stressful on other hosts on the same ethernet segment
+# if you need to send to one host only.
+
+import sys, al
+from socket import *
+
+host = sys.argv[1]
+
+port = 54321
+if sys.argv[2:]: port = eval(sys.argv[1])
+
+s = socket(AF_INET, SOCK_DGRAM)
+
+p = al.openport('unicast', 'r')
+
+address = host, port
+while 1:
+	# 700 samples equals 1400 bytes, or about the max packet size!
+	data = p.readsamps(700)
+	s.sendto(data, address)
diff --git a/Demo/sgi/al/x.py b/Demo/sgi/al/x.py
new file mode 100755
index 0000000..ecc12d8
--- /dev/null
+++ b/Demo/sgi/al/x.py
@@ -0,0 +1,12 @@
+# Demonstrate that rsh exits when the remote end closes std{in,out,err}.
+# rsh voorn exec /ufs/guido/bin/sgi/python /ufs/guido/mm/demo/audio/x.py
+
+print 'hoi!'
+import sys
+sys.stdin.close()
+sys.stdout.close()
+sys.stderr.close()
+import time
+time.sleep(5)
+sys.stdout = open('@', 'w')
+sys.stdout.write('Hello\n')