archive
/
windows-nt-4.0
mirror of https://github.com/lianthony/NT4.0
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Windows NT 4.0 source code leak
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.
2 Commits
1 Branch
0 Tags
184 MiB
 
 
 
 
 
 
Tree: b4a8d373d8
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'b4a8d373d8'
${ noResults }
windows-nt-4.0/private/net/sockets/internet/ui/mosaic/generic/shared/aiff.c

606 lines
15 KiB
Raw Blame History

/*
Enhanced NCSA Mosaic from Spyglass
"Guitar"
Copyright 1994 Spyglass, Inc.
All Rights Reserved
Author(s):
Albert Lee [email protected]
*/
#include "all.h"
#ifdef FEATURE_SOUND_PLAYER
#include <math.h>
double read_ieee_extended();
/* Read long: big first. */
static unsigned long readlong(FILE *fp)
{
unsigned char uc, uc2, uc3, uc4;
uc = getc(fp);
uc2 = getc(fp);
uc3 = getc(fp);
uc4 = getc(fp);
return ((long) uc << 24) | ((long) uc2 << 16) | ((long) uc3 << 8) | (long) uc4;
}
static unsigned short readshort(FILE *fp)
{
unsigned char uc, uc2;
uc = getc(fp);
uc2 = getc(fp);
return ((short) uc << 8) | ((short) uc2);
}
static BOOL AiffReadHeader(struct SoundInfo *si, FILE *fp)
{
char buf[4];
unsigned long totalsize;
unsigned long chunksize;
int channels;
unsigned long frames;
int bits;
double rate;
unsigned long offset;
unsigned long blocksize;
int littlendian = 0;
char *endptr;
/* FORM chunk */
if ((fread(buf, 1, 4, fp) != 4) || (strncmp(buf, "FORM", 4) != 0))
{
XX_DMsg(DBG_MM, ("AIFF header does not begin with magic word 'FORM'\n"));
return FALSE;
}
totalsize = readlong(fp); /* total file size */
if ((fread(buf, 1, 4, fp) != 4) || (strncmp(buf, "AIFF", 4) != 0))
{
XX_DMsg(DBG_MM, ("AIFF 'FORM' chunk does not specify 'AIFF' as type\n"));
return FALSE;
}
/* Skip everything but the COMM chunk and the SSND chunk */
/* The SSND chunk must be the last in the file */
while (TRUE)
{
if (fread(buf, 1, 4, fp) != 4)
{
XX_DMsg(DBG_MM, ("Missing SSND chunk in AIFF file\n"));
return FALSE;
}
if (strncmp(buf, "COMM", 4) == 0)
{
/* COMM chunk */
chunksize = readlong(fp);
if (chunksize != 18)
XX_DMsg(DBG_MM, ("AIFF COMM chunk has bad size (%lu), but continuing.\n", chunksize));
channels = readshort(fp);
frames = readlong(fp);
bits = readshort(fp);
rate = read_ieee_extended(fp);
}
else if (strncmp(buf, "SSND", 4) == 0)
{
/* SSND chunk */
chunksize = readlong(fp);
offset = readlong(fp);
blocksize = readlong(fp);
break;
}
else
{
chunksize = readlong(fp);
/* Skip the chunk using getc() so we may read from a pipe */
while ((long) (--chunksize) >= 0)
{
if (getc(fp) == EOF)
{
XX_DMsg(DBG_MM, ("unexpected EOF in AIFF chunk\n"));
return FALSE;
}
}
}
}
/* SSND chunk just read */
if (blocksize != 0)
{
XX_DMsg(DBG_MM, ("AIFF header specifies nonzero blocksize?!?!\n"));
return FALSE;
}
while ((long) (--offset) >= 0)
{
if (getc(fp) == EOF)
{
XX_DMsg(DBG_MM, ("unexpected EOF while skipping AIFF offset\n"));
return FALSE;
}
}
switch (bits)
{
case 8:
si->size = SIZE_BYTE;
break;
case 16:
si->size = SIZE_WORD;
break;
default:
XX_DMsg(DBG_MM, ("unsupported sample size in AIFF header\n"));
return FALSE;
}
endptr = (char *) &littlendian;
*endptr = 1;
if (littlendian == 1)
si->swap = TRUE;
/* Now set up some variables */
si->channels = channels;
si->sample_rate = (unsigned long) rate;
si->style = SIGN2;
si->data_size = 0;
si->loc = frames;
si->buf_size = si->loc;
#ifndef UNIX
si->buf = GTR_MALLOC(si->buf_size);
#endif
return TRUE;
}
BOOL AiffProcess(struct SoundInfo *si, const char *pszURL)
{
#ifdef UNIX
int i;
FILE *fp;
char buf[1024];
long size;
int *pi;
unsigned long file_size;
Boolean argok;
si->count = 0;
si->bValid = TRUE;
si->state = 0;
si->magic = 0;
si->buf = NULL;
si->style = SIGN2;
si->size = 0;
si->swap = 0;
si->buf_size = 0;
si->data_size = 0;
si->stopped = 1; /* is anything playing? */
si->base_sample = 0; /* starts at the beginning sample */
si->loc = 0;
si->elapsed_time = 0;
si->pos_changed = 0;
si->pause = 0;
si->tw = (struct Mwin *)NULL;
strncpy (si->szURL, pszURL, MAX_URL_STRING);
si->fd = _open(si->fsOrig, 0);
if (0 > si->fd)
{
ERR_ReportError (NULL, SID_ERR_COULD_NOT_OPEN_SOUND_FILE_S, si->fsOrig, NULL);
return FALSE;
}
file_size = _lseek (si->fd, 0L, SEEK_END);
_lseek (si->fd, 0L, SEEK_SET);
_read (si->fd, buf, 24);
pi = (int *)buf;
/* both network and au endianness are the same so I will cheat
** and use the NTOHL macros
*/
si->magic = WS_NTOHL (pi[0]);
si->hdr_size = WS_NTOHL (pi[1]);
si->data_size = WS_NTOHL (pi[2]);
if (si->data_size <= 0 || si->data_size > file_size - si->hdr_size)
si->data_size = file_size - si->hdr_size;
si->encoding = WS_NTOHL (pi[3]);
si->sample_rate = WS_NTOHL (pi[4]);
si->channels = WS_NTOHL (pi[5]);
switch (si->encoding) {
case 1: /* ULAW */
case 2: /* 8 bit linear */
case 27: /* ALAW */
si->size = 1;
break;
case 3: /* 16 bit linear */
si->size = 2;
break;
default:
si->size =1;
break;
}
#define BYTES_TO_SAMPLES(si,b) ((b)/((si)->channels*(si)->size))
/* 10ths of seconds */
si->total_time = (int) ( 10. * ((double)si->data_size) /
(si->size * si->channels * si->sample_rate));
/*DEBUG*/ fprintf (stderr, "Total time = %5.1f seconds\n", si->total_time /10.);
si->max_samples = BYTES_TO_SAMPLES (si, si->data_size);
if (si->magic != 0x2e736e64)
{
ERR_ReportError(si->tw_refer, SID_ERR_INVALID_SOUND_FORMAT, NULL, NULL);
_close (si->fd);
return FALSE;
}
if (si->hdr_size != 24)
{
si->data_start = _lseek(si->fd, si->hdr_size, SEEK_SET);
/* ready to read data */
}
CreateSoundPlayer(si, pszURL);
/* set max time on scale */
XtVaSetValues (si->tw->Mosaic->sp_sec_scale, XmNmaximum, si->total_time, NULL);
sprintf (buf, "%d", si->channels);
XtVaSetValues (si->tw->Mosaic->sp_channel_value, XmNlabelString,
#if (XmVersion >= 1002)
XmStringCreateLocalized (buf)
#else
XmStringCreateLtoR(buf,charset)
#endif
, NULL);
sprintf (buf, "%d Hz", si->sample_rate);
XtVaSetValues (si->tw->Mosaic->sp_rate_value, XmNlabelString,
#if (XmVersion >= 1002)
XmStringCreateLocalized (buf)
#else
XmStringCreateLtoR(buf,charset)
#endif
, NULL);
sprintf (buf, "%d bits", si->size * 8);
XtVaSetValues (si->tw->Mosaic->sp_precision_value, XmNlabelString,
#if (XmVersion >= 1002)
XmStringCreateLocalized (buf)
#else
XmStringCreateLtoR(buf,charset)
#endif
, NULL);
sprintf (buf, "%d bytes", file_size);
XtVaSetValues (si->tw->Mosaic->sp_length_value, XmNlabelString,
#if (XmVersion >= 1002)
XmStringCreateLocalized (buf)
#else
XmStringCreateLtoR(buf,charset)
#endif
, NULL);
return 1;
#else
FILE *fp;
long size;
BOOL bValid;
#ifdef WIN32
GetSoundCapability(); /* determine if 16-bit sound can be played */
#endif
si->count = 0;
si->bValid = TRUE;
si->state = 0;
si->magic = 0;
si->buf = NULL;
si->style = SIGN2;
si->size = 0;
si->swap = 0;
si->buf_size = 0;
si->data_size = (unsigned long) -1;
si->loc = 0;
fp = fopen(si->fsOrig, "rb");
if (!fp)
return FALSE;
fseek(fp, 0, SEEK_END);
size = ftell(fp);
fseek(fp, 0, SEEK_SET);
WAIT_Push(Async_GetWindowFromThread(Async_GetCurrentThread()), waitNoInteract, GTR_GetString(SID_INF_PROCESSING_AIFF_FILE));
WAIT_SetRange(Async_GetWindowFromThread(Async_GetCurrentThread()), 0, 100, size);
if (bValid = AiffReadHeader(si, fp))
{
si->loc = fread(si->buf, 1, si->loc, fp);
#ifdef WIN32
/* For Windows, the byte ordering is different than Mac, so swap the bytes */
/* Also perform 2's complement on the values */
if (si->swap && si->size == SIZE_WORD)
{
long ndx;
char swap;
char *buf;
buf = si->buf;
for (ndx = 0; ndx < si->loc / 2; ndx++)
{
swap = *buf;
*buf = *(buf + 1);
*(buf + 1) = swap;
buf += 2;
}
}
else if (si->size == SIZE_BYTE)
{
long ndx;
char *buf;
buf = si->buf;
for (ndx = 0; ndx < si->loc; ndx++)
{
*buf = *buf ^ 0x80;
*buf++;
}
}
#else
#pragma message ("TODO: AiffProcess() -dpg")
#endif
}
fclose(fp);
WAIT_Pop(Async_GetWindowFromThread(Async_GetCurrentThread()));
if (bValid)
CreateSoundPlayer(si, pszURL);
else
ERR_ReportError(NULL, SID_ERR_INVALID_SOUND_FORMAT, NULL, NULL);
return (bValid);
#endif /* UNIX */
}
double ConvertFromIeeeExtended();
double read_ieee_extended(FILE *fp)
{
char buf[10];
if (fread(buf, 1, 10, fp) != 10)
XX_DMsg(DBG_MM, ("EOF while reading IEEE extended number"));
return ConvertFromIeeeExtended(buf);
}
/*
* C O N V E R T T O I E E E E X T E N D E D
*/
/* Copyright (C) 1988-1991 Apple Computer, Inc.
* All rights reserved.
*
* Machine-independent I/O routines for IEEE floating-point numbers.
*
* NaN's and infinities are converted to HUGE_VAL or HUGE, which
* happens to be infinity on IEEE machines. Unfortunately, it is
* impossible to preserve NaN's in a machine-independent way.
* Infinities are, however, preserved on IEEE machines.
*
* These routines have been tested on the following machines:
* Apple Macintosh, MPW 3.1 C compiler
* Apple Macintosh, THINK C compiler
* Silicon Graphics IRIS, MIPS compiler
* Cray X/MP and Y/MP
* Digital Equipment VAX
*
*
* Implemented by Malcolm Slaney and Ken Turkowski.
*
* Malcolm Slaney contributions during 1988-1990 include big- and little-
* endian file I/O, conversion to and from Motorola's extended 80-bit
* floating-point format, and conversions to and from IEEE single-
* precision floating-point format.
*
* In 1991, Ken Turkowski implemented the conversions to and from
* IEEE double-precision format, added more precision to the extended
* conversions, and accommodated conversions involving +/- infinity,
* NaN's, and denormalized numbers.
*/
#ifndef HUGE_VAL
# define HUGE_VAL HUGE
#endif /*HUGE_VAL*/
# define FloatToUnsigned(f) ((unsigned long) (((long) (f - 2147483648.0)) + 2147483647L) + 1)
void ConvertToIeeeExtended(double num, char *bytes)
{
int sign;
int expon;
double fMant, fsMant;
unsigned long hiMant, loMant;
if (num < 0)
{
sign = 0x8000;
num *= -1;
}
else
sign = 0;
if (num == 0)
{
expon = 0;
hiMant = 0;
loMant = 0;
}
else
{
fMant = frexp(num, &expon);
if ((expon > 16384) || !(fMant < 1))
{
/* Infinity or NaN */
expon = sign | 0x7FFF;
hiMant = 0;
loMant = 0;
}
else
{
/* Finite */
expon += 16382;
if (expon < 0)
{
/* denormalized */
fMant = ldexp(fMant, expon);
expon = 0;
}
expon |= sign;
fMant = ldexp(fMant, 32);
fsMant = floor(fMant);
hiMant = FloatToUnsigned(fsMant);
fMant = ldexp(fMant - fsMant, 32);
fsMant = floor(fMant);
loMant = FloatToUnsigned(fsMant);
}
}
bytes[0] = expon >> 8;
bytes[1] = expon;
bytes[2] = (char) (hiMant >> 24);
bytes[3] = (char) (hiMant >> 16);
bytes[4] = (char) (hiMant >> 8);
bytes[5] = (char) (hiMant);
bytes[6] = (char) (loMant >> 24);
bytes[7] = (char) (loMant >> 16);
bytes[8] = (char) (loMant >> 8);
bytes[9] = (char) loMant;
}
/*
* C O N V E R T F R O M I E E E E X T E N D E D
*/
/*
* Copyright (C) 1988-1991 Apple Computer, Inc.
* All rights reserved.
*
* Machine-independent I/O routines for IEEE floating-point numbers.
*
* NaN's and infinities are converted to HUGE_VAL or HUGE, which
* happens to be infinity on IEEE machines. Unfortunately, it is
* impossible to preserve NaN's in a machine-independent way.
* Infinities are, however, preserved on IEEE machines.
*
* These routines have been tested on the following machines:
* Apple Macintosh, MPW 3.1 C compiler
* Apple Macintosh, THINK C compiler
* Silicon Graphics IRIS, MIPS compiler
* Cray X/MP and Y/MP
* Digital Equipment VAX
*
*
* Implemented by Malcolm Slaney and Ken Turkowski.
*
* Malcolm Slaney contributions during 1988-1990 include big- and little-
* endian file I/O, conversion to and from Motorola's extended 80-bit
* floating-point format, and conversions to and from IEEE single-
* precision floating-point format.
*
* In 1991, Ken Turkowski implemented the conversions to and from
* IEEE double-precision format, added more precision to the extended
* conversions, and accommodated conversions involving +/- infinity,
* NaN's, and denormalized numbers.
*/
#ifndef HUGE_VAL
# define HUGE_VAL HUGE
#endif /*HUGE_VAL*/
# define UnsignedToFloat(u) (((double)((long)(u - 2147483647L - 1))) + 2147483648.0)
/****************************************************************
* Extended precision IEEE floating-point conversion routine.
****************************************************************/
double ConvertFromIeeeExtended(unsigned char *bytes)
{
double f;
int expon;
unsigned long hiMant, loMant;
expon = ((bytes[0] & 0x7F) << 8) | (bytes[1] & 0xFF);
hiMant = ((unsigned long)(bytes[2] & 0xFF) << 24)
| ((unsigned long)(bytes[3] & 0xFF) << 16)
| ((unsigned long)(bytes[4] & 0xFF) << 8)
| ((unsigned long)(bytes[5] & 0xFF));
loMant = ((unsigned long)(bytes[6] & 0xFF) << 24)
| ((unsigned long)(bytes[7] & 0xFF) << 16)
| ((unsigned long)(bytes[8] & 0xFF) << 8)
| ((unsigned long)(bytes[9] & 0xFF));
if (expon == 0 && hiMant == 0 && loMant == 0)
{
f = 0;
}
else
{
if (expon == 0x7FFF)
{
/* Infinity or NaN */
f = HUGE_VAL;
}
else
{
expon -= 16383;
f = ldexp(UnsignedToFloat(hiMant), expon-=31);
f += ldexp(UnsignedToFloat(loMant), expon-=32);
}
}
if (bytes[0] & 0x80)
return -f;
else
return f;
}
#endif