apps/plugins/midi/midiutil.c

   1 /***************************************************************************
   2  *             __________               __   ___.
   3  *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4  *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5  *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6  *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7  *                     \/            \/     \/    \/            \/
   8  * $Id$
   9  *
  10  * Copyright (C) 2005 Stepan Moskovchenko
  11  *
  12  * This program is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU General Public License
  14  * as published by the Free Software Foundation; either version 2
  15  * of the License, or (at your option) any later version.
  16  *
  17  * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  18  * KIND, either express or implied.
  19  *
  20  ****************************************************************************/
  21 #include "plugin.h"
  22 #include "midiutil.h"
  23
  24 int chVol[16] IBSS_ATTR;       /* Channel volume                */
  25 int chPan[16] IBSS_ATTR;       /* Channel panning               */
  26 int chPat[16] IBSS_ATTR;                  /* Channel patch                 */
  27 int chPW[16] IBSS_ATTR;                   /* Channel pitch wheel, MSB only */
  28 int chPBDepth[16] IBSS_ATTR;              /* Channel pitch bend depth */
  29 int chPBNoteOffset[16] IBSS_ATTR;       /* Pre-computed whole semitone offset */
  30 int chPBFractBend[16] IBSS_ATTR;        /* Fractional bend applied to delta */
  31 unsigned char chLastCtrlMSB[16]; /* MIDI regs, used for Controller 6. */
  32 unsigned char chLastCtrlLSB[16]; /* The non-registered ones are ignored */
  33
  34 struct GPatch * gusload(char *);
  35 struct GPatch * patchSet[128];
  36 struct GPatch * drumSet[128];
  37
  38 struct SynthObject voices[MAX_VOICES] IBSS_ATTR;
  39
  40 void *alloc(int size)
  41 {
  42     static char *offset = NULL;
  43     static size_t totalSize = 0;
  44     char *ret;
  45
  46     int remainder = size % 4;
  47
  48     size = size + 4-remainder;
  49
  50     if (offset == NULL)
  51     {
  52         offset = rb->plugin_get_audio_buffer(&totalSize);
  53     }
  54
  55     if (size + 4 > (int)totalSize)
  56     {
  57         printf("MALLOC BARF");
  58         printf("MALLOC BARF");
  59         printf("MALLOC BARF");
  60         printf("MALLOC BARF");
  61         printf("MALLOC BARF");
  62         printf("MALLOC BARF");
  63         printf("MALLOC BARF");
  64         /* We've made our point. */
  65
  66         return NULL;
  67     }
  68
  69     ret = offset + 4;
  70     *((unsigned int *)offset) = size;
  71
  72     offset += size + 4;
  73     totalSize -= size + 4;
  74     return ret;
  75 }
  76
  77 /* Rick's code */
  78 /*
  79 void *alloc(int size)
  80 {
  81     static char *offset = NULL;
  82     static ssize_t totalSize = 0;
  83     char *ret;
  84
  85
  86     if (offset == NULL)
  87     {
  88         offset = rb->plugin_get_audio_buffer((size_t *)&totalSize);
  89     }
  90
  91     if (size + 4 > totalSize)
  92     {
  93         return NULL;
  94     }
  95
  96     ret = offset + 4;
  97     *((unsigned int *)offset) = size;
  98
  99     offset += size + 4;
 100     totalSize -= size + 4;
 101     return ret;
 102 }
 103 */
 104
 105 #define malloc(n) my_malloc(n)
 106 void * my_malloc(int size)
 107 {
 108     return alloc(size);
 109 }
 110
 111 unsigned char readChar(int file)
 112 {
 113     char buf[2];
 114     rb->read(file, &buf, 1);
 115     return buf[0];
 116 }
 117
 118 unsigned char * readData(int file, int len)
 119 {
 120     unsigned char * dat = malloc(len);
 121     rb->read(file, dat, len);
 122     return dat;
 123 }
 124
 125 int eof(int fd)
 126 {
 127     int curPos = rb->lseek(fd, 0, SEEK_CUR);
 128
 129     int size = rb->lseek(fd, 0, SEEK_END);
 130
 131     rb->lseek(fd, curPos, SEEK_SET);
 132     return size+1 == rb->lseek(fd, 0, SEEK_CUR);
 133 }
 134
 135 // Here is a hacked up printf command to get the output from the game.
 136 int printf(const char *fmt, ...)
 137 {
 138     static int p_xtpt = 0;
 139     char p_buf[50];
 140     bool ok;
 141     va_list ap;
 142
 143     va_start(ap, fmt);
 144     ok = rb->vsnprintf(p_buf,sizeof(p_buf), fmt, ap);
 145     va_end(ap);
 146
 147     int i=0;
 148
 149     /* Device LCDs display newlines funny. */
 150     for(i=0; p_buf[i]!=0; i++)
 151         if(p_buf[i] == '\n')
 152             p_buf[i] = ' ';
 153
 154     rb->lcd_putsxy(1,p_xtpt, (unsigned char *)p_buf);
 155     rb->lcd_update();
 156
 157     p_xtpt+=8;
 158     if(p_xtpt>LCD_HEIGHT-8)
 159     {
 160         p_xtpt=0;
 161         rb->lcd_clear_display();
 162     }
 163     return 1;
 164 }
 165