source: buchla-68k/ram/ptread.c@ 7258c6a

Last change on this file since 7258c6a was 7258c6a, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Use standard integer types.
  • Property mode set to 100644
File size: 7.7 KB
Line 
1/*
2 =============================================================================
3 ptread.c -- librarian - read patch functions
4 Version 5 -- 1988-11-18 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define DEBUGRE 0
9#define DEBUGSP 0
10
11#include "graphdef.h"
12#include "stddefs.h"
13#include "stdio.h"
14#include "patch.h"
15#include "vsdd.h"
16
17#include "midas.h"
18#include "libdsp.h"
19
20#if (DEBUGRE|DEBUGSP)
21extern short debugsw;
22#endif
23
24#if DEBUGRE
25extern short debugre;
26#endif
27
28#if DEBUGSP
29short debugsp = 1;
30#endif
31
32extern uint16_t dpecpos;
33extern uint16_t dpepred;
34extern uint16_t dpesucc;
35extern int16_t errno;
36extern int16_t ptecpos;
37extern int16_t ptepred;
38extern int16_t ptesucc;
39
40extern struct patch ptebuf;
41
42/*
43
44*/
45
46/*
47 =============================================================================
48 stashp() -- stash an incoming patch
49 =============================================================================
50*/
51
52int16_t stashp(void)
53{
54 register int16_t c;
55 register uint16_t np, stim;
56
57 c = findpte();
58
59 if (c EQ 0) { /* old patch -- just update it */
60
61 memcpyw(&patches[ptecpos].defnum, &ptebuf.defnum, 6);
62 patches[ptecpos].paspec |= PE_TBIT; /* define it */
63
64#if DEBUGSP
65 if (debugsw AND debugsp) {
66
67 printf("stashp(): UPDATED\n");
68 SnapPTV("stashp");
69 }
70#endif
71
72 return(SUCCESS);
73 }
74
75 /* allocate a patch entry and fill it in */
76
77 if (0 EQ (ptecpos = pt_alc())) {
78
79#if DEBUGSP
80 if (debugsw AND debugsp)
81 printf("stashp(): patch table FULL\n");
82#endif
83 return(FAILURE); /* no patch entries left */
84 }
85
86 memcpyw(&patches[ptecpos].defnum, &ptebuf.defnum, 6);
87 patches[ptecpos].paspec |= PE_TBIT; /* define it */
88 stim = TRG_MASK & ptebuf.stmnum;
89
90 if (c EQ 1) { /* new patch -- no STM entry yet */
91
92 ptepred = 0;
93 stmptr[stim] = ptecpos;
94 }
95/*
96
97*/
98 /* put patch in STM chain */
99
100 if (ptepred) { /* predecessor exits */
101
102 ptesucc = patches[ptepred].nextstm;
103
104 patches[ptecpos].nextstm = ptesucc;
105 patches[ptecpos].prevstm = ptepred;
106
107 patches[ptepred].nextstm = ptecpos;
108
109 if (ptesucc)
110 patches[ptesucc].prevstm = ptecpos;
111
112 } else { /* no predecessor */
113
114 patches[ptecpos].prevstm = 0;
115
116 if (c EQ -1) {
117
118 ptesucc = stmptr[stim];
119
120 patches[ptecpos].nextstm = ptesucc;
121
122 patches[ptesucc].prevstm = ptecpos;
123
124 stmptr[stim] = ptecpos;
125
126 } else {
127
128 patches[ptecpos].nextstm = 0;
129 }
130 }
131/*
132
133*/
134 /* update DEF table */
135
136 if (0 EQ (c = finddpe())) {
137
138#if DEBUGSP
139 if (debugsw AND debugsp) {
140
141 printf("stashp(): defent already exists -- dpecpos = %d\n",
142 dpecpos);
143
144 printf("stashp(): ENTERED\n");
145 SnapPTV("stashp");
146 }
147#endif
148 return(SUCCESS); /* defent already exists */
149 }
150
151 if (0 EQ (dpecpos = dt_alc())) {
152
153#if DEBUGSP
154 if (debugsw AND debugsp)
155 printf("stashp(): defent table FULL\n");
156#endif
157 return(FAILURE); /* no defents left */
158 }
159
160 defents[dpecpos].nextdef = 0;
161 defents[dpecpos].stm = ptebuf.stmnum;
162 defents[dpecpos].adspec = ptebuf.paspec;
163 defents[dpecpos].adsuba = ptebuf.pasuba;
164 defents[dpecpos].addat1 = ptebuf.padat1;
165
166 np = TRG_MASK & ptebuf.defnum;
167
168 if (c EQ 1) {
169
170 dpepred = 0;
171 defptr[np] = dpecpos;
172 }
173/*
174
175*/
176 if (dpepred) {
177
178 dpesucc = defents[dpepred].nextdef;
179 defents[dpecpos].nextdef = dpesucc;
180 defents[dpepred].nextdef = dpecpos;
181
182 } else {
183
184 if (c EQ -1) {
185
186 dpesucc = defptr[np];
187 defents[dpecpos].nextdef = dpesucc;
188 defptr[np] = dpecpos;
189
190 } else {
191
192 defents[dpecpos].nextdef = 0;
193 }
194 }
195
196#if DEBUGSP
197 if (debugsw AND debugsp) {
198
199 printf("stashp(): new defent created -- dpecpos = %d\n",
200 dpecpos);
201
202 printf("stashp(): ENTERED\n");
203 SnapPTV("stashp");
204 }
205#endif
206 return(SUCCESS);
207}
208
209/*
210
211*/
212
213/*
214 =============================================================================
215 ptioerr() -- put up an I/O error message
216 =============================================================================
217*/
218
219void ptioerr(void)
220{
221 int8_t erms[40];
222
223 clrlsel();
224
225 sprintf(erms, " errno = %d", errno);
226
227 ldermsg("Couldn't read", " the patch table", erms,
228 LD_EMCF, LD_EMCB);
229}
230
231/*
232 =============================================================================
233 nopatch() -- give an error message after running out of space
234 =============================================================================
235*/
236
237void nopatch(void)
238{
239 clrlsel();
240
241 ldermsg("Couldn't read", " the patch table.", " Ran out of space",
242 LD_EMCF, LD_EMCB);
243}
244
245/*
246
247*/
248
249/*
250 =============================================================================
251 ptread() -- read a patch
252 =============================================================================
253*/
254
255int16_t ptread(FILE *fp)
256{
257 register int16_t go;
258 int8_t cb;
259
260 go = TRUE;
261
262 ldwmsg(" Busy -- please stand by", (int8_t *)NULL, " Reading patches",
263 LCFBX10, LCBBX10);
264
265 for (;;) {
266
267 voidpb(); /* clear the patch buffer */
268
269 ptecpos = ptepred = ptesucc = 0;
270
271#if DEBUGRE
272 if (debugsw AND debugre)
273 printf("ptread(): reading\n");
274#endif
275 if (rd_ec(fp, &cb, 1L)) { /* get control byte */
276
277 ptioerr();
278 return(FAILURE);
279 }
280
281 if (0 EQ cb) /* if it's 0, we're done */
282 break;
283
284 ptebuf.paspec = PE_TBIT | (PE_SPEC & cb);
285
286 if (rd_ec(fp, &ptebuf.defnum, 4L)) /* DEF and STM */
287 return(FAILURE);
288/*
289
290*/
291 switch (cb) {
292
293 case PA_KEY:
294 case PA_TRG:
295
296 if (rd_ec(fp, &ptebuf.pasuba, 2L))
297 return(FAILURE);
298
299 if (rd_ec(fp, (int8_t *)&ptebuf.padat2 + 1, 1L))
300 return(FAILURE);
301
302 break;
303
304 case PA_PLS:
305 case PA_SCTL:
306
307 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
308 return(FAILURE);
309
310 if (rd_ec(fp, (int8_t *)&ptebuf.padat2 + 1, 1L))
311 return(FAILURE);
312
313 break;
314
315/*
316
317*/
318 case PA_LED:
319
320 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
321 return(FAILURE);
322
323 if (rd_ec(fp, &ptebuf.padat1, 1L))
324 return(FAILURE);
325
326 break;
327
328 case PA_SLIN:
329
330 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
331 return(FAILURE);
332
333 if (rd_ec(fp, &ptebuf.padat1, 2L))
334 return(FAILURE);
335
336 break;
337
338 case PA_TUNE:
339
340 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
341 return(FAILURE);
342
343 break;
344/*
345
346*/
347 case PA_RSET:
348 case PA_RADD:
349
350 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
351 return(FAILURE);
352
353 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
354 return(FAILURE);
355
356 if (rd_ec(fp, (int8_t *)&ptebuf.padat2 + 1, 1L))
357 return(FAILURE);
358
359 break;
360
361 case PA_INST:
362 case PA_WAVA:
363 case PA_WAVB:
364 case PA_CNFG:
365
366 if (rd_ec(fp, &ptebuf.pasuba, 1L))
367 return(FAILURE);
368
369 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
370 return(FAILURE);
371
372 break;
373
374 case PA_OSC:
375 case PA_INDX:
376 case PA_FREQ:
377
378 if (rd_ec(fp, &ptebuf.pasuba, 2L))
379 return(FAILURE);
380
381 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
382 return(FAILURE);
383
384 if (rd_ec(fp, &ptebuf.padat2, 2L))
385 return(FAILURE);
386
387 break;
388/*
389
390*/
391 case PA_LEVL:
392 case PA_FILT:
393 case PA_FILQ:
394 case PA_LOCN:
395 case PA_DYNM:
396
397 if (rd_ec(fp, &ptebuf.pasuba, 1L))
398 return(FAILURE);
399
400 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
401 return(FAILURE);
402
403 if (rd_ec(fp, &ptebuf.padat2, 2L))
404 return(FAILURE);
405
406 break;
407
408 case PA_AUX:
409 case PA_RATE:
410 case PA_INTN:
411 case PA_DPTH:
412
413 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
414 return(FAILURE);
415
416 if (rd_ec(fp, &ptebuf.padat2, 2L))
417 return(FAILURE);
418
419 break;
420
421 case PA_VOUT:
422
423 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
424 return(FAILURE);
425
426 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
427 return(FAILURE);
428
429 if (rd_ec(fp, &ptebuf.padat2, 2L))
430 return(FAILURE);
431
432 break;
433/*
434
435*/
436 default:
437
438 return(FAILURE);
439 }
440
441#if DEBUGRE
442 if (debugsw AND debugre)
443 printf("\n\n");
444#endif
445
446 if (stashp()) { /* stash the patch */
447
448 nopatch();
449 ptecpos = 0;
450 voidpb();
451 return(FAILURE);
452 }
453 }
454
455#if DEBUGRE
456 if (debugsw AND debugre)
457 printf("ptread(): terminator read -- end of patch file\n");
458#endif
459
460 ptecpos = 0;
461 voidpb();
462 return(SUCCESS);
463}
Note: See TracBrowser for help on using the repository browser.