readmidi_native.c
上传用户:nini_0081
上传日期:2022-07-21
资源大小:2628k
文件大小:5k
源码类别:

多媒体编程

开发平台:

DOS

  1. /************************************************************************
  2.    readmidi.c -- last change: 1 Jan 96
  3.    Creates a linked list of each chunk in a midi file.
  4.    ENTIRE MIDI FILE IS RETAINED IN MEMORY so that no additional malloc
  5.    calls need be made to store the data of the events in the midi file.
  6.    Copyright (C) 1995-1996 Nathan I. Laredo
  7.    This program is modifiable/redistributable under the terms
  8.    of the GNU General Public Licence.
  9.    You should have received a copy of the GNU General Public License
  10.    along with this program; if not, write to the Free Software
  11.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  12.    Send your comments and all your spare pocket change to
  13.    laredo@gnu.ai.mit.edu (Nathan Laredo) or to PSC 1, BOX 709, 2401
  14.    Kelly Drive, Lackland AFB, TX 78236-5128, USA.
  15.  *************************************************************************/
  16. /*    edited by Peter Kutak           */
  17. /*    email : kutak@stonline.sk       */
  18. #if defined(linux) || defined(__FreeBSD__)
  19. #include "playmidi.h"
  20. #include <unistd.h>
  21. int format, ntrks, division;
  22. unsigned char *midifilebuf;
  23. /* the following few lines are needed for dealing with CMF files */
  24. int reloadfm = 0;
  25. extern void loadfm();
  26. extern int seqfd, sb_dev, wantopl3, play_fm, fmloaded[256];
  27. SEQ_USE_EXTBUF();
  28. extern struct miditrack seq[MAXTRKS];
  29. extern unsigned long int default_tempo;
  30. unsigned short Read16()
  31. {
  32.     register unsigned short x;
  33.     x = (*(midifilebuf) << 8) | midifilebuf[1];
  34.     midifilebuf += 2;
  35.     return x;
  36. }
  37. unsigned long Read32()
  38. {
  39.     register unsigned long x;
  40.     x = (*(midifilebuf) << 24) | (midifilebuf[1] << 16) |
  41. (midifilebuf[2] << 8) | midifilebuf[3];
  42.     midifilebuf += 4;
  43.     return x;
  44. }
  45. int readmidi(filebuf, filelength)
  46. unsigned char *filebuf;
  47. off_t filelength;
  48. {
  49.     unsigned long int i = 0, track, tracklen;
  50.     midifilebuf = filebuf;
  51.     /* allow user to specify header number in from large archive */
  52. #if 0
  53.     while (i != find_header && midifilebuf < (filebuf + filelength - 32)) {
  54. if (strncmp(midifilebuf, "MThd", 4) == 0) {
  55.     i++;
  56.     midifilebuf += 4;
  57. } else
  58.     midifilebuf++;
  59.     }
  60.     if (i != find_header) { /* specified header was not found */
  61. midifilebuf = filebuf;
  62. return find_header = 0;
  63.     }
  64. #endif
  65.     if (midifilebuf != filebuf)
  66. midifilebuf -= 4;
  67.     i = Read32();
  68.     if (i == RIFF) {
  69. midifilebuf += 16;
  70. i = Read32();
  71.     }
  72.     if (i == MThd) {
  73. tracklen = Read32();
  74. format = Read16();
  75. ntrks = Read16();
  76. division = Read16();
  77.     } else if (i == CTMF) {
  78. /* load a creative labs CMF file, with instruments for fm */
  79. tracklen = midifilebuf[4] | (midifilebuf[5] << 8);
  80. format = 0;
  81. ntrks = 1;
  82. division = midifilebuf[6] | (midifilebuf[7] << 8);
  83. default_tempo = 1000000 * division /
  84. (midifilebuf[8] | (midifilebuf[9] << 8));
  85. seq[0].data = filebuf + tracklen;
  86. seq[0].length = filelength - tracklen;
  87. i = (unsigned long int) (*(short *) &midifilebuf[2]) - 4;
  88. /* if fm playback is enabled, load all fm patches from file */
  89. if (play_fm) {
  90.     struct sbi_instrument instr;
  91.     int j, k;
  92.     reloadfm = midifilebuf[32]; /* number of custom patches */
  93.             instr.device = sb_dev;
  94.     for (j = 0; j < 32; j++)
  95. instr.operators[j] = 0x3f;
  96.     instr.key = FM_PATCH;
  97.     for (j = 0; j < reloadfm && j < 255; j++) {
  98.                 instr.channel = j;
  99. fmloaded[j] = instr.key;
  100.                 for (k = 0; k < 16; k++)
  101.     instr.operators[k] = midifilebuf[i + (16 * j) + k];
  102. SEQ_WRPATCH(&instr, sizeof(instr));
  103.     }
  104. }
  105. return ntrks;
  106.     } else {
  107. int found = 0;
  108. while (!found && midifilebuf < (filebuf + filelength - 8))
  109.     if (strncmp(midifilebuf, "MThd", 4) == 0)
  110. found++;
  111.     else
  112. midifilebuf++;
  113. if (found) {
  114.     midifilebuf += 4;
  115.     tracklen = Read32();
  116.     format = Read16();
  117.     ntrks = Read16();
  118.     division = Read16();
  119. } else {
  120. #ifndef DISABLE_RAW_MIDI_FILES
  121.     /* this allows playing ANY file, so watch out */
  122.     midifilebuf -= 4;
  123.     format = 0; /* assume it's .mus file ? */
  124.     ntrks = 1;
  125.     division = 40;
  126. #else
  127.     return -1;
  128. #endif
  129. }
  130.     }
  131.     if (ntrks > MAXTRKS) {
  132. fprintf(stderr, "nWARNING: %d TRACKS IGNORED!n", ntrks - MAXTRKS);
  133. ntrks = MAXTRKS;
  134.     }
  135.     if (play_fm && reloadfm) {
  136. loadfm(); /* if custom CMF patches loaded, replace */
  137. reloadfm = 0;
  138.     }
  139.     for (track = 0; track < ntrks; track++) {
  140. if (Read32() != MTrk) {
  141.     /* MTrk isn't where it's supposed to be, search rest of file */
  142.     int fuzz, found = 0;
  143.     midifilebuf -= 4;
  144.     if (strncmp(midifilebuf, "MThd", 4) == 0)
  145. continue;
  146.     else {
  147. if (!track) {
  148.     seq[0].length = filebuf + filelength - midifilebuf;
  149.     seq[0].data = midifilebuf;
  150.     continue; /* assume raw midi data file */
  151. }
  152. midifilebuf -= seq[track - 1].length;
  153. for (fuzz = 0; (fuzz + midifilebuf) <
  154.      (filebuf + filelength - 8) && !found; fuzz++)
  155.     if (strncmp(&midifilebuf[fuzz], "MTrk", 4) == 0)
  156. found++;
  157. seq[track - 1].length = fuzz;
  158. midifilebuf += fuzz;
  159. if (!found)
  160.     continue;
  161.     }
  162. }
  163. tracklen = Read32();
  164. if (midifilebuf + tracklen > filebuf + filelength)
  165.     tracklen = filebuf + filelength - midifilebuf;
  166. seq[track].length = tracklen;
  167. seq[track].data = midifilebuf;
  168. midifilebuf += tracklen;
  169.     }
  170.     ntrks = track;
  171.     return ntrks;
  172. }
  173. #endif /* linux || FreeBSD */