Changeset 7258c6a in buchla-68k for ram/libdsp.c


Ignore:
Timestamp:
07/09/2017 04:45:34 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
8618599
Parents:
0292fbb
Message:

Use standard integer types.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ram/libdsp.c

    r0292fbb r7258c6a  
    4545#endif
    4646
    47 extern  short   lcancel(short lct);
    48 
    49 extern  long    ptsizer(void);
    50 extern  long    scsizer(void);
    51 extern  long    sqsizer(void);
     47extern  int16_t lcancel(int16_t lct);
     48
     49extern  int32_t ptsizer(void);
     50extern  int32_t scsizer(void);
     51extern  int32_t sqsizer(void);
    5252
    5353/*
    … …  
    5757/* things defined elsewhere */
    5858
    59 extern  void    (*point)(short x, short y, short pen);
    60 
    61 extern  void    vbfill4(unsigned *obj, short obwidth, short xmin, short ymin, short xmax, short ymax, unsigned color);
    62 extern  void    tsplot4(int *obase, int nw, int fg, int row, int col, char *str, int pitch);
    63 extern  void    lseg(short x1, short y1, short x2, short y2, short t);
     59extern  void    (*point)(int16_t x, int16_t y, int16_t pen);
     60
     61extern  void    vbfill4(uint16_t *obj, int16_t obwidth, int16_t xmin, int16_t ymin, int16_t xmax, int16_t ymax, uint16_t color);
     62extern  void    tsplot4(int16_t *obase, int16_t nw, int16_t fg, int16_t row, int16_t col, int8_t *str, int16_t pitch);
     63extern  void    lseg(int16_t x1, int16_t y1, int16_t x2, int16_t y2, int16_t t);
    6464extern  void    clrlsel(void);
    6565extern  void    _clsvol(void);
    66 extern  void    setgc(short xv, short yv);
    67 
    68 extern  int     errno;
    69 extern  int     _bpbin;
    70 
    71 extern  short   chtime;
    72 extern  short   cmtype;
    73 extern  short   cvtime;
    74 extern  short   cxval;
    75 extern  short   cyval;
    76 extern  short   sgcsw;
    77 extern  short   stccol;
    78 extern  short   stcrow;
    79 extern  short   submenu;
    80 extern  short   thcwval;
    81 extern  short   tvcwval;
    82 
    83 extern  unsigned        *obj0, *obj2;
    84 
    85 extern  char    *ldbxlb0[];
    86 extern  char    vtlin1[], vtlin2[], vtlin3[];
    87 
    88 extern  short   ldbox[][8];
     66extern  void    setgc(int16_t xv, int16_t yv);
     67
     68extern  int16_t errno;
     69extern  int16_t _bpbin;
     70
     71extern  int16_t chtime;
     72extern  int16_t cmtype;
     73extern  int16_t cvtime;
     74extern  int16_t cxval;
     75extern  int16_t cyval;
     76extern  int16_t sgcsw;
     77extern  int16_t stccol;
     78extern  int16_t stcrow;
     79extern  int16_t submenu;
     80extern  int16_t thcwval;
     81extern  int16_t tvcwval;
     82
     83extern  uint16_t        *obj0, *obj2;
     84
     85extern  int8_t  *ldbxlb0[];
     86extern  int8_t  vtlin1[], vtlin2[], vtlin3[];
     87
     88extern  int16_t ldbox[][8];
    8989extern  struct  instdef idefs[];
    9090
    … …  
    9595*/
    9696
    97 extern  unsigned *librob;               /* display object pointer */
    98 
    99 extern  short   catin;                  /* catalog read in flag */
    100 extern  short   lrasw;                  /* append (TRUE) / replace (FALSE) score */
    101 extern  short   lorchl;                 /* hi (TRUE) / lo (FALSE) orchestra */
    102 extern  short   ldrow;                  /* fetch select row */
    103 extern  short   ldslot;                 /* fetch select slot */
    104 extern  short   lselsw;                 /* fetch select switch */
    105 extern  short   ldkind;                 /* fetch file type */
    106 extern  short   lstrsw;                 /* store state switch */
    107 extern  short   lasgsw;                 /* assignments store switch */
    108 extern  short   lksel;                  /* librarian key slot selector */
    109 extern  short   lorchsw;                /* hi orchestra (21 - 40) store switch */
    110 extern  short   lorclsw;                /* lo orchestra (01 - 20) store switch */
    111 extern  short   lpatsw;                 /* patch store switch */
    112 extern  short   lscrsw;                 /* score store switch */
    113 extern  short   lseqsw;                 /* sequence store switch */
    114 extern  short   ltunsw;                 /* tunings store switch */
    115 extern  short   lwavsw;                 /* waveshapes store switch */
    116 extern  short   ldelsw;                 /* delete switch */
    117 extern  short   lderrsw;                /* error message displayed switch */
    118 extern  short   ldidsiz;                /* getcat() did showsiz() switch */
    119 extern  short   lmwtype;                /* librarian message window type */
    120 extern  short   ltagged;                /* load tag update in progress flag */
    121 extern  short   ndisp;                  /* display number currently up */
    122 
    123 extern  long    lcsum;                  /* library checksum */
    124 extern  long    ndbytes;                /* bytes needed for storage */
    125 
    126 extern  char    *lmln22;                /* message window line 22 */
    127 extern  char    *lmln23;                /* message window line 23 */
    128 extern  char    *lmln24;                /* message window line 24 */
    129 
    130 extern  char    ldfile[9];              /* file name field */
    131 extern  char    ldcmnt[38];             /* comment field */
    132 extern  char    ldmsg1[65];             /* messsage build area 1 */
    133 extern  char    ldmsg2[65];             /* messsage build area 2 */
    134 extern  char    ldmsg3[65];             /* messsage build area 3 */
    135 extern  char    errbuf[65];             /* error message build area */
     97extern  uint16_t *librob;               /* display object pointer */
     98
     99extern  int16_t catin;                  /* catalog read in flag */
     100extern  int16_t lrasw;                  /* append (TRUE) / replace (FALSE) score */
     101extern  int16_t lorchl;                 /* hi (TRUE) / lo (FALSE) orchestra */
     102extern  int16_t ldrow;                  /* fetch select row */
     103extern  int16_t ldslot;                 /* fetch select slot */
     104extern  int16_t lselsw;                 /* fetch select switch */
     105extern  int16_t ldkind;                 /* fetch file type */
     106extern  int16_t lstrsw;                 /* store state switch */
     107extern  int16_t lasgsw;                 /* assignments store switch */
     108extern  int16_t lksel;                  /* librarian key slot selector */
     109extern  int16_t lorchsw;                /* hi orchestra (21 - 40) store switch */
     110extern  int16_t lorclsw;                /* lo orchestra (01 - 20) store switch */
     111extern  int16_t lpatsw;                 /* patch store switch */
     112extern  int16_t lscrsw;                 /* score store switch */
     113extern  int16_t lseqsw;                 /* sequence store switch */
     114extern  int16_t ltunsw;                 /* tunings store switch */
     115extern  int16_t lwavsw;                 /* waveshapes store switch */
     116extern  int16_t ldelsw;                 /* delete switch */
     117extern  int16_t lderrsw;                /* error message displayed switch */
     118extern  int16_t ldidsiz;                /* getcat() did showsiz() switch */
     119extern  int16_t lmwtype;                /* librarian message window type */
     120extern  int16_t ltagged;                /* load tag update in progress flag */
     121extern  int16_t ndisp;                  /* display number currently up */
     122
     123extern  int32_t lcsum;                  /* library checksum */
     124extern  int32_t ndbytes;                /* bytes needed for storage */
     125
     126extern  int8_t  *lmln22;                /* message window line 22 */
     127extern  int8_t  *lmln23;                /* message window line 23 */
     128extern  int8_t  *lmln24;                /* message window line 24 */
     129
     130extern  int8_t  ldfile[9];              /* file name field */
     131extern  int8_t  ldcmnt[38];             /* comment field */
     132extern  int8_t  ldmsg1[65];             /* messsage build area 1 */
     133extern  int8_t  ldmsg2[65];             /* messsage build area 2 */
     134extern  int8_t  ldmsg3[65];             /* messsage build area 3 */
     135extern  int8_t  errbuf[65];             /* error message build area */
    136136
    137137extern  struct  octent  *ldoct;         /* object control table pointer */
    … …  
    141141/* forward references */
    142142
    143 void    ldpoint(short x, short y, short pen);
    144 
    145 /*
    146 
    147 */
    148 
    149 char    *ftypes[][3] = {        /* file types  (must match libdsp.h) */
     143void    ldpoint(int16_t x, int16_t y, int16_t pen);
     144
     145/*
     146
     147*/
     148
     149int8_t  *ftypes[][3] = {        /* file types  (must match libdsp.h) */
    150150
    151151        {"ASG", "Assignmnt", "Assignmnt"},      /* FT_ASG */
    … …  
    160160};
    161161
    162 char    ld_em1[] = "No files stored on disk";
    163 char    ld_em2[] = " by this operation";
    164 
    165 short   lbrpal[16][3] = {       /* librarian color palette */
     162int8_t  ld_em1[] = "No files stored on disk";
     163int8_t  ld_em2[] = " by this operation";
     164
     165int16_t lbrpal[16][3] = {       /* librarian color palette */
    166166
    167167        {0, 0, 0},      /* 0 */
    … …  
    196196*/
    197197
    198 short ftkind(short ns)
    199 {
    200         register short i;
     198int16_t ftkind(int16_t ns)
     199{
     200        register int16_t i;
    201201
    202202        for (i = 0; i < NFTYPES; i++)
    … …  
    216216*/
    217217
    218 char *fctstr(short ns, short just)
    219 {
    220         static char fcbad[11];
    221         register short i;
     218int8_t *fctstr(int16_t ns, int16_t just)
     219{
     220        static int8_t fcbad[11];
     221        register int16_t i;
    222222
    223223        for (i = 0; i < NFTYPES; i++)
    … …  
    239239*/
    240240
    241 short ocslot(short slot)
     241int16_t ocslot(int16_t slot)
    242242{
    243243        if (memcmp(filecat[slot].fcsize, "000", 3)
    … …  
    254254*/
    255255
    256 short ldline(short cy)
     256int16_t ldline(int16_t cy)
    257257{
    258258        if (cy > 292)
    … …  
    277277*/
    278278
    279 short lin2slt(short line)
    280 {
    281         register short slot, row;
     279int16_t lin2slt(int16_t line)
     280{
     281        register int16_t slot, row;
    282282
    283283        row = 0;
    … …  
    297297*/
    298298
    299 unsigned exp_c(unsigned c)
     299uint16_t exp_c(uint16_t c)
    300300{
    301301        c &= 0x000F;            /* use low 4 bits as the basis */
    … …  
    316316*/
    317317
    318 void ldwmsg(char *line1, char *line2, char *line3, unsigned fgcolor, unsigned bgcolor)
     318void ldwmsg(int8_t *line1, int8_t *line2, int8_t *line3, uint16_t fgcolor, uint16_t bgcolor)
    319319{
    320320        lderrsw = FALSE;                /* clear error switch */
    … …  
    336336                ldbox[10][2], ldbox[10][3], bgcolor);
    337337
    338         if ((char *)NULL NE line1)
     338        if ((int8_t *)NULL NE line1)
    339339                tsplot4(librob, 64, fgcolor, ldbox[10][6], ldbox[10][7],
    340340                        line1, 14);
    341341
    342         if ((char *)NULL NE line2)
     342        if ((int8_t *)NULL NE line2)
    343343                tsplot4(librob, 64, fgcolor, (ldbox[10][6] + 1), ldbox[10][7],
    344344                        line2, 14);
    345345
    346         if ((char *)NULL NE line3)
     346        if ((int8_t *)NULL NE line3)
    347347                tsplot4(librob, 64, fgcolor, (ldbox[10][6] + 2), ldbox[10][7],
    348348                        line3, 14);
    … …  
    359359*/
    360360
    361 long chksum(char *area, long len)
    362 {
    363         register long cs, i;
     361int32_t chksum(int8_t *area, int32_t len)
     362{
     363        register int32_t cs, i;
    364364
    365365        cs = 0L;
    … …  
    377377*/
    378378
    379 void makelh(short kind)
     379void makelh(int16_t kind)
    380380{
    381381        memset(ldhead.l_csum, '?', 8);                  /* checksum */
    … …  
    384384        memcpy(ldhead.l_cmnt, ldcmnt, 37);              /* comment */
    385385
    386         lcsum = chksum(ldhead.l_name, (long)(LH_LEN - 8));
     386        lcsum = chksum(ldhead.l_name, (int32_t)(LH_LEN - 8));
    387387}
    388388
    … …  
    397397*/
    398398
    399 void ldbusy(char *msg)
     399void ldbusy(int8_t *msg)
    400400{
    401401        if (ndisp NE 0)
    402402                return;
    403403
    404         ldwmsg((char *)NULL, "    Busy - Please stand by", msg,
     404        ldwmsg((int8_t *)NULL, "    Busy - Please stand by", msg,
    405405                ldbox[10][4], ldbox[10][5]);
    406406}
    … …  
    412412*/
    413413
    414 void noslot(int fctype)
     414void noslot(int16_t fctype)
    415415{
    416416        sprintf(ldmsg1, " the %s file,", ftypes[fctype - 1][2]);
    … …  
    430430*/
    431431
    432 short wr_ec(FILE *fp, char *from, long len)
    433 {
    434         register long count;
    435         register char c;
     432int16_t wr_ec(FILE *fp, int8_t *from, int32_t len)
     433{
     434        register int32_t count;
     435        register int8_t c;
    436436        for (count = 0; count < len; count++) {
    437437
    … …  
    444444
    445445                        ldermsg("Disk may be full",
    446                                 errbuf, (char *)NULL, LD_EMCF, LD_EMCB);
     446                                errbuf, (int8_t *)NULL, LD_EMCF, LD_EMCB);
    447447
    448448                        fclose(fp);
    … …  
    470470*/
    471471
    472 short rd_ec(FILE *fp, char *to, long len)
    473 {
    474         register long count;
    475         register int c;
     472int16_t rd_ec(FILE *fp, int8_t *to, int32_t len)
     473{
     474        register int32_t count;
     475        register int16_t c;
    476476
    477477        for (count = 0; count < len; count++) {
    … …  
    484484
    485485                        ldermsg("Unexpected EOF",
    486                                 errbuf, (char *)NULL, LD_EMCF, LD_EMCB);
     486                                errbuf, (int8_t *)NULL, LD_EMCF, LD_EMCB);
    487487
    488488                        fclose(fp);
    … …  
    516516*/
    517517
    518 short srchcat(char extn[])
    519 {
    520         register short fcslot;
     518int16_t srchcat(int8_t extn[])
     519{
     520        register int16_t fcslot;
    521521
    522522        for (fcslot = 0; fcslot < FCMAX; fcslot++) {
    … …  
    539539void clrcat(void)
    540540{
    541         register short i;
    542         char fcebuf[1 + sizeof (struct fcat)];
     541        register int16_t i;
     542        int8_t fcebuf[1 + sizeof (struct fcat)];
    543543
    544544        for (i = 0; i < FCMAX; i++) {
    … …  
    564564*/
    565565
    566 short clreq(long bytes)
    567 {
    568         register short rclusts;
    569         register long clmask;
     566int16_t clreq(int32_t bytes)
     567{
     568        register int16_t rclusts;
     569        register int32_t clmask;
    570570
    571571        clmask = _thebpb->clsizb - 1;
    … …  
    587587*/
    588588
    589 short spacerq(short kind)
    590 {
    591         register short howmuch;
    592         register long k;
     589int16_t spacerq(int16_t kind)
     590{
     591        register int16_t howmuch;
     592        register int32_t k;
    593593
    594594        k = 0L;
    … …  
    598598        case FT_ASG:    /* Assignment file */
    599599
    600                 k = (sizeof (struct asgent) * (long)NASGLIB) + LH_LEN;
     600                k = (sizeof (struct asgent) * (int32_t)NASGLIB) + LH_LEN;
    601601                break;
    602602
    … …  
    605605        case FT_ORC:
    606606
    607                 k = ((OR_LEN1 + (2 * OR_LEN2)) * (long)NINORC) + LH_LEN;
     607                k = ((OR_LEN1 + (2 * OR_LEN2)) * (int32_t)NINORC) + LH_LEN;
    608608                break;
    609609
    … …  
    630630        case FT_WAV:    /* Waveshape file */
    631631
    632                 k = ((long)NUMWAVS * OR_LEN2) + LH_LEN;
     632                k = ((int32_t)NUMWAVS * OR_LEN2) + LH_LEN;
    633633                break;
    634634
    … …  
    656656*/
    657657
    658 short ckstor(void)
     658int16_t ckstor(void)
    659659{
    660660        if (lasgsw)                     /* assignments */
    … …  
    695695*/
    696696
    697 short ckdups(void)
     697int16_t ckdups(void)
    698698{
    699699        if (lasgsw)
    … …  
    747747*/
    748748
    749 int showsiz(void)
    750 {
    751         register short dcap, drem, dused;
     749int16_t showsiz(void)
     750{
     751        register int16_t dcap, drem, dused;
    752752
    753753        _bpbin = FALSE;         /* force disk to be read */
    … …  
    758758
    759759                ldermsg("Disk not ready ?",
    760                         (char *)NULL, (char *)NULL,
     760                        (int8_t *)NULL, (int8_t *)NULL,
    761761                        LD_EMCF, LD_EMCB);
    762762
    … …  
    785785*/
    786786
    787 short getcat(short msgsw)
     787int16_t getcat(int16_t msgsw)
    788788{
    789789        register FILE *fp;
    790         int     rc, fesize;
     790        int16_t rc, fesize;
    791791
    792792        ldidsiz = FALSE;                /* we didn't show the size (yet) */
    … …  
    837837
    838838                        ldermsg("File catalog is NULL",
    839                                 (char *)NULL, (char *)NULL,
     839                                (int8_t *)NULL, (int8_t *)NULL,
    840840                                LD_EMCF, LD_EMCB);
    841841
    … …  
    865865*/
    866866
    867 short putcat(void)
     867int16_t putcat(void)
    868868{
    869869        register FILE *fp;
    870         register int    i, rc, fesize;
     870        register int16_t        i, rc, fesize;
    871871
    872872        for (i = 0; i < FCMAX; i++) {           /* clean up the catalog */
    … …  
    885885
    886886                ldermsg("Unable to open catalog",
    887                                 (char *)NULL, ldmsg2, LD_EMCF, LD_EMCB);
     887                                (int8_t *)NULL, ldmsg2, LD_EMCF, LD_EMCB);
    888888
    889889                return(FAILURE);
    … …  
    914914
    915915                        ldermsg("Disk may be full",
    916                                 (char *)NULL, ldmsg2,
     916                                (int8_t *)NULL, ldmsg2,
    917917                                LD_EMCF, LD_EMCB);
    918918                }
    … …  
    938938*/
    939939
    940 void dslslot(short slot, unsigned fg, short row)
    941 {
    942         register unsigned color, chilon, chilorc;
    943         short c;
    944         char buf[40];
     940void dslslot(int16_t slot, uint16_t fg, int16_t row)
     941{
     942        register uint16_t color, chilon, chilorc;
     943        int16_t c;
     944        int8_t buf[40];
    945945
    946946        if (ndisp NE 0)
    … …  
    992992*/
    993993
    994 short showcat(void)
    995 {
    996         register short i, fcslot, fcrow, fcount;
    997         register unsigned color;
     994int16_t showcat(void)
     995{
     996        register int16_t i, fcslot, fcrow, fcount;
     997        register uint16_t color;
    998998
    999999        if (ndisp NE 0)
    … …  
    10381038*/
    10391039
    1040 short fcindex(void)
     1040int16_t fcindex(void)
    10411041{
    10421042        if (NOT lderrsw)
    … …  
    11081108*/
    11091109
    1110 short getslot(void)
    1111 {
    1112         register short i;
     1110int16_t getslot(void)
     1111{
     1112        register int16_t i;
    11131113
    11141114        for (i = 0; i < FCMAX; i++)
    … …  
    11251125*/
    11261126
    1127 char *slotnam(unsigned slot, unsigned kind)
    1128 {
    1129         static  char thename[13];
     1127int8_t *slotnam(uint16_t slot, uint16_t kind)
     1128{
     1129        static  int8_t thename[13];
    11301130
    11311131        sprintf(thename, "M7SLOT%02.2u.%-3.3s",
    … …  
    11451145*/
    11461146
    1147 short wrtfile(short kind)
    1148 {
    1149         register short slot, flspace, tkind;
    1150         char sizetmp[4];
     1147int16_t wrtfile(int16_t kind)
     1148{
     1149        register int16_t slot, flspace, tkind;
     1150        int8_t sizetmp[4];
    11511151
    11521152        slot = getslot();
    … …  
    12291229
    12301230                ldermsg("bad wrtfile argument:",
    1231                         ldmsg1, (char *)NULL, LD_EMCF, LD_EMCB);
     1231                        ldmsg1, (int8_t *)NULL, LD_EMCF, LD_EMCB);
    12321232
    12331233                return(FAILURE);
    … …  
    12721272*/
    12731273
    1274 short writem(void)
     1274int16_t writem(void)
    12751275{
    12761276        if (lasgsw)                     /* Assignments */
    … …  
    13191319*/
    13201320
    1321 short storit(void)
    1322 {
    1323         register int weneed, i, slotnd, slothv;
    1324         int     rc, drem;
     1321int16_t storit(void)
     1322{
     1323        register int16_t weneed, i, slotnd, slothv;
     1324        int16_t rc, drem;
    13251325
    13261326        /* make sure the file is named */
    … …  
    14911491void advlcur(void)
    14921492{
    1493         register short newcol;
     1493        register int16_t newcol;
    14941494
    14951495        if (infield(stcrow, stccol, curfet))
    … …  
    15151515void bsplcur(void)
    15161516{
    1517         register short newcol;
     1517        register int16_t newcol;
    15181518
    15191519        if (infield(stcrow, stccol, curfet))
    … …  
    15411541*/
    15421542
    1543 void ldswin(short n)
    1544 {
    1545         register short cx, cy;
     1543void ldswin(int16_t n)
     1544{
     1545        register int16_t cx, cy;
    15461546
    15471547        if (ndisp NE 0)
    … …  
    16951695void lwins(void)
    16961696{
    1697         register short i;
     1697        register int16_t i;
    16981698
    16991699        for (i = 0; i < 11; i++)
    … …  
    17071707*/
    17081708
    1709 void ldpoint(short x, short y, short pen)
     1709void ldpoint(int16_t x, int16_t y, int16_t pen)
    17101710{
    17111711        if (v_regs[5] & 0x0180)
Note: See TracChangeset for help on using the changeset viewer.