annotate dev/mk-256bytes.c @ 503:3654df24451f

libgsmhr1/mathdp31.[ch]: import original
author Mychaela Falconia <falcon@freecalypso.org>
date Wed, 19 Jun 2024 01:16:47 +0000
parents bbdefd2ef950
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
233
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * This program generates a binary file of 256 bytes, containing every
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 * possible octet value in linearly increasing order. The purpose of this
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 * datum is testing of A-linear-A and mu-linear-mu PCM conversions: we need
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 * to ensure that each of those sequences is an identity transform for all
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 * possible PCM octet values.
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 */
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 #include <stdio.h>
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 #include <stdlib.h>
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 main(argc, argv)
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13 char **argv;
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 {
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 FILE *outf;
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 unsigned val;
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 if (argc != 2) {
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 fprintf(stderr, "usage: %s output-bin-file\n", argv[0]);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 exit(1);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 }
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 outf = fopen(argv[1], "w");
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
23 if (!outf) {
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
24 perror(argv[1]);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
25 exit(1);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
26 }
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
27 for (val = 0; val < 256; val++)
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
28 putc(val, outf);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
29 fclose(outf);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
30 exit(0);
bbdefd2ef950 dev: new program mk-256bytes
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
31 }