Changeset 0c834c5 in buchla-68k


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

Prototypes for global function pointers. Consistent global types.

Files:
48 edited

Legend:

Unmodified
Added
Removed
  • include/curpak.h

    r342a56f r0c834c5  
    2020struct curpak {
    2121
    22         short           (*curtype)();
    23         short           (*premove)();
    24         short           (*pstmove)();
    25         short           (*cx_key)();
    26         short           (*cy_key)();
    27         short           (*cx_upd)();
    28         short           (*cy_upd)();
    29         short           (*xy_up)();
    30         short           (*xy_dn)();
    31         short           (*x_key)();
    32         short           (*e_key)();
    33         short           (*m_key)();
    34         short           (*d_key)();
    35         short           (*not_fld)();
     22        short           (*curtype)(void);
     23        void            (*premove)(void);
     24        void            (*pstmove)(void);
     25        void            (*cx_key)(void);
     26        void            (*cy_key)(void);
     27        void            (*cx_upd)(void);
     28        void            (*cy_upd)(void);
     29        void            (*xy_up)(void);
     30        void            (*xy_dn)(void);
     31        void            (*x_key)(void);
     32        void            (*e_key)(void);
     33        void            (*m_key)(void);
     34        void            (*d_key)(void);
     35        void            (*not_fld)(short k);
    3636        struct fet      *curfet;
    3737        struct selbox   *csbp;
  • include/fields.h

    r342a56f r0c834c5  
    1414        short   frcol;          /* rightmost column of field */
    1515        short   ftags;          /* field tags / parameters (used variously) */
    16         short   (*ebto)();      /* edit buffer 'to' (setup) function */
    17         short   (*ebfrom)();    /* edit buffer 'from' (parse) function */
    18         short   (*redisp)();    /* field (re)display function */
    19         short   (*datain)();    /* data entry function */
     16        void    (*ebto)(short ftags);
     17                                /* edit buffer 'to' (setup) function */
     18        void    (*ebfrom)(short ftags);
     19                                /* edit buffer 'from' (parse) function */
     20        void    (*redisp)(short ftags);
     21                                /* field (re)display function */
     22        void    (*datain)(short ftags, short asig);
     23                                /* data entry function */
    2024};
    2125
     
    2731        short   sbymax;         /* maximum y - bottom edge of box */
    2832        short   sbarg;          /* select box argument */
    29         short   (*boxhit)();    /* box-hit function */
     33        void    (*boxhit)(short sbarg);
     34                                /* box-hit function */
    3035};
    3136
  • libcio/blkrd.c

    r342a56f r0c834c5  
    4444extern  long    _berrno;                /* last file system bios error number */
    4545
    46 extern  short   _thefat[];              /* current file allocation table */
     46extern  unsigned        _thefat[];              /* current file allocation table */
    4747
    4848extern  struct  bpb     *_thebpb;       /* current bios parameter block */
  • libcio/blkwr.c

    r342a56f r0c834c5  
    3232extern  struct  bpb     *_thebpb;       /* current bios parameter block */
    3333
    34 extern  short   _thefat[];              /* current file allocation table */
    35 
    36 extern  short   _fatmod;                /* FAT modified flag */
     34extern  unsigned        _thefat[];              /* current file allocation table */
     35
     36extern  int     _fatmod;                /* FAT modified flag */
    3737
    3838#if DEBUGIT
  • libcio/clusmap.c

    r342a56f r0c834c5  
    1717
    1818extern  struct  bpb     *_thebpb;
    19 extern  short   _thefat[];
     19extern  unsigned        _thefat[];
    2020
    2121extern  int     _filecl(struct fcb *fp);
  • libcio/write.c

    r342a56f r0c834c5  
    2828extern  char    *memset(char *sp, char c, int n);
    2929
    30 extern  short   _fatmod;
     30extern  int     _fatmod;
    3131
    3232extern  unsigned        _thefat[];
  • ram/adselbx.c

    r342a56f r0c834c5  
    3333extern  void    adpoint(short x, short y, short pen);
    3434
    35 extern  short   (*itxput)();
    36 extern  short   (*point)();
     35extern  void    (*itxput)(short row, short col, char *txt, short tag);
     36extern  void    (*point)(short x, short y, short pen);
    3737
    3838extern  short   admctl;
     
    7070
    7171short   bx_null(void);
    72 short   adfnbox(short n);
     72void    adfnbox(short n);
    7373
    7474/*
     
    207207*/
    208208
    209 short adfnbox(short n)
     209void adfnbox(short n)
    210210{
    211211        register short i, grp, key, line;
     
    242242                                }
    243243
    244                                 return(SUCCESS);
     244                                return;
    245245
    246246                        } else {                                /* table */
    247247
    248                                 return(enterit());      /* data entry */
     248                                enterit();      /* data entry */
     249                                return;
    249250                        }
    250251                }
     
    302303                }
    303304
    304                 return(SUCCESS);
     305                return;
    305306/*
    306307
     
    315316                        putasg(curasg);
    316317                        adswin(0);
    317                         return(SUCCESS);
     318                        return;
    318319
    319320                } else if ((col GE 6) AND (col LE 10)) {        /* retrieve */
     
    321322                        getasg(curasg);
    322323                        awins();
    323                         return(SUCCESS);
     324                        return;
    324325                }
    325326
     
    329330
    330331                        if ((row LT 5) OR (row GT 8))
    331                                 return(FAILURE);
     332                                return;
    332333
    333334                        mctlnum[row - 5] ^= GTAG1;
     
    344345                                row, adbox[n][7], bfs, 14);
    345346
    346                         return(SUCCESS);
     347                        return;
    347348
    348349                } else {
    349350
    350                         return(enterit());
     351                        enterit();
     352                        return;
    351353                }
    352354/*
     
    365367                                admenu(-1);     /* take down menu */
    366368
    367                         return(SUCCESS);
     369                        return;
    368370
    369371                } else if (col EQ 39) { /* groups 1..6 */
    370372
    371373                        if ((row LT 4) OR (row GT 9))
    372                                 return(FAILURE);
     374                                return;
    373375
    374376                        /* toggle "legato" mode */
     
    388390                               row, col, bfs, 14);
    389391
    390                         return(SUCCESS);
     392                        return;
    391393/*
    392394
     
    413415                               row, col, bfs, 14);
    414416
    415                         return(SUCCESS);
     417                        return;
    416418
    417419                } else {
    418420
    419                         return(enterit());      /* data entry */
     421                        enterit();      /* data entry */
     422                        return;
    420423                }
    421424/*
     
    425428
    426429                if (admctl NE -1)
    427                         return(FAILURE);
     430                        return;
    428431
    429432                if (asghit) {
     
    443446
    444447                                if (key-- EQ 0)
    445                                         return(FAILURE);
     448                                        return;
    446449
    447450                                if (key LT asgfks) {
     
    484487
    485488                                asghit = 0;
    486                                 return(FAILURE);
     489                                return;
    487490                        }
    488491
     
    498501
    499502                                asghit = 0;
    500                                 return(FAILURE);
     503                                return;
    501504                        }
    502505
     
    509512                }
    510513
    511                 return(SUCCESS);
     514                return;
    512515
    513516        case 8:                 /* aux ctl */
     
    515518                setaux(NOT auxctl);
    516519                adswin(8);
    517                 return(SUCCESS);
     520                return;
    518521
    519522        case 9:                 /* tuning menu */
     
    526529                                admenu(-1);     /* take down menu */
    527530
    528                         return(SUCCESS);
     531                        return;
    529532
    530533                } else {
    531534
    532                         return(enterit());      /* data entry */
     535                        enterit();      /* data entry */
     536                        return;
    533537                }
    534538        }
    535 
    536         return(FAILURE);
    537539}
     540
  • ram/asgdsp.c

    r342a56f r0c834c5  
    6060/* things defined elsewhere */
    6161
    62 extern  int             (*point)();
     62extern  void            (*point)(short x, short y, short pen);
    6363extern  unsigned        exp_c(unsigned c);
    6464
  • ram/curset.c

    r342a56f r0c834c5  
    3838extern  void    cmvgen(void);
    3939
    40 extern  short           (*curmove)();
    41 extern  short           (*curtype)();
    42 extern  short           (*cx_key)();
    43 extern  short           (*cx_upd)();
    44 extern  short           (*cy_key)();
    45 extern  short           (*cy_upd)();
    46 extern  short           (*d_key)();
    47 extern  short           (*e_key)();
    48 extern  short           (*m_key)();
    49 extern  short           (*not_fld)();
    50 extern  short           (*premove)();
    51 extern  short           (*pstmove)();
    52 extern  short           (*x_key)();
    53 extern  short           (*xy_dn)();
    54 extern  short           (*xy_up)();
     40extern  void            (*curmove)(void);
     41extern  short           (*curtype)(void);
     42extern  void            (*cx_key)(void);
     43extern  void            (*cx_upd)(void);
     44extern  void            (*cy_key)(void);
     45extern  void            (*cy_upd)(void);
     46extern  void            (*d_key)(void);
     47extern  void            (*e_key)(void);
     48extern  void            (*m_key)(void);
     49extern  void            (*not_fld)(short k);
     50extern  void            (*premove)(void);
     51extern  void            (*pstmove)(void);
     52extern  void            (*x_key)(void);
     53extern  void            (*xy_dn)(void);
     54extern  void            (*xy_up)(void);
    5555
    5656extern  short           *cratex;
  • ram/enterit.c

    r342a56f r0c834c5  
    3636#endif
    3737
    38 extern  short   (*cx_key)(), (*cy_key)(), (*cx_upd)(), (*cy_upd)();
    39 extern  short   (*xy_up)(), (*xy_dn)(), (*not_fld)();
    40 extern  short   (*x_key)(), (*e_key)(), (*m_key)(), (*d_key)();
    41 extern  short   (*premove)(), (*pstmove)(), (*curtype)();
     38extern  void    (*cx_key)(void);
     39extern  void    (*cy_key)(void);
     40extern  void    (*cx_upd)(void);
     41extern  void    (*cy_upd)(void);
     42extern  void    (*xy_up)(void);
     43extern  void    (*xy_dn)(void);
     44extern  void    (*not_fld)(short k);
     45extern  void    (*x_key)(void);
     46extern  void    (*e_key)(void);
     47extern  void    (*m_key)(void);
     48extern  void    (*d_key)(void);
     49extern  void    (*premove)(void);
     50extern  void    (*pstmove)(void);
     51extern  short   (*curtype)(void);
    4252
    4353extern  short   *cratex;
  • ram/etadyn.c

    r342a56f r0c834c5  
    3434extern  short           dyntab[];
    3535
    36 extern  unsigned        expbit[];
     36extern  short           expbit[];
    3737
    3838extern  short           adbox[][8];
  • ram/etatab.c

    r342a56f r0c834c5  
    1818extern  void    adpoint(short x, short y, short pen);
    1919
    20 extern  short   (*point)();
     20extern  void    (*point)(short x, short y, short pen);
    2121
    2222extern  unsigned        *asgob;
  • ram/etloc.c

    r342a56f r0c834c5  
    3737extern  short           vce2grp[];
    3838
    39 extern  unsigned        expbit[];
     39extern  short           expbit[];
    4040
    4141extern  struct gdsel    *gdstbc[];
  • ram/idfield.c

    r342a56f r0c834c5  
    9999extern  short   vtxval, vtyval;
    100100
    101 extern  unsigned        temax, temin;
     101extern  short   temax, temin;
    102102
    103103extern  short   *cratex, *cratey, crate0[], crate1[];
  • ram/idselbx.c

    r342a56f r0c834c5  
    1515#include "instdsp.h"
    1616
    17 extern  short   (*itxput)();
     17extern  void    (*itxput)(short row, short col, char *txt, short tag);
    1818
    1919extern  void    lseg(short x1, short y1, short x2, short y2, short t);
     
    4343extern  short   pntsv, pecase, stccol, subj, submenu;
    4444
    45 extern  unsigned        temin, temax;
     45extern  short   temin, temax;
    4646
    4747extern  struct  selbox  *csbp, *curboxp;
     
    6565
    6666short   bx_null(void);
    67 short   idfnbox(short n);
     67void    idfnbox(short n);
    6868
    6969/*
     
    435435*/
    436436
    437 short idfnbox(short n)
     437void 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                         return(enterit());
     455                if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62)) {
     456                        enterit();
     457                        return;
     458                }
    457459
    458460                switch (pntsv) {        /* dispatch off of point select state */
     
    484486                }
    485487
    486                 return(TRUE);
     488                return;
    487489
    488490        } else if (hitbox EQ 18) {              /* configuration */
     
    491493
    492494                        wcmenu(0);
    493                         return(TRUE);
     495                        return;
    494496
    495497                } else {
    496498
    497                         return(enterit());
     499                        enterit();
     500                        return;
    498501                }
    499502/*
     
    534537                        }
    535538
    536                         return(SUCCESS);
     539                        return;
    537540
    538541                } else {
    539542
    540                         return(enterit());      /* do data entry */
     543                        enterit();      /* do data entry */
     544                        return;
    541545                }
    542546/*
     
    548552
    549553                        wcmenu(1);
    550                         return(TRUE);
     554                        return;
    551555
    552556                } else {
    553557
    554                         return(enterit());
     558                        enterit();
     559                        return;
    555560                }
    556561
     
    587592                }
    588593
    589                 return(TRUE);
     594                return;
    590595/*
    591596
     
    617622
    618623                setgc(ICURX, ICURY);            /* put cursor in center */
    619                 return(TRUE);
     624                return;
    620625        }
    621 
    622         return(FALSE);
    623 }
     626}
  • ram/im700.c

    r342a56f r0c834c5  
    9595extern  PFS     (*swpt)[];              /* switch dispatch table pointer */
    9696
    97 extern  short   (*curmove)();           /* cursor move function */
    98 extern  short   (*curtype)();           /* cursor type function */
    99 extern  short   (*cx_key)();            /* x rate calculation */
    100 extern  short   (*cx_upd)();            /* x update */
    101 extern  short   (*cy_key)();            /* y rate calculation */
    102 extern  short   (*cy_upd)();            /* y update */
    103 extern  short   (*d_key)();             /* in-field data key processor */
    104 extern  short   (*e_key)();             /* E key processor */
    105 extern  short   (*m_key)();             /* M key processor */
    106 extern  short   (*not_fld)();           /* not-in-field data key processor */
    107 extern  short   (*premove)();           /* cursor pre-move function */
    108 extern  short   (*pstmove)();           /* cursor post-move function */
    109 extern  short   (*x_key)();             /* X key processor */
    110 extern  short   (*xy_dn)();             /* cursor - finger on (down) */
    111 extern  short   (*xy_up)();             /* cursor - finger off (up) */
     97extern  void    (*curmove)(void);       /* cursor move function */
     98extern  short   (*curtype)(void);       /* cursor type function */
     99extern  void    (*cx_key)(void);        /* x rate calculation */
     100extern  void    (*cx_upd)(void);        /* x update */
     101extern  void    (*cy_key)(void);        /* y rate calculation */
     102extern  void    (*cy_upd)(void);        /* y update */
     103extern  void    (*d_key)(void);         /* in-field data key processor */
     104extern  void    (*e_key)(void);         /* E key processor */
     105extern  void    (*m_key)(void);         /* M key processor */
     106extern  void    (*not_fld)(short k);    /* not-in-field data key processor */
     107extern  void    (*premove)(void);       /* cursor pre-move function */
     108extern  void    (*pstmove)(void);       /* cursor post-move function */
     109extern  void    (*x_key)(void);         /* X key processor */
     110extern  void    (*xy_dn)(void);         /* cursor - finger on (down) */
     111extern  void    (*xy_up)(void);         /* cursor - finger off (up) */
    112112
    113113extern  short   *cratex;                /* cursor x rate table pointer */
     
    341341short   vtccol;                 /* virtual typewriter cursor column */
    342342short   vtcrow;                 /* virtual typewriter cursor row */
    343 short   vtdechr;                /* virtual typewriter data entry character */
     343char    vtdechr;                /* virtual typewriter data entry character */
    344344short   vtdecol;                /* virtual typewriter data entry column */
    345345short   vtpcol;                 /* virtual typewriter column */
  • ram/instdsp.c

    r342a56f r0c834c5  
    2929
    3030/* things defined elsewhere */
     31
     32extern  void    (*point)(short x, short y, short pen);
    3133
    3234extern  void    fpuint(void);
  • ram/lcdlbls.c

    r342a56f r0c834c5  
    5353extern  unsigned        setsr(unsigned sr);
    5454
    55 extern  short   (*d_key)();
    56 extern  short   (*e_key)();
    57 extern  short   (*m_key)();
    58 extern  short   (*x_key)();
    59 extern  short   (*olddkey)();
    60 extern  short   (*oldekey)();
    61 extern  short   (*oldmkey)();
    62 extern  short   (*oldxkey)();
    63 extern  short   (*point)();
     55extern  void    (*d_key)(void);
     56extern  void    (*e_key)(void);
     57extern  void    (*m_key)(void);
     58extern  void    (*x_key)(void);
     59extern  void    (*olddkey)(void);
     60extern  void    (*oldekey)(void);
     61extern  void    (*oldmkey)(void);
     62extern  void    (*oldxkey)(void);
     63extern  void    (*point)(short x, short y, short pen);
    6464
    6565extern  PFS     (*oldsw)[];
  • ram/ldselbx.c

    r342a56f r0c834c5  
    6666#endif
    6767
    68 extern  short   (*point)();
     68extern  void    (*point)(short x, short y, short pen);
    6969
    7070extern  short   asmode;
     
    7474extern  short   cyrate;
    7575extern  short   cyval;
    76 extern  short   errno;
     76extern  int     errno;
    7777extern  short   gomode;
    7878extern  short   hitcx;
  • ram/libdsp.c

    r342a56f r0c834c5  
    5656
    5757/* things defined elsewhere */
     58
     59extern  void    (*point)(short x, short y, short pen);
    5860
    5961extern  void    vbfill4(unsigned *obj, short obwidth, short xmin, short ymin, short xmax, short ymax, unsigned color);
     
    297299unsigned exp_c(unsigned c)
    298300{
    299         cx &= 0x000F;           /* use low 4 bits as the basis */
    300         cx |= cx << 4;          /* turn them into 8 bits */
    301         cx |= cx << 8;          /* make it a full 16 bits */
    302 
    303         return(cx);
     301        c &= 0x000F;            /* use low 4 bits as the basis */
     302        c |= c << 4;            /* turn them into 8 bits */
     303        c |= c << 8;            /* make it a full 16 bits */
     304
     305        return(c);
    304306}
    305307
  • ram/localkb.c

    r342a56f r0c834c5  
    3131*/
    3232
    33 extern  short   (*point)();
     33extern  void    (*point)(short x, short y, short pen);
    3434
    3535extern  short   ancmsw;
  • ram/m7menu.c

    r342a56f r0c834c5  
    4040extern  struct  selbox  *csbp, *curboxp;
    4141
    42 extern  short   (*point)();
     42extern  void    (*point)(short x, short y, short pen);
    4343
    4444extern  short   nokey(void);
  • ram/midas.c

    r342a56f r0c834c5  
    3030extern  void    pch_ped(short stat);
    3131
    32 extern  short   (*foot1)(), (*foot2)(), (*pulse1)(), (*pulse2)();
    33 
    34 extern  char    *end, *etext, *edata;
     32extern  void    (*foot1)(short stat);
     33extern  void    (*foot2)(short stat);
     34extern  void    (*pulse1)(void);
     35extern  void    (*pulse2)(void);
     36
     37extern  char    end, etext, edata;
    3538
    3639extern  short   clkrun, clksrc, initcfg, ndisp, verbose;
  • ram/msl.c

    r342a56f r0c834c5  
    5656/* variables defined elsewhere */
    5757
    58 extern  short   (*cx_key)();
    59 extern  short   (*cy_key)();
    60 extern  short   (*d_key)();
    61 extern  short   (*e_key)();
    62 extern  short   (*m_key)();
    63 extern  short   (*x_key)();
     58extern  void    (*cx_key)(void);
     59extern  void    (*cy_key)(void);
     60extern  void    (*d_key)(void);
     61extern  void    (*e_key)(void);
     62extern  void    (*m_key)(void);
     63extern  void    (*x_key)(void);
    6464
    6565extern  PFS     (*swpt)[];
     
    117117*/
    118118
    119 extern  unsigned short  *obj8;
     119extern  unsigned        *obj8;
    120120
    121121extern  long    afi;
     
    373373                                } else if ((asig GE 60) AND (asig LE 69)) {
    374374
    375                                         (*d_key)(asig - 60);
     375                                        (*d_key)();
    376376
    377377/*
  • ram/nedacc.c

    r342a56f r0c834c5  
    744744        }
    745745
    746         if (pix2mid(cxval, cyval)) {    /* must point at a note position */
     746        if (pix2mid()) {        /* must point at a note position */
    747747
    748748#if     DEBUGIT
  • ram/ptdisp.c

    r342a56f r0c834c5  
    1818extern  char    *LineFwd(void);
    1919
    20 extern  short   (*BakLine)(), (*FwdLine)();
     20extern  char    *(*BakLine)(void);
     21extern  char    *(*FwdLine)(void);
    2122
    2223extern  unsigned        short   pt_alc(void);
    2324
    24 extern  unsigned short  *obj8, *obj9, *obj10, *obj11;
     25extern  unsigned        *obj8, *obj9, *obj10, *obj11;
    2526extern  unsigned short  *LineBuf, *ScObAdr, *OldLine;
    2627extern  unsigned short  LineAtr;
     
    3233extern  short   cxval;
    3334
    34 extern  unsigned short  cg3[];
     35extern  int     cg3[][256];
    3536
    3637unsigned short  seqflag[16];            /* sequence flags */
  • ram/ptdkey.c

    r342a56f r0c834c5  
    4545extern  short   asig, astat;
    4646
    47 extern  short   dpepred, dpecpos, dpesucc;
     47extern  unsigned short  dpepred, dpecpos, dpesucc;
    4848
    4949extern  short   ptegood, ptedfok, ptestok, ptedsok, ptedtok;
  • ram/ptfield.c

    r342a56f r0c834c5  
    3131short   usevect = TRUE;
    3232
    33 extern  short   (*cx_key)(), (*cy_key)();
     33extern  void    (*cx_key)(void);
     34extern  void    (*cy_key)(void);
    3435#endif
    3536
    36 extern  short   (*xy_up)(), (*xy_dn)();
    37 extern  short   (*premove)(), (*pstmove)();
    38 extern  short   (*curtype)();
     37extern  void    (*xy_up)(void);
     38extern  void    (*xy_dn)(void);
     39extern  void    (*premove)(void);
     40extern  void    (*pstmove)(void);
     41extern  short   (*curtype)(void);
    3942
    4043extern  unsigned        fromfpu(unsigned fputime);
  • ram/ptread.c

    r342a56f r0c834c5  
    3030#endif
    3131
    32 extern  short   dpecpos;
    33 extern  short   dpepred;
    34 extern  short   dpesucc;
    35 extern  short   errno;
     32extern  unsigned short  dpecpos;
     33extern  unsigned short  dpepred;
     34extern  unsigned short  dpesucc;
     35extern  int     errno;
    3636extern  short   ptecpos;
    3737extern  short   ptepred;
     
    446446                if (stashp()) {         /* stash the patch */
    447447
    448                         nopatch(fp);
     448                        nopatch();
    449449                        ptecpos = 0;
    450450                        voidpb();
  • ram/ptselbx.c

    r342a56f r0c834c5  
    6666extern  short   ndvals[];
    6767
    68 extern  unsigned short  *obj11;
     68extern  unsigned        *obj11;
    6969
    7070extern  struct selbox   *csbp;
  • ram/rscript.c

    r342a56f r0c834c5  
    88extern  int     sqscan(char *ip);
    99
    10 extern  int     endflg;
     10extern  short   endflg;
    1111
    1212char    *script0[] = {          /* initialization score selection string */
  • ram/scordsp.c

    r342a56f r0c834c5  
    3838/* variables defined elsewhere */
    3939
    40 extern  short   (*point)();
     40extern  void    (*point)(short x, short y, short pen);
    4141
    4242extern  unsigned *obj0, *obj2, *obj3, *obj8, *obj11, *obj13, *obj14, *obj15;
     
    7777extern  char    *nedlbl[];              /* note edit labels */
    7878
    79 extern  short   kbobj[];                /* keyboard icon */
     79extern  int     kbobj[];                /* keyboard icon */
    8080
    8181extern  short   grpmode[];              /* group mode - 0 = play, 1 = stdby, 2 = rec */
  • ram/scread.c

    r342a56f r0c834c5  
    2020extern  long    schksum;                /* score checksum */
    2121
    22 extern  short   errno;                  /* system error number */
     22extern  int     errno;                  /* system error number */
    2323extern  short   lderrsw;                /* librarian error message switch */
    2424extern  short   lrasw;                  /* "Content" switch */
  • ram/scselbx.c

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

    r342a56f r0c834c5  
    5656/* variables defined elsewhere */
    5757
    58 extern  short           (*point)();     /* point plotting function pointer */
    59 extern  short           (*x_key)();     /* "X" key handler pointer */
     58extern  void            (*point)(short x, short y, short pen);
     59                                        /* point plotting function pointer */
     60extern  void            (*x_key)(void); /* "X" key handler pointer */
    6061
    6162extern  short           LftEdge;        /* left edge of current box */
  • ram/smscrl.c

    r342a56f r0c834c5  
    4242extern  short   vtyval;                         /* subment cursor y value */
    4343
    44 extern  unsigned short  *obj10;                 /* sequence status object pointer */
    45 
    46 extern  unsigned short  cg3[];                  /* character generator table */
     44extern  unsigned        *obj10;                 /* sequence status object pointer */
     45
     46extern  int     cg3[][256];                     /* character generator table */
    4747
    4848extern  char    ptdebuf[];                      /* patch data entry buffer */
     
    6161*/
    6262
    63 char    *(*BakLine)();                  /* next line backward function pointer */
    64 char    *(*FwdLine)();                  /* next line forward function pointer */
     63char    *(*BakLine)(void);              /* next line backward function pointer */
     64char    *(*FwdLine)(void);              /* next line forward function pointer */
    6565
    6666short   PdScDnF;                        /* scroll down flag */
  • ram/sqdisp.c

    r342a56f r0c834c5  
    2525extern  short   nokey(void);
    2626
    27 extern  char    *(*BakLine)(), *(*FwdLine)();
    28 
    29 extern  unsigned short  *obj8, *obj9, *obj10, *obj11;
     27extern  char    *(*BakLine)(void);
     28extern  char    *(*FwdLine)(void);
     29
     30extern  unsigned        *obj8, *obj9, *obj10, *obj11;
    3031extern  unsigned short  *LineBuf, *ScObAdr, *OldLine;
    3132extern  unsigned short  LineAtr;
     
    3839extern  short   cxval;
    3940
    40 extern  unsigned short  cg3[];
     41extern  int     cg3[][256];
    4142
    4243extern  char    TheBuf[];               /* display build buffer */
  • ram/sqexec.c

    r342a56f r0c834c5  
    4545extern  unsigned short  seqdupd;
    4646
    47 extern  unsigned short  *obj10;
    48 
    49 extern  unsigned short  cg3[];
     47extern  unsigned        *obj10;
     48
     49extern  int             cg3[][256];
    5050
    5151extern  struct wordq    ptefifo;
  • ram/sqfield.c

    r342a56f r0c834c5  
    2626#endif
    2727
    28 extern  short   (*xy_up)(), (*xy_dn)();
    29 extern  short   (*premove)(), (*pstmove)();
    30 extern  short   (*curtype)();
     28extern  void    (*xy_up)(void);
     29extern  void    (*xy_dn)(void);
     30extern  void    (*premove)(void);
     31extern  void    (*pstmove)(void);
     32extern  short   (*curtype)(void);
    3133
    3234extern  void    select(void);
  • ram/sqread.c

    r342a56f r0c834c5  
    1515#include "libdsp.h"
    1616
    17 extern  short   errno;                  /* system error number */
     17extern  int     errno;                  /* system error number */
    1818
    1919
  • ram/sqselbx.c

    r342a56f r0c834c5  
    3939extern  short   sqatype[];
    4040
    41 extern  unsigned short  *obj11;
     41extern  unsigned        *obj11;
    4242
    4343extern  struct seqent   seqtab[];
  • ram/swinit.c

    r342a56f r0c834c5  
    4040PFS     aswtbl[14];             /* assignment switch table */
    4141
    42 short   (*curmove)();           /* cursor move function */
    43 short   (*curtype)();           /* cursor type function */
    44 short   (*cx_key)();            /* x rate calculation */
    45 short   (*cx_upd)();            /* x update */
    46 short   (*cy_key)();            /* y rate calculation */
    47 short   (*cy_upd)();            /* y update */
    48 short   (*d_key)();             /* in-field data key processor */
    49 short   (*e_key)();             /* E key processor */
    50 short   (*m_key)();             /* M key processor */
    51 short   (*itxput)();            /* instrument menu text put function */
    52 short   (*not_fld)();           /* not-in-field data key processor */
    53 short   (*olddkey)();           /* saved d_key value */
    54 short   (*oldekey)();           /* saved e_key value */
    55 short   (*oldmkey)();           /* saved m_key value */
    56 short   (*oldxkey)();           /* saved x_key value */
    57 short   (*premove)();           /* cursor pre-move function */
    58 short   (*pstmove)();           /* cursor post-move function */
    59 short   (*vt_adv)();            /* vtyper data cursor advance function */
    60 short   (*vt_bsp)();            /* vtyper data cursor backspace function */
    61 short   (*vt_cdn)();            /* vtyper data cursor down function */
    62 short   (*vt_cup)();            /* vtyper data cursor up function */
    63 short   (*vt_dsp)();            /* vtyper display function */
    64 short   (*vt_stop)();           /* vtyper exit function */
    65 short   (*x_key)();             /* X key processor */
    66 short   (*xy_dn)();             /* cursor - finger on (down) */
    67 short   (*xy_up)();             /* cursor - finger off (up) */
     42void    (*curmove)(void);       /* cursor move function */
     43short   (*curtype)(void);       /* cursor type function */
     44void    (*cx_key)(void);        /* x rate calculation */
     45void    (*cx_upd)(void);        /* x update */
     46void    (*cy_key)(void);        /* y rate calculation */
     47void    (*cy_upd)(void);        /* y update */
     48void    (*d_key)(void);         /* in-field data key processor */
     49void    (*e_key)(void);         /* E key processor */
     50void    (*m_key)(void);         /* M key processor */
     51void    (*itxput)(short row, short col, char *txt, short tag);
     52                                /* instrument menu text put function */
     53void    (*not_fld)(short k);    /* not-in-field data key processor */
     54void    (*olddkey)(void);       /* saved d_key value */
     55void    (*oldekey)(void);       /* saved e_key value */
     56void    (*oldmkey)(void);       /* saved m_key value */
     57void    (*oldxkey)(void);       /* saved x_key value */
     58void    (*premove)(void);       /* cursor pre-move function */
     59void    (*pstmove)(void);       /* cursor post-move function */
     60void    (*vt_adv)(void);        /* vtyper data cursor advance function */
     61void    (*vt_bsp)(void);        /* vtyper data cursor backspace function */
     62void    (*vt_cdn)(void);        /* vtyper data cursor down function */
     63void    (*vt_cup)(void);        /* vtyper data cursor up function */
     64void    (*vt_dsp)(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
     65                                /* vtyper display function */
     66void    (*vt_stop)(void);       /* vtyper exit function */
     67void    (*x_key)(void);         /* X key processor */
     68void    (*xy_dn)(void);         /* cursor - finger on (down) */
     69void    (*xy_up)(void);         /* cursor - finger off (up) */
    6870
    6971short   *cratex;                /* cursor x rate table pointer */
  • ram/vtyper.c

    r342a56f r0c834c5  
    3535extern  short   vtwcol;         /* vtyper window left column */
    3636
    37 extern  short   (*vt_adv)();    /* vtyper data cursor advance function */
    38 extern  short   (*vt_bsp)();    /* vtyper data cursor backspace function */
    39 extern  short   (*vt_cdn)();    /* vtyper data cursor down function */
    40 extern  short   (*vt_cup)();    /* vtyper data cursor up function */
    41 extern  short   (*vt_stop)();   /* vtyper exit function */
    42 extern  short   (*vt_dsp)();    /* vtyper display function */
     37extern  void    (*vt_adv)(void);
     38                                /* vtyper data cursor advance function */
     39extern  void    (*vt_bsp)(void);
     40                                /* vtyper data cursor backspace function */
     41extern  void    (*vt_cdn)(void);
     42                                /* vtyper data cursor down function */
     43extern  void    (*vt_cup)(void);
     44                                /* vtyper data cursor up function */
     45extern  void    (*vt_stop)(void);
     46                                /* vtyper exit function */
     47extern  void    (*vt_dsp)(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
     48                                /* vtyper display function */
    4349
    4450extern  unsigned *vtobj;        /* vtyper display object pointer */
  • ram/wheel.c

    r342a56f r0c834c5  
    135135*/
    136136
    137 extern  short   (*curmove)();
    138 extern  short   (*cx_upd)();
    139 extern  short   (*cy_upd)();
    140 extern  short   (*xy_dn)();
    141 extern  short   (*xy_up)();
    142 extern  short   (*e_key)();
    143 extern  short   (*m_key)();
    144 extern  short   (*x_key)();
     137extern  void    (*curmove)(void);
     138extern  void    (*cx_upd)(void);
     139extern  void    (*cy_upd)(void);
     140extern  void    (*xy_dn)(void);
     141extern  void    (*xy_up)(void);
     142extern  void    (*e_key)(void);
     143extern  void    (*m_key)(void);
     144extern  void    (*x_key)(void);
    145145
    146146extern  short   asig;
  • ram/wsdsp.c

    r342a56f r0c834c5  
    2626extern  unsigned        exp_c(unsigned c);
    2727
    28 extern  int     (*point)();
     28extern  void    (*point)(short x, short y, short pen);
    2929
    3030extern  unsigned        *obj0;
  • rom/romp.c

    r342a56f r0c834c5  
    142142
    143143#if     ON_B700
    144 extern  int     B_log_s;
    145 extern  int     B_dbg_s;
     144extern  short   B_log_s;
     145extern  short   B_dbg_s;
    146146extern  char    *B_buf_a;
    147147extern  int     _bpbin;
  • vlib/lseg.c

    r342a56f r0c834c5  
    77*/
    88
    9 short   (*point)();
     9void    (*point)(short x, short y, short pen);
    1010
    1111#define ABS(x)  ((x) < 0 ? (-(x)) : (x))
  • vlib/vhinit.c

    r342a56f r0c834c5  
    2222#define VREG(h,v)       ((h<<10)|v)
    2323
    24 extern  int     cgtable[];
     24extern  int     cgtable[][256];
    2525extern  int     cg_rows;
    2626
Note: See TracChangeset for help on using the changeset viewer.