source: buchla-68k/ram/ldfield.c@ 46d8069

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

Code compiles, doesn't link.
  • Property mode set to 100644
File size: 10.0 KB
Line 
1/*
2 =============================================================================
3 ldfield.c -- librarian display field processing and cursor motion
4 Version 47 -- 1989-11-15 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define DEBUGIT 0
9
10#include "stddefs.h"
11#include "fields.h"
12#include "vsdd.h"
13#include "graphdef.h"
14#include "charset.h"
15#include "panel.h"
16#include "hwdefs.h"
17#include "fpu.h"
18#include "curpak.h"
19
20#include "midas.h"
21#include "instdsp.h"
22#include "libdsp.h"
23#include "score.h"
24
25extern short select(), whatbox(), nokey(), cxkstd(), cykstd(), stdmkey();
26extern short et_null(), ef_null(), rd_null(), nd_null(), lmwclr();
27extern short vcputsv(), ftkind(), _clsvol(), lcancel(), stdctp0();
28extern short ldline(), lin2slt(), dslslot(), putcat(), showcat(), showsiz();
29
30extern unsigned exp_c();
31
32extern char *memset(), *slotnam();
33
34/*
35
36*/
37
38#if DEBUGIT
39extern short debugsw;
40#endif
41
42extern short astat;
43extern short catin;
44extern short cmfirst;
45extern short cxrate;
46extern short cxval;
47extern short cyrate;
48extern short cyval;
49extern short ldelsw;
50extern short lderrsw;
51extern short ldkind;
52extern short ldpass;
53extern short ldrow;
54extern short ldslot;
55extern short lmwtype;
56extern short loadrow;
57extern short loadsw;
58extern short lorchl;
59extern short lrasw;
60extern short lselsw;
61extern short ltagged;
62extern short ndisp;
63extern short oldltag;
64extern short oldpk;
65extern short oldsl;
66extern short pkctrl;
67extern short sliders;
68extern short stcrow;
69extern short stccol;
70extern short submenu;
71extern short tagslot;
72extern short thcwval;
73extern short tvcwval;
74
75extern unsigned *librob;
76
77extern char bfs[];
78extern char ldfile[];
79extern char ldcmnt[];
80
81extern short crate1[];
82extern short ldmap[];
83
84extern PFS (*swpt)[];
85extern PFS (*oldsw)[];
86
87extern struct selbox *csbp;
88extern struct selbox ldboxes[];
89
90/* forward reference */
91
92short ld_prmv(), ldxkey(), ldmkey(), ldkey(), ldcxupd(), ldcyupd();
93
94/*
95
96*/
97
98struct fet ld_fet1[] = {
99
100 {21, 10, 17, 0x0000, et_null, ef_null, rd_null, nd_null}, /* name */
101 {21, 27, 63, 0x0000, et_null, ef_null, rd_null, nd_null}, /* comment */
102
103 { 0, 0, 0, 0x0000, FN_NULL, FN_NULL, FN_NULL, FN_NULL}
104};
105
106short ldbox[][8] = { /* display box parameters */
107
108 { 1, 1, 510, 13, LCFBX00, LCBBX00, 0, 1}, /* 0 - index area label */
109 { 1, 14, 510, 292, LCFBX01, LCBBX01, 1, 1}, /* 1 - index area */
110 { 1, 294, 78, 307, LCFBX02, LCBBX02, 21, 1}, /* 2 - file name label */
111 { 80, 294, 143, 307, LCFBX03, LCBBX03, 21, 10}, /* 3 - file name */
112 {145, 294, 214, 307, LCFBX04, LCBBX04, 21, 19}, /* 4 - comment label */
113 {216, 294, 510, 307, LCFBX05, LCBBX05, 21, 27}, /* 5 - comment */
114 { 1, 309, 70, 321, LCFBX06, LCBBX06, 22, 1}, /* 6 - fetch */
115 { 1, 322, 70, 335, LCFBX07, LCBBX07, 23, 1}, /* 7 - replace / append */
116 { 1, 336, 70, 348, LCFBX08, LCBBX08, 24, 1}, /* 8 - lo orch / hi orch */
117 { 72, 309, 255, 348, LCFBX09, LCBBX09, 22, 10}, /* 9 - store */
118 {257, 309, 510, 348, LCFBX10, LCBBX10, 22, 33} /* 10 - message window */
119};
120
121char *ldbxlb0[] = { /* display box labels */
122
123 "RecrdType L FileName Comment Mem", /* 0 */
124 "", /* 1 */
125 "FileName", /* 2 */
126 "", /* 3 */
127 "Comment", /* 4 */
128 "", /* 5 */
129 "Index", /* 6 */
130 "", /* 7 */
131 "", /* 8 */
132 "", /* 9 */
133 "" /* 10 */
134};
135
136/*
137
138*/
139
140struct curpak ld_flds = {
141
142 stdctp0, /* curtype */
143 ld_prmv, /* premove */
144 nokey, /* pstmove */
145 cxkstd, /* cx_key */
146 cykstd, /* cy_key */
147 ldcxupd, /* cx_upd */
148 ldcyupd, /* cy_upd */
149 nokey, /* xy_up */
150 nokey, /* xy_dn */
151 ldxkey, /* x_key */
152 select, /* e_key */
153 ldmkey, /* m_key */
154 ldkey, /* d_key */
155 nokey, /* not_fld */
156 ld_fet1, /* curfet */
157 ldboxes, /* csbp */
158 crate1, /* cratex */
159 crate1, /* cratey */
160 CT_TEXT, /* cmtype */
161 LCURX, /* cxval */
162 LCURY /* cyval */
163};
164
165/*
166
167*/
168
169/*
170 =============================================================================
171 ldxkey() -- handle the 'X' (delete) key
172 =============================================================================
173*/
174
175short
176ldxkey()
177{
178 register char *fn;
179 register short slot;
180 char buf[4];
181
182 if (NOT astat) /* only on key closure */
183 return(FAILURE);
184
185 clrerms();
186 stcrow = cyval / 14;
187 stccol = cxval >> 3;
188
189 if (lselsw AND lrasw) {
190
191 if (0 NE (slot = ldline(cyval))) {
192
193 slot -= 1;
194 ldmap[slot] = -1;
195 dpy_scr(ldbox[1][4], slot);
196 return(SUCCESS);
197
198 } else
199 return(FAILURE);
200 }
201
202 if (lcancel(2))
203 return(SUCCESS);
204
205 if (NOT ldelsw) { /* deletion not yet selected ? */
206
207 if (0 NE (ldrow = ldline(cyval))) { /* index area ? */
208
209 if (stccol EQ 11) { /* load tag ? */
210
211 if (-1 EQ (slot = lin2slt(stcrow)))
212 return(FAILURE);
213
214 if (ltagged) {
215
216 if (slot NE tagslot) {
217
218 filecat[tagslot].fcp0 = oldltag;
219 ltagged = FALSE;
220 showcat();
221 return(FAILURE);
222 }
223
224 putcat();
225 ltagged = FALSE;
226 showcat();
227
228 } else {
229
230 oldltag = filecat[slot].fcp0;
231 filecat[slot].fcp0 = ' ';
232 ltagged = TRUE;
233 tagslot = slot;
234
235 buf[0] = oldltag;
236 buf[1] = '\0';
237
238 if (v_regs[5] & 0x0180)
239 vbank(0);
240
241 vcputsv(librob, 64, exp_c(LD_DELC), ldbox[1][5],
242 stcrow, 11, buf, 14);
243 }
244
245 return(SUCCESS);
246 }
247
248 if ((stccol < 13) OR (stccol > 20)) /* name ? */
249 return(FAILURE);
250
251 if (-1 NE (ldslot = lin2slt(ldrow))) {
252
253 /* select file to delete */
254
255 dslslot(ldslot, exp_c(LD_DELC), ldrow);
256 ldelsw = TRUE;
257 return(SUCCESS);
258 }
259/*
260
261*/
262 } else { /* not in the index area */
263
264 if (21 EQ stcrow) { /* filename or comment ? */
265
266 if ((stccol GE 10) AND (stccol LE 17)) {
267
268 /* clear filename field */
269
270 memset(ldfile, ' ', 8);
271 ldswin(3);
272 return(SUCCESS);
273
274 } else if (stccol GE 27) {
275
276 /* clear comment field */
277
278 memset(ldcmnt, ' ', 37);
279 ldswin(5);
280 return(SUCCESS);
281 }
282 }
283
284 return(FAILURE);
285 }
286
287/*
288
289*/
290
291 } else { /* file selected for deletion */
292
293 /* delete the file if cursor hasn't moved */
294
295 if (ldrow EQ ldline(cyval)) {
296
297 filecat[ldslot].fcsize[0] = 0;
298 fn = slotnam(ldslot, ftkind(ldslot));
299
300 unlink(fn);
301
302 ldelsw = FALSE;
303 putcat();
304
305 _clsvol();
306 showcat();
307 showsiz();
308
309 return(SUCCESS);
310 }
311
312 ldelsw = FALSE;
313 showcat();
314 return(SUCCESS);
315 }
316}
317
318/*
319
320*/
321
322/*
323 =============================================================================
324 ld_prmv() -- librarian cursor pre-move function
325 =============================================================================
326*/
327
328short
329ld_prmv()
330{
331 if (lderrsw) /* clear any error messages in the window */
332 clrerms();
333
334 if (ltagged) { /* clear any non-stored load tag */
335
336 filecat[tagslot].fcp0 = oldltag;
337 ltagged = FALSE;
338 showcat();
339 }
340}
341
342/*
343
344*/
345
346/*
347 =============================================================================
348 ldcyupd() -- update cursor y location
349 =============================================================================
350*/
351
352short
353ldcyupd()
354{
355 if (lmwtype EQ 1) {
356
357 vtcyupd(); /* update virtual typewriter cursor y */
358
359 } else {
360
361 cyval += cyrate;
362
363 if (cyval GT (CYMAX - 1))
364 cyval = CYMAX - 1;
365 else if (cyval LT 1)
366 cyval = 1;
367 }
368}
369
370/*
371
372*/
373
374/*
375 =============================================================================
376 ldcxupd() -- update cursor x location
377 =============================================================================
378*/
379
380short
381ldcxupd()
382{
383 if (lmwtype EQ 1 ) {
384
385 vtcxupd(); /* update virtual typewriter cursor x */
386
387 } else {
388
389 cxval += cxrate;
390
391 if (cxval GT (CXMAX - 1))
392 cxval = CXMAX - 1;
393 else if (cxval LT 1)
394 cxval = 1;
395 }
396}
397
398/*
399
400*/
401
402/*
403 =============================================================================
404 ldmkey() -- librarian menu key processor
405 =============================================================================
406*/
407
408short
409ldmkey()
410{
411 if (astat) {
412
413 ltagged = FALSE;
414
415 if ((sliders EQ LS_LIBR) OR (pkctrl EQ PK_LIBR)) {
416
417 sliders = oldsl;
418 swpt = oldsw;
419 pkctrl = oldpk;
420 lcdlbls();
421 setleds();
422 }
423 }
424
425 stdmkey();
426}
427
428/*
429
430*/
431
432/*
433 =============================================================================
434 loadem() -- load multiple files
435 =============================================================================
436*/
437
438loadem(key)
439short key;
440{
441 register short c, i, rc, slot;
442
443 rc = FALSE;
444
445 if (getcat(0)) /* get the file catalog */
446 return;
447
448 for (ldslot = 0; ldslot < 20; ldslot++) { /* check each slot */
449
450 if (ocslot(ldslot) AND
451 ((c = filecat[ldslot].fcp0) & 0x007F) EQ (key & 0x007F)) {
452
453 ldkind = ftkind(ldslot);
454
455 if ((ldkind EQ FT_ORC) OR
456 (ldkind EQ FT_ORL) OR
457 (ldkind EQ FT_ORH))
458 lorchl = (c & 0x0080) ? 1 : 0;
459
460 if (ldkind EQ FT_SCR)
461 for (i = 0; i < N_SCORES; i++)
462 ldmap[i] = i;
463
464 if(getit())
465 return;
466
467 rc = TRUE;
468 }
469 }
470
471 if (rc AND (ndisp EQ -1))
472 m7menu();
473}
474
475/*
476
477*/
478
479/*
480 =============================================================================
481 ldkey() -- process data key entry
482 =============================================================================
483*/
484
485short
486ldkey(k)
487short k;
488{
489 register short c, col, row, slot;
490 char buf[4];
491
492 if (NOT astat) /* only on key closure */
493 return(FAILURE);
494
495 if (NOT catin) /* catalog must be valid */
496 return;
497
498 row = cyval / 14; /* determine cursor position */
499 col = cxval >> 3;
500
501 if (col NE 11) /* must be column 11 */
502 return;
503
504 if (-1 EQ (slot = lin2slt(row))) /* ... and a valid slot */
505 return;
506
507 if (NOT ltagged) {
508
509 oldltag = filecat[slot].fcp0; /* save old tag */
510 lcancel(3); /* cancel other selections */
511 }
512
513/*
514
515*/
516 /* process the key */
517
518 if (k < 7)
519 filecat[slot].fcp0 = (c = k + 'A');
520 else if (k EQ 7)
521 return;
522 else if (k EQ 8)
523 filecat[slot].fcp0 = (c = filecat[slot].fcp0 & 0x007F);
524 else /* k EQ 9 */
525 filecat[slot].fcp0 = (c = filecat[slot].fcp0 | 0x0080);
526
527 loadrow = row;
528 tagslot = slot;
529 ltagged = TRUE;
530
531 dslslot(slot, exp_c(LD_SELC), row);
532 return;
533}
534
535/*
536
537*/
538
539/*
540 =============================================================================
541 ldfield() -- setup field routines for the librarian
542 =============================================================================
543*/
544
545ldfield()
546{
547 lmwtype = 0;
548 ltagged = FALSE;
549 submenu = FALSE;
550
551 curset(&ld_flds);
552}
Note: See TracBrowser for help on using the repository browser.