Working codec2 support

libs/libcodec2/unittest/extract.c

@@ -0,0 +1,121 @@
+/*--------------------------------------------------------------------------*\
+
+	FILE........: extract.c
+	AUTHOR......: David Rowe
+	DATE CREATED: 23/2/95
+
+	This program extracts a float file of vectors from a text file
+	of vectors.  The float files are easier to process quickly
+	during VQ training.  A subset of the text file VQ may be
+	extracted to faciltate split VQ of scaler VQ design.
+
+\*--------------------------------------------------------------------------*/
+
+/*
+  Copyright (C) 2009 David Rowe
+
+  All rights reserved.
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU Lesser General Public License version 2, as
+  published by the Free Software Foundation.  This program is
+  distributed in the hope that it will be useful, but WITHOUT ANY
+  WARRANTY; without even the implied warranty of MERCHANTABILITY or
+  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
+  License for more details.
+
+  You should have received a copy of the GNU Lesser General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+#define	MAX_STR	256		/* maximum string length		*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+
+void scan_line(FILE *fp, float f[], int n);
+
+int main(int argc, char *argv[]) {
+    FILE   *ftext;	/* text file of vectors 			*/
+    FILE   *ffloat;	/* float file of vectors			*/
+    int    st,en;	/* start and end values of vector to copy	*/
+    float  *buf;	/* ptr to vector read from ftext		*/
+    long   lines;	/* lines read so far				*/
+
+    if (argc != 5) {
+	printf("usage: extract TextFile FloatFile start end\n");
+	exit(0);
+    }
+
+    /* read command line arguments and open files */
+
+    ftext = fopen(argv[1],"rt");
+    if (ftext == NULL) {
+	printf("Error opening text file: %s\n",argv[1]);
+	exit(1);
+    }
+
+    ffloat = fopen(argv[2],"wb");
+    if (ffloat == NULL) {
+	printf("Error opening float file: %s\n",argv[2]);
+	exit(1);
+    }
+
+    st = atoi(argv[3]);
+    en = atoi(argv[4]);
+
+    buf = (float*)malloc(en*sizeof(float));
+    if (buf == NULL) {
+	printf("Error in malloc()\n");
+	exit(1);
+    }
+
+    lines = 0;
+    while(!feof(ftext)) {
+	scan_line(ftext, buf, en);
+	fwrite(&buf[st-1], sizeof(float), en-st+1, ffloat);
+	printf("\r%ld lines",lines++);
+    }
+    printf("\n");
+
+    /* clean up and exit */
+
+    free(buf);
+    fclose(ftext);
+    fclose(ffloat);
+
+    return 0;
+}
+
+/*---------------------------------------------------------------------------*\
+
+	FUNCTION....: scan_line()
+
+	AUTHOR......: David Rowe
+	DATE CREATED: 20/2/95
+
+	This function reads a vector of floats from a line in a text file.
+
+\*---------------------------------------------------------------------------*/
+
+void scan_line(FILE *fp, float f[], int n)
+/*  FILE   *fp;		file ptr to text file 		*/
+/*  float  f[]; 	array of floats to return 	*/
+/*  int    n;		number of floats in line 	*/
+{
+    char   s[MAX_STR];
+    char   *ps,*pe;
+    int	   i;
+
+    fgets(s,MAX_STR,fp);
+    ps = pe = s;
+    for(i=0; i<n; i++) {
+	while( isspace(*pe)) pe++;
+	while( !isspace(*pe)) pe++;
+	sscanf(ps,"%f",&f[i]);
+	ps = pe;
+    }
+}
+