Changeset 0c834c5 in buchla-68k for ram/scselbx.c


Ignore:
Timestamp:
07/08/2017 05:56:38 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
60288f5
Parents:
342a56f
Message:

Prototypes for global function pointers. Consistent global types.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ram/scselbx.c

    r342a56f r0c834c5  
    4141/* variables defined elsewhere */
    4242
    43 extern  short   (*itxput)();
    44 extern  short   (*point)();
     43extern  void    (*itxput)(short row, short col, char *txt, short tag);
     44extern  void    (*point)(short x, short y, short pen);
    4545
    4646extern  short   ancmsw;
    … …  
    116116/* forward references */
    117117
    118 short   sdboxfn(short n);
     118void    sdboxfn(short n);
    119119void    bspscur(void);
    120120void    svtdsp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
    … …  
    12321232*/
    12331233
    1234 short sdboxfn(short n)
     1234void sdboxfn(short n)
    12351235{
    12361236        register short  row, col, grp, what, i;
    … …  
    12481248
    12491249                        if (clkrun)             /* clock can't be running */
    1250                                 return(FAILURE);
     1250                                return;
    12511251
    12521252                        if (ac_code EQ N_SHARP)
    … …  
    12561256
    12571257                        sc_refr(fc_val);
    1258                         return(SUCCESS);
     1258                        return;
    12591259
    12601260                } else if ((col GE 2) AND (col LE 4)) { /* section menu */
    12611261
    12621262                        if (clkrun)             /* clock can't be running */
    1263                                 return(FAILURE);
     1263                                return;
    12641264
    12651265                        if (sdmctl EQ -1) {     /* menu not up yet */
    12661266
    12671267                                sdmenu(4);      /* put up the menu */
    1268                                 return(SUCCESS);
     1268                                return;
    12691269/*
    12701270
    … …  
    12781278
    12791279                                                hilitop(SOP_GO);
    1280                                                 return(SUCCESS);
     1280                                                return;
    12811281
    12821282                                        } else if ((vtccol GE 8) AND
    … …  
    12841284
    12851285                                                hilitop(SOP_MOV);
    1286                                                 return(SUCCESS);
     1286                                                return;
    12871287
    12881288                                        } else if ((vtccol GE 15) AND
    … …  
    12901290
    12911291                                                hilitop(SOP_STC);
    1292                                                 return(SUCCESS);
     1292                                                return;
    12931293
    12941294                                        } else if ((vtccol GE 24) AND
    … …  
    13011301                                                }
    13021302
    1303                                                 return(SUCCESS);
     1303                                                return;
    13041304                                        }
    13051305/*
    … …  
    13121312
    13131313                                                hilitop(SOP_BGN);
    1314                                                 return(SUCCESS);
     1314                                                return;
    13151315
    13161316                                        } else if ((vtccol GE 8) AND
    … …  
    13181318
    13191319                                                hilitop(SOP_CPY);
    1320                                                 return(SUCCESS);
     1320                                                return;
    13211321
    13221322                                        } else if ((vtccol GE 15) AND
    … …  
    13241324
    13251325                                                hilitop(SOP_DGR);
    1326                                                 return(SUCCESS);
     1326                                                return;
    13271327
    13281328                                        } else if ((vtccol GE 24) AND
    … …  
    13351335                                                }
    13361336
    1337                                                 return(SUCCESS);
     1337                                                return;
    13381338                                        }
    13391339/*
    … …  
    13461346
    13471347                                                hilitop(SOP_END);
    1348                                                 return(SUCCESS);
     1348                                                return;
    13491349
    13501350                                        } else if ((vtccol GE 8) AND
    … …  
    13521352
    13531353                                                hilitop(SOP_MRG);
    1354                                                 return(SUCCESS);
     1354                                                return;
    13551355
    13561356                                        } else if ((vtccol GE 15) AND
    … …  
    13581358
    13591359                                                hilitop(SOP_DEV);
    1360                                                 return(SUCCESS);
     1360                                                return;
    13611361                                        }
    13621362
    … …  
    13701370
    13711371                                                hilitop(SOP_GRP);
    1372                                                 return(SUCCESS);
     1372                                                return;
    13731373
    13741374                                        } else if ((vtccol GE 15) AND
    … …  
    13761376
    13771377                                                hilitop(SOP_RMV);
    1378                                                 return(SUCCESS);
     1378                                                return;
    13791379
    13801380                                        } else if ((vtccol GE 28) AND
    … …  
    13871387                                                        dsgtmn(gtmsel, TRUE);
    13881388
    1389                                                 return(SUCCESS);
     1389                                                return;
    13901390                                        }
    13911391
    … …  
    13971397                                                secop = SOP_NUL;
    13981398                                                sdmenu(-1);
    1399                                                 return(SUCCESS);
     1399                                                return;
    14001400
    14011401                                        } else if ((vtccol GE 22) AND
    14021402                                                   (vtccol LE 24)) {    /* Transpose */
    14031403
    1404                                                 return(enterit());
     1404                                                enterit();
     1405                                                return;
    14051406                                        }
    14061407                                }
    14071408                        }
    14081409
    1409                         return(FAILURE);
    1410 
    1411                 } else
    1412                         return(enterit());
     1410                        return;
     1411
     1412                } else {
     1413                        enterit();
     1414                        return;
     1415                }
    14131416
    14141417/*
    … …  
    14281431
    14291432                dsimode();                      /* update insert mode display */
    1430                 return(SUCCESS);
     1433                return;
    14311434
    14321435        case 2:         /* clock control, source */
    … …  
    14361439                        clkset(NOT clkrun);
    14371440                        dsclk();
    1438                         return(SUCCESS);
     1441                        return;
    14391442
    14401443/*
    … …  
    14461449
    14471450                                sdmenu(3);
    1448                                 return(SUCCESS);
     1451                                return;
    14491452
    14501453                        } else {                /* menu up */
    … …  
    14581461                                                sdmenu(-1);
    14591462                                                sdwin(2);
    1460                                                 return(SUCCESS);
     1463                                                return;
    14611464                                        }
    14621465
    … …  
    14691472                                                sdmenu(-1);
    14701473                                                sdwin(2);
    1471                                                 return(SUCCESS);
     1474                                                return;
    14721475                                        }
    14731476
    … …  
    14801483                                                sdmenu(-1);
    14811484                                                sdwin(2);
    1482                                                 return(SUCCESS);
     1485                                                return;
    14831486                                        }
    14841487                                }
    14851488                        }
    14861489
    1487                         return(FAILURE);
     1490                        return;
    14881491/*
    14891492
    … …  
    14951498                                sdmenu(2);
    14961499                                setleds();
    1497                                 return(SUCCESS);
     1500                                return;
    14981501
    14991502                        } else {                /* menu up */
    … …  
    15091512                                                sdmenu(-1);
    15101513                                                sdwin(2);
    1511                                                 return(SUCCESS);
     1514                                                return;
    15121515
    15131516                                        } else if ((vtccol GE 9) AND
    … …  
    15191522                                                sdmenu(-1);
    15201523                                                sdwin(2);
    1521                                                 return(SUCCESS);
     1524                                                return;
    15221525
    15231526                                        } else if ((vtccol GE 17) AND
    … …  
    15301533                                                sdmenu(-1);
    15311534                                                sdwin(2);
    1532                                                 return(SUCCESS);
     1535                                                return;
    15331536                                        }
    15341537
    … …  
    15461549                                                sdmenu(-1);
    15471550                                                sdwin(2);
    1548                                                 return(SUCCESS);
     1551                                                return;
    15491552
    15501553                                        } else if ((vtccol GE 9) AND
    … …  
    15561559                                                sdmenu(-1);
    15571560                                                sdwin(2);
    1558                                                 return(SUCCESS);
     1561                                                return;
    15591562                                        }
    15601563/*
    … …  
    15711574                                                sdmenu(-1);
    15721575                                                sdwin(2);
    1573                                                 return(SUCCESS);
     1576                                                return;
    15741577
    15751578                                        } else if ((vtccol GE 9) AND
    … …  
    15811584                                                sdmenu(-1);
    15821585                                                sdwin(2);
    1583                                                 return(SUCCESS);
     1586                                                return;
    15841587                                        }
    15851588                                }
    … …  
    15871590                }
    15881591
    1589                 return(FAILURE);
     1592                return;
    15901593
    15911594/*
    … …  
    15951598
    15961599                if (clkrun)             /* clock can't be running */
    1597                         return(FAILURE);
     1600                        return;
    15981601
    15991602                if (scmctl NE -1)
    … …  
    16041607                        sdmenu(1);
    16051608                        noteop = NOP_NUL;
    1606                         return(SUCCESS);
     1609                        return;
    16071610
    16081611                } else {                /* menu up - select operation */
    … …  
    16141617
    16151618                                        hilitnt(NOP_ACC);
    1616                                         return(SUCCESS);
     1619                                        return;
    16171620
    16181621                                } else if ((vtccol GE 13) AND
    … …  
    16201623
    16211624                                        hilitnt(NOP_MVN);
    1622                                         return(SUCCESS);
     1625                                        return;
    16231626
    16241627                                } else if ((vtccol GE 25) AND
    … …  
    16261629
    16271630                                        hilitnt(NOP_NUL);
    1628                                         return(SUCCESS);
     1631                                        return;
    16291632
    16301633                                }
    16311634
    1632                                 return(FAILURE);
     1635                                return;
    16331636/*
    16341637
    … …  
    16401643
    16411644                                        hilitnt(NOP_NAT);
    1642                                         return(SUCCESS);
     1645                                        return;
    16431646
    16441647                                } else if ((vtccol GE 13) AND
    … …  
    16461649
    16471650                                        hilitnt(NOP_MVB);
    1648                                         return(SUCCESS);
     1651                                        return;
    16491652                                }
    16501653
    1651                                 return(FAILURE);
     1654                                return;
    16521655
    16531656                        } else if (vtcrow EQ 21) {
    … …  
    16571660
    16581661                                        hilitnt(NOP_END);
    1659                                         return(SUCCESS);
     1662                                        return;
    16601663
    16611664                                } else if ((vtccol GE 13) AND
    … …  
    16631666
    16641667                                        hilitnt(NOP_MVE);
    1665                                         return(SUCCESS);
     1668                                        return;
    16661669                                }
    16671670
    1668                                 return(FAILURE);
     1671                                return;
    16691672
    16701673                        } else
    1671                                 return(FAILURE);
    1672                 }
    1673 
    1674                 return(FAILURE);
     1674                                return;
     1675                }
     1676
     1677                return;
    16751678
    16761679/*
    … …  
    17001703                        }
    17011704
    1702                         return(SUCCESS);
     1705                        return;
    17031706
    17041707                } else {
    17051708
    1706                         return(enterit());      /* data entry */
     1709                        enterit();      /* data entry */
     1710                        return;
    17071711                }
    17081712
    … …  
    17161720                                scmenu(-1);     /* take down menu */
    17171721
    1718                         return(SUCCESS);
     1722                        return;
    17191723
    17201724                } else {
    17211725
    1722                         return(enterit());      /* data entry */
     1726                        enterit();      /* data entry */
     1727                        return;
    17231728                }
    17241729/*
    … …  
    17751780                }
    17761781
    1777                 return(SUCCESS);
     1782                return;
    17781783
    17791784/*
    … …  
    18321837                }
    18331838
    1834                 return(SUCCESS);
     1839                return;
    18351840/*
    18361841
    … …  
    18381843        case 10:        /* Output */
    18391844
    1840                 return(SUCCESS);
     1845                return;
    18411846
    18421847        case 11:        /* group/ins, trans, dyn/loc, velocity */
    … …  
    18491854                                scmenu(-1);     /* take down the menu */
    18501855
    1851                         return(SUCCESS);
     1856                        return;
    18521857
    18531858                } else if ((row EQ 21) AND (col LE 3)) {        /* velocity flag */
    … …  
    18551860                        velflag = NOT velflag;
    18561861                        ds_vmod();
    1857                         return(SUCCESS);
    1858 
    1859                 } else
    1860                         return(enterit());                      /* inst. number */
     1862                        return;
     1863
     1864                } else {
     1865                        enterit();                      /* inst. number */
     1866                        return;
     1867                }
    18611868
    18621869/*
    … …  
    18801887                                vputa(obj8, 7, i, atr);
    18811888
    1882                         return(SUCCESS);
     1889                        return;
    18831890
    18841891                } else if ((row EQ 22) AND (col LE 4)) {        /* r/p source */
    … …  
    18971904                                vputa(obj8, 6, i, atr);
    18981905
    1899                         return(SUCCESS);
     1906                        return;
    19001907
    19011908                } else {
    19021909
    1903                         return(enterit());
     1910                        enterit();
     1911                        return;
    19041912                }
    19051913/*
    … …  
    19151923                                scmenu(-1);     /* take down menu */
    19161924
    1917                         return(SUCCESS);
     1925                        return;
    19181926
    19191927                } else if ((col GE 10) AND (col LE 25)) {       /* score name */
    … …  
    19321940                        }
    19331941
    1934                         return(SUCCESS);
    1935 
    1936                 } else
    1937                         return(enterit());
     1942                        return;
     1943
     1944                } else {
     1945                        enterit();
     1946                        return;
     1947                }
    19381948/*
    19391949
    … …  
    19451955                        recsw = FALSE;
    19461956                        dsrpmod();
    1947                         return(SUCCESS);
     1957                        return;
    19481958
    19491959                } else if ((col GE 36) AND (col LE 40)) {       /* Recrd */
    … …  
    19511961                        recsw = TRUE;
    19521962                        dsrpmod();
    1953                         return(SUCCESS);
     1963                        return;
    19541964
    19551965                } else if ((col GE 42) AND (col LE 47)) {       /* OvrDub */
    … …  
    19571967                        dubsw = NOT dubsw;
    19581968                        dsrpmod();
    1959                         return(SUCCESS);
     1969                        return;
    19601970
    19611971                } else if ((col GE 49) AND (col LE 55)) {       /* PunchIn */
    … …  
    19631973                        pchsw = NOT pchsw;
    19641974                        dsrpmod();
    1965                         return(SUCCESS);
    1966 
    1967                 }
    1968 
    1969                 return(FAILURE);
     1975                        return;
     1976
     1977                }
     1978
     1979                return;
    19701980
    19711981        case 16:        /* note display */
    … …  
    19741984                        donote();
    19751985
    1976                 return(SUCCESS);
     1986                return;
    19771987        }
    1978 
    1979         return(FAILURE);
    19801988}
     1989
Note: See TracChangeset for help on using the changeset viewer.