Changeset fa38804 in buchla-68k for ram/libdsp.c
- Timestamp:
- 07/14/2017 04:18:35 PM (7 years ago)
- Branches:
- master
- Children:
- ace9ee7
- Parents:
- 1efe224
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/libdsp.c
r1efe224 rfa38804 18 18 short debugwe = 1; 19 19 #endif 20 21 /*22 23 */24 20 25 21 int8_t *ftypes[][3] = { /* file types (must match libdsp.h) */ … … 59 55 }; 60 56 61 /*62 63 */64 65 57 /* 66 58 ============================================================================= … … 104 96 return(fcbad); 105 97 } 106 107 /*108 109 */110 98 111 99 /* … … 141 129 } 142 130 143 /*144 145 */146 147 131 /* 148 132 ============================================================================= … … 182 166 } 183 167 184 /*185 186 */187 188 168 /* 189 169 ============================================================================= … … 224 204 line3, 14); 225 205 } 226 227 /*228 229 */230 206 231 207 /* … … 265 241 } 266 242 267 /*268 269 */270 271 243 /* 272 244 ============================================================================= … … 297 269 ldmsg1, " and one was expected", LD_EMCF, LD_EMCB); 298 270 } 299 300 /*301 302 */303 271 304 272 /* … … 340 308 return(SUCCESS); 341 309 } 342 343 /*344 345 */346 310 347 311 /* … … 388 352 } 389 353 390 /*391 392 */393 394 354 /* 395 355 ============================================================================= … … 436 396 } 437 397 438 /*439 440 */441 442 398 /* 443 399 ============================================================================= … … 460 416 return(rclusts); 461 417 } 462 463 /*464 465 */466 418 467 419 /* … … 522 474 break; 523 475 } 524 /* 525 526 */ 476 527 477 howmuch = k ? clreq(k) : -1; 528 478 ndbytes = k; … … 530 480 } 531 481 532 /*533 534 */535 536 482 /* 537 483 ============================================================================= … … 568 514 return(FAILURE); 569 515 } 570 571 /*572 573 */574 516 575 517 /* … … 619 561 } 620 562 621 /*622 623 */624 625 563 /* 626 564 ============================================================================= … … 659 597 } 660 598 661 /*662 663 */664 665 599 /* 666 600 ============================================================================= … … 699 633 memset(filecat, 0, sizeof (struct fcat) * FCMAX); 700 634 701 /* 702 703 */ 635 704 636 errno = 0; 705 637 rc = fread(filecat, fesize, FCMAX, fp); … … 739 671 } 740 672 741 /*742 743 */744 745 673 /* 746 674 ============================================================================= … … 776 704 fesize = sizeof (struct fcat); 777 705 778 /* 779 780 */ 706 781 707 errno = 0; 782 708 rc = fwrite(filecat, fesize, FCMAX, fp); … … 811 737 return(SUCCESS); 812 738 } 813 814 /*815 816 */817 739 818 740 /* … … 866 788 } 867 789 868 /*869 870 */871 872 790 /* 873 791 ============================================================================= … … 912 830 } 913 831 914 /*915 916 */917 918 832 /* 919 833 ============================================================================= … … 940 854 return(SUCCESS); 941 855 } 942 943 /*944 945 */946 856 947 857 /* … … 980 890 } 981 891 982 /*983 984 */985 986 892 /* 987 893 ============================================================================= … … 1019 925 } 1020 926 1021 /*1022 1023 */1024 1025 927 /* 1026 928 ============================================================================= … … 1043 945 } 1044 946 1045 /*1046 1047 */1048 1049 947 switch (kind) { 1050 948 … … 1091 989 break; 1092 990 1093 /* 1094 1095 */ 991 1096 992 case FT_TUN: 1097 993 … … 1117 1013 return(FAILURE); 1118 1014 } 1119 1120 /*1121 1122 */1123 1015 1124 1016 /* update the file catalog */ … … 1146 1038 } 1147 1039 1148 /*1149 1150 */1151 1152 1040 /* 1153 1041 ============================================================================= … … 1192 1080 return(SUCCESS); 1193 1081 } 1194 1195 /*1196 1197 */1198 1082 1199 1083 /* … … 1245 1129 weneed = 0; 1246 1130 1247 /* 1248 1249 */ 1131 1250 1132 if (lasgsw) { 1251 1133 … … 1303 1185 } 1304 1186 1305 /*1306 1307 */1308 1309 1187 /* see if we have enough catalog space */ 1310 1188 … … 1332 1210 return(FAILURE); 1333 1211 } 1334 1335 /*1336 1337 */1338 1212 1339 1213 /* write the files */ … … 1363 1237 } 1364 1238 1365 /*1366 1367 */1368 1369 1239 /* 1370 1240 ============================================================================= … … 1415 1285 } 1416 1286 1417 /*1418 1419 */1420 1421 1287 /* 1422 1288 ============================================================================= … … 1450 1316 ldbxlb0[n], 14); 1451 1317 1452 /* 1453 1454 */ 1318 1455 1319 switch (n) { /* final text - overlays above stuff */ 1456 1320 … … 1482 1346 ldcmnt, 14); 1483 1347 return; 1484 1485 /*1486 1487 */1488 1348 1489 1349 case 7: /* "Replace" / "Append" */ … … 1521 1381 1522 1382 return; 1523 /* 1524 1525 */ 1383 1526 1384 case 9: /* "Store" status */ 1527 1385 … … 1567 1425 } 1568 1426 1569 /*1570 1571 */1572 1573 1427 /* 1574 1428 ============================================================================= … … 1598 1452 vputp(ldoct, x, y, exp_c(pen)); 1599 1453 } 1600 1601 /*1602 1603 */1604 1454 1605 1455 /* … … 1628 1478 } 1629 1479 1630 /*1631 1632 */1633 1634 1480 /* 1635 1481 ============================================================================= … … 1663 1509 lmln24 = vtlin3; 1664 1510 } 1665 1666 /*1667 1668 */1669 1511 1670 1512 /* … … 1697 1539 ltagged = FALSE; 1698 1540 lksel = -1; 1699 /* 1700 1701 */ 1541 1702 1542 clrcat(); /* void the catalog */ 1703 1543 catin = FALSE;
Note:
See TracChangeset
for help on using the changeset viewer.