1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307
|
/*
* July 5, 1991
* Copyright 1991 Lance Norskog And Sundry Contributors
* This source code is freely redistributable and may be used for
* any purpose. This copyright notice must be maintained.
* Lance Norskog And Sundry Contributors are not responsible for
* the consequences of using this software.
*/
#ifdef VAXC
#define IMPORT globalref
#define EXPORT globaldef
/*
* use the VAX C optimized functions
*/
#define calloc VAXC$CALLOC_OPT
#define cfree VAXC$CFREE_OPT
#define free VAXC$FREE_OPT
#define malloc VAXC$MALLOC_OPT
#define realloc VAXC$REALLOC_OPT
#else
#define IMPORT extern
#define EXPORT
#endif
/*
* Sound Tools sources header file.
*/
#include <stdio.h>
#include <sys/types.h>
#ifdef __alpha__
#define LONG int32_t
#define ULONG u_int32_t
#else
#define LONG long
#define ULONG unsigned long
#endif
#ifdef AMIGA
#include "amiga.h"
#endif /* AMIGA */
/*
* Handler structure for each format.
*/
typedef struct format {
char **names; /* file type names */
int flags; /* details about file type */
int (*startread)();
int (*read)();
int (*stopread)();
int (*startwrite)();
int (*write)();
int (*stopwrite)();
} format_t;
IMPORT format_t formats[];
/* Signal parameters */
struct signalinfo {
LONG rate; /* sampling rate */
int size; /* word length of data */
int style; /* format of sample numbers */
int channels; /* number of sound channels */
};
/* Loop parameters */
struct loopinfo {
int start; /* first sample */
int length; /* length */
int count; /* number of repeats, 0=forever */
int type; /* 0=no, 1=forward, 2=forward/back */
};
/* Instrument parameters */
/* vague attempt at generic information for sampler-specific info */
struct instrinfo {
char MIDInote; /* for unity pitch playback */
char MIDIlow, MIDIhi;/* MIDI pitch-bend range */
char loopmode; /* semantics of loop data */
char nloops; /* number of active loops */
unsigned char smpte[4]; /* SMPTE offset (hour:min:sec:frame) */
/* this is a film audio thing */
};
#define MIDI_UNITY 60 /* MIDI note number to play sample at unity */
/* Loop modes */
#define LOOP_NONE 0
#define LOOP_8 1 /* 8 loops: don't know ?? */
#define LOOP_SUSTAIN_DECAY 2 /* AIFF style: one sustain & one decay loop */
/* Pipe parameters */
struct pipeinfo {
FILE *pout; /* Output file */
FILE *pin; /* Input file */
};
/*
* Format information for input and output files.
*/
#define PRIVSIZE 330
#define NLOOPS 8
struct soundstream {
struct signalinfo info; /* signal specifications */
struct instrinfo instr; /* instrument specification */
struct loopinfo loops[NLOOPS]; /* Looping specification */
char swap; /* do byte- or word-swap */
char seekable; /* can seek on this file */
char *filename; /* file name */
char *filetype; /* type of file */
char *comment; /* comment string */
FILE *fp; /* File stream pointer */
format_t *h; /* format struct for this file */
double priv[PRIVSIZE/8]; /* format's private data area */
};
IMPORT struct soundstream informat, outformat;
typedef struct soundstream *ft_t;
/* flags field */
#define FILE_STEREO 1 /* does file format support stereo? */
#define FILE_LOOPS 2 /* does file format support loops? */
#define FILE_INSTR 4 /* does file format support instrument specificications? */
/* Size field */
#define BYTE 1
#define WORD 2
#define DWORD 4
#define FLOAT 5
#define DOUBLE 6
#define IEEE 7 /* IEEE 80-bit floats. Is it necessary? */
/* Style field */
#define UNSIGNED 1 /* unsigned linear: Sound Blaster */
#define SIGN2 2 /* signed linear 2's comp: Mac */
#define ULAW 3 /* U-law signed logs: US telephony, SPARC */
#define ALAW 4 /* A-law signed logs: non-US telephony */
IMPORT char *sizes[], *styles[];
/*
* Handler structure for each effect.
*/
typedef struct {
char *name; /* effect name */
int flags; /* this and that */
int (*getopts)(); /* process arguments */
int (*start)(); /* start off effect */
int (*flow)(); /* do a buffer */
int (*drain)(); /* drain out at end */
int (*stop)(); /* finish up effect */
} effect_t;
IMPORT effect_t effects[];
#define EFF_CHAN 1 /* Effect can mix channels up/down */
#define EFF_RATE 2 /* Effect can alter data rate */
#define EFF_MCHAN 4 /* Effect can handle multi-channel */
#define EFF_REPORT 8 /* Effect does nothing */
struct effect {
char *name; /* effect name */
struct signalinfo ininfo; /* input signal specifications */
struct loopinfo loops[8]; /* input loops specifications */
struct instrinfo instr; /* input instrument specifications */
struct signalinfo outinfo; /* output signal specifications */
effect_t *h; /* effects driver */
LONG *obuf; /* output buffer */
LONG odone, olen; /* consumed, total length */
LONG priv[PRIVSIZE]; /* private area for effect */
};
typedef struct effect *eff_t;
#if defined(__STDC__) || defined(ARM)
#define P1(x) x
#define P2(x,y) x, y
#define P3(x,y,z) x, y, z
#define P4(x,y,z,w) x, y, z, w
#else
#define P1(x)
#define P2(x,y)
#define P3(x,y,z)
#define P4(x,y,z,w)
#endif
/* Utilities to read and write shorts and longs little-endian and big-endian */
unsigned short rlshort(P1(ft_t ft)); /* short little-end */
unsigned short rbshort(P1(ft_t ft)); /* short big-end */
unsigned short wlshort(P2(ft_t ft, unsigned short us)); /* short little-end */
unsigned short wbshort(P2(ft_t ft, unsigned short us)); /* short big-end */
ULONG rllong(P1(ft_t ft)); /* long little-end */
ULONG rblong(P1(ft_t ft)); /* long big-end */
ULONG wllong(P2(ft_t ft, ULONG ul)); /* long little-end */
ULONG wblong(P2(ft_t ft, ULONG ul)); /* long big-end */
/* Read and write words and longs in "machine format". Swap if indicated. */
unsigned short rshort(P1(ft_t ft));
unsigned short wshort(P2(ft_t ft, unsigned short us));
ULONG rlong(P1(ft_t ft));
ULONG wlong(P2(ft_t ft, ULONG ul));
float rfloat(P1(ft_t ft));
void wfloat(P2(ft_t ft, double f));
double rdouble(P1(ft_t ft));
void wdouble(P2(ft_t ft, double d));
/* Utilities to byte-swap values */
unsigned short swapw(P1(unsigned short us)); /* Swap short */
ULONG swapl(P1(ULONG ul)); /* Swap long */
float swapf(P1(float f)); /* Swap float */
double swapd(P1(double d)); /* Swap double */
#ifdef ARM
IMPORT double sfloor(P1(double x)); /* Hack our way around the flawed */
IMPORT double sceil(P1(double x)); /* UnixLib floor ceil functions */
#endif
IMPORT void report(P2(char *, ...)), warn(P2(char *, ...)),
fail(P2(char *, ...));
typedef unsigned int u_i;
typedef ULONG u_l;
typedef unsigned short u_s;
IMPORT float volume; /* expansion coefficient */
IMPORT int dovolume;
IMPORT float amplitude; /* Largest sample so far */
IMPORT int writing; /* are we writing to a file? */
/* export flags */
IMPORT int verbose; /* be noisy on stderr */
IMPORT int summary; /* just print summary of information */
IMPORT char *myname;
IMPORT int soxpreview; /* Preview mode: be fast and ugly */
#define MAXRATE 50L * 1024 /* maximum sample rate */
#if defined(unix) || defined (__OS2__)
/* Some wacky processors don't have arithmetic down shift, so do divs */
/* Most compilers will turn this into a shift if they can, don't worry */
#define RIGHT(datum, bits) ((datum) / (1L << bits))
#define LEFT(datum, bits) ((datum) << bits)
#else
/* x86 & 68k PC's have arith shift ops and dumb compilers */
#define RIGHT(datum, bits) ((datum) >> bits)
#define LEFT(datum, bits) ((datum) << bits)
#endif
#ifndef M_PI
#define M_PI 3.14159265358979323846
#endif
#if defined(unix) || defined(AMIGA) || defined (__OS2__) \
|| defined(OS9) || defined(ARM)
#define READBINARY "r"
#define WRITEBINARY "w"
#endif
#ifdef VMS
#define READBINARY "r", "mbf=16", "ctx=stm"
#define WRITEBINARY "w", "ctx=stm"
#endif
#ifdef DOS
#define READBINARY "rb"
#define WRITEBINARY "wb"
#endif
/* Error code reporting */
#ifdef QNX
#include <errno.h>
#endif
#if defined(unix) || defined(__OS2__)
#include <errno.h>
extern errno;
#endif
#ifdef __OS2__
#define REMOVE remove
#else
#define REMOVE unlink
#endif
char *version(); /* return version number */
/* ummmm??? */
|