ref: af261dcc91071cafd7d83054afb1eb4b2d0083ef
dir: /src/util.c/
/* * 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. */ #include "st.h" #include <string.h> #include <ctype.h> #include <signal.h> #ifdef __STDC__ #include <stdarg.h> #else #include <varargs.h> #endif /* * util.c. * Incorporate Jimen Ching's fixes for real library operation: Aug 3, 1994. * Redo all work from scratch, unfortunately. * Separate out all common variables used by effects & handlers, * and utility routines for other main programs to use. */ /* export flags */ /* FIXME: To be moved inside of fileop structure per handler. */ int verbose = 0; /* be noisy on stderr */ /* FIXME: These functions are user level concepts. Move them outside * the ST library. */ char *myname = 0; void st_report(const char *fmt, ...) { va_list args; if (! verbose) return; fprintf(stderr, "%s: ", myname); va_start(args, fmt); vfprintf(stderr, fmt, args); va_end(args); fprintf(stderr, "\n"); } void st_warn(const char *fmt, ...) { va_list args; fprintf(stderr, "%s: ", myname); va_start(args, fmt); vfprintf(stderr, fmt, args); va_end(args); fprintf(stderr, "\n"); } void st_fail(const char *fmt, ...) { va_list args; extern void cleanup(); fprintf(stderr, "%s: ", myname); va_start(args, fmt); vfprintf(stderr, fmt, args); va_end(args); fprintf(stderr, "\n"); cleanup(); exit(2); } /* Warning: no error checking is done with errstr. Be sure not to * go over the array limit ourself! * Note: Changing vsprintf to vsnprintf should help that but bad * references to strings can still cause overflow. */ void st_fail_errno(ft_t ft, int st_errno, const char *fmt, ...) { va_list args; ft->st_errno = st_errno; va_start(args, fmt); vsnprintf(ft->st_errstr, 255,fmt, args); va_end(args); ft->st_errstr[255] = '\0'; } int st_is_bigendian(void) { int b; char *p; b = 1; p = (char *) &b; if (!*p) return 1; else return 0; } int st_is_littleendian(void) { int b; char *p; b = 1; p = (char *) &b; if (*p) return 1; else return 0; } int strcmpcase(char *s1, char *s2) { while(*s1 && *s2 && (tolower(*s1) == tolower(*s2))) s1++, s2++; return *s1 - *s2; } /* * Check that we have a known format suffix string. */ int st_gettype(ft_t formp) { char **list; int i; if (! formp->filetype){ st_fail_errno(formp, ST_EFMT, "Must give file type for %s file, either as suffix or with -t option", formp->filename); return(ST_EFMT); } for(i = 0; st_formats[i].names; i++) { for(list = st_formats[i].names; *list; list++) { char *s1 = *list, *s2 = formp->filetype; if (! strcmpcase(s1, s2)) break; /* not a match */ } if (! *list) continue; /* Found it! */ formp->h = &st_formats[i]; return ST_SUCCESS; } if (! strcmpcase(formp->filetype, "snd")) { verbose = 1; st_report("File type '%s' is used to name several different formats.", formp->filetype); st_report("If the file came from a Macintosh, it is probably"); st_report("a .ub file with a sample rate of 11025 (or possibly 5012 or 22050)."); st_report("Use the sequence '-t .ub -r 11025 file.snd'"); st_report("If it came from a PC, it's probably a Soundtool file."); st_report("Use the sequence '-t .sndt file.snd'"); st_report("If it came from a NeXT, it's probably a .au file."); st_fail_errno(formp,ST_EFMT,"Use the sequence '-t .au file.snd'\n"); return ST_EFMT; } st_fail_errno(formp,ST_EFMT,"File type '%s' of %s file is not known!", formp->filetype, formp->filename); return ST_EFMT; } /* * Check that we have a known effect name. If found, copy name of * effect into structure and place a pointer to internal data. * Returns -1 on error else it turns the total number of arguments * that should be passed to this effects getopt() function. */ int st_geteffect_opt(eff_t effp, int argc, char **argv) { int i, optind; for(i = 0; st_effects[i].name; i++) { char *s1 = st_effects[i].name, *s2 = argv[0]; while(*s1 && *s2 && (tolower(*s1) == tolower(*s2))) s1++, s2++; if (*s1 || *s2) continue; /* not a match */ /* Found it! */ effp->name = st_effects[i].name; effp->h = &st_effects[i]; optind = 1; while (optind < argc) { for (i = 0; st_effects[i].name; i++) { char *s1 = st_effects[i].name, *s2 = argv[optind]; while (*s1 && *s2 && (tolower(*s1) == tolower(*s2))) s1++, s2++; if (*s1 || *s2) continue; /* Found it! */ return (optind - 1); } /* Didn't find a match, try the next argument. */ optind++; } /* * No matches found, all the following arguments are * for this effect passed in. */ return (optind - 1); } return (ST_EOF); } /* * Check that we have a known effect name. If found, copy name of * effect into structure and place a pointer to internal data. * Returns -1 on on failure. */ int st_geteffect(eff_t effp, char *effect_name) { int i; for(i = 0; st_effects[i].name; i++) { char *s1 = st_effects[i].name, *s2 = effect_name; while(*s1 && *s2 && (tolower(*s1) == tolower(*s2))) s1++, s2++; if (*s1 || *s2) continue; /* not a match */ /* Found it! */ effp->name = st_effects[i].name; effp->h = &st_effects[i]; return ST_SUCCESS; } return (ST_EOF); } /* * Check that we have a known effect name. Return ST_SUCESS if found, else * return ST_EOF. */ int st_checkeffect(char *effect_name) { int i; for(i = 0; st_effects[i].name; i++) { char *s1 = st_effects[i].name, *s2 = effect_name; while(*s1 && *s2 && (tolower(*s1) == tolower(*s2))) s1++, s2++; if (*s1 || *s2) continue; /* not a match */ return ST_SUCCESS; } return (ST_EOF); } /* * Copy input and output signal info into effect structures. * Must pass in a bitmask containing info of wheither ST_EFF_CHAN * or ST_EFF_RATE has been used previously on this effect stream. * If not running multiple effects then just pass in a value of 0. * * Return value is the same mask plus addition of ST_EFF_CHAN or * ST_EFF_RATE if it was used in this effect. That make this * return value can be passed back into this function in future * calls. */ int st_updateeffect(eff_t effp, ft_t in, ft_t out, int effect_mask) { int i; effp->ininfo = in->info; effp->ininfo = in->info; effp->outinfo = out->info; effp->outinfo = out->info; for(i = 0; i < 8; i++) { memcpy(&effp->loops[i], &in->loops[i], sizeof(struct st_loopinfo)); memcpy(&effp->loops[i], &in->loops[i], sizeof(struct st_loopinfo)); } effp->instr = in->instr; effp->instr = in->instr; if (in->info.channels != out->info.channels) { /* Only effects with ST_EFF_CHAN flag can actually handle * outputing a different number of channels then the input. */ if (!(effp->h->flags & ST_EFF_CHAN)) { /* If this effect is being ran before a ST_EFF_CHAN effect * then effect's output is the same as the input file. Else its * input contains same number of channels as the output * file. */ if (effect_mask & ST_EFF_CHAN) effp->ininfo.channels = out->info.channels; else effp->outinfo.channels = in->info.channels; } } if (in->info.rate != out->info.rate) { /* Only the ST_EFF_RATE effect can handle an input that * is a different sample rate then the output. */ if (!(effp->h->flags & ST_EFF_RATE)) { if (effect_mask & ST_EFF_RATE) effp->ininfo.rate = out->info.rate; else effp->outinfo.rate = in->info.rate; } } if (effp->h->flags & ST_EFF_CHAN) effect_mask |= ST_EFF_CHAN; if (effp->h->flags & ST_EFF_RATE) effect_mask |= ST_EFF_RATE; return effect_mask; } /* * File format routines */ void st_initformat(ft_t ft) { ft->filename = 0; ft->filetype = 0; ft->fp = 0; ft->info.rate = 0; ft->info.size = -1; ft->info.encoding = -1; ft->info.channels = -1; ft->comment = 0; ft->swap = 0; /* FIXME: This should zero out the reset of the structures */ } void st_copyformat(ft_t ft, ft_t ft2) { int noise = 0, i; double factor; if (ft2->info.rate == 0) { ft2->info.rate = ft->info.rate; noise = 1; } if (ft2->info.size == -1) { ft2->info.size = ft->info.size; noise = 1; } if (ft2->info.encoding == -1) { ft2->info.encoding = ft->info.encoding; noise = 1; } if (ft2->info.channels == -1) { ft2->info.channels = ft->info.channels; noise = 1; } /* FIXME: Do not copy pointers! This should be at least * a malloc+strcpy. */ if (ft2->comment == NULL) { ft2->comment = ft->comment; noise = 1; } /* * copy loop info, resizing appropriately * it's in samples, so # channels don't matter */ factor = (double) ft2->info.rate / (double) ft->info.rate; for(i = 0; i < ST_MAX_NLOOPS; i++) { ft2->loops[i].start = ft->loops[i].start * factor; ft2->loops[i].length = ft->loops[i].length * factor; ft2->loops[i].count = ft->loops[i].count; ft2->loops[i].type = ft->loops[i].type; } /* leave SMPTE # alone since it's absolute */ ft2->instr = ft->instr; } /* check that all settings have been given */ int st_checkformat(ft_t ft) { ft->st_errno = ST_SUCCESS; if (ft->info.rate == 0) { st_fail_errno(ft,ST_EFMT,"Sampling rate for %s file was not given\n", ft->filename); return ST_EOF; } if (ft->info.size == -1) { st_fail_errno(ft,ST_EFMT,"Data size was not given for %s file\nUse one of -b/-w/-l/-f/-d/-D", ft->filename); return ST_EOF; } if (ft->info.encoding == -1 && ft->info.size != ST_SIZE_FLOAT) { st_fail_errno(ft,ST_EFMT,"Data encoding was not given for %s file\nUse one of -s/-u/-U/-A", ft->filename); return ST_EOF; } if ((ft->info.size <= 0) || (ft->info.size > ST_SIZE_MAX)) { st_fail_errno(ft,ST_EFMT,"Data size %i for %s file is bogus\n", ft->info.size, ft->filename); return ST_EOF; } /* anyway to check length on st_encoding_str[] ? */ if (ft->info.encoding <= 0 || ft->info.encoding > ST_ENCODING_MAX) { st_fail_errno(ft,ST_EFMT,"Data encoding %i for %s file is bogus\n", ft->info.encoding, ft->filename); return ST_EOF; } return ST_SUCCESS; } static ft_t ft_queue[2] = {0, 0}; static void sigint(int s) { if (s == SIGINT) { if (ft_queue[0]) ft_queue[0]->file.eof = 1; if (ft_queue[1]) ft_queue[1]->file.eof = 1; } } void sigintreg(ft_t ft) { if (ft_queue[0] == 0) ft_queue[0] = ft; else ft_queue[1] = ft; signal(SIGINT, sigint); } /* Parse a time specification in hh:mm:ss.frac format. Returns -1 */ /* on failure. */ double st_parsetime(char *str) { double time, moretime; if (sscanf(str, "%lf", &time) != 1) return -1; str = strchr(str, ':'); if (str == NULL) return time; str++; /* Skip colon */ time *= 60.0; if (sscanf(str, "%lf", &moretime) != 1) return -1; time += moretime; str = strchr(str, ':'); if (str == NULL) return time; str++; /* Skip colon */ time *= 60.0; if (sscanf(str, "%lf", &moretime) != 1) return -1; return time + moretime; }