# HG changeset patch
# User Mychaela Falconia <falcon@freecalypso.org>
# Date 1682220985 0
# Node ID 6555dae764b37f412da8ace283689c0354e9791b
# Parent  c4c45148cde1c2bc58c8660128594d8a25c87dc2
miscutil: new program pcm16-check13

diff -r c4c45148cde1 -r 6555dae764b3 .hgignore
--- a/.hgignore	Sat Apr 22 20:57:11 2023 +0000
+++ b/.hgignore	Sun Apr 23 03:36:25 2023 +0000
@@ -42,6 +42,7 @@
 ^frtest/gsmfr-preproc$
 
 ^miscutil/gsmrec-dump$
+^miscutil/pcm16-check13$
 ^miscutil/pcm16-raw2wav$
 ^miscutil/pcm16-to-alaw$
 ^miscutil/pcm16-to-ulaw$
diff -r c4c45148cde1 -r 6555dae764b3 miscutil/Makefile
--- a/miscutil/Makefile	Sat Apr 22 20:57:11 2023 +0000
+++ b/miscutil/Makefile	Sun Apr 23 03:36:25 2023 +0000
@@ -1,6 +1,7 @@
 CC=	gcc
 CFLAGS=	-O2
-PROGS=	gsmrec-dump pcm16-raw2wav pcm16-to-alaw pcm16-to-ulaw pcm16-wav2raw
+PROGS=	gsmrec-dump pcm16-check13 pcm16-raw2wav pcm16-to-alaw pcm16-to-ulaw \
+	pcm16-wav2raw
 LIBEFR=	../libgsmefr/libgsmefr.a
 LIBTEST=../libtest/libtest.a
 INSTBIN=/opt/freecalypso/bin
@@ -10,6 +11,9 @@
 gsmrec-dump:	gsmrec-dump.o ${LIBTEST} ${LIBEFR}
 	${CC} ${CFLAGS} -o $@ gsmrec-dump.o ${LIBTEST} ${LIBEFR} -lgsm
 
+pcm16-check13:	pcm16-check13.c
+	${CC} ${CFLAGS} -o $@ $@.c
+
 pcm16-raw2wav:	raw2wav.o ${LIBTEST}
 	${CC} ${CFLAGS} -o $@ raw2wav.o ${LIBTEST}
 
diff -r c4c45148cde1 -r 6555dae764b3 miscutil/pcm16-check13.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/miscutil/pcm16-check13.c	Sun Apr 23 03:36:25 2023 +0000
@@ -0,0 +1,62 @@
+/*
+ * This program reads a 16-bit PCM recording in raw format (robe by default,
+ * or LE with -l option) and checks whether or not every sample fits into
+ * left-justified 13 bits, with the 3 least significant bits of every 16-bit
+ * sample cleared.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+
+main(argc, argv)
+	char **argv;
+{
+	int little_endian;
+	char *infname;
+	FILE *inf;
+	unsigned sample_count;
+	uint8_t inb[2];
+	uint16_t ins, lowbits;
+	int cc;
+
+	if (argc == 2 && argv[1][0] != '-') {
+		little_endian = 0;
+		infname = argv[1];
+	} else if (argc == 3 && !strcmp(argv[1], "-l")) {
+		little_endian = 1;
+		infname = argv[2];
+	} else {
+		fprintf(stderr, "usage: %s [-l] input.pcm16\n", argv[0]);
+		exit(1);
+	}
+	inf = fopen(infname, "r");
+	if (!inf) {
+		perror(infname);
+		exit(1);
+	}
+	for (sample_count = 0; ; sample_count++) {
+		cc = fread(inb, 1, 2, inf);
+		if (cc <= 0)
+			break;
+		if (cc & 1) {
+			fprintf(stderr, "error: %s has odd number of bytes\n",
+				infname);
+			exit(1);
+		}
+		if (little_endian)
+			ins = ((uint16_t) inb[1] << 8) | ((uint16_t) inb[0]);
+		else
+			ins = ((uint16_t) inb[0] << 8) | ((uint16_t) inb[1]);
+		lowbits = ins & 7;
+		if (lowbits) {
+			fprintf(stderr,
+			"check13 fail: %s sample #%u low 3 bits are %u\n",
+				infname, sample_count, lowbits);
+			exit(1);
+		}
+	}
+	exit(0);
+}