You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
693 lines
18 KiB
693 lines
18 KiB
/////////////////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Copyright (c) 1998 Active Voice Corporation. All Rights Reserved.
|
|
//
|
|
// Active Agent(r) and Unified Communications(tm) are trademarks of Active Voice Corporation.
|
|
//
|
|
// Other brand and product names used herein are trademarks of their respective owners.
|
|
//
|
|
// The entire program and user interface including the structure, sequence, selection,
|
|
// and arrangement of the dialog, the exclusively "yes" and "no" choices represented
|
|
// by "1" and "2," and each dialog message are protected by copyrights registered in
|
|
// the United States and by international treaties.
|
|
//
|
|
// Protected by one or more of the following United States patents: 5,070,526, 5,488,650,
|
|
// 5,434,906, 5,581,604, 5,533,102, 5,568,540, 5,625,676, 5,651,054.
|
|
//
|
|
// Active Voice Corporation
|
|
// Seattle, Washington
|
|
// USA
|
|
//
|
|
/////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
////
|
|
// mulaw.c - mulaw file format functions
|
|
////
|
|
|
|
#include "winlocal.h"
|
|
|
|
#include <mmsystem.h>
|
|
|
|
#include "mulaw.h"
|
|
#include "mem.h"
|
|
#include "sys.h"
|
|
#include "trace.h"
|
|
#include "wavfmt.h"
|
|
|
|
////
|
|
// private definitions
|
|
////
|
|
|
|
// mulaw engine control structure
|
|
//
|
|
typedef struct MULAW
|
|
{
|
|
DWORD dwVersion;
|
|
HINSTANCE hInst;
|
|
HTASK hTask;
|
|
DWORD dwFlags;
|
|
} MULAW, FAR *LPMULAW;
|
|
|
|
// helper functions
|
|
//
|
|
static LPMULAW MulawGetPtr(HMULAW hMulaw);
|
|
static HMULAW MulawGetHandle(LPMULAW lpMulaw);
|
|
static unsigned char linear2ulaw(int sample);
|
|
static int ulaw2linear(unsigned char ulawbyte);
|
|
|
|
static LRESULT MulawIOOpen(LPMMIOINFO lpmmioinfo, LPTSTR lpszFileName);
|
|
static LRESULT MulawIOClose(LPMMIOINFO lpmmioinfo, UINT uFlags);
|
|
static LRESULT MulawIORead(LPMMIOINFO lpmmioinfo, HPSTR pch, LONG cch);
|
|
static LRESULT MulawIOWrite(LPMMIOINFO lpmmioinfo, const HPSTR pch, LONG cch, BOOL fFlush);
|
|
static LRESULT MulawIOSeek(LPMMIOINFO lpmmioinfo, LONG lOffset, int iOrigin);
|
|
static LRESULT MulawIORename(LPMMIOINFO lpmmioinfo, LPCTSTR lpszFileName, LPCTSTR lpszNewFileName);
|
|
|
|
////
|
|
// public functions
|
|
////
|
|
|
|
// MulawInit - initialize mulaw engine
|
|
// <dwVersion> (i) must be MULAW_VERSION
|
|
// <hInst> (i) instance handle of calling module
|
|
// <dwFlags> (i) reserved; must be 0
|
|
// return handle (NULL if error)
|
|
//
|
|
HMULAW DLLEXPORT WINAPI MulawInit(DWORD dwVersion, HINSTANCE hInst, DWORD dwFlags)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LPMULAW lpMulaw = NULL;
|
|
|
|
if (dwVersion != MULAW_VERSION)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if (hInst == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if ((lpMulaw = (LPMULAW) MemAlloc(NULL, sizeof(MULAW), 0)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else
|
|
{
|
|
// initialize engine structure
|
|
//
|
|
lpMulaw->dwVersion = dwVersion;
|
|
lpMulaw->hInst = hInst;
|
|
lpMulaw->hTask = GetCurrentTask();
|
|
lpMulaw->dwFlags = dwFlags;
|
|
|
|
if (MulawReset(MulawGetHandle(lpMulaw)) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
}
|
|
|
|
if (!fSuccess)
|
|
{
|
|
MulawTerm(MulawGetHandle(lpMulaw));
|
|
lpMulaw = NULL;
|
|
}
|
|
|
|
return fSuccess ? MulawGetHandle(lpMulaw) : NULL;
|
|
}
|
|
|
|
// MulawTerm - shut down mulaw engine
|
|
// <hMulaw> (i) handle returned from MulawInit
|
|
// return 0 if success
|
|
//
|
|
int DLLEXPORT WINAPI MulawTerm(HMULAW hMulaw)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LPMULAW lpMulaw;
|
|
|
|
if ((lpMulaw = MulawGetPtr(hMulaw)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if ((lpMulaw = MemFree(NULL, lpMulaw)) != NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
return fSuccess ? 0 : -1;
|
|
}
|
|
|
|
// MulawReset - reset mulaw engine
|
|
// <hMulaw> (i) handle returned from MulawInit
|
|
// return 0 if success
|
|
//
|
|
int DLLEXPORT WINAPI MulawReset(HMULAW hMulaw)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LPMULAW lpMulaw;
|
|
|
|
if ((lpMulaw = MulawGetPtr(hMulaw)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else
|
|
{
|
|
// currently nothing to do
|
|
}
|
|
|
|
return fSuccess ? 0 : -1;
|
|
}
|
|
|
|
// MulawDecode - decode mulaw samples
|
|
// <hMulaw> (i) handle returned from MulawInit
|
|
// <lpabMulaw> (i) array of encoded samples
|
|
// <lpaiPcm> (o) array of decoded samples
|
|
// <uSamples> (i) number of samples to decode
|
|
// return 0 if success
|
|
//
|
|
// NOTE: each BYTE in <lpabMulaw> contains 1 8-bit encoded sample
|
|
// in Mulaw format.
|
|
// Each PCM16 in <lpaiPcm> contains 1 16-bit decoded sample
|
|
// in standard PCM format.
|
|
//
|
|
int DLLEXPORT WINAPI MulawDecode(HMULAW hMulaw, LPBYTE lpabMulaw, LPPCM16 lpaiPcm, UINT uSamples)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LPMULAW lpMulaw;
|
|
|
|
if ((lpMulaw = MulawGetPtr(hMulaw)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if (lpaiPcm == NULL || lpabMulaw == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// decode each sample
|
|
//
|
|
else while (uSamples-- > 0)
|
|
*lpaiPcm++ = (PCM16) ulaw2linear((BYTE) *lpabMulaw++);
|
|
|
|
return fSuccess ? 0 : -1;
|
|
}
|
|
|
|
// MulawEncode - encode mulaw samples
|
|
// <hMulaw> (i) handle returned from MulawInit
|
|
// <lpaiPcm> (i) array of decoded samples
|
|
// <lpabMulaw> (o) array of encoded samples
|
|
// <uSamples> (i) number of samples to encode
|
|
// return 0 if success
|
|
//
|
|
// NOTE: each BYTE in <lpabMulaw> contains 1 8-bit encoded sample
|
|
// in Mulaw format.
|
|
// Each PCM16 in <lpaiPcm> contains 1 16-bit decoded sample
|
|
// in standard PCM format.
|
|
//
|
|
int DLLEXPORT WINAPI MulawEncode(HMULAW hMulaw, LPPCM16 lpaiPcm, LPBYTE lpabMulaw, UINT uSamples)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LPMULAW lpMulaw;
|
|
|
|
if ((lpMulaw = MulawGetPtr(hMulaw)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if (lpaiPcm == NULL || lpabMulaw == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// encode each sample
|
|
//
|
|
else while (uSamples-- > 0)
|
|
*lpabMulaw++ = (BYTE) linear2ulaw((PCM16) *lpaiPcm++);
|
|
|
|
return fSuccess ? 0 : -1;
|
|
}
|
|
|
|
// MulawIOProc - i/o procedure for mulaw format file data
|
|
// <lpmmioinfo> (i/o) information about open file
|
|
// <uMessage> (i) message indicating the requested I/O operation
|
|
// <lParam1> (i) message specific parameter
|
|
// <lParam2> (i) message specific parameter
|
|
// returns 0 if message not recognized, otherwise message specific value
|
|
//
|
|
// NOTE: the address of this function should be passed to the WavOpen()
|
|
// or mmioInstallIOProc() functions for accessing mulaw format file data.
|
|
//
|
|
LRESULT DLLEXPORT CALLBACK MulawIOProc(LPTSTR lpmmioinfo,
|
|
UINT uMessage, LPARAM lParam1, LPARAM lParam2)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LRESULT lResult = 0;
|
|
|
|
if (lpmmioinfo == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else switch (uMessage)
|
|
{
|
|
case MMIOM_OPEN:
|
|
lResult = MulawIOOpen((LPMMIOINFO) lpmmioinfo,
|
|
(LPTSTR) lParam1);
|
|
break;
|
|
|
|
case MMIOM_CLOSE:
|
|
lResult = MulawIOClose((LPMMIOINFO) lpmmioinfo,
|
|
(UINT) lParam1);
|
|
break;
|
|
|
|
case MMIOM_READ:
|
|
lResult = MulawIORead((LPMMIOINFO) lpmmioinfo,
|
|
(HPSTR) lParam1, (LONG) lParam2);
|
|
break;
|
|
|
|
case MMIOM_WRITE:
|
|
lResult = MulawIOWrite((LPMMIOINFO) lpmmioinfo,
|
|
(const HPSTR) lParam1, (LONG) lParam2, FALSE);
|
|
break;
|
|
|
|
case MMIOM_WRITEFLUSH:
|
|
lResult = MulawIOWrite((LPMMIOINFO) lpmmioinfo,
|
|
(const HPSTR) lParam1, (LONG) lParam2, TRUE);
|
|
break;
|
|
|
|
case MMIOM_SEEK:
|
|
lResult = MulawIOSeek((LPMMIOINFO) lpmmioinfo,
|
|
(LONG) lParam1, (int) lParam2);
|
|
break;
|
|
|
|
case MMIOM_RENAME:
|
|
lResult = MulawIORename((LPMMIOINFO) lpmmioinfo,
|
|
(LPCTSTR) lParam1, (LPCTSTR) lParam2);
|
|
break;
|
|
|
|
default:
|
|
lResult = 0;
|
|
break;
|
|
}
|
|
|
|
return lResult;
|
|
}
|
|
|
|
////
|
|
// private functions
|
|
////
|
|
|
|
// MulawGetPtr - verify that mulaw handle is valid,
|
|
// <hMulaw> (i) handle returned from MulawInit
|
|
// return corresponding mulaw pointer (NULL if error)
|
|
//
|
|
static LPMULAW MulawGetPtr(HMULAW hMulaw)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
LPMULAW lpMulaw;
|
|
|
|
if ((lpMulaw = (LPMULAW) hMulaw) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if (IsBadWritePtr(lpMulaw, sizeof(MULAW)))
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
#ifdef CHECKTASK
|
|
// make sure current task owns the mulaw engine handle
|
|
//
|
|
else if (lpMulaw->hTask != GetCurrentTask())
|
|
fSuccess = TraceFALSE(NULL);
|
|
#endif
|
|
|
|
return fSuccess ? lpMulaw : NULL;
|
|
}
|
|
|
|
// MulawGetHandle - verify that mulaw pointer is valid,
|
|
// <lpMulaw> (i) pointer to MULAW structure
|
|
// return corresponding mulaw handle (NULL if error)
|
|
//
|
|
static HMULAW MulawGetHandle(LPMULAW lpMulaw)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
HMULAW hMulaw;
|
|
|
|
if ((hMulaw = (HMULAW) lpMulaw) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
return fSuccess ? hMulaw : NULL;
|
|
}
|
|
|
|
////
|
|
// low-level mulaw stuff
|
|
////
|
|
|
|
// source - http://www.speech.su.oz.au/comp.speech/Section2/Q2.7.html
|
|
|
|
#define ZEROTRAP // turn on the trap as per the MIL-STD
|
|
#define BIAS 0x84 // define the add-in bias for 16 bit samples
|
|
#define CLIP 32635
|
|
|
|
//// linear2ulaw - this routine converts from 16 bit linear to ulaw
|
|
//
|
|
// Craig Reese: IDA/Supercomputing Research Center
|
|
// Joe Campbell, Department of Defense
|
|
// 29 September 1989
|
|
//
|
|
// References:
|
|
// 1) CCITT Recommendation G.711 (very difficult to follow)
|
|
// 2) "A New Digital Technique for Implementation of Any
|
|
// Continuous PCM Companding Law," Villeret, Michel,
|
|
// et. al. 1973 IEEE Int. Conf. on Communications, Vol 1,
|
|
// 1973, pg. 11.12-11.17
|
|
// 3) MIL-STD-188-113, "Interoperability and Performance Standards
|
|
// for Analog-to-Digital Conversion Techniques,"
|
|
// 17 February 1987
|
|
//
|
|
// Input: Signed 16 bit linear sample
|
|
// Output: 8 bit ulaw sample
|
|
//
|
|
static unsigned char linear2ulaw(int sample)
|
|
{
|
|
static int exp_lut[256] =
|
|
{
|
|
0, 0, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3,
|
|
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
|
|
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
|
|
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
|
|
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
|
|
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
|
|
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
|
|
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
|
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7
|
|
};
|
|
|
|
int sign;
|
|
int exponent;
|
|
int mantissa;
|
|
unsigned char ulawbyte;
|
|
|
|
//
|
|
// get the sample into sign-magnitude
|
|
//
|
|
|
|
// set aside the sign
|
|
//
|
|
sign = (sample >> 8) & 0x80;
|
|
|
|
// get magnitude
|
|
//
|
|
if (sign != 0)
|
|
sample = -sample;
|
|
|
|
|
|
// clip the magnitude
|
|
//
|
|
if (sample > CLIP)
|
|
sample = CLIP;
|
|
|
|
//
|
|
// convert from 16 bit linear to ulaw
|
|
//
|
|
|
|
sample = sample + BIAS;
|
|
exponent = exp_lut[(sample >> 7) & 0xFF];
|
|
mantissa = (sample >> (exponent + 3)) & 0x0F;
|
|
ulawbyte = ~(sign | (exponent << 4) | mantissa);
|
|
|
|
#ifdef ZEROTRAP
|
|
// optional CCITT trap
|
|
//
|
|
if (ulawbyte == 0)
|
|
ulawbyte = 0x02;
|
|
#endif
|
|
|
|
return ulawbyte;
|
|
}
|
|
|
|
//// ulaw2linear - this routine converts from ulaw to 16 bit linear
|
|
//
|
|
// Craig Reese: IDA/Supercomputing Research Center
|
|
// 29 September 1989
|
|
//
|
|
// References:
|
|
// 1) CCITT Recommendation G.711 (very difficult to follow)
|
|
// 2) MIL-STD-188-113, "Interoperability and Performance Standards
|
|
// for Analog-to-Digital Conversion Techniques,"
|
|
// 17 February 1987
|
|
//
|
|
// Input: 8 bit ulaw sample
|
|
// Output: Signed 16 bit linear sample
|
|
//
|
|
static int ulaw2linear(unsigned char ulawbyte)
|
|
{
|
|
static int exp_lut[8] =
|
|
{
|
|
0, 132, 396, 924, 1980, 4092, 8316, 16764
|
|
};
|
|
|
|
int sign;
|
|
int exponent;
|
|
int mantissa;
|
|
int sample;
|
|
|
|
ulawbyte = ~ulawbyte;
|
|
sign = (ulawbyte & 0x80);
|
|
exponent = (ulawbyte >> 4) & 0x07;
|
|
mantissa = ulawbyte & 0x0F;
|
|
sample = exp_lut[exponent] + (mantissa << (exponent + 3));
|
|
if (sign != 0)
|
|
sample = -sample;
|
|
|
|
return sample;
|
|
}
|
|
|
|
////
|
|
// installable file i/o procedures
|
|
////
|
|
|
|
static LRESULT MulawIOOpen(LPMMIOINFO lpmmioinfo, LPTSTR lpszFileName)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
HMMIO hmmio = NULL;
|
|
MMIOINFO mmioinfo;
|
|
HMULAW hMulaw = NULL;
|
|
HINSTANCE hInst;
|
|
|
|
TracePrintf_1(NULL, 5,
|
|
TEXT("MulawIOOpen (%s)\n"),
|
|
(LPTSTR) lpszFileName);
|
|
|
|
MemSet(&mmioinfo, 0, sizeof(mmioinfo));
|
|
|
|
// interpret first value passed as pointer to next i/o procedure in chain
|
|
//
|
|
mmioinfo.pIOProc = (LPMMIOPROC) lpmmioinfo->adwInfo[0];
|
|
|
|
// pass along second and third values to next i/o procedure
|
|
//
|
|
mmioinfo.adwInfo[0] = lpmmioinfo->adwInfo[1];
|
|
mmioinfo.adwInfo[1] = lpmmioinfo->adwInfo[2];
|
|
mmioinfo.adwInfo[2] = 0L;
|
|
|
|
// get instance handle of current task
|
|
//
|
|
if ((hInst = SysGetTaskInstance(NULL)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if ((hMulaw = MulawInit(MULAW_VERSION, hInst, 0)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if ((hmmio = mmioOpen(lpszFileName, &mmioinfo, lpmmioinfo->dwFlags)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else
|
|
{
|
|
// save stuff for use in other i/o routines
|
|
//
|
|
lpmmioinfo->adwInfo[0] = (DWORD) (LPVOID) hmmio;
|
|
lpmmioinfo->adwInfo[1] = (DWORD) (LPVOID) hMulaw;
|
|
}
|
|
|
|
// clean up after error
|
|
//
|
|
if (!fSuccess && hMulaw != NULL && MulawTerm(hMulaw) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
if (!fSuccess && hmmio != NULL && mmioClose(hmmio, 0) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// return the same error code given by mmioOpen
|
|
//
|
|
return fSuccess ? lpmmioinfo->wErrorRet = mmioinfo.wErrorRet : MMIOERR_CANNOTOPEN;
|
|
}
|
|
|
|
static LRESULT MulawIOClose(LPMMIOINFO lpmmioinfo, UINT uFlags)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
HMMIO hmmio = (HMMIO) lpmmioinfo->adwInfo[0];
|
|
HMULAW hMulaw = (HMULAW) lpmmioinfo->adwInfo[1];
|
|
UINT uRet = MMIOERR_CANNOTCLOSE;
|
|
|
|
TracePrintf_0(NULL, 5,
|
|
TEXT("MulawIOClose\n"));
|
|
|
|
if (MulawTerm(hMulaw) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else if ((uRet = mmioClose(hmmio, uFlags)) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
else
|
|
{
|
|
lpmmioinfo->adwInfo[0] = (DWORD) NULL;
|
|
lpmmioinfo->adwInfo[1] = (DWORD) NULL;
|
|
}
|
|
|
|
return fSuccess ? 0 : uRet;
|
|
}
|
|
|
|
static LRESULT MulawIORead(LPMMIOINFO lpmmioinfo, HPSTR pch, LONG cch)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
HMMIO hmmio = (HMMIO) lpmmioinfo->adwInfo[0];
|
|
HMULAW hMulaw = (HMULAW) lpmmioinfo->adwInfo[1];
|
|
HPSTR pchMulaw = NULL;
|
|
LONG cchMulaw;
|
|
LONG lBytesRead;
|
|
|
|
TracePrintf_1(NULL, 5,
|
|
TEXT("MulawIORead (%ld)\n"),
|
|
(long) cch);
|
|
|
|
// mulaw format files contain 8 bit samples,
|
|
// but we must simulate access to 16 bit samples.
|
|
//
|
|
cchMulaw = cch / 2L;
|
|
|
|
if (cchMulaw <= 0)
|
|
lBytesRead = 0; // nothing to do
|
|
|
|
// allocate temporary buffer to hold the mulaw format samples
|
|
//
|
|
else if ((pchMulaw = (HPSTR) MemAlloc(NULL, cchMulaw, 0)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// read mulaw format samples
|
|
//
|
|
else if ((lBytesRead = mmioRead(hmmio, pchMulaw, cchMulaw)) == -1)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// decode mulaw format samples into pcm format samples
|
|
//
|
|
else if (MulawDecode(hMulaw, (LPBYTE) pchMulaw, (LPPCM16) pch, (UINT) lBytesRead) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// update simulated file position
|
|
//
|
|
else
|
|
lpmmioinfo->lDiskOffset += lBytesRead * 2L;
|
|
|
|
// clean up
|
|
//
|
|
if (pchMulaw != NULL &&
|
|
(pchMulaw = MemFree(NULL, pchMulaw)) != NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
TracePrintf_2(NULL, 5,
|
|
TEXT("MulawIO: lpmmioinfo->lDiskOffset=%ld, lBytesRead=%ld\n"),
|
|
(long) lpmmioinfo->lDiskOffset,
|
|
(long) lBytesRead);
|
|
|
|
// return number of bytes read/decoded into pch
|
|
//
|
|
return fSuccess ? lBytesRead * 4L : -1;
|
|
}
|
|
|
|
static LRESULT MulawIOWrite(LPMMIOINFO lpmmioinfo, const HPSTR pch, LONG cch, BOOL fFlush)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
HMMIO hmmio = (HMMIO) lpmmioinfo->adwInfo[0];
|
|
HMULAW hMulaw = (HMULAW) lpmmioinfo->adwInfo[1];
|
|
HPSTR pchMulaw = NULL;
|
|
LONG cchMulaw;
|
|
LONG lBytesWritten;
|
|
|
|
TracePrintf_1(NULL, 5,
|
|
TEXT("MulawIOWrite (%ld)\n"),
|
|
(long) cch);
|
|
|
|
// mulaw format files contain 8 bit samples,
|
|
// but we must simulate access to 16 bit samples.
|
|
//
|
|
cchMulaw = cch / 2L;
|
|
|
|
if (cchMulaw <= 0)
|
|
lBytesWritten = 0; // nothing to do
|
|
|
|
// allocate temporary buffer to hold the mulaw format samples
|
|
//
|
|
else if ((pchMulaw = (HPSTR) MemAlloc(NULL, cchMulaw, 0)) == NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// encode pcm format samples into mulaw format samples
|
|
// (there are 2 bytes required for each pcm sample)
|
|
//
|
|
else if (MulawEncode(hMulaw, (LPPCM16) pch, (LPBYTE) pchMulaw, (UINT) (cch / 2L)) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// write mulaw format samples
|
|
//
|
|
else if ((lBytesWritten = mmioWrite(hmmio, pchMulaw, cchMulaw)) == -1)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// update simulated file position
|
|
//
|
|
else
|
|
lpmmioinfo->lDiskOffset += lBytesWritten * 2L;
|
|
|
|
// clean up
|
|
//
|
|
if (pchMulaw != NULL &&
|
|
(pchMulaw = MemFree(NULL, pchMulaw)) != NULL)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
TracePrintf_2(NULL, 5,
|
|
TEXT("MulawIO: lpmmioinfo->lDiskOffset=%ld, lBytesWritten=%ld\n"),
|
|
(long) lpmmioinfo->lDiskOffset,
|
|
(long) lBytesWritten);
|
|
|
|
// return number of bytes encoded/written from pch
|
|
//
|
|
return fSuccess ? lBytesWritten * 2L : -1;
|
|
}
|
|
|
|
static LRESULT MulawIOSeek(LPMMIOINFO lpmmioinfo, LONG lOffset, int iOrigin)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
HMMIO hmmio = (HMMIO) lpmmioinfo->adwInfo[0];
|
|
LONG lPosNew;
|
|
|
|
TracePrintf_2(NULL, 5,
|
|
TEXT("MulawIOSeek (%ld, %d)\n"),
|
|
(long) lOffset,
|
|
(int) iOrigin);
|
|
|
|
// mulaw format files contain 8 bit samples,
|
|
// but we must simulate access to 16 bit samples.
|
|
//
|
|
if ((lPosNew = mmioSeek(hmmio, lOffset / 2L, iOrigin)) == -1)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
// update simulated file position
|
|
//
|
|
else
|
|
lpmmioinfo->lDiskOffset = lPosNew * 2L;
|
|
|
|
TracePrintf_1(NULL, 5,
|
|
TEXT("MulawIO: lpmmioinfo->lDiskOffset=%ld\n"),
|
|
(long) lpmmioinfo->lDiskOffset);
|
|
|
|
return fSuccess ? lpmmioinfo->lDiskOffset : -1;
|
|
}
|
|
|
|
static LRESULT MulawIORename(LPMMIOINFO lpmmioinfo, LPCTSTR lpszFileName, LPCTSTR lpszNewFileName)
|
|
{
|
|
BOOL fSuccess = TRUE;
|
|
UINT uRet = MMIOERR_FILENOTFOUND;
|
|
|
|
TracePrintf_2(NULL, 5,
|
|
TEXT("MulawIORename (%s, %s)\n"),
|
|
(LPTSTR) lpszFileName,
|
|
(LPTSTR) lpszNewFileName);
|
|
|
|
if ((uRet = mmioRename(lpszFileName, lpszNewFileName, lpmmioinfo, 0)) != 0)
|
|
fSuccess = TraceFALSE(NULL);
|
|
|
|
return fSuccess ? 0 : uRet;
|
|
}
|