Changeset 60288f5 in buchla-68k for ram/scselbx.c


Ignore:
Timestamp:
07/09/2017 12:23:40 AM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
6dd74a9
Parents:
0c834c5
Message:

Make function pointers more consistent.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ram/scselbx.c

    r0c834c5 r60288f5  
    3030/* functions defined elsewhere */
    3131
    32 extern  void    enterit(void);
     32extern  short   entbh(short n);
    3333extern  void    advscur(void);
    3434extern  short   oktode(struct s_entry *ep);
    35 extern  short   nokey(void);
     35extern  void    nokey(void);
    3636
    3737/*
    … …  
    105105extern  unsigned        *obj8, *obj11;
    106106
    107 extern  PFS     (*swpt)[];
    108 extern  PFS     (*oldsw)[];
    109 extern  PFS     t_ngrp[];
     107extern  LPF     (*swpt)[];
     108extern  LPF     (*oldsw)[];
     109extern  LPF     t_ngrp[];
    110110
    111111extern  char    bfs[];
    … …  
    116116/* forward references */
    117117
    118 void    sdboxfn(short n);
     118short   sdboxfn(short n);
    119119void    bspscur(void);
    120120void    svtdsp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
    … …  
    225225        {  0, 238, 111, 251,       4, sdboxfn}, /*  4 - Assignment */
    226226        {112, 238, 167, 251,       5, sdboxfn}, /*  5 - Tune */
    227         {168, 238, 247, 251,       6, enterit}, /*  6 - Tempo */
    228         {248, 238, 319, 251,       7, enterit}, /*  7 - Interpolate */
     227        {168, 238, 247, 251,       6, entbh},   /*  6 - Tempo */
     228        {248, 238, 319, 251,       7, entbh},   /*  7 - Interpolate */
    229229        {320, 238, 398, 251,       8, sdboxfn}, /*  8 - Stop/Next */
    230230        {400, 238, 455, 251,       9, sdboxfn}, /*  9 - In/Out */
    … …  
    12321232*/
    12331233
    1234 void sdboxfn(short n)
     1234short sdboxfn(short n)
    12351235{
    12361236        register short  row, col, grp, what, i;
    … …  
    12481248
    12491249                        if (clkrun)             /* clock can't be running */
    1250                                 return;
     1250                                return(FAILURE);
    12511251
    12521252                        if (ac_code EQ N_SHARP)
    … …  
    12561256
    12571257                        sc_refr(fc_val);
    1258                         return;
     1258                        return(SUCCESS);
    12591259
    12601260                } else if ((col GE 2) AND (col LE 4)) { /* section menu */
    12611261
    12621262                        if (clkrun)             /* clock can't be running */
    1263                                 return;
     1263                                return(FAILURE);
    12641264
    12651265                        if (sdmctl EQ -1) {     /* menu not up yet */
    12661266
    12671267                                sdmenu(4);      /* put up the menu */
    1268                                 return;
     1268                                return(SUCCESS);
    12691269/*
    12701270
    … …  
    12781278
    12791279                                                hilitop(SOP_GO);
    1280                                                 return;
     1280                                                return(SUCCESS);
    12811281
    12821282                                        } else if ((vtccol GE 8) AND
    … …  
    12841284
    12851285                                                hilitop(SOP_MOV);
    1286                                                 return;
     1286                                                return(SUCCESS);
    12871287
    12881288                                        } else if ((vtccol GE 15) AND
    … …  
    12901290
    12911291                                                hilitop(SOP_STC);
    1292                                                 return;
     1292                                                return(SUCCESS);
    12931293
    12941294                                        } else if ((vtccol GE 24) AND
    … …  
    13011301                                                }
    13021302
    1303                                                 return;
     1303                                                return(SUCCESS);
    13041304                                        }
    13051305/*
    … …  
    13121312
    13131313                                                hilitop(SOP_BGN);
    1314                                                 return;
     1314                                                return(SUCCESS);
    13151315
    13161316                                        } else if ((vtccol GE 8) AND
    … …  
    13181318
    13191319                                                hilitop(SOP_CPY);
    1320                                                 return;
     1320                                                return(SUCCESS);
    13211321
    13221322                                        } else if ((vtccol GE 15) AND
    … …  
    13241324
    13251325                                                hilitop(SOP_DGR);
    1326                                                 return;
     1326                                                return(SUCCESS);
    13271327
    13281328                                        } else if ((vtccol GE 24) AND
    … …  
    13351335                                                }
    13361336
    1337                                                 return;
     1337                                                return(SUCCESS);
    13381338                                        }
    13391339/*
    … …  
    13461346
    13471347                                                hilitop(SOP_END);
    1348                                                 return;
     1348                                                return(SUCCESS);
    13491349
    13501350                                        } else if ((vtccol GE 8) AND
    … …  
    13521352
    13531353                                                hilitop(SOP_MRG);
    1354                                                 return;
     1354                                                return(SUCCESS);
    13551355
    13561356                                        } else if ((vtccol GE 15) AND
    … …  
    13581358
    13591359                                                hilitop(SOP_DEV);
    1360                                                 return;
     1360                                                return(SUCCESS);
    13611361                                        }
    13621362
    … …  
    13701370
    13711371                                                hilitop(SOP_GRP);
    1372                                                 return;
     1372                                                return(SUCCESS);
    13731373
    13741374                                        } else if ((vtccol GE 15) AND
    … …  
    13761376
    13771377                                                hilitop(SOP_RMV);
    1378                                                 return;
     1378                                                return(SUCCESS);
    13791379
    13801380                                        } else if ((vtccol GE 28) AND
    … …  
    13871387                                                        dsgtmn(gtmsel, TRUE);
    13881388
    1389                                                 return;
     1389                                                return(SUCCESS);
    13901390                                        }
    13911391
    … …  
    13971397                                                secop = SOP_NUL;
    13981398                                                sdmenu(-1);
    1399                                                 return;
     1399                                                return(SUCCESS);
    14001400
    14011401                                        } else if ((vtccol GE 22) AND
    14021402                                                   (vtccol LE 24)) {    /* Transpose */
    14031403
    1404                                                 enterit();
    1405                                                 return;
     1404                                                return(entbh(-1));
    14061405                                        }
    14071406                                }
    14081407                        }
    14091408
    1410                         return;
    1411 
    1412                 } else {
    1413                         enterit();
    1414                         return;
    1415                 }
     1409                        return(FAILURE);
     1410
     1411                } else
     1412                        return(entbh(-1));
    14161413
    14171414/*
    … …  
    14311428
    14321429                dsimode();                      /* update insert mode display */
    1433                 return;
     1430                return(SUCCESS);
    14341431
    14351432        case 2:         /* clock control, source */
    … …  
    14391436                        clkset(NOT clkrun);
    14401437                        dsclk();
    1441                         return;
     1438                        return(SUCCESS);
    14421439
    14431440/*
    … …  
    14491446
    14501447                                sdmenu(3);
    1451                                 return;
     1448                                return(SUCCESS);
    14521449
    14531450                        } else {                /* menu up */
    … …  
    14611458                                                sdmenu(-1);
    14621459                                                sdwin(2);
    1463                                                 return;
     1460                                                return(SUCCESS);
    14641461                                        }
    14651462
    … …  
    14721469                                                sdmenu(-1);
    14731470                                                sdwin(2);
    1474                                                 return;
     1471                                                return(SUCCESS);
    14751472                                        }
    14761473
    … …  
    14831480                                                sdmenu(-1);
    14841481                                                sdwin(2);
    1485                                                 return;
     1482                                                return(SUCCESS);
    14861483                                        }
    14871484                                }
    14881485                        }
    14891486
    1490                         return;
     1487                        return(FAILURE);
    14911488/*
    14921489
    … …  
    14981495                                sdmenu(2);
    14991496                                setleds();
    1500                                 return;
     1497                                return(SUCCESS);
    15011498
    15021499                        } else {                /* menu up */
    … …  
    15121509                                                sdmenu(-1);
    15131510                                                sdwin(2);
    1514                                                 return;
     1511                                                return(SUCCESS);
    15151512
    15161513                                        } else if ((vtccol GE 9) AND
    … …  
    15221519                                                sdmenu(-1);
    15231520                                                sdwin(2);
    1524                                                 return;
     1521                                                return(SUCCESS);
    15251522
    15261523                                        } else if ((vtccol GE 17) AND
    … …  
    15331530                                                sdmenu(-1);
    15341531                                                sdwin(2);
    1535                                                 return;
     1532                                                return(SUCCESS);
    15361533                                        }
    15371534
    … …  
    15491546                                                sdmenu(-1);
    15501547                                                sdwin(2);
    1551                                                 return;
     1548                                                return(SUCCESS);
    15521549
    15531550                                        } else if ((vtccol GE 9) AND
    … …  
    15591556                                                sdmenu(-1);
    15601557                                                sdwin(2);
    1561                                                 return;
     1558                                                return(SUCCESS);
    15621559                                        }
    15631560/*
    … …  
    15741571                                                sdmenu(-1);
    15751572                                                sdwin(2);
    1576                                                 return;
     1573                                                return(SUCCESS);
    15771574
    15781575                                        } else if ((vtccol GE 9) AND
    … …  
    15841581                                                sdmenu(-1);
    15851582                                                sdwin(2);
    1586                                                 return;
     1583                                                return(SUCCESS);
    15871584                                        }
    15881585                                }
    … …  
    15901587                }
    15911588
    1592                 return;
     1589                return(FAILURE);
    15931590
    15941591/*
    … …  
    15981595
    15991596                if (clkrun)             /* clock can't be running */
    1600                         return;
     1597                        return(FAILURE);
    16011598
    16021599                if (scmctl NE -1)
    … …  
    16071604                        sdmenu(1);
    16081605                        noteop = NOP_NUL;
    1609                         return;
     1606                        return(SUCCESS);
    16101607
    16111608                } else {                /* menu up - select operation */
    … …  
    16171614
    16181615                                        hilitnt(NOP_ACC);
    1619                                         return;
     1616                                        return(SUCCESS);
    16201617
    16211618                                } else if ((vtccol GE 13) AND
    … …  
    16231620
    16241621                                        hilitnt(NOP_MVN);
    1625                                         return;
     1622                                        return(SUCCESS);
    16261623
    16271624                                } else if ((vtccol GE 25) AND
    … …  
    16291626
    16301627                                        hilitnt(NOP_NUL);
    1631                                         return;
     1628                                        return(SUCCESS);
    16321629
    16331630                                }
    16341631
    1635                                 return;
     1632                                return(FAILURE);
    16361633/*
    16371634
    … …  
    16431640
    16441641                                        hilitnt(NOP_NAT);
    1645                                         return;
     1642                                        return(SUCCESS);
    16461643
    16471644                                } else if ((vtccol GE 13) AND
    … …  
    16491646
    16501647                                        hilitnt(NOP_MVB);
    1651                                         return;
     1648                                        return(SUCCESS);
    16521649                                }
    16531650
    1654                                 return;
     1651                                return(FAILURE);
    16551652
    16561653                        } else if (vtcrow EQ 21) {
    … …  
    16601657
    16611658                                        hilitnt(NOP_END);
    1662                                         return;
     1659                                        return(SUCCESS);
    16631660
    16641661                                } else if ((vtccol GE 13) AND
    … …  
    16661663
    16671664                                        hilitnt(NOP_MVE);
    1668                                         return;
     1665                                        return(SUCCESS);
    16691666                                }
    16701667
    1671                                 return;
     1668                                return(FAILURE);
    16721669
    16731670                        } else
    1674                                 return;
     1671                                return(FAILURE);
    16751672                }
    16761673
    1677                 return;
     1674                return(FAILURE);
    16781675
    16791676/*
    … …  
    17031700                        }
    17041701
    1705                         return;
     1702                        return(SUCCESS);
    17061703
    17071704                } else {
    17081705
    1709                         enterit();      /* data entry */
    1710                         return;
     1706                        return(entbh(-1));      /* data entry */
    17111707                }
    17121708
    … …  
    17201716                                scmenu(-1);     /* take down menu */
    17211717
    1722                         return;
     1718                        return(SUCCESS);
    17231719
    17241720                } else {
    17251721
    1726                         enterit();      /* data entry */
    1727                         return;
     1722                        return(entbh(-1));      /* data entry */
    17281723                }
    17291724/*
    … …  
    17801775                }
    17811776
    1782                 return;
     1777                return(SUCCESS);
    17831778
    17841779/*
    … …  
    18371832                }
    18381833
    1839                 return;
     1834                return(SUCCESS);
    18401835/*
    18411836
    … …  
    18431838        case 10:        /* Output */
    18441839
    1845                 return;
     1840                return(SUCCESS);
    18461841
    18471842        case 11:        /* group/ins, trans, dyn/loc, velocity */
    … …  
    18541849                                scmenu(-1);     /* take down the menu */
    18551850
    1856                         return;
     1851                        return(SUCCESS);
    18571852
    18581853                } else if ((row EQ 21) AND (col LE 3)) {        /* velocity flag */
    … …  
    18601855                        velflag = NOT velflag;
    18611856                        ds_vmod();
    1862                         return;
    1863 
    1864                 } else {
    1865                         enterit();                      /* inst. number */
    1866                         return;
    1867                 }
     1857                        return(SUCCESS);
     1858
     1859                } else
     1860                        return(entbh(-1));                      /* inst. number */
    18681861
    18691862/*
    … …  
    18871880                                vputa(obj8, 7, i, atr);
    18881881
    1889                         return;
     1882                        return(SUCCESS);
    18901883
    18911884                } else if ((row EQ 22) AND (col LE 4)) {        /* r/p source */
    … …  
    19041897                                vputa(obj8, 6, i, atr);
    19051898
    1906                         return;
     1899                        return(SUCCESS);
    19071900
    19081901                } else {
    19091902
    1910                         enterit();
    1911                         return;
     1903                        return(entbh(-1));
    19121904                }
    19131905/*
    … …  
    19231915                                scmenu(-1);     /* take down menu */
    19241916
    1925                         return;
     1917                        return(SUCCESS);
    19261918
    19271919                } else if ((col GE 10) AND (col LE 25)) {       /* score name */
    … …  
    19401932                        }
    19411933
    1942                         return;
    1943 
    1944                 } else {
    1945                         enterit();
    1946                         return;
    1947                 }
     1934                        return(SUCCESS);
     1935
     1936                } else
     1937                        return(entbh(-1));
    19481938/*
    19491939
    … …  
    19551945                        recsw = FALSE;
    19561946                        dsrpmod();
    1957                         return;
     1947                        return(SUCCESS);
    19581948
    19591949                } else if ((col GE 36) AND (col LE 40)) {       /* Recrd */
    … …  
    19611951                        recsw = TRUE;
    19621952                        dsrpmod();
    1963                         return;
     1953                        return(SUCCESS);
    19641954
    19651955                } else if ((col GE 42) AND (col LE 47)) {       /* OvrDub */
    … …  
    19671957                        dubsw = NOT dubsw;
    19681958                        dsrpmod();
    1969                         return;
     1959                        return(SUCCESS);
    19701960
    19711961                } else if ((col GE 49) AND (col LE 55)) {       /* PunchIn */
    … …  
    19731963                        pchsw = NOT pchsw;
    19741964                        dsrpmod();
    1975                         return;
     1965                        return(SUCCESS);
    19761966
    19771967                }
    19781968
    1979                 return;
     1969                return(FAILURE);
    19801970
    19811971        case 16:        /* note display */
    … …  
    19841974                        donote();
    19851975
    1986                 return;
     1976                return(SUCCESS);
    19871977        }
     1978
     1979        return(FAILURE);
    19881980}
    1989 
Note: See TracChangeset for help on using the changeset viewer.