toast_alaw.cpp

KphoneSI (kpsi) is a SIP (Session Initiation Protocol) user agent for Linux, with which you can in

/*
 * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
 * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for
 * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
 */

/* $Header: /cvsroot/kphone/kphoneSI/gsm/toast_alaw.cpp,v 1.1.1.1 2005/10/12 18:17:03 kgfleischmann Exp $ */

#include	"toast.h"

/*  toast_alaw.c -- manipulate A-law encoded sound.
 */

extern FILE	* in, * out;

#define	A2S(x)	(a2s[  (unsigned char )(x)       ])
#define	S2A(x)	(s2a[ ((unsigned short)(x)) >> 4 ])

static unsigned short a2s[] = {

 60032, 60288, 59520, 59776, 61056, 61312, 60544, 60800,
 57984, 58240, 57472, 57728, 59008, 59264, 58496, 58752,
 62784, 62912, 62528, 62656, 63296, 63424, 63040, 63168,
 61760, 61888, 61504, 61632, 62272, 62400, 62016, 62144,
 43520, 44544, 41472, 42496, 47616, 48640, 45568, 46592,
 35328, 36352, 33280, 34304, 39424, 40448, 37376, 38400,
 54528, 55040, 53504, 54016, 56576, 57088, 55552, 56064,
 50432, 50944, 49408, 49920, 52480, 52992, 51456, 51968,
 65192, 65208, 65160, 65176, 65256, 65272, 65224, 65240,
 65064, 65080, 65032, 65048, 65128, 65144, 65096, 65112,
 65448, 65464, 65416, 65432, 65512, 65528, 65480, 65496,
 65320, 65336, 65288, 65304, 65384, 65400, 65352, 65368,
 64160, 64224, 64032, 64096, 64416, 64480, 64288, 64352,
 63648, 63712, 63520, 63584, 63904, 63968, 63776, 63840,
 64848, 64880, 64784, 64816, 64976, 65008, 64912, 64944,
 64592, 64624, 64528, 64560, 64720, 64752, 64656, 64688,
  5504,  5248,  6016,  5760,  4480,  4224,  4992,  4736,
  7552,  7296,  8064,  7808,  6528,  6272,  7040,  6784,
  2752,  2624,  3008,  2880,  2240,  2112,  2496,  2368,
  3776,  3648,  4032,  3904,  3264,  3136,  3520,  3392,
 22016, 20992, 24064, 23040, 17920, 16896, 19968, 18944,
 30208, 29184, 32256, 31232, 26112, 25088, 28160, 27136,
 11008, 10496, 12032, 11520,  8960,  8448,  9984,  9472,
 15104, 14592, 16128, 15616, 13056, 12544, 14080, 13568,
   344,   328,   376,   360,   280,   264,   312,   296,
   472,   456,   504,   488,   408,   392,   440,   424,
    88,    72,   120,   104,    24,     8,    56,    40,
   216,   200,   248,   232,   152,   136,   184,   168,
  1376,  1312,  1504,  1440,  1120,  1056,  1248,  1184,
  1888,  1824,  2016,  1952,  1632,  1568,  1760,  1696,
   688,   656,   752,   720,   560,   528,   624,   592,
   944,   912,  1008,   976,   816,   784,   880,   848

};


static unsigned char  s2a[] = {

	213,212,215,214,209,208,211,210,221,220,223,222,217,216,219,218,
	197,196,199,198,193,192,195,194,205,204,207,206,201,200,203,202,
	245,245,244,244,247,247,246,246,241,241,240,240,243,243,242,242,
	253,253,252,252,255,255,254,254,249,249,248,248,251,251,250,250,
	229,229,229,229,228,228,228,228,231,231,231,231,230,230,230,230,
	225,225,225,225,224,224,224,224,227,227,227,227,226,226,226,226,
	237,237,237,237,236,236,236,236,239,239,239,239,238,238,238,238,
	233,233,233,233,232,232,232,232,235,235,235,235,234,234,234,234,
	149,149,149,149,149,149,149,149,148,148,148,148,148,148,148,148,
	151,151,151,151,151,151,151,151,150,150,150,150,150,150,150,150,
	145,145,145,145,145,145,145,145,144,144,144,144,144,144,144,144,
	147,147,147,147,147,147,147,147,146,146,146,146,146,146,146,146,
	157,157,157,157,157,157,157,157,156,156,156,156,156,156,156,156,
	159,159,159,159,159,159,159,159,158,158,158,158,158,158,158,158,
	153,153,153,153,153,153,153,153,152,152,152,152,152,152,152,152,
	155,155,155,155,155,155,155,155,154,154,154,154,154,154,154,154,
	133,133,133,133,133,133,133,133,133,133,133,133,133,133,133,133,
	132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,
	135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,135,
	134,134,134,134,134,134,134,134,134,134,134,134,134,134,134,134,
	129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,129,
	128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,
	131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,131,
	130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,130,
	141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,
	140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,140,
	143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,
	142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,142,
	137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,137,
	136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
	139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,139,
	138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,138,
	181,181,181,181,181,181,181,181,181,181,181,181,181,181,181,181,
	181,181,181,181,181,181,181,181,181,181,181,181,181,181,181,181,
	180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,
	180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,180,
	183,183,183,183,183,183,183,183,183,183,183,183,183,183,183,183,
	183,183,183,183,183,183,183,183,183,183,183,183,183,183,183,183,
	182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,
	182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,
	177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,
	177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,177,
	176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,
	176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,
	179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,
	179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,179,
	178,178,178,178,178,178,178,178,178,178,178,178,178,178,178,178,
	178,178,178,178,178,178,178,178,178,178,178,178,178,178,178,178,
	189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,
	189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,189,
	188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
	188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,188,
	191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,
	191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,191,
	190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,
	190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,190,
	185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,
	185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,
	184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,
	184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,184,
	187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,
	187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,
	186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,
	186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,186,
	165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,
	165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,
	165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,
	165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,165,
	164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,
	164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,
	164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,
	164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,164,
	167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,
	167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,
	167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,
	167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,
	166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,
	166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,
	166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,
	166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,166,
	161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,
	161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,
	161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,
	161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,
	160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,
	160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,
	160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,
	160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,
	163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,
	163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,
	163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,
	163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,163,
	162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,
	162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,
	162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,
	162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,162,
	173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,
	173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,
	173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,
	173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,173,
	172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,
	172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,
	172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,
	172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,172,
	175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,
	175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,
	175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,
	175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,
	174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,
	174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,174,