From: urlichs@smurf.sub.org (Matthias Urlichs)
Newsgroups: de.comm.isdn
Subject: Re: ALAW + ISDN-Anrufbeantworter...
Date: 25 Jan 1993 10:30:21 +0100
Organization: University of Karlsruhe, FRG
NNTP-Posting-Host: 127.0.0.1

In de.comm.isdn, article <1993Jan22.084154.1315@xfswob.han.de>,
  to-pse@xfswob.han.de (Tobias Erichsen) writes:
> 
> ISDN-Karten laeuft, als denen von Teles.  Ebenfalls wollte ich noch
> eine Abfrage-Moeglichkeit fuer Soundblaster einbauen... da fehlen mir
> allerdings noch die Specs wie ich die ISDN-Alaw-Daten in normales 8-bit
> PCM Format wandeln kann.  Matthias Urlichs hatte mir schonmal gesagt

Folgendes Programm wandelt alaw nach 8-bit (vorzeichenlos). Fuer Daten mit
Vorzeichen sind die Zuweisungen an val[] entsprechend zu aendern.

Da alaw 12-Bit-PCM kodiert, muss ein Shift angegeben werden. Ein Shift von 3
funktioniert meistens am besten.

Falls ein zweites Argument angegeben wird, wird es als Rechnername
aufgefasst, eine TCP-Verbindung nach Port 65430 aufgemacht, und die 
Daten dorthingeblasen.

Der Decoder laesst sich noch etwas vereinfachen, aber in meinem ISDN-System
sind die Teile in verschiedenen Moduln; ich habe den Kram eben (ungetestet!)
zusammengestoepselt.

#include <sys/types.h>
#include <sys/time.h>
#include <sys/socket.h>
#include <errno.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <stdio.h>
#include <ctype.h>

short mult[] = {2,2,4,8,16,32,64,128};
short base[] = {1,33,66,132,264,528,1056,2112,4032};
uchar_t val[256];

static char cswap[256] = { 
  0x00, 0x80, 0x40, 0xC0, 0x20, 0xA0, 0x60, 0xE0, 0x10, 0x90, 0x50, 0xD0, 0x30, 0xB0, 0x70, 0xF0,
  0x08, 0x88, 0x48, 0xC8, 0x28, 0xA8, 0x68, 0xE8, 0x18, 0x98, 0x58, 0xD8, 0x38, 0xB8, 0x78, 0xF8,
  0x04, 0x84, 0x44, 0xC4, 0x24, 0xA4, 0x64, 0xE4, 0x14, 0x94, 0x54, 0xD4, 0x34, 0xB4, 0x74, 0xF4,
  0x0C, 0x8C, 0x4C, 0xCC, 0x2C, 0xAC, 0x6C, 0xEC, 0x1C, 0x9C, 0x5C, 0xDC, 0x3C, 0xBC, 0x7C, 0xFC,
  0x02, 0x82, 0x42, 0xC2, 0x22, 0xA2, 0x62, 0xE2, 0x12, 0x92, 0x52, 0xD2, 0x32, 0xB2, 0x72, 0xF2,
  0x0A, 0x8A, 0x4A, 0xCA, 0x2A, 0xAA, 0x6A, 0xEA, 0x1A, 0x9A, 0x5A, 0xDA, 0x3A, 0xBA, 0x7A, 0xFA,
  0x06, 0x86, 0x46, 0xC6, 0x26, 0xA6, 0x66, 0xE6, 0x16, 0x96, 0x56, 0xD6, 0x36, 0xB6, 0x76, 0xF6,
  0x0E, 0x8E, 0x4E, 0xCE, 0x2E, 0xAE, 0x6E, 0xEE, 0x1E, 0x9E, 0x5E, 0xDE, 0x3E, 0xBE, 0x7E, 0xFE,
  0x01, 0x81, 0x41, 0xC1, 0x21, 0xA1, 0x61, 0xE1, 0x11, 0x91, 0x51, 0xD1, 0x31, 0xB1, 0x71, 0xF1,
  0x09, 0x89, 0x49, 0xC9, 0x29, 0xA9, 0x69, 0xE9, 0x19, 0x99, 0x59, 0xD9, 0x39, 0xB9, 0x79, 0xF9,
  0x05, 0x85, 0x45, 0xC5, 0x25, 0xA5, 0x65, 0xE5, 0x15, 0x95, 0x55, 0xD5, 0x35, 0xB5, 0x75, 0xF5,
  0x0D, 0x8D, 0x4D, 0xCD, 0x2D, 0xAD, 0x6D, 0xED, 0x1D, 0x9D, 0x5D, 0xDD, 0x3D, 0xBD, 0x7D, 0xFD,
  0x03, 0x83, 0x43, 0xC3, 0x23, 0xA3, 0x63, 0xE3, 0x13, 0x93, 0x53, 0xD3, 0x33, 0xB3, 0x73, 0xF3,
  0x0B, 0x8B, 0x4B, 0xCB, 0x2B, 0xAB, 0x6B, 0xEB, 0x1B, 0x9B, 0x5B, 0xDB, 0x3B, 0xBB, 0x7B, 0xFB,
  0x07, 0x87, 0x47, 0xC7, 0x27, 0xA7, 0x67, 0xE7, 0x17, 0x97, 0x57, 0xD7, 0x37, 0xB7, 0x77, 0xF7,
  0x0F, 0x8F, 0x4F, 0xCF, 0x2F, 0xAF, 0x6F, 0xEF, 0x1F, 0x9F, 0x5F, 0xDF, 0x3F, 0xBF, 0x7F, 0xFF,
};


void main(int argc, char *argv[])
{

	short shift;
	short i,j,k,v;
	short fi = 0;
	
	if(argc < 2) {
		fprintf(stderr,"Usage: %s <shift> < a-law-file > MacSample\n",*argv);
		exit(2);
	}
	shift = atoi(*++argv);
	if(argc > 2) {
		char *host = *++argv;
		short num = 65430;
		if(argc > 3)
			num = atoi(*++argv);
		fi = clientsock(host,num); if(fi < 0) { perror("Open"); exit(1); }
	}

	for (i=0;i<=7;i++) {
		for(j=0;j<=15;j++) {
			k=(i<<4)+j;
			if(shift >= 0)
				v=((base[i]+(mult[i]*j)) >>shift);
			else
				v=k;
			if(v>127) v=127;
			val[k] = 128+v;
			val[255-k]=127-v;
		}
	}

	if(**++argv == '-') {
		printf("{\n");
		for (i=0;i<256;i++) 
			printf("%d,%c",val[i],((i+1)&15)?' ':'\n');
		printf("};\n");
	} else {
		uchar_t arr[10240];
		int len1;
		while((len1=read(fileno(stdin),arr,sizeof arr))>0) {
			uchar_t *arp = arr+len1;
			int len2 = 0;
			while(--arp >= arr)  {
                            unsigned char abyte = *arp ^ 0xAA;
                            if (abyte & 0x01)
                                abyte = cswap[abyte] & 0x7F;
                            else
                                abyte = -cswap[abyte];
				*arp = val[abyte];
			}
			arp++;
			while(len1>0 && (len2=write(fi?fi:fileno(stdout),arp,len1))>0) {
				arp += len2;
				len1 -= len2;
			}
			if(len2<0) {
				perror("Write");
				exit(1);
			} else if(len2 == 0)
				exit(0);

		}
		if(len1<0) {
			perror("Read");
			exit(1);
		}
	}
	exit(0);
}


#ifndef FD_SET		/* for 4.2BSD */
#define FD_SETSIZE      (sizeof(fd_set) * 8)
#define FD_SET(n, p)    (((fd_set *) (p))->fds_bits[0] |= (1 << ((n) % 32)))
#define FD_CLR(n, p)    (((fd_set *) (p))->fds_bits[0] &= ~(1 << ((n) % 32)))
#define FD_ISSET(n, p)  (((fd_set *) (p))->fds_bits[0] & (1 << ((n) % 32)))
#define FD_ZERO(p)      bzero((char *)(p), sizeof(*(p)))
#endif

int clientsock(host, port)
char *host;
int port;
{
	int	sock;
	struct	sockaddr_in server;
	struct	hostent *hp, *gethostbyname();

	bzero(&server, sizeof(server));
	server.sin_family = AF_INET;
	server.sin_port = htons(port);

	if (isdigit(host[0]))
		server.sin_addr.s_addr = inet_addr(host);
	else
	{
		hp = gethostbyname(host);
		if (hp == NULL)
			return -9999;
		bcopy(hp->h_addr, &server.sin_addr, hp->h_length);
	}

	sock = socket(AF_INET, SOCK_STREAM, 0);
	if (sock < 0)
		return -errno;

	if (connect(sock, &server, sizeof(server)) < 0)
	{
		close(sock);
		return -errno;
	}

	return sock;
}


-- 
To everyone is given the key to heaven; the same key opens the gates of hell.
                               --   Ancient proverb
-- 
Matthias Urlichs  --  urlichs@smurf.sub.org -- urlichs@smurf.ira.uka.de   /(o\
Humboldtstrasse 7 -- 7500 Karlsruhe 1 -- Germany  --  +49-721-9612521     \o)/
Newsgroups: de.comm.isdn