gosu 0.7.16 → 0.7.17

data/dependencies/libvorbis/vq/bookutil.h

@@ -1,43 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2001             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
- function: utility functions for loading .vqh and .vqd files
- last mod: $Id: bookutil.h 13293 2007-07-24 00:09:47Z xiphmont $
-
- ********************************************************************/
-
-#ifndef _V_BOOKUTIL_H_
-#define _V_BOOKUTIL_H_
-
-#include <stdio.h>
-#include <sys/time.h>
-
-#include "localcodebook.h"
-
-extern char     *get_line(FILE *in);
-extern char     *setup_line(FILE *in);
-extern int       get_line_value(FILE *in,float *value);
-extern int       get_next_value(FILE *in,float *value);
-extern int       get_next_ivalue(FILE *in,long *ivalue);
-extern void      reset_next_value(void);
-extern int       get_vector(codebook *b,FILE *in,int start,int num,float *a);
-extern char     *find_seek_to(FILE *in,char *s);
-
-extern codebook *codebook_load(char *filename);
-extern void write_codebook(FILE *out,char *name,const static_codebook *c);
-
-extern void spinnit(char *s,int n);
-extern void build_tree_from_lengths(int vals, long *hist, long *lengths);
-extern void build_tree_from_lengths0(int vals, long *hist, long *lengths);
-
-#endif
-

data/dependencies/libvorbis/vq/build.c

@@ -1,195 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2001             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
- function: utility main for building codebooks from training sets
- last mod: $Id: build.c 13293 2007-07-24 00:09:47Z xiphmont $
-
- ********************************************************************/
-
-#include <stdlib.h>
-#include <stdio.h>
-#include <math.h>
-#include <string.h>
-#include <errno.h>
-#include "bookutil.h"
-
-#include "vqgen.h"
-#include "vqsplit.h"
-
-static char *linebuffer=NULL;
-static int  lbufsize=0;
-static char *rline(FILE *in,FILE *out){
-  long sofar=0;
-  if(feof(in))return NULL;
-
-  while(1){
-    int gotline=0;
-
-    while(!gotline){
-      if(sofar>=lbufsize){
-	if(!lbufsize){	
-	  lbufsize=1024;
-	  linebuffer=_ogg_malloc(lbufsize);
-	}else{
-	  lbufsize*=2;
-	  linebuffer=_ogg_realloc(linebuffer,lbufsize);
-	}
-      }
-      {
-	long c=fgetc(in);
-	switch(c){
-	case '\n':
-	case EOF:
-	  gotline=1;
-	  break;
-	default:
-	  linebuffer[sofar++]=c;
-	  linebuffer[sofar]='\0';
-	  break;
-	}
-      }
-    }
-    
-    if(linebuffer[0]=='#'){
-      sofar=0;
-    }else{
-      return(linebuffer);
-    }
-  }
-}
-
-/* command line:
-   buildvq file
-*/
-
-int main(int argc,char *argv[]){
-  vqgen v;
-  static_codebook c;
-  codebook b;
-  quant_meta q;
-
-  long *quantlist=NULL;
-  int entries=-1,dim=-1,aux=-1;
-  FILE *out=NULL;
-  FILE *in=NULL;
-  char *line,*name;
-  long i,j,k;
-
-  b.c=&c;
-
-  if(argv[1]==NULL){
-    fprintf(stderr,"Need a trained data set on the command line.\n");
-    exit(1);
-  }
-
-  {
-    char *ptr;
-    char *filename=strdup(argv[1]);
-
-    in=fopen(filename,"r");
-    if(!in){
-      fprintf(stderr,"Could not open input file %s\n",filename);
-      exit(1);
-    }
-    
-    ptr=strrchr(filename,'-');
-    if(ptr){
-      *ptr='\0';
-      name=strdup(filename);
-      sprintf(ptr,".vqh");
-    }else{
-      name=strdup(filename);
-      strcat(filename,".vqh");
-    }
-
-    out=fopen(filename,"w");
-    if(out==NULL){
-      fprintf(stderr,"Unable to open %s for writing\n",filename);
-      exit(1);
-    }
-  }
-
-  /* suck in the trained book */
-
-  /* read book type, but it doesn't matter */
-  line=rline(in,out);
-  
-  line=rline(in,out);
-  if(sscanf(line,"%d %d %d",&entries,&dim,&aux)!=3){
-    fprintf(stderr,"Syntax error reading book file\n");
-    exit(1);
-  }
-  
-  /* just use it to allocate mem */
-  vqgen_init(&v,dim,0,entries,0.f,NULL,NULL,0);
-  
-  /* quant */
-  line=rline(in,out);
-  if(sscanf(line,"%ld %ld %d %d",&q.min,&q.delta,
-	    &q.quant,&q.sequencep)!=4){
-    fprintf(stderr,"Syntax error reading book file\n");
-    exit(1);
-  }
-  
-  /* quantized entries */
-  /* save quant data; we don't want to requantize later as our method
-     is currently imperfect wrt repeated application */
-  i=0;
-  quantlist=_ogg_malloc(sizeof(long)*v.elements*v.entries);
-  for(j=0;j<entries;j++){
-    float a;
-    for(k=0;k<dim;k++){
-      line=rline(in,out);
-      sscanf(line,"%f",&a);
-      v.entrylist[i]=a;
-      quantlist[i++]=rint(a);
-    }
-  }    
-  
-  /* ignore bias */
-  for(j=0;j<entries;j++)line=rline(in,out);
-  free(v.bias);
-  v.bias=NULL;
-  
-  /* training points */
-  {
-    float *b=alloca(sizeof(float)*(dim+aux));
-    i=0;
-    v.entries=0; /* hack to avoid reseeding */
-    while(1){
-      for(k=0;k<dim+aux;k++){
-	line=rline(in,out);
-	if(!line)break;
-	sscanf(line,"%f",b+k);
-      }
-      if(feof(in))break;
-      vqgen_addpoint(&v,b,NULL);
-    }
-    v.entries=entries;
-  }
-  
-  fclose(in);
-  vqgen_unquantize(&v,&q);
-
-  /* build the book */
-  vqsp_book(&v,&b,quantlist);
-  c.q_min=q.min;
-  c.q_delta=q.delta;
-  c.q_quant=q.quant;
-  c.q_sequencep=q.sequencep;
-
-  /* save the book in C header form */
-  write_codebook(out,name,b.c);
-
-  fclose(out);
-  exit(0);
-}

data/dependencies/libvorbis/vq/cascade.c

@@ -1,91 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2001             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
- function: function call to do simple data cascading
- last mod: $Id: cascade.c 13293 2007-07-24 00:09:47Z xiphmont $
-
- ********************************************************************/
-
-/* this one outputs residue to stdout. */
-
-#include <stdlib.h>
-#include <unistd.h>
-#include <math.h>
-#include "bookutil.h"
-
-/* set up metrics */
-
-float count=0.f;
-
-
-void process_preprocess(codebook **bs,char *basename){
-}
-
-void process_postprocess(codebook **b,char *basename){
-  fprintf(stderr,"Done.                      \n");
-}
-
-float process_one(codebook *b,float *a,int dim,int step,int addmul,
-		   float base){
-  int j;
-
-  if(b->c->q_sequencep){
-    float temp;
-    for(j=0;j<dim;j++){
-      temp=a[j*step];
-      a[j*step]-=base;
-    }
-    base=temp;
-  }
-
-  vorbis_book_besterror(b,a,step,addmul);
-  
-  return base;
-}
-
-void process_vector(codebook **bs,int *addmul,int inter,float *a,int n){
-  int i,bi=0;
-  int booknum=0;
-  
-  while(*bs){
-    float base=0.f;
-    codebook *b=*bs;
-    int dim=b->dim;
-    
-    if(inter){
-      for(i=0;i<n/dim;i++)
-	base=process_one(b,a+i,dim,n/dim,addmul[bi],base);
-    }else{
-      for(i=0;i<=n-dim;i+=dim)
-	base=process_one(b,a+i,dim,1,addmul[bi],base);
-    }
-
-    bs++;
-    booknum++;
-    bi++;
-  }
-
-  for(i=0;i<n;i++)
-    fprintf(stdout,"%f, ",a[i]);
-  fprintf(stdout,"\n");
-  
-  if((long)(count++)%100)spinnit("working.... lines: ",count);
-}
-
-void process_usage(void){
-  fprintf(stderr,
-	  "usage: vqcascade [-i] +|*<codebook>.vqh [ +|*<codebook.vqh> ]... \n"
-	  "                 datafile.vqd [datafile.vqd]...\n\n"
-	  "       data can be taken on stdin.  residual error data sent to\n"
-	  "       stdout.\n\n");
-
-}

data/dependencies/libvorbis/vq/distribution.c

@@ -1,248 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2001             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
- function: utility for finding the distribution in a data set
- last mod: $Id: distribution.c 13293 2007-07-24 00:09:47Z xiphmont $
-
- ********************************************************************/
-
-#include <stdlib.h>
-#include <stdio.h>
-#include <math.h>
-#include <string.h>
-#include <errno.h>
-#include "bookutil.h"
-
-/* command line:
-   distribution file.vqd
-*/
-
-int ascend(const void *a,const void *b){
-  return(**((long **)a)-**((long **)b));
-}
-
-int main(int argc,char *argv[]){
-  FILE *in;
-  long lines=0;
-  float min;
-  float max;
-  long bins=-1;
-  int flag=0;
-  long *countarray;
-  long total=0;
-  char *line;
-
-  if(argv[1]==NULL){
-    fprintf(stderr,"Usage: distribution {data.vqd [bins]| book.vqh} \n\n");
-    exit(1);
-  }
-  if(argv[2]!=NULL)
-    bins=atoi(argv[2])-1;
-
-  in=fopen(argv[1],"r");
-  if(!in){
-    fprintf(stderr,"Could not open input file %s\n",argv[1]);
-    exit(1);
-  }
-
-  if(strrchr(argv[1],'.') && strcmp(strrchr(argv[1],'.'),".vqh")==0){
-    /* load/decode a book */
-
-    codebook *b=codebook_load(argv[1]);
-    static_codebook *c=(static_codebook *)(b->c);
-    float delta;
-    int i;
-    fclose(in);
-
-    switch(c->maptype){
-    case 0:
-      printf("entropy codebook only; no mappings\n");
-      exit(0);
-      break;
-    case 1:
-      bins=_book_maptype1_quantvals(c);
-      break;
-    case 2:
-      bins=c->entries*c->dim;
-      break;
-    }
-
-    max=min=_float32_unpack(c->q_min);
-    delta=_float32_unpack(c->q_delta);
-
-    for(i=0;i<bins;i++){
-      float val=c->quantlist[i]*delta+min;
-      if(val>max)max=val;
-    }
-
-    printf("Minimum scalar value: %f\n",min);
-    printf("Maximum scalar value: %f\n",max);
-
-    switch(c->maptype){
-    case 1:
-      {
-	/* lattice codebook.  dump it. */
-	int j,k;
-	long maxcount=0;
-	long **sort=calloc(bins,sizeof(long *));
-	long base=c->lengthlist[0];
-	countarray=calloc(bins,sizeof(long));
-
-	for(i=0;i<bins;i++)sort[i]=c->quantlist+i;
-	qsort(sort,bins,sizeof(long *),ascend);
-
-	for(i=0;i<b->entries;i++)
-	  if(c->lengthlist[i]>base)base=c->lengthlist[i];
-
-	/* dump a full, correlated count */
-	for(j=0;j<b->entries;j++){
-	  if(c->lengthlist[j]){
-	    int indexdiv=1;
-	    printf("%4d: ",j);
-	    for(k=0;k<b->dim;k++){	
-	      int index= (j/indexdiv)%bins;
-	      printf("%+3.1f,", c->quantlist[index]*_float32_unpack(c->q_delta)+
-		     _float32_unpack(c->q_min));
-	      indexdiv*=bins;
-	    }
-	    printf("\t|");
-	    for(k=0;k<base-c->lengthlist[j];k++)printf("*");
-	    printf("\n");
-	  }
-	}
-
-	/* do a rough count */
-	for(j=0;j<b->entries;j++){
-	  int indexdiv=1;
-	  for(k=0;k<b->dim;k++){
-	    if(c->lengthlist[j]){
-	      int index= (j/indexdiv)%bins;
-	      countarray[index]+=(1<<(base-c->lengthlist[j]));
-	      indexdiv*=bins;
-	    }
-	  }
-	}
-
-	/* dump the count */
-
-	{
-	  long maxcount=0,i,j;
-	  for(i=0;i<bins;i++)
-	    if(countarray[i]>maxcount)maxcount=countarray[i];
-      
-	  for(i=0;i<bins;i++){
-	    int ptr=sort[i]-c->quantlist;
-	    int stars=rint(50./maxcount*countarray[ptr]);
-	    printf("%+08f (%8ld) |",c->quantlist[ptr]*delta+min,countarray[ptr]);
-	    for(j=0;j<stars;j++)printf("*");
-	    printf("\n");
-	  }
-	}
-      }
-      break;
-    case 2:
-      {
-	/* trained, full mapping codebook. */
-	printf("Can't do probability dump of a trained [type 2] codebook (yet)\n");
-      }
-      break;
-    }
-  }else{
-    /* load/count a data file */
-
-    /* do it the simple way; two pass. */
-    line=setup_line(in);
-    while(line){      
-      float code;
-      char buf[80];
-      lines++;
-
-      sprintf(buf,"getting min/max (%.2f::%.2f). lines...",min,max);
-      if(!(lines&0xff))spinnit(buf,lines);
-      
-      while(!flag && sscanf(line,"%f",&code)==1){
-	line=strchr(line,',');
-	min=max=code;
-	flag=1;
-      }
-      
-      while(line && sscanf(line,"%f",&code)==1){
-	line=strchr(line,',');
-	if(line)line++;
-	if(code<min)min=code;
-	if(code>max)max=code;
-      }
-      
-      line=setup_line(in);
-    }
-    
-    if(bins<1){
-      if((int)(max-min)==min-max){
-	bins=max-min;
-      }else{
-	bins=25;
-      }
-    }
-    
-    printf("\r                                                     \r");
-    printf("Minimum scalar value: %f\n",min);
-    printf("Maximum scalar value: %f\n",max);
-
-    if(argv[2]){
-      
-      printf("\n counting hits into %ld bins...\n",bins+1);
-      countarray=calloc(bins+1,sizeof(long));
-      
-      rewind(in);
-      line=setup_line(in);
-      while(line){      
-	float code;
-	lines--;
-	if(!(lines&0xff))spinnit("counting distribution. lines so far...",lines);
-	
-	while(line && sscanf(line,"%f",&code)==1){
-	  line=strchr(line,',');
-	  if(line)line++;
-	  
-	  code-=min;
-	  code/=(max-min);
-	  code*=bins;
-	  countarray[(int)rint(code)]++;
-	  total++;
-	}
-	
-	line=setup_line(in);
-      }
-    
-      /* make a pretty graph */
-      {
-	long maxcount=0,i,j;
-	for(i=0;i<bins+1;i++)
-	  if(countarray[i]>maxcount)maxcount=countarray[i];
-	
-	printf("\r                                                     \r");
-	printf("Total scalars: %ld\n",total);
-	for(i=0;i<bins+1;i++){
-	  int stars=rint(50./maxcount*countarray[i]);
-	  printf("%08f (%8ld) |",(max-min)/bins*i+min,countarray[i]);
-	  for(j=0;j<stars;j++)printf("*");
-	  printf("\n");
-	}
-      }
-    }
-
-    fclose(in);
-
-  }
-  printf("\nDone.\n");
-  exit(0);
-}