Changeset 60288f5 in buchla-68k


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.

Files:
36 edited

Legend:

Unmodified
Added
Removed

  • include/configs.h

    r0c834c5 r60288f5  
    731731char    *cfgptr[MAXCFG] = {
    732732
    733         cfg_00, cfg_01, cfg_02, cfg_03, cfg_04,
    734         cfg_05, cfg_06, cfg_07, cfg_08, cfg_09,
    735         cfg_10, cfg_11
    736 };
     733        (char *)cfg_00, (char *)cfg_01, (char *)cfg_02, (char *)cfg_03,
     734        (char *)cfg_04, (char *)cfg_05, (char *)cfg_06, (char *)cfg_07,
     735        (char *)cfg_08, (char *)cfg_09, (char *)cfg_10, (char *)cfg_11
     736};

  • include/curpak.h

    r0c834c5 r60288f5  
    3232        void            (*e_key)(void);
    3333        void            (*m_key)(void);
    34         void            (*d_key)(void);
    35         void            (*not_fld)(short k);
     34        void            (*d_key)(short k);
     35        short           (*not_fld)(short k);
    3636        struct fet      *curfet;
    3737        struct selbox   *csbp;

  • include/fields.h

    r0c834c5 r60288f5  
    1414        short   frcol;          /* rightmost column of field */
    1515        short   ftags;          /* field tags / parameters (used variously) */
    16         void    (*ebto)(short ftags);
     16        short   (*ebto)(short n);
    1717                                /* edit buffer 'to' (setup) function */
    18         void    (*ebfrom)(short ftags);
     18        short   (*ebfrom)(short n);
    1919                                /* edit buffer 'from' (parse) function */
    20         void    (*redisp)(short ftags);
     20        short   (*redisp)(short nn);
    2121                                /* field (re)display function */
    22         void    (*datain)(short ftags, short asig);
     22        short   (*datain)(short nn, short k);
    2323                                /* data entry function */
    2424};
    … …  
    3131        short   sbymax;         /* maximum y - bottom edge of box */
    3232        short   sbarg;          /* select box argument */
    33         void    (*boxhit)(short sbarg);
     33        short   (*boxhit)(short n);
    3434                                /* box-hit function */
    3535};

  • include/midas.h

    r0c834c5 r60288f5  
    88*/
    99
    10 typedef short   (*PFS)();       /* pointer to a function returning a short */
     10typedef void    (*LPF)(short _1, short _2);     /* pointer to a LCD panel function */
    1111
    1212#define SM_SCALE(x)     (((x) * 252) & 0x7FE0)

  • libcio/clusmap.c

    r0c834c5 r60288f5  
    9090                if (c EQ '\007')
    9191                        xtrap15();
     92
     93        return(c);
    9294}
    9395

  • misc/check-glob.py

    r0c834c5 r60288f5  
    1313        self.path = None
    1414        self.decl = {}
     15        self.errs = []
    1516
    1617    def visit_Typedef(self, node):
    … …  
    3233
    3334        elif self.decl[node.name] != decl:
    34             raise Exception("mismatch for {} in {}:{}: {} <-> {}". \
    35                             format(node.name, node.coord.file, node.coord.line, \
    36                                    self.decl[node.name], decl))
     35            self.errs.append("mismatch for {} in {}:{}: {} <-> {}". \
     36                             format(node.name, node.coord.file, node.coord.line, \
     37                                    self.decl[node.name], decl))
    3738
    3839    def visit_FuncDef(self, node):
    … …  
    4647        self.visit(ast)
    4748        self.path = None
     49
     50    def show_errs(self):
     51        for err in self.errs:
     52            print(err)
    4853
    4954path_ast = []
    … …  
    7580
    7681print("")
     82vis.show_errs()

  • ram/adfield.c

    r0c834c5 r60288f5  
    1919extern  void    select(void);
    2020extern  short   whatbox(void);
    21 extern  short   nokey(void);
     21extern  void    nokey(void);
     22extern  short   nonf(short k);
    2223extern  short   stdctp4(void);
    2324extern  void    cxkstd(void);
    2425extern  void    cykstd(void);
    2526extern  void    stdmkey(void);
    26 extern  void    stddkey(void);
    27 
    28 extern  short   et_null(void);
    29 extern  short   ef_null(void);
    30 extern  short   rd_null(void);
    31 extern  short   nd_null(void);
     27extern  void    stddkey(short k);
     28
     29extern  short   et_null(short n);
     30extern  short   ef_null(short n);
     31extern  short   rd_null(short n);
     32extern  short   nd_null(short n, short k);
    3233extern  short   et_atab(short n);
    3334extern  short   ef_atab(short n);
    … …  
    134135void    adcxupd(void);
    135136void    adcyupd(void);
    136 short   ad_xkey(short nn);
     137void    ad_xkey(void);
    137138
    138139/*
    … …  
    282283        stdmkey,        /* m_key */
    283284        stddkey,        /* d_key */
    284         nokey,          /* not_fld */
     285        nonf,           /* not_fld */
    285286        ad_fet1,        /* curfet */
    286287        adboxes,        /* csbp */
    … …  
    362363*/
    363364
    364 short ad_xkey(short nn)
     365void ad_xkey(void)
    365366{
    366367        register short row, col, grp, i;
    … …  
    382383                                        asgmod = TRUE;
    383384                                        adswin(0);
    384                                         return(SUCCESS);
     385                                        return; /* SUCCESS */
    385386
    386387                                } else
    387                                         return(FAILURE);
     388                                        return; /* FAILURE */
    388389                        case 2:         /* MIDI output port */
    389390
    … …  
    393394                                        adswin(hitbox);
    394395                                        modasg();
    395                                         return(SUCCESS);
     396                                        return; /* SUCCESS */
    396397                                }
    397398
    … …  
    411412                                        adswin(hitbox);
    412413                                        modasg();
    413                                         return(SUCCESS);
     414                                        return; /* SUCCESS */
    414415
    415416                                } else if ((col GE 19) AND (col LE 22)) {
    … …  
    419420                                        adswin(hitbox);
    420421                                        modasg();
    421                                         return(SUCCESS);
     422                                        return; /* SUCCESS */
    422423                                }
    423424
    … …  
    434435                                        adswin(hitbox);
    435436                                        modasg();
    436                                         return(SUCCESS);
     437                                        return; /* SUCCESS */
    437438                                }
    438439
    … …  
    459460                                        drawk2g(grp);
    460461                                        modasg();
    461                                         return(SUCCESS);
     462                                        return; /* SUCCESS */
    462463
    463464                                } else if ((col EQ 48) OR (col EQ 49)) {
    … …  
    469470                                        adswin(hitbox);
    470471                                        modasg();
    471                                         return(SUCCESS);
     472                                        return; /* SUCCESS */
    472473/*
    473474
    … …  
    486487                                        drawk2g(grp);
    487488                                        modasg();
    488                                         return(SUCCESS);
     489                                        return; /* SUCCESS */
    489490
    490491                                } else if ((col EQ 61) OR (col EQ 62)) {
    … …  
    496497                                        adswin(hitbox);
    497498                                        modasg();
    498                                         return(SUCCESS);
     499                                        return; /* SUCCESS */
    499500                                }
    500501
    … …  
    504505        }
    505506
    506         return(FAILURE);
     507        return; /* FAILURE */
    507508}
    508509

  • ram/adselbx.c

    r0c834c5 r60288f5  
    2525#define ATDECOL 1               /* data entry base column */
    2626
    27 extern  void    enterit(void);
     27extern  short   entbh(short n);
    2828extern  void    adswin(short n);
    2929extern  void    advacur(void);
    3030extern  void    bspacur(void);
    31 extern  short   nokey(void);
     31extern  void    nokey(void);
    3232extern  void    vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
    3333extern  void    adpoint(short x, short y, short pen);
    … …  
    7070
    7171short   bx_null(void);
    72 void    adfnbox(short n);
     72short   adfnbox(short n);
    7373
    7474/*
    … …  
    8080        {  1,   0,  94,  27,      0, adfnbox},  /*  0:  curasg, caname */
    8181        {  1,  28,  94,  40,      1, adfnbox},  /*  1:  asgtab[curasg] */
    82         {  1,  56,  94,  68,      2, enterit},  /*  2:  curmop */
    83         {  1,  42,  94,  54,      3, enterit},  /*  3:  prgchan */
    84         { 96,   1, 190, 138,      4, enterit},  /*  4:  vce2grp[voice] */
     82        {  1,  56,  94,  68,      2, entbh},    /*  2:  curmop */
     83        {  1,  42,  94,  54,      3, entbh},    /*  3:  prgchan */
     84        { 96,   1, 190, 138,      4, entbh},    /*  4:  vce2grp[voice] */
    8585        {192,   1, 302, 138,      5, adfnbox},  /*  5:  mctlnum[srcvar] */
    8686        {304,   1, 510, 138,      6, adfnbox},  /*  6:  grp2prt[group][pt|ch] */
    … …  
    8888        {  1,  70,  38,  82,      8, adfnbox},  /*  8:  auxctl */
    8989        { 40,  70,  94,  82,      9, adfnbox},  /*  9:  curtun */
    90         {  1,  84,  94, 138,     10, enterit},  /* 10:  ps_intn, ps_rate, ps_dpth */
     90        {  1,  84,  94, 138,     10, entbh},    /* 10:  ps_intn, ps_rate, ps_dpth */
    9191
    9292        {  0,   0,   0,   0,      0, FN_NULL}           /* end of table */
    … …  
    207207*/
    208208
    209 void adfnbox(short n)
     209short adfnbox(short n)
    210210{
    211211        register short i, grp, key, line;
    … …  
    242242                                }
    243243
    244                                 return;
     244                                return(SUCCESS);
    245245
    246246                        } else {                                /* table */
    247247
    248                                 enterit();      /* data entry */
    249                                 return;
     248                                return(entbh(-1));      /* data entry */
    250249                        }
    251250                }
    … …  
    303302                }
    304303
    305                 return;
     304                return(SUCCESS);
    306305/*
    307306
    … …  
    316315                        putasg(curasg);
    317316                        adswin(0);
    318                         return;
     317                        return(SUCCESS);
    319318
    320319                } else if ((col GE 6) AND (col LE 10)) {        /* retrieve */
    … …  
    322321                        getasg(curasg);
    323322                        awins();
    324                         return;
     323                        return(SUCCESS);
    325324                }
    326325
    … …  
    330329
    331330                        if ((row LT 5) OR (row GT 8))
    332                                 return;
     331                                return(FAILURE);
    333332
    334333                        mctlnum[row - 5] ^= GTAG1;
    … …  
    345344                                row, adbox[n][7], bfs, 14);
    346345
    347                         return;
     346                        return(SUCCESS);
    348347
    349348                } else {
    350349
    351                         enterit();
    352                         return;
     350                        return(entbh(-1));
    353351                }
    354352/*
    … …  
    367365                                admenu(-1);     /* take down menu */
    368366
    369                         return;
     367                        return(SUCCESS);
    370368
    371369                } else if (col EQ 39) { /* groups 1..6 */
    372370
    373371                        if ((row LT 4) OR (row GT 9))
    374                                 return;
     372                                return(FAILURE);
    375373
    376374                        /* toggle "legato" mode */
    … …  
    390388                               row, col, bfs, 14);
    391389
    392                         return;
     390                        return(SUCCESS);
    393391/*
    394392
    … …  
    415413                               row, col, bfs, 14);
    416414
    417                         return;
     415                        return(SUCCESS);
    418416
    419417                } else {
    420418
    421                         enterit();      /* data entry */
    422                         return;
     419                        return(entbh(-1));      /* data entry */
    423420                }
    424421/*
    … …  
    428425
    429426                if (admctl NE -1)
    430                         return;
     427                        return(FAILURE);
    431428
    432429                if (asghit) {
    … …  
    446443
    447444                                if (key-- EQ 0)
    448                                         return;
     445                                        return(FAILURE);
    449446
    450447                                if (key LT asgfks) {
    … …  
    487484
    488485                                asghit = 0;
    489                                 return;
     486                                return(FAILURE);
    490487                        }
    491488
    … …  
    501498
    502499                                asghit = 0;
    503                                 return;
     500                                return(FAILURE);
    504501                        }
    505502
    … …  
    512509                }
    513510
    514                 return;
     511                return(SUCCESS);
    515512
    516513        case 8:                 /* aux ctl */
    … …  
    518515                setaux(NOT auxctl);
    519516                adswin(8);
    520                 return;
     517                return(SUCCESS);
    521518
    522519        case 9:                 /* tuning menu */
    … …  
    529526                                admenu(-1);     /* take down menu */
    530527
    531                         return;
     528                        return(SUCCESS);
    532529
    533530                } else {
    534531
    535                         enterit();      /* data entry */
    536                         return;
     532                        return(entbh(-1));      /* data entry */
    537533                }
    538534        }
     535
     536        return(FAILURE);
    539537}
    540 

  • ram/curset.c

    r0c834c5 r60288f5  
    4444extern  void            (*cy_key)(void);
    4545extern  void            (*cy_upd)(void);
    46 extern  void            (*d_key)(void);
     46extern  void            (*d_key)(short k);
    4747extern  void            (*e_key)(void);
    4848extern  void            (*m_key)(void);
    49 extern  void            (*not_fld)(short k);
     49extern  short           (*not_fld)(short k);
    5050extern  void            (*premove)(void);
    5151extern  void            (*pstmove)(void);

  • ram/enterit.c

    r0c834c5 r60288f5  
    4242extern  void    (*xy_up)(void);
    4343extern  void    (*xy_dn)(void);
    44 extern  void    (*not_fld)(short k);
     44extern  short   (*not_fld)(short k);
    4545extern  void    (*x_key)(void);
    4646extern  void    (*e_key)(void);
    4747extern  void    (*m_key)(void);
    48 extern  void    (*d_key)(void);
     48extern  void    (*d_key)(short k);
    4949extern  void    (*premove)(void);
    5050extern  void    (*pstmove)(void);
    … …  
    120120*/
    121121
    122 short nokey(void)
    123 {
    124         return(FALSE);
     122void nokey(void)
     123{
     124}
     125
     126/*
     127
     128*/
     129
     130/*
     131   =============================================================================
     132        nodkey() -- null d_key function
     133   =============================================================================
     134*/
     135
     136void nodkey(short k)
     137{
     138}
     139
     140/*
     141
     142*/
     143
     144/*
     145   =============================================================================
     146        nonf() -- null non_fld function
     147   =============================================================================
     148*/
     149
     150short nonf(short k)
     151{
     152        return(SUCCESS);
     153}
     154
     155/*
     156
     157*/
     158
     159/*
     160   =============================================================================
     161        entbh() -- data entry box-hit function
     162   =============================================================================
     163*/
     164
     165short entbh(short n)
     166{
     167        enterit();
     168        return(SUCCESS);
    125169}
    126170
    … …  
    504548*/
    505549
    506 void stddkey(void)
     550void stddkey(short k)
    507551{
    508552        if (infield(stcrow, stccol, curfet)) {

  • ram/etiact.c

    r0c834c5 r60288f5  
    205205*/
    206206
    207 void rd_iact(short nn)
     207short rd_iact(short nn)
    208208{
    209209        register short pnt, par, n;
    … …  
    282282        vcputsv(instob, 64, idbox[n][4], idbox[n][5],
    283283                idbox[n][6] + 1, idbox[n][7], s1, 14);
     284
     285        return(SUCCESS);
    284286}
    285287

  • ram/etscor.c

    r0c834c5 r60288f5  
    3131*/
    3232
    33 short et_scor(void)
     33short et_scor(short n)
    3434{
    3535        sprintf(ebuf, "%02.2d", curscor + 1);
    … …  
    4949*/
    5050
    51 short ef_scor(void)
     51short ef_scor(short n)
    5252{
    5353        register short ival;
    … …  
    7878*/
    7979
    80 short rd_scor(void)
     80short rd_scor(short n)
    8181{
    8282        sprintf(dspbuf, "%02.2d", curscor + 1);

  • ram/etstrn.c

    r0c834c5 r60288f5  
    3535*/
    3636
    37 short et_strn(void)
     37short et_strn(short n)
    3838{
    3939        sprintf(ebuf, "%c%02d", grptran < 0 ? '-' : '+', abs(grptran));
    … …  
    5454*/
    5555
    56 short ef_strn(void)
     56short ef_strn(short n)
    5757{
    5858        register short ival;
    … …  
    7777*/
    7878
    79 short rd_strn(void)
     79short rd_strn(short n)
    8080{
    8181        sprintf(dspbuf, "%c%02d", grptran < 0 ? '-' : '+', abs(grptran));

  • ram/idfield.c

    r0c834c5 r60288f5  
    2020extern  void    select(void);
    2121extern  void    stdmkey(void);
    22 extern  void    stddkey(void);
    23 extern  short   nokey(void);
     22extern  void    stddkey(short k);
     23extern  void    nokey(void);
    2424extern  void    cxkstd(void);
    2525extern  void    cykstd(void);
    … …  
    3636extern  void    showpt(short q);
    3737
    38 extern  short   et_null(void);
    39 extern  short   ef_null(void);
    40 extern  short   rd_null(void);
    41 extern  short   nd_null(void);
     38extern  short   et_null(short n);
     39extern  short   ef_null(short n);
     40extern  short   rd_null(short n);
     41extern  short   nd_null(short n, short k);
    4242extern  short   et_ipnt(short n);
    4343extern  short   ef_ipnt(short n);
    … …  
    7070extern  short   et_iact(short nn);
    7171extern  short   ef_iact(short nn);
    72 extern  void    rd_iact(short nn);
     72extern  short   rd_iact(short nn);
    7373extern  short   nd_iact(short nn, short k);
    7474extern  short   et_iwsn(short nn);

  • ram/idselbx.c

    r0c834c5 r60288f5  
    2121extern  void    tsplot4(int *obase, int nw, int fg, int row, int col, char *str, int pitch);
    2222extern  void    vbfill4(unsigned *obj, short obwidth, short xmin, short ymin, short xmax, short ymax, unsigned color);
    23 extern  void    enterit(void);
     23extern  short   entbh(short n);
    2424extern  void    vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
    2525extern  void    advicur(void);
    … …  
    6565
    6666short   bx_null(void);
    67 void    idfnbox(short n);
     67short   idfnbox(short n);
    6868
    6969/*
    … …  
    8989        {  1,  56, 509, 208,     12, idfnbox},  /* 12: Level */
    9090
    91         {  1, 210, 110, 236, 0x0000, enterit},  /* 13: Source- Mlt */
    92         {112, 210, 142, 236, 0x0000, enterit},  /* 14: Pt */
    93         {144, 210, 206, 236, 0x0000, enterit},  /* 15: Time */
    94         {208, 210, 366, 236, 0x0000, enterit},  /* 16: Value */
    95         {368, 210, 509, 236, 0x0000, enterit},  /* 17: Action */
     91        {  1, 210, 110, 236, 0x0000, entbh},    /* 13: Source- Mlt */
     92        {112, 210, 142, 236, 0x0000, entbh},    /* 14: Pt */
     93        {144, 210, 206, 236, 0x0000, entbh},    /* 15: Time */
     94        {208, 210, 366, 236, 0x0000, entbh},    /* 16: Value */
     95        {368, 210, 509, 236, 0x0000, entbh},    /* 17: Action */
    9696
    9797        {  1, 238, 131, 348, 0x0000, idfnbox},  /* 18: Algorithm */
    9898        {133, 238, 267, 251, 0x0000, idfnbox},  /* 19: Voice & Inst */
    99         {269, 238, 379, 306, 0x0000, enterit},  /* 20: Oscillators */
     99        {269, 238, 379, 306, 0x0000, entbh},    /* 20: Oscillators */
    100100        {381, 238, 509, 348, 0x0000, idfnbox},  /* 21: Waveshape */
    101101
    102         {133, 308, 379, 348, 0x0000, enterit},  /* 22: Variables */
     102        {133, 308, 379, 348, 0x0000, entbh},    /* 22: Variables */
    103103
    104104        {133, 252, 267, 306,     19, idfnbox},  /* 23: Name & Comments */
    … …  
    435435*/
    436436
    437 void idfnbox(short n)
     437short idfnbox(short n)
    438438{
    439439        register short col, i, row;
    … …  
    453453                /* handle data entry special case for resonance in filter fn. */
    454454
    455                 if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62)) {
    456                         enterit();
    457                         return;
    458                 }
     455                if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62))
     456                        return(entbh(-1));
    459457
    460458                switch (pntsv) {        /* dispatch off of point select state */
    … …  
    486484                }
    487485
    488                 return;
     486                return(TRUE);
    489487
    490488        } else if (hitbox EQ 18) {              /* configuration */
    … …  
    493491
    494492                        wcmenu(0);
    495                         return;
     493                        return(TRUE);
    496494
    497495                } else {
    498496
    499                         enterit();
    500                         return;
     497                        return(entbh(-1));
    501498                }
    502499/*
    … …  
    537534                        }
    538535
    539                         return;
     536                        return(SUCCESS);
    540537
    541538                } else {
    542539
    543                         enterit();      /* do data entry */
    544                         return;
     540                        return(entbh(-1));      /* do data entry */
    545541                }
    546542/*
    … …  
    552548
    553549                        wcmenu(1);
    554                         return;
     550                        return(TRUE);
    555551
    556552                } else {
    557553
    558                         enterit();
    559                         return;
     554                        return(entbh(-1));
    560555                }
    561556
    … …  
    592587                }
    593588
    594                 return;
     589                return(TRUE);
    595590/*
    596591
    … …  
    622617
    623618                setgc(ICURX, ICURY);            /* put cursor in center */
    624                 return;
     619                return(TRUE);
    625620        }
    626 }
     621
     622        return(FALSE);
     623}

  • ram/im700.c

    r0c834c5 r60288f5  
    4646extern  unsigned        tofpu(unsigned time);
    4747
    48 extern  short   nokey(void);
     48extern  void    nokey(void);
     49extern  short   nonf(short k);
    4950extern  void    stdmkey(void);
    5051extern  void    cxkstd(void);
    … …  
    5758extern  short   blakpal[16][3];
    5859
    59 extern  PFS     t_prmtr[];
     60extern  LPF     t_prmtr[];
    6061
    6162extern  char    *funcndx[256][2];
    … …  
    9293*/
    9394
    94 extern  PFS     (*oldsw)[];             /* saved swpt value */
    95 extern  PFS     (*swpt)[];              /* switch dispatch table pointer */
     95extern  LPF     (*oldsw)[];             /* saved swpt value */
     96extern  LPF     (*swpt)[];              /* switch dispatch table pointer */
    9697
    9798extern  void    (*curmove)(void);       /* cursor move function */
    … …  
    101102extern  void    (*cy_key)(void);        /* y rate calculation */
    102103extern  void    (*cy_upd)(void);        /* y update */
    103 extern  void    (*d_key)(void);         /* in-field data key processor */
     104extern  void    (*d_key)(short k);      /* in-field data key processor */
    104105extern  void    (*e_key)(void);         /* E key processor */
    105106extern  void    (*m_key)(void);         /* M key processor */
    106 extern  void    (*not_fld)(short k);    /* not-in-field data key processor */
     107extern  short   (*not_fld)(short k);    /* not-in-field data key processor */
    107108extern  void    (*premove)(void);       /* cursor pre-move function */
    108109extern  void    (*pstmove)(void);       /* cursor post-move function */
    … …  
    876877        d_key = nokey;
    877878
    878         not_fld = nokey;
     879        not_fld = nonf;
    879880
    880881        cx_key  = cxkstd;       /* setup default cursor processors */

  • ram/lcdlbls.c

    r0c834c5 r60288f5  
    4040#define ROMPFN  trapper         /* ROMP switch table entry */
    4141#else
    42 #define ROMPFN  nokey           /* ROMP switch table entry */
     42#define ROMPFN  l_none          /* ROMP switch table entry */
    4343#endif
    4444
    … …  
    5050extern  char    gain2eq(short gain);
    5151
    52 extern  short   nokey(void);
    5352extern  unsigned        setsr(unsigned sr);
    5453
    55 extern  void    (*d_key)(void);
     54extern  void    (*d_key)(short k);
    5655extern  void    (*e_key)(void);
    5756extern  void    (*m_key)(void);
    5857extern  void    (*x_key)(void);
    59 extern  void    (*olddkey)(void);
     58extern  void    (*olddkey)(short k);
    6059extern  void    (*oldekey)(void);
    6160extern  void    (*oldmkey)(void);
    … …  
    6362extern  void    (*point)(short x, short y, short pen);
    6463
    65 extern  PFS     (*oldsw)[];
    66 extern  PFS     (*swpt)[];
    67 
    68 extern  PFS     aswtbl[14];
     64extern  LPF     (*oldsw)[];
     65extern  LPF     (*swpt)[];
     66
     67extern  LPF     aswtbl[14];
    6968
    7069extern  short   asig;
    … …  
    125124/* forward references */
    126125
     126void    l_none(short _1, short _2);
    127127void    l_prmtr(short stat, short sig);
    128128void    l_other(short stat, short sig);
    129129void    l_voice(short stat, short vce);
    130130void    l_init(short stat, short sig);
    131 void    l_clock(short stat);
     131void    l_clock(short stat, short _2);
    132132void    l_eq(short stat, short sig);
    133 void    trapper(short stat);
    134 void    setlamp(stat);
    135 void    rpctl(short stat);
    136 void    quiet(void);
     133void    trapper(short stat, short _2);
     134void    setlamp(short stat, short _2);
     135void    rpctl(short stat, short _2);
     136void    quiet(short _1, short _2);
    137137void    l_group(short stat, short grp);
    138 void    l_dflt(short stat);
    139 void    l_inst(short stat);
    140 void    l_goto(short stat);
    141 void    l_asgn(short stat);
    142 void    l_adfl(short stat);
    143 void    l_load(short stat);
     138void    l_dflt(short stat, short _2);
     139void    l_inst(short stat, short _2);
     140void    l_goto(short stat, short _2);
     141void    l_asgn(short stat, short _2);
     142void    l_adfl(short stat, short _2);
     143void    l_load(short stat, short _2);
    144144
    145145/* initialized stuff */
    … …  
    248248*/
    249249
    250 PFS     t_prmtr[] = {   /* switch assignments for LS_PRMTR */
     250LPF     t_prmtr[] = {   /* switch assignments for LS_PRMTR */
    251251
    252252        quiet,          /*  0: Quiet */
    … …  
    262262        l_load,         /*  8: Load */
    263263
    264         nokey,          /*  9: -unused- */
    265         nokey,          /* 10: -unused- */
     264        l_none,         /*  9: -unused- */
     265        l_none,         /* 10: -unused- */
    266266        l_other,        /* 11: Other */
    267267
    … …  
    270270};
    271271
    272 PFS     t_voice[] = {   /* switch assignments for LS_VOICE */
     272LPF     t_voice[] = {   /* switch assignments for LS_VOICE */
    273273
    274274        l_voice,        /*  0: toggle voice status */
    … …  
    296296*/
    297297
    298 PFS     t_other[] = {   /* switch assignments for LS_OTHER */
     298LPF     t_other[] = {   /* switch assignments for LS_OTHER */
    299299
    300300        quiet,          /*  0: Quiet */
    … …  
    310310        l_load,         /*  8: Load */
    311311
    312         nokey,          /*  9: -unused- */
    313         nokey,          /* 10: -unused- */
     312        l_none,         /*  9: -unused- */
     313        l_none,         /* 10: -unused- */
    314314        l_eq,           /* 11: EQ */
    315315
    … …  
    318318};
    319319
    320 PFS     t_eq[] = {      /* switch assignments for LS_EQ */
     320LPF     t_eq[] = {      /* switch assignments for LS_EQ */
    321321
    322322        quiet,          /*  0: Quiet */
    … …  
    332332        l_load,         /*  8: Load */
    333333
    334         nokey,          /*  9: -unused- */
    335         nokey,          /* 10: -unused- */
     334        l_none,         /*  9: -unused- */
     335        l_none,         /* 10: -unused- */
    336336        l_eq,           /* 11: Prmtr */
    337337
    … …  
    344344*/
    345345
    346 PFS     t_inst[] = {    /* switch assignments for LS_INST */
     346LPF     t_inst[] = {    /* switch assignments for LS_INST */
    347347
    348348        l_group,        /*  0: toggle group status */
    … …  
    366366};
    367367
    368 PFS     t_libr[] = {    /* switch assignments for LS_LIBR */
     368LPF     t_libr[] = {    /* switch assignments for LS_LIBR */
    369369
    370370        quiet,          /*  0: Quiet */
    … …  
    375375        rpctl,          /*  4: R/P */
    376376
    377         nokey,          /*  5: -unused- */
    378         nokey,          /*  6: -unused- */
    379         nokey,          /*  7: -unused- */
    380         nokey,          /*  8: -unused- */
    381 
    382         nokey,          /*  9: -unused- */
    383         nokey,          /* 10: -unused- */
    384         nokey,          /* 11: -unused- */
    385 
    386         nokey,          /* 12: -unused- */
    387         nokey           /* 13: -unused- */
     377        l_none,         /*  5: -unused- */
     378        l_none,         /*  6: -unused- */
     379        l_none,         /*  7: -unused- */
     380        l_none,         /*  8: -unused- */
     381
     382        l_none,         /*  9: -unused- */
     383        l_none,         /* 10: -unused- */
     384        l_none,         /* 11: -unused- */
     385
     386        l_none,         /* 12: -unused- */
     387        l_none          /* 13: -unused- */
    388388};
    389389
    … …  
    392392*/
    393393
    394 PFS     t_ngrp[] = {    /* switch assignments for LS_NGRP */
     394LPF     t_ngrp[] = {    /* switch assignments for LS_NGRP */
    395395
    396396        quiet,          /*  0: Quiet */
    … …  
    401401        rpctl,          /*  4: R/P */
    402402
    403         nokey,          /*  5: -unused- */
    404         nokey,          /*  6: -unused- */
    405         nokey,          /*  7: -unused- */
    406         nokey,          /*  8: -unused- */
    407 
    408         nokey,          /*  9: -unused- */
    409         nokey,          /* 10: -unused- */
    410         nokey,          /* 11: -unused- */
    411 
    412         nokey,          /* 12: -unused- */
    413         nokey           /* 13: -unused- */
     403        l_none,         /*  5: -unused- */
     404        l_none,         /*  6: -unused- */
     405        l_none,         /*  7: -unused- */
     406        l_none,         /*  8: -unused- */
     407
     408        l_none,         /*  9: -unused- */
     409        l_none,         /* 10: -unused- */
     410        l_none,         /* 11: -unused- */
     411
     412        l_none,         /* 12: -unused- */
     413        l_none          /* 13: -unused- */
    414414};
    415415
    416 PFS     t_load[] = {    /* switch assignments for LS_LOAD */
     416LPF     t_load[] = {    /* switch assignments for LS_LOAD */
    417417
    418418        quiet,          /*  0: Quiet */
    … …  
    420420
    421421        setlamp,        /*  2: Lamp */
    422         nokey,          /*  3: -unused- */
    423         nokey,          /*  4: -unused- */
    424 
    425         nokey,          /*  5: -unused- */
    426         nokey,          /*  6: -unused- */
    427         nokey,          /*  7: -unused- */
     422        l_none,         /*  3: -unused- */
     423        l_none,         /*  4: -unused- */
     424
     425        l_none,         /*  5: -unused- */
     426        l_none,         /*  6: -unused- */
     427        l_none,         /*  7: -unused- */
    428428        l_load,         /*  8: Load */
    429429
    430         nokey,          /*  9: -unused- */
    431         nokey,          /* 10: -unused- */
    432         nokey,          /* 11: -unused- */
    433 
    434         nokey,          /* 12: -unused- */
    435         nokey           /* 13: -unused- */
     430        l_none,         /*  9: -unused- */
     431        l_none,         /* 10: -unused- */
     432        l_none,         /* 11: -unused- */
     433
     434        l_none,         /* 12: -unused- */
     435        l_none          /* 13: -unused- */
    436436};
    437437
    … …  
    442442/*
    443443   =============================================================================
     444        l_none() -- null function
     445   =============================================================================
     446*/
     447
     448void l_none(short _1, short _2)
     449{
     450}
     451
     452/*
     453
     454*/
     455
     456/*
     457   =============================================================================
    444458        quiet() -- quiet the instrument
    445459   =============================================================================
    446460*/
    447461
    448 void quiet(void)
     462void quiet(short _1, short _2)
    449463{
    450464        register short vce;
    … …  
    469483*/
    470484
    471 void rpctl(short stat)
     485void rpctl(short stat, short _2)
    472486{
    473487        if (NOT stat)
    … …  
    488502*/
    489503
    490 void trapper(short stat)
     504void trapper(short stat, short _2)
    491505{
    492506        if (stat)
    … …  
    500514*/
    501515
    502 void l_clock(short stat)
     516void l_clock(short stat, short _2)
    503517{
    504518        if (NOT stat)
    … …  
    588602*/
    589603
    590 void setlamp(stat)
     604void setlamp(short stat, short _2)
    591605{
    592606        register short oldi;
    … …  
    729743*/
    730744
    731 void l_load(short stat)
     745void l_load(short stat, short _2)
    732746{
    733747        if (NOT stat)
    … …  
    10231037*/
    10241038
    1025 void l_adfl(short stat)
     1039void l_adfl(short stat, short _2)
    10261040{
    10271041        if (NOT stat)
    … …  
    10411055*/
    10421056
    1043 void l_asgn(short stat)
     1057void l_asgn(short stat, short _2)
    10441058{
    10451059        if (NOT stat)                   /* only do this on key closure */
    … …  
    11141128*/
    11151129
    1116 void l_inst(short stat)
     1130void l_inst(short stat, short _2)
    11171131{
    11181132        if (NOT stat)
    … …  
    12531267*/
    12541268
    1255 void l_dflt(short stat)
     1269void l_dflt(short stat, short _2)
    12561270{
    12571271        if (NOT stat)
    … …  
    12711285*/
    12721286
    1273 void l_goto(short stat)
     1287void l_goto(short stat, short _2)
    12741288{
    12751289        if (NOT stat)                   /* only do this on key closure */

  • ram/ldfield.c

    r0c834c5 r60288f5  
    2525extern  void    select(void);
    2626extern  short   whatbox(void);
    27 extern  short   nokey(void);
     27extern  void    nokey(void);
     28extern  short   nonf(short k);
    2829extern  void    cxkstd(void);
    2930extern  void    cykstd(void);
    3031extern  void    stdmkey(void);
    31 extern  short   et_null(void);
    32 extern  short   ef_null(void);
    33 extern  short   rd_null(void);
    34 extern  short   nd_null(void);
     32extern  short   et_null(short n);
     33extern  short   ef_null(short n);
     34extern  short   rd_null(short n);
     35extern  short   nd_null(short n, short k);
    3536extern  void    lmwclr(void);
    3637extern  void    vcputsv(int *obase, int nw, int fg, int bg, int row, int col, char *str, int pitch);
    … …  
    101102extern  short   ldmap[];
    102103
    103 extern  PFS     (*swpt)[];
    104 extern  PFS     (*oldsw)[];
     104extern  LPF     (*swpt)[];
     105extern  LPF     (*oldsw)[];
    105106
    106107extern  struct  selbox  *csbp;
    … …  
    110111
    111112void    ld_prmv(void);
    112 short   ldxkey(void);
     113void    ldxkey(void);
    113114void    ldmkey(void);
    114 short   ldkey(short k);
     115void    ldkey(short k);
    115116void    ldcxupd(void);
    116117void    ldcyupd(void);
    … …  
    177178        ldmkey,         /* m_key */
    178179        ldkey,          /* d_key */
    179         nokey,          /* not_fld */
     180        nonf,           /* not_fld */
    180181        ld_fet1,        /* curfet */
    181182        ldboxes,        /* csbp */
    … …  
    197198*/
    198199
    199 short ldxkey(void)
     200void ldxkey(void)
    200201{
    201202        register char *fn;
    … …  
    204205
    205206        if (NOT astat)          /* only on key closure */
    206                 return(FAILURE);
     207                return; /* FAILURE */
    207208
    208209        clrerms();
    … …  
    217218                        ldmap[slot] = -1;
    218219                        dpy_scr(ldbox[1][4], slot);
    219                         return(SUCCESS);
     220                        return; /* SUCCESS */
    220221
    221222                } else
    222                         return(FAILURE);
     223                        return; /* FAILURE */
    223224        }
    224225
    225226        if (lcancel(2))
    226                 return(SUCCESS);
     227                return; /* SUCCESS */
    227228
    228229        if (NOT ldelsw) {       /* deletion not yet selected ? */
    … …  
    233234
    234235                                if (-1 EQ (slot = lin2slt(stcrow)))
    235                                         return(FAILURE);
     236                                        return; /* FAILURE */
    236237
    237238                                if (ltagged) {
    … …  
    242243                                                ltagged = FALSE;
    243244                                                showcat();
    244                                                 return(FAILURE);
     245                                                return; /* FAILURE */
    245246                                        }
    246247
    … …  
    266267                                }
    267268
    268                                 return(SUCCESS);
     269                                return; /* SUCCESS */
    269270                        }
    270271
    271272                        if ((stccol < 13) OR (stccol > 20))     /* name ? */
    272                                 return(FAILURE);
     273                                return; /* FAILURE */
    273274
    274275                        if (-1 NE (ldslot = lin2slt(ldrow))) {
    … …  
    278279                                dslslot(ldslot, exp_c(LD_DELC), ldrow);
    279280                                ldelsw = TRUE;
    280                                 return(SUCCESS);
     281                                return; /* SUCCESS */
    281282                        }
    282283/*
    … …  
    293294                                        memset(ldfile, ' ', 8);
    294295                                        ldswin(3);
    295                                         return(SUCCESS);
     296                                        return; /* SUCCESS */
    296297
    297298                                } else if (stccol GE 27) {
    … …  
    301302                                        memset(ldcmnt, ' ', 37);
    302303                                        ldswin(5);
    303                                         return(SUCCESS);
     304                                        return; /* SUCCESS */
    304305                                }
    305306                        }
    306307
    307                         return(FAILURE);
     308                        return; /* FAILURE */
    308309                }
    309310
    … …  
    330331                        showsiz();
    331332
    332                         return(SUCCESS);
     333                        return; /* SUCCESS */
    333334                }
    334335
    335336                ldelsw = FALSE;
    336337                showcat();
    337                 return(SUCCESS);
     338                return; /* SUCCESS */
    338339        }
    339340}
    … …  
    501502*/
    502503
    503 short ldkey(short k)
     504void ldkey(short k)
    504505{
    505506        register short c, col, row, slot;
    … …  
    507508
    508509        if (NOT astat)                          /* only on key closure */
    509                 return(FAILURE);
     510                return;
    510511
    511512        if (NOT catin)                          /* catalog must be valid */

  • ram/ldselbx.c

    r0c834c5 r60288f5  
    3939extern  short   get_tun(void);
    4040extern  short   get_wav(void);
    41 extern  short   nokey(void);
     41extern  void    nokey(void);
    4242extern  short   ldline(short cy);
    4343extern  short   lin2slt(short line);
    … …  
    121121extern  struct  selbox  *curboxp;
    122122
    123 extern  PFS     (*swpt)[];
    124 extern  PFS     (*oldsw)[];
    125 extern  PFS     t_libr[];
     123extern  LPF     (*swpt)[];
     124extern  LPF     (*oldsw)[];
     125extern  LPF     t_libr[];
    126126
    127127extern  char    bfs[];

  • ram/libdsp.c

    r0c834c5 r60288f5  
    997997
    998998        if (ndisp NE 0)
    999                 return;
     999                return(FAILURE);
    10001000
    10011001        ldswin(0);                      /* fix up the title */

  • ram/m7menu.c

    r0c834c5 r60288f5  
    4242extern  void    (*point)(short x, short y, short pen);
    4343
    44 extern  short   nokey(void);
     44extern  void    nokey(void);
     45extern  void    nodkey(short k);
     46extern  short   nonf(short k);
    4547extern  void    select(void);
    4648extern  void    cxkstd(void);
    … …  
    253255        select,                 /* e_key */
    254256        nokey,                  /* m_key */
    255         nokey,                  /* d_key */
    256         nokey,                  /* not_fld */
     257        nodkey,                 /* d_key */
     258        nonf,                   /* not_fld */
    257259        (struct fet *)NULL,     /* curfet */
    258260        mdboxes,                /* csbp */

  • ram/msl.c

    r0c834c5 r60288f5  
    5858extern  void    (*cx_key)(void);
    5959extern  void    (*cy_key)(void);
    60 extern  void    (*d_key)(void);
     60extern  void    (*d_key)(short k);
    6161extern  void    (*e_key)(void);
    6262extern  void    (*m_key)(void);
    6363extern  void    (*x_key)(void);
    6464
    65 extern  PFS     (*swpt)[];
     65extern  LPF     (*swpt)[];
    6666
    6767extern  short   aflag;
    … …  
    373373                                } else if ((asig GE 60) AND (asig LE 69)) {
    374374
    375                                         (*d_key)();
     375                                        (*d_key)(asig - 60);
    376376
    377377/*

  • ram/ptdkey.c

    r0c834c5 r60288f5  
    559559*/
    560560
    561 void ptdkey(void)
     561void ptdkey(short k)
    562562{
    563563        register short key, val, vg;

  • ram/ptfield.c

    r0c834c5 r60288f5  
    4444
    4545extern  void    select(void);
    46 extern  short   nokey(void);
     46extern  void    nokey(void);
     47extern  short   nonf(short k);
    4748extern  short   stdctp5(void);
    4849extern  void    cxkstd(void);
    4950extern  void    cykstd(void);
    5051extern  void    stdmkey(void);
    51 extern  void    stddkey(void);
     52extern  void    stddkey(short k);
    5253extern  void    stopcm(void);
    5354extern  void    smxupd(void);
    5455extern  void    smyupd(void);
    5556extern  void    aftercm(void);
    56 extern  void    ptdkey(void);
     57extern  void    ptdkey(short k);
    5758
    5859extern  short   astat;
    … …  
    135136        ptmkey,                 /* m_key */
    136137        ptdkey,                 /* d_key */
    137         nokey,                  /* not_fld */
     138        nonf,                   /* not_fld */
    138139        (struct fet *)NULL,     /* curfet */
    139140        ptboxes,                /* csbp */

  • ram/ptselbx.c

    r0c834c5 r60288f5  
    4343*/
    4444
    45 extern  void    enterit(void);
    46 extern  short   nokey(void);
    4745extern  short   cnvp2c(void);
    4846extern  short   dec2fr(char *s);

  • ram/scfield.c

    r0c834c5 r60288f5  
    3131extern  short   oktode(struct s_entry *ep);
    3232extern  short   stdctp3(void);
    33 extern  void    enterit(void);
    34 extern  void    stddkey(void);
    35 extern  short   nokey(void);
     33extern  void    stddkey(short k);
     34extern  void    nokey(void);
    3635extern  void    stdmkey(void);
    3736
    38 extern  short   et_strn(void);
    39 extern  short   ef_strn(void);
    40 extern  short   rd_strn(void);
     37extern  short   et_strn(short n);
     38extern  short   ef_strn(short n);
     39extern  short   rd_strn(short n);
    4140extern  short   nd_strn(short n, short k);
    4241extern  short   et_snbt(short n);
    … …  
    9695extern  short   nd_agrp(short n, short k);
    9796
    98 extern  short   et_scor(void);
    99 extern  short   ef_scor(void);
    100 extern  short   rd_scor(void);
     97extern  short   et_scor(short n);
     98extern  short   ef_scor(short n);
     99extern  short   rd_scor(short n);
    101100extern  short   nd_scor(short n, short k);
    102101
    103102/* forward references */
    104103
    105 short   et_null(void);
    106 short   ef_null(void);
    107 short   rd_null(void);
    108 short   nd_null(void);
     104short   et_null(short n);
     105short   ef_null(short n);
     106short   rd_null(short n);
     107short   nd_null(short n, short k);
    109108void    sdcxu(void);
    110109void    sdcyu(void);
    … …  
    164163extern  short   varmode[8][16];
    165164
    166 extern  PFS     (*swpt)[];
    167 extern  PFS     (*oldsw)[];
     165extern  LPF     (*swpt)[];
     166extern  LPF     (*oldsw)[];
    168167
    169168extern  struct  fet     *cfetp;
    … …  
    341340*/
    342341
    343 short et_null(void)
     342short et_null(short n)
    344343{
    345344        return(SUCCESS);
    346345}
    347346
    348 short ef_null(void)
     347short ef_null(short n)
    349348{
    350349        return(SUCCESS);
    351350}
    352351
    353 short rd_null(void)
     352short rd_null(short n)
    354353{
    355354        return(SUCCESS);
    356355}
    357356
    358 short nd_null(void)
     357short nd_null(short n, short k)
    359358{
    360359        return(SUCCESS);

  • ram/scope.c

    r0c834c5 r60288f5  
    2828char            scopebf[65];            /* scope display buffer */
    2929
    30 extern  short   nokey(void);
     30extern  short   stdctp2(void);
     31extern  void    nokey(void);
     32extern  void    nodkey(short k);
     33extern  short   nonf(short k);
    3134extern  void    stdmkey(void);
    3235
    … …  
    4851struct curpak dt_flds = {
    4952
    50         nokey,                  /* curtype */
     53        stdctp2,                /* curtype */
    5154        nokey,                  /* premove */
    5255        nokey,                  /* pstmove */
    … …  
    6063        scptogl,                /* e_key */
    6164        stdmkey,                /* m_key */
    62         nokey,                  /* d_key */
    63         nokey,                  /* not_fld */
     65        nodkey,                 /* d_key */
     66        nonf,                   /* not_fld */
    6467        (struct fet *)NULL,     /* curfet */
    6568        (struct selbox *)NULL,  /* csbp */

  • 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 

  • ram/showcfg.c

    r0c834c5 r60288f5  
    3535extern  void    enterit(void);
    3636extern  void    idpoint(short x, short y, short pen);
    37 extern  short   nokey(void);
     37extern  void    nokey(void);
    3838
    3939extern  short   et_mcfn(short n);
    … …  
    4848/* forward references */
    4949
    50 void    imfnbox(short n);
     50short   imfnbox(short n);
    5151
    5252/*
    … …  
    612612*/
    613613
    614 void imfnbox(short n)
     614short imfnbox(short n)
    615615{
    616616        register short row, col;
    … …  
    638638
    639639                                wcmenu(1);
    640                                 return;
     640                                return(SUCCESS);
    641641
    642642                        } else {                        /* data entry */
    … …  
    648648                                        modinst();
    649649
    650                                 return;
     650                                return(SUCCESS);
    651651                        }
    652652/*
    … …  
    668668                                        modinst();
    669669
    670                                 return;
     670                                return(SUCCESS);
    671671                        }
    672672                }
    673673        }
     674
     675        return(FAILURE);
    674676}

  • ram/sqdisp.c

    r0c834c5 r60288f5  
    2323#endif
    2424
    25 extern  short   nokey(void);
     25extern  void    nokey(void);
    2626
    2727extern  char    *(*BakLine)(void);

  • ram/sqdkey.c

    r0c834c5 r60288f5  
    388388*/
    389389
    390 void sqdkey(void)
     390void sqdkey(short k)
    391391{
    392392        register short key;

  • ram/sqfield.c

    r0c834c5 r60288f5  
    3333
    3434extern  void    select(void);
    35 extern  short   nokey(void);
     35extern  void    nokey(void);
     36extern  short   nonf(short k);
    3637extern  short   stdctp5(void);
    3738extern  void    cxkstd(void);
    3839extern  void    cykstd(void);
    3940extern  void    stdmkey(void);
    40 extern  void    stddkey(void);
     41extern  void    stddkey(short k);
    4142extern  void    stopsm(void);
    4243extern  void    smxupd(void);
    … …  
    7374void    sqekey(void);
    7475void    sqmkey(void);
    75 void    sqdkey(void);
     76void    sqdkey(short k);
    7677
    7778/*
    … …  
    9495        sqmkey,                 /* m_key */
    9596        sqdkey,                 /* d_key */
    96         nokey,                  /* not_fld */
     97        nonf,                   /* not_fld */
    9798        (struct fet *)NULL,     /* curfet */
    9899        sqboxes,                /* csbp */

  • ram/swinit.c

    r0c834c5 r60288f5  
    3535BOOL    se_chg;                 /* Score free list changed flag */
    3636
    37 PFS     (*oldsw)[];             /* saved swpt value */
    38 PFS     (*swpt)[];              /* switch dispatch table pointer */
    39 
    40 PFS     aswtbl[14];             /* assignment switch table */
     37LPF     (*oldsw)[];             /* saved swpt value */
     38LPF     (*swpt)[];              /* switch dispatch table pointer */
     39
     40LPF     aswtbl[14];             /* assignment switch table */
    4141
    4242void    (*curmove)(void);       /* cursor move function */
    … …  
    4646void    (*cy_key)(void);        /* y rate calculation */
    4747void    (*cy_upd)(void);        /* y update */
    48 void    (*d_key)(void);         /* in-field data key processor */
     48void    (*d_key)(short k);      /* in-field data key processor */
    4949void    (*e_key)(void);         /* E key processor */
    5050void    (*m_key)(void);         /* M key processor */
    5151void    (*itxput)(short row, short col, char *txt, short tag);
    5252                                /* instrument menu text put function */
    53 void    (*not_fld)(short k);    /* not-in-field data key processor */
    54 void    (*olddkey)(void);       /* saved d_key value */
     53short   (*not_fld)(short k);    /* not-in-field data key processor */
     54void    (*olddkey)(short k);    /* saved d_key value */
    5555void    (*oldekey)(void);       /* saved e_key value */
    5656void    (*oldmkey)(void);       /* saved m_key value */

  • ram/tdfield.c

    r0c834c5 r60288f5  
    1919extern  void    select(void);
    2020extern  short   whatbox(void);
    21 extern  short   nokey(void);
     21extern  void    nokey(void);
     22extern  short   nonf(short k);
    2223extern  short   stdctp0(void);
    2324extern  void    cxkstd(void);
    2425extern  void    cykstd(void);
    2526extern  void    stdmkey(void);
    26 extern  void    stddkey(void);
    27 
    28 extern  short   et_null(void);
    29 extern  short   ef_null(void);
    30 extern  short   rd_null(void);
    31 extern  short   nd_null(void);
     27extern  void    stddkey(short k);
     28
     29extern  short   et_null(short n);
     30extern  short   ef_null(short n);
     31extern  short   rd_null(short n);
     32extern  short   nd_null(short n, short k);
    3233extern  short   et_ttab(short n);
    3334extern  short   ef_ttab(short n);
    … …  
    260261        stdmkey,        /* m_key */
    261262        stddkey,        /* d_key */
    262         nokey,          /* not_fld */
     263        nonf,           /* not_fld */
    263264        td_fet1,        /* curfet */
    264265        tdboxes,        /* csbp */

  • ram/tdselbx.c

    r0c834c5 r60288f5  
    1919extern  void    bsptcur(void);
    2020extern  void    vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
    21 extern  short   nokey(void);
     21extern  void    nokey(void);
    2222
    2323extern  unsigned        exp_c(unsigned c);

  • ram/wdselbx.c

    r0c834c5 r60288f5  
    1919#include "wsdsp.h"
    2020
    21 extern  void    enterit(void);
     21extern  short   entbh(short n);
    2222extern  void    wdswin(short n);
    2323
    … …  
    5757        {  1,   1, 510, 307,      0, wdfnbox},  /*  0 */
    5858        {  1, 308, 510, 320,      1, wdfnbox},  /*  1 */
    59         {  1, 322, 174, 348,      2, enterit},  /*  2 */
     59        {  1, 322, 174, 348,      2, entbh},    /*  2 */
    6060        {176, 322, 230, 348,      3, wdfnbox},  /*  3 */
    61         {232, 322, 398, 348,      4, enterit},  /*  4 */
    62         {400, 322, 510, 348,      5, enterit},  /*  5 */
     61        {232, 322, 398, 348,      4, entbh},    /*  4 */
     62        {400, 322, 510, 348,      5, entbh},    /*  5 */
    6363
    6464        {  0,   0,   0,   0,      0, FN_NULL}           /* end of table */
Note: See TracChangeset for help on using the changeset viewer.