# Module 'sunaudio' -- interpret sun audio headers

import audio

MAGIC = '.snd'

error = 'sunaudio sound header conversion error'


# convert a 4-char value to integer

def c2i(data):
	if type(data) <> type('') or len(data) <> 4:
		raise error, 'c2i: bad arg (not string[4])'
	bytes = audio.chr2num(data)
	for i in (1, 2, 3):
		if bytes[i] < 0:
			bytes[i] = bytes[i] + 256
	return ((bytes[0]*256 + bytes[1])*256 + bytes[2])*256 + bytes[3]


# read a sound header from an open file

def gethdr(fp):
	if fp.read(4) <> MAGIC:
		raise error, 'gethdr: bad magic word'
	hdr_size = c2i(fp.read(4))
	data_size = c2i(fp.read(4))
	encoding = c2i(fp.read(4))
	sample_rate = c2i(fp.read(4))
	channels = c2i(fp.read(4))
	excess = hdr_size - 24
	if excess < 0:
		raise error, 'gethdr: bad hdr_size'
	if excess > 0:
		info = fp.read(excess)
	else:
		info = ''
	return (data_size, encoding, sample_rate, channels, info)


# read and print the sound header of a named file

def printhdr(file):
	hdr = gethdr(open(file, 'r'))
	data_size, encoding, sample_rate, channels, info = hdr
	while info[-1:] == '\0':
		info = info[:-1]
	print 'File name:  ', file
	print 'Data size:  ', data_size
	print 'Encoding:   ', encoding
	print 'Sample rate:', sample_rate
	print 'Channels:   ', channels
	print 'Info:       ', `info`

@@ -49,22 +49,8 @@
 rs%0A%0A
-import audio%0A%0A
 MAGI
@@ -157,274 +157,94 @@
 def 
-c2i(data):%0A%09if type(data) %3C%3E type('') or len(data) %3C%3E 4:%0A%09%09raise error, 'c2i: bad arg (not string%5B4%5D)'%0A%09bytes = audio.chr2num(data)%0A%09for i in (1, 2, 3):%0A%09%09if bytes%5Bi%5D %3C 0:%0A%09%09%09bytes%5Bi%5D = bytes%5Bi%5D + 256%0A%09return ((bytes%5B0%5D*256 + bytes%5B1%5D)*256 + bytes%5B2%5D)*256 + byte
+get_long_be(s):%0A%09return (ord(s%5B0%5D)%3C%3C24) %7C (ord(s%5B1%5D)%3C%3C16) %7C (ord(s%5B2%5D)%3C%3C8) %7C ord(
 s%5B3%5D
+)
 %0A%0A%0A#
@@ -368,35 +368,43 @@
 rd'%0A%09hdr_size = 
-c2i
+get_long_be
 (fp.read(4))%0A%09da
@@ -409,27 +409,35 @@
 data_size = 
-c2i
+get_long_be
 (fp.read(4))
@@ -449,19 +449,27 @@
 oding = 
-c2i
+get_long_be
 (fp.read
@@ -488,19 +488,27 @@
 _rate = 
-c2i
+get_long_be
 (fp.read
@@ -528,11 +528,19 @@
 s = 
-c2i
+get_long_be
 (fp.

Remove reference to obsolete module 'audio'