FreeCalypso > hg > freecalypso-tools

annotate ffstools/tiaud/compile.c @ 913:1b8929cb7371

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc/Host-tools-overview: document fc-vm2gsmx
author Mychaela Falconia <falcon@freecalypso.org>
date Thu, 29 Dec 2022 21:36:37 +0000
parents f7e946389f8b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * This utility compiles a TI audio mode config file from our ASCII source
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 * format into the binary for uploading into Calypso device FFS.
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 */
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 #include <sys/types.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 #include <sys/file.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 #include <ctype.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 #include <string.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 #include <strings.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 #include <stdio.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 #include <stdint.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13 #include <endian.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 #include <stdlib.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 #include <unistd.h>
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 #include "binstruct.h"
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 struct audio_cfg_bin bin;
836
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
19 int is_new_aec;
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 char *infname;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 FILE *inf;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
23 int lineno;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
24
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
25 init_nonzero_defaults()
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
26 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
27 bin.mic_bytes[0] = 3;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
28 bin.mic_fir[0] = 0x4000;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
29 bin.speaker_fir[0] = 0x4000;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
30 bin.sidetone_gain = -5;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
31 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
32
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
33 static long
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
34 strtol_wrap(arg)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
35 char *arg;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
36 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
37 char *endptr;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
38 long ret;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
39
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
40 ret = strtol(arg, &endptr, 0);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
41 if (*endptr) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
42 fprintf(stderr, "%s line %d: \"%s\" is not a valid number\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
43 infname, lineno, arg);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
44 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
45 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
46 return(ret);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
47 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
48
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
49 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
50 mic_gain_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
51 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
52 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
53 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
54
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
55 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
56 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
57 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
58 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
59 "%s line %d: mic gain setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
60 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
61 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
62 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
63 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
64 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
65 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
66 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
67 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
68 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
69 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
70 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
71 "%s line %d: mic gain setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
72 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
73 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
74 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
75 bin.mic_bytes[0] = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
76 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
77
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
78 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
79 mic_extra_gain_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
80 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
81 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
82 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
83
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
84 if (bin.mic_mode != AUDIO_MICROPHONE_HANDFREE) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
85 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
86 "%s line %d: mic extra-gain setting is only valid in aux mode\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
87 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
88 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
89 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
90 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
91 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
92 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
93 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
94 "%s line %d: mic extra-gain setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
95 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
96 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
97 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
98 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
99 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
100 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
101 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
102 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
103 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
104 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
105 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
106 "%s line %d: mic extra-gain setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
107 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
108 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
109 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
110 bin.mic_bytes[1] = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
111 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
112
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
113 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
114 mic_output_bias_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
115 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
116 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
117 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
118 int idx;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
119
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
120 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
121 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
122 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
123 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
124 "%s line %d: mic output-bias setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
125 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
126 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
127 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
128 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
129 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
130 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
131 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
132 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
133 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
134 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
135 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
136 "%s line %d: mic output-bias setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
137 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
138 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
139 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
140 if (bin.mic_mode != AUDIO_MICROPHONE_HANDFREE)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
141 idx = 1;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
142 else
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
143 idx = 2;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
144 bin.mic_bytes[idx] = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
145 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
146
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
147 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
148 mic_fir_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
149 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
150 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
151 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
152 int idx, start_idx;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
153
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
154 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
155 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
156 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
157 missing_arg: fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
158 "%s line %d: mic fir setting requires two or more arguments\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
159 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
160 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
161 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
162 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
163 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
164 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
165 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
166 start_idx = strtol_wrap(np);
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
167 if (start_idx < 0 || start_idx > 30) {
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
168 fprintf(stderr,
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
169 "%s line %d: FIR coefficient number must be between 0 and 30\n",
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
170 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
171 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
172 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
173 for (idx = start_idx; ; idx++) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
174 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
175 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
176 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
177 if (idx == start_idx)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
178 goto missing_arg;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
179 break;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
180 }
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
181 if (idx > 30) {
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
182 fprintf(stderr,
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
183 "%s line %d: spill past FIR coefficient 30\n",
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
184 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
185 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
186 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
187 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
188 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
189 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
190 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
191 bin.mic_fir[idx] = htole16(strtol_wrap(np));
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
192 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
193 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
194
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
195 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
196 mic_head_line(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
197 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
198 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
199 char linebuf[512];
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
200 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
201
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
202 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
203 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
204 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
205 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
206 "%s line %d: mic setting requires a mode argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
207 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
208 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
209 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
210 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
211 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
212 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
213 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
214 if (!strcmp(np, "default"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
215 bin.mic_mode = AUDIO_MICROPHONE_HANDHELD;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
216 else if (!strcmp(np, "aux"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
217 bin.mic_mode = AUDIO_MICROPHONE_HANDFREE;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
218 else if (!strcmp(np, "headset"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
219 bin.mic_mode = AUDIO_MICROPHONE_HEADSET;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
220 else {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
221 fprintf(stderr, "%s line %d: unknown mic mode \"%s\"\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
222 infname, lineno, np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
223 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
224 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
225 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
226 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
227 if (*cp == '\0' || *cp == '#')
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
228 return;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
229 if (*cp != '{') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
230 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
231 "%s line %d: invalid syntax on the mic head line\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
232 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
233 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
234 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
235 for (;;) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
236 if (!fgets(linebuf, sizeof linebuf, inf)) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
237 fprintf(stderr, "%s: unexpected EOF in mic section\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
238 infname);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
239 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
240 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
241 lineno++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
242 for (cp = linebuf; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
243 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
244 if (*cp == '\0' || *cp == '#')
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
245 continue;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
246 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
247 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
248 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
249 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
250 if (!strcmp(np, "gain"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
251 mic_gain_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
252 else if (!strcmp(np, "extra-gain"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
253 mic_extra_gain_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
254 else if (!strcmp(np, "output-bias"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
255 mic_output_bias_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
256 else if (!strcmp(np, "fir"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
257 mic_fir_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
258 else if (!strcmp(np, "}"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
259 break;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
260 else {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
261 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
262 "%s line %d: unknown mic setting \"%s\"\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
263 infname, lineno, np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
264 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
265 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
266 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
267 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
268
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
269 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
270 speaker_gain_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
271 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
272 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
273 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
274
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
275 if (bin.speaker_mode == AUDIO_SPEAKER_BUZZER) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
276 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
277 "%s line %d: speaker gain setting is not valid in buzzer mode\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
278 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
279 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
280 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
281 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
282 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
283 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
284 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
285 "%s line %d: speaker gain setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
286 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
287 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
288 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
289 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
290 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
291 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
292 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
293 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
294 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
295 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
296 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
297 "%s line %d: speaker gain setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
298 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
299 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
300 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
301 bin.speaker_bytes[0] = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
302 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
303
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
304 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
305 speaker_audio_filter_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
306 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
307 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
308 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
309
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
310 if (bin.speaker_mode == AUDIO_SPEAKER_BUZZER) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
311 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
312 "%s line %d: speaker audio-filter setting is not valid in buzzer mode\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
313 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
314 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
315 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
316 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
317 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
318 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
319 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
320 "%s line %d: speaker audio-filter setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
321 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
322 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
323 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
324 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
325 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
326 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
327 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
328 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
329 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
330 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
331 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
332 "%s line %d: speaker audio-filter setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
333 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
334 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
335 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
336 bin.speaker_bytes[1] = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
337 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
338
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
339 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
340 speaker_fir_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
341 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
342 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
343 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
344 int idx, start_idx;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
345
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
346 if (bin.speaker_mode == AUDIO_SPEAKER_BUZZER) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
347 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
348 "%s line %d: speaker fir setting is not valid in buzzer mode\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
349 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
350 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
351 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
352 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
353 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
354 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
355 missing_arg: fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
356 "%s line %d: speaker fir setting requires two or more arguments\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
357 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
358 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
359 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
360 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
361 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
362 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
363 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
364 start_idx = strtol_wrap(np);
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
365 if (start_idx < 0 || start_idx > 30) {
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
366 fprintf(stderr,
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
367 "%s line %d: FIR coefficient number must be between 0 and 30\n",
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
368 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
369 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
370 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
371 for (idx = start_idx; ; idx++) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
372 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
373 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
374 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
375 if (idx == start_idx)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
376 goto missing_arg;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
377 break;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
378 }
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
379 if (idx > 30) {
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
380 fprintf(stderr,
246
2abc086b13ed tiaud-compile: max FIR coefficient number is 30, not 31
Mychaela Falconia <falcon@freecalypso.org>
parents: 240
diff changeset
381 "%s line %d: spill past FIR coefficient 30\n",
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
382 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
383 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
384 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
385 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
386 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
387 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
388 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
389 bin.speaker_fir[idx] = htole16(strtol_wrap(np));
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
390 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
391 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
392
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
393 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
394 speaker_activate_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
395 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
396 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
397 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
398
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
399 if (bin.speaker_mode != AUDIO_SPEAKER_BUZZER) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
400 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
401 "%s line %d: speaker activate setting is only valid in buzzer mode\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
402 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
403 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
404 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
405 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
406 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
407 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
408 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
409 "%s line %d: speaker activate setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
410 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
411 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
412 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
413 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
414 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
415 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
416 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
417 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
418 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
419 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
420 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
421 "%s line %d: speaker activate setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
422 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
423 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
424 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
425 bin.speaker_bytes[0] = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
426 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
427
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
428 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
429 speaker_head_line(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
430 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
431 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
432 char linebuf[512];
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
433 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
434
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
435 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
436 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
437 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
438 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
439 "%s line %d: speaker setting requires a mode argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
440 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
441 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
442 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
443 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
444 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
445 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
446 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
447 if (!strcmp(np, "ear"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
448 bin.speaker_mode = AUDIO_SPEAKER_HANDHELD;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
449 else if (!strcmp(np, "aux"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
450 bin.speaker_mode = AUDIO_SPEAKER_HANDFREE;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
451 else if (!strcmp(np, "headset"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
452 bin.speaker_mode = AUDIO_SPEAKER_HEADSET;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
453 else if (!strcmp(np, "buzzer"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
454 bin.speaker_mode = AUDIO_SPEAKER_BUZZER;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
455 else if (!strcmp(np, "ear+aux"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
456 bin.speaker_mode = AUDIO_SPEAKER_HANDHELD_HANDFREE;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
457 else {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
458 fprintf(stderr, "%s line %d: unknown speaker mode \"%s\"\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
459 infname, lineno, np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
460 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
461 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
462 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
463 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
464 if (*cp == '\0' || *cp == '#')
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
465 return;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
466 if (*cp != '{') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
467 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
468 "%s line %d: invalid syntax on the speaker head line\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
469 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
470 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
471 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
472 for (;;) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
473 if (!fgets(linebuf, sizeof linebuf, inf)) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
474 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
475 "%s: unexpected EOF in speaker section\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
476 infname);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
477 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
478 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
479 lineno++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
480 for (cp = linebuf; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
481 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
482 if (*cp == '\0' || *cp == '#')
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
483 continue;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
484 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
485 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
486 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
487 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
488 if (!strcmp(np, "gain"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
489 speaker_gain_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
490 else if (!strcmp(np, "audio-filter"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
491 speaker_audio_filter_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
492 else if (!strcmp(np, "fir"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
493 speaker_fir_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
494 else if (!strcmp(np, "activate"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
495 speaker_activate_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
496 else if (!strcmp(np, "}"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
497 break;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
498 else {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
499 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
500 "%s line %d: unknown speaker setting \"%s\"\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
501 infname, lineno, np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
502 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
503 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
504 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
505 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
506
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
507 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
508 voice_path_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
509 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
510 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
511 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
512
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
513 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
514 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
515 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
516 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
517 "%s line %d: voice-path setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
518 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
519 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
520 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
521 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
522 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
523 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
524 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
525 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
526 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
527 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
528 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
529 "%s line %d: voice-path setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
530 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
531 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
532 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
533 bin.voice_path = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
534 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
535
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
536 static void
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
537 sidetone_setting(args)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
538 char *args;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
539 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
540 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
541
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
542 for (cp = args; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
543 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
544 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
545 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
546 "%s line %d: sidetone setting requires an argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
547 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
548 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
549 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
550 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
551 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
552 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
553 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
554 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
555 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
556 if (*cp != '\0' && *cp != '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
557 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
558 "%s line %d: sidetone setting takes only one argument\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
559 infname, lineno);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
560 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
561 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
562 bin.sidetone_gain = strtol_wrap(np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
563 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
564
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
565 static void
836
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
566 aec_setting(name, nwords, args)
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
567 char *name, *args;
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
568 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
569 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
570 int n;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
571
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
572 cp = args;
836
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
573 for (n = 0; n < nwords; n++) {
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
574 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
575 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
576 if (*cp == '\0' || *cp == '#') {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
577 argcount_err: fprintf(stderr,
836
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
578 "%s line %d: %s setting takes %d arguments\n",
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
579 infname, lineno, name, nwords);
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
580 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
581 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
582 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
583 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
584 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
585 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
586 bin.aec_words[n] = htole16(strtol_wrap(np));
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
587 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
588 while (isspace(*cp))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
589 cp++;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
590 if (*cp != '\0' && *cp != '#')
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
591 goto argcount_err;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
592 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
593
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
594 read_input_main()
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
595 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
596 char linebuf[512];
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
597 char *cp, *np;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
598
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
599 for (lineno = 1; fgets(linebuf, sizeof linebuf, inf); lineno++) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
600 for (cp = linebuf; isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
601 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
602 if (*cp == '\0' || *cp == '#')
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
603 continue;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
604 for (np = cp; *cp && !isspace(*cp); cp++)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
605 ;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
606 if (*cp)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
607 *cp++ = '\0';
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
608 if (!strcmp(np, "voice-path"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
609 voice_path_setting(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
610 else if (!strcmp(np, "mic"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
611 mic_head_line(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
612 else if (!strcmp(np, "speaker"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
613 speaker_head_line(cp);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
614 else if (!strcmp(np, "sidetone"))
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
615 sidetone_setting(cp);
836
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
616 else if (!strcmp(np, "aec")) {
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
617 is_new_aec = 0;
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
618 aec_setting("aec", 5, cp);
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
619 } else if (!strcmp(np, "aec-new")) {
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
620 is_new_aec = 1;
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
621 aec_setting("aec-new", 12, cp);
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
622 } else {
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
623 fprintf(stderr,
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
624 "%s line %d: unknown top-level setting \"%s\"\n",
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
625 infname, lineno, np);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
626 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
627 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
628 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
629 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
630
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
631 write_bin_output(filename)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
632 char *filename;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
633 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
634 int fd;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
635
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
636 fd = open(filename, O_WRONLY|O_CREAT|O_TRUNC, 0666);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
637 if (fd < 0) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
638 perror(filename);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
639 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
640 }
836
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
641 write(fd, &bin,
f7e946389f8b tiaud-compile: add support for aec-new
Mychaela Falconia <falcon@freecalypso.org>
parents: 834
diff changeset
642 is_new_aec ? MODE_FILE_SIZE_NEWAEC : MODE_FILE_SIZE_OLDAEC);
240
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
643 close(fd);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
644 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
645
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
646 main(argc, argv)
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
647 char **argv;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
648 {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
649 if (argc != 3) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
650 fprintf(stderr, "usage: %s infile outfile\n", argv[0]);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
651 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
652 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
653 if (strcmp(argv[1], "-")) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
654 infname = argv[1];
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
655 inf = fopen(infname, "r");
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
656 if (!inf) {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
657 perror(infname);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
658 exit(1);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
659 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
660 } else {
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
661 inf = stdin;
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
662 infname = "stdin";
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
663 }
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
664 init_nonzero_defaults();
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
665 read_input_main();
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
666 write_bin_output(argv[2]);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
667 exit(0);
2568a2a8a453 tiaud-compile program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
668 }