Changeset 7258c6a in buchla-68k for ram/ldselbx.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/ldselbx.c

    r0292fbb r7258c6a  
    2828#include "scfns.h"
    2929
    30 extern  void    ldswin(short n);
     30extern  void    ldswin(int16_t n);
    3131extern  void    advlcur(void);
    3232extern  void    bsplcur(void);
    33 extern  void    ttcpos(short row, short col);
    34 extern  short   fcindex(void);
    35 extern  short   storit(void);
    36 extern  int     showsiz(void);
    37 extern  short   get_asg(void);
    38 extern  short   get_orc(short lorh, short kind);
    39 extern  short   get_tun(void);
    40 extern  short   get_wav(void);
     33extern  void    ttcpos(int16_t row, int16_t col);
     34extern  int16_t fcindex(void);
     35extern  int16_t storit(void);
     36extern  int16_t showsiz(void);
     37extern  int16_t get_asg(void);
     38extern  int16_t get_orc(int16_t lorh, int16_t kind);
     39extern  int16_t get_tun(void);
     40extern  int16_t get_wav(void);
    4141extern  void    nokey(void);
    42 extern  short   ldline(short cy);
    43 extern  short   lin2slt(short line);
    44 extern  void    dslslot(short slot, unsigned fg, short row);
    45 extern  void    vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf);
    46 extern  void    ldpoint(short x, short y, short pen);
    47 extern  short   rd_ec(FILE *fp, char *to, long len);
     42extern  int16_t ldline(int16_t cy);
     43extern  int16_t lin2slt(int16_t line);
     44extern  void    dslslot(int16_t slot, uint16_t fg, int16_t row);
     45extern  void    vtdisp(uint16_t *obj, uint16_t fg, uint16_t bg, int16_t row, int16_t col, int8_t *buf);
     46extern  void    ldpoint(int16_t x, int16_t y, int16_t pen);
     47extern  int16_t rd_ec(FILE *fp, int8_t *to, int32_t len);
    4848extern  void    fcreset(void);
    49 extern  short   ftkind(short ns);
    50 extern  void    ldwmsg(char *line1, char *line2, char *line3, unsigned fgcolor, unsigned bgcolor);
    51 extern  void    ldbusy(char *msg);
    52 extern  short   ckstor(void);
    53 extern  short   get_pat(void);
    54 extern  short   get_scr(void);
    55 
    56 extern  unsigned        exp_c(unsigned c);
    57 
    58 extern  char    *slotnam(unsigned slot, unsigned kind);
     49extern  int16_t ftkind(int16_t ns);
     50extern  void    ldwmsg(int8_t *line1, int8_t *line2, int8_t *line3, uint16_t fgcolor, uint16_t bgcolor);
     51extern  void    ldbusy(int8_t *msg);
     52extern  int16_t ckstor(void);
     53extern  int16_t get_pat(void);
     54extern  int16_t get_scr(void);
     55
     56extern  uint16_t        exp_c(uint16_t c);
     57
     58extern  int8_t  *slotnam(uint16_t slot, uint16_t kind);
    5959
    6060/*
    … …  
    6666#endif
    6767
    68 extern  void    (*point)(short x, short y, short pen);
    69 
    70 extern  short   asmode;
    71 extern  short   catin;
    72 extern  short   cxrate;
    73 extern  short   cxval;
    74 extern  short   cyrate;
    75 extern  short   cyval;
    76 extern  int     errno;
    77 extern  short   gomode;
    78 extern  short   hitcx;
    79 extern  short   hitcy;
    80 extern  short   ismode;
    81 extern  short   lasgsw;
    82 extern  short   ldelsw;
    83 extern  short   lderrsw;
    84 extern  short   ldkind;
    85 extern  short   ldrow;
    86 extern  short   ldslot;
    87 extern  short   lksel;
    88 extern  short   lmwtype;
    89 extern  short   lorchl;
    90 extern  short   lorchsw;
    91 extern  short   lorclsw;
    92 extern  short   ldpass;
    93 extern  short   lpatsw;
    94 extern  short   lrasw;
    95 extern  short   lscrsw;
    96 extern  short   lselsw;
    97 extern  short   lseqsw;
    98 extern  short   lstrsw;
    99 extern  short   ltagged;
    100 extern  short   ltunsw;
    101 extern  short   lwavsw;
    102 extern  short   ndisp;
    103 extern  short   oldpk;
    104 extern  short   oldsl;
    105 extern  short   pkctrl;
    106 extern  short   sliders;
    107 extern  short   stcrow;
    108 extern  short   stccol;
    109 extern  short   tagslot;
    110 
    111 extern  unsigned        *librob;
    112 
    113 extern  short   ldmap[];
    114 extern  short   scsizes[][2];
    115 
    116 extern  short   ldbox[][8];
     68extern  void    (*point)(int16_t x, int16_t y, int16_t pen);
     69
     70extern  int16_t asmode;
     71extern  int16_t catin;
     72extern  int16_t cxrate;
     73extern  int16_t cxval;
     74extern  int16_t cyrate;
     75extern  int16_t cyval;
     76extern  int16_t errno;
     77extern  int16_t gomode;
     78extern  int16_t hitcx;
     79extern  int16_t hitcy;
     80extern  int16_t ismode;
     81extern  int16_t lasgsw;
     82extern  int16_t ldelsw;
     83extern  int16_t lderrsw;
     84extern  int16_t ldkind;
     85extern  int16_t ldrow;
     86extern  int16_t ldslot;
     87extern  int16_t lksel;
     88extern  int16_t lmwtype;
     89extern  int16_t lorchl;
     90extern  int16_t lorchsw;
     91extern  int16_t lorclsw;
     92extern  int16_t ldpass;
     93extern  int16_t lpatsw;
     94extern  int16_t lrasw;
     95extern  int16_t lscrsw;
     96extern  int16_t lselsw;
     97extern  int16_t lseqsw;
     98extern  int16_t lstrsw;
     99extern  int16_t ltagged;
     100extern  int16_t ltunsw;
     101extern  int16_t lwavsw;
     102extern  int16_t ndisp;
     103extern  int16_t oldpk;
     104extern  int16_t oldsl;
     105extern  int16_t pkctrl;
     106extern  int16_t sliders;
     107extern  int16_t stcrow;
     108extern  int16_t stccol;
     109extern  int16_t tagslot;
     110
     111extern  uint16_t        *librob;
     112
     113extern  int16_t ldmap[];
     114extern  int16_t scsizes[][2];
     115
     116extern  int16_t ldbox[][8];
    117117
    118118extern  struct  scndx   sindex[];
    … …  
    125125extern  LPF     t_libr[];
    126126
    127 extern  char    bfs[];
    128 extern  char    ldfile[];
    129 extern  char    ldcmnt[];
    130 
    131 extern  char    loadedf[][8];
    132 extern  char    loadedc[][37];
     127extern  int8_t  bfs[];
     128extern  int8_t  ldfile[];
     129extern  int8_t  ldcmnt[];
     130
     131extern  int8_t  loadedf[][8];
     132extern  int8_t  loadedc[][37];
    133133
    134134/* forward references */
    135135
    136 short   bx_null(void);
    137 short   ldfnbox(short n);
    138 
    139 /*
    140 
    141 */
    142 
    143 short   ft2lt[] = {     /* file type to load type map */
     136int16_t bx_null(void);
     137int16_t ldfnbox(int16_t n);
     138
     139/*
     140
     141*/
     142
     143int16_t ft2lt[] = {     /* file type to load type map */
    144144
    145145        LT_ASG,
    … …  
    181181*/
    182182
    183 void skperr(short sn)
    184 {
    185         char    scid[32];
    186         char    erms[64];
     183void skperr(int16_t sn)
     184{
     185        int8_t  scid[32];
     186        int8_t  erms[64];
    187187
    188188        clrlsel();
    … …  
    205205*/
    206206
    207 short skp_ec(FILE *fp, long len)
    208 {
    209         register long count;
    210         register int c;
    211         char errbuf[64];
     207int16_t skp_ec(FILE *fp, int32_t len)
     208{
     209        register int32_t count;
     210        register int16_t c;
     211        int8_t errbuf[64];
    212212
    213213        for (count = 0; count < len; count++) {
    … …  
    220220
    221221                        ldermsg("Unexpected EOF",
    222                                 errbuf, (char *)NULL, LD_EMCF, LD_EMCB);
     222                                errbuf, (int8_t *)NULL, LD_EMCF, LD_EMCB);
    223223
    224224#if     DEBUGIT
    … …  
    246246*/
    247247
    248 short scskip(FILE *fp, short ns)
    249 {
    250         register short ehdr, go;
    251         char etype;
    252         char erms[64];
     248int16_t scskip(FILE *fp, int16_t ns)
     249{
     250        register int16_t ehdr, go;
     251        int8_t etype;
     252        int8_t erms[64];
    253253
    254254        go = TRUE;
    255255
    256         if (skp_ec(fp, (long)(N_SECTS * 12))) {         /* skip section times */
     256        if (skp_ec(fp, (int32_t)(N_SECTS * 12))) {      /* skip section times */
    257257
    258258                skperr(ns);
    … …  
    276276        }
    277277
    278         if (skp_ec(fp, (long)(scsizes[etype][1] - 1))) {        /* skip data */
     278        if (skp_ec(fp, (int32_t)(scsizes[etype][1] - 1))) {     /* skip data */
    279279
    280280                skperr(ns);
    … …  
    295295                /* skip the event's data */
    296296
    297                 if (skp_ec(fp, (long)(scsizes[etype][1] - 1))) {
     297                if (skp_ec(fp, (int32_t)(scsizes[etype][1] - 1))) {
    298298
    299299                        skperr(ns);
    … …  
    319319*/
    320320
    321 void ldermsg(char *p1, char *p2, char *p3, unsigned p4, unsigned p5)
    322 {
    323         char msgbuf[64];
     321void ldermsg(int8_t *p1, int8_t *p2, int8_t *p3, uint16_t p4, uint16_t p5)
     322{
     323        int8_t msgbuf[64];
    324324
    325325        if (NOT lderrsw) {                      /* put up new messages only */
    … …  
    406406*/
    407407
    408 void savefc(short kind)
    409 {
    410         short fi;
     408void savefc(int16_t kind)
     409{
     410        int16_t fi;
    411411
    412412        fi = ft2lt[kind - 1];
    … …  
    429429*/
    430430
    431 short lcancel(short lct)
    432 {
    433         short rc;
     431int16_t lcancel(int16_t lct)
     432{
     433        int16_t rc;
    434434
    435435        rc = FALSE;
    … …  
    467467*/
    468468
    469 void dpy_scr(unsigned color, short ns)
    470 {
    471         char buf[40];
    472         long scl;
     469void dpy_scr(uint16_t color, int16_t ns)
     470{
     471        int8_t buf[40];
     472        int32_t scl;
    473473
    474474        if (ndisp NE 0)
    … …  
    505505void lst_scr(void)
    506506{
    507         register short i;
    508         unsigned cx;
     507        register int16_t i;
     508        uint16_t cx;
    509509
    510510        if (ndisp NE 0)
    … …  
    547547*/
    548548
    549 short ndx_scr(short slot)
     549int16_t ndx_scr(int16_t slot)
    550550{
    551551        register FILE *fp;
    552         register short i;
    553         register long rlen;
    554         long rdlen;
    555         char msgbuf1[64];
    556         char msgbuf2[64];
     552        register int16_t i;
     553        register int32_t rlen;
     554        int32_t rdlen;
     555        int8_t msgbuf1[64];
     556        int8_t msgbuf2[64];
    557557
    558558        ldpass = 0;
    … …  
    585585
    586586                ldermsg("Seek failure",
    587                         (char *)NULL, msgbuf2,
     587                        (int8_t *)NULL, msgbuf2,
    588588                        LD_EMCF, LD_EMCB);
    589589
    … …  
    740740*/
    741741
    742 short getit(void)
     742int16_t getit(void)
    743743{
    744744        ldkind = ftkind(ldslot);
    … …  
    747747
    748748                ldermsg("Unknown file type",
    749                         (char *)NULL, (char *)NULL,
     749                        (int8_t *)NULL, (int8_t *)NULL,
    750750                        LD_EMCF, LD_EMCB);
    751751
    … …  
    814814
    815815                ldermsg("ldkind bad",
    816                         (char *)NULL, (char *)NULL,
     816                        (int8_t *)NULL, (int8_t *)NULL,
    817817                        LD_EMCF, LD_EMCB);
    818818
    … …  
    852852*/
    853853
    854 short ldfnbox(short n)
    855 {
    856         register short col, i, slot, sn;
     854int16_t ldfnbox(int16_t n)
     855{
     856        register int16_t col, i, slot, sn;
    857857
    858858        col = hitcx >> 3;
Note: See TracChangeset for help on using the changeset viewer.