home *** CD-ROM | disk | FTP | other *** search
/ Phoenix Heaven Sunny 2 / APPARE2.BIN / oh_towns / taropyon / he386 / ccisrc / midilib.c < prev    next >
Text File  |  1995-06-20  |  632b  |  31 lines
  1.  
  2. char    _OUT_OF_STRING_SPACE[24] = "Out of string space!";
  3.  
  4. /*************************************************************************
  5. *    システムエクスクルーシブメッセージを作成する
  6. *************************************************************************/
  7.  
  8. int        make_sysEx( char *buf, size_t siz, UCHAR *dat )
  9. {
  10.     int        i, len;
  11.     char    *p, tmp[8];
  12.  
  13.     p = buf;
  14.     strcpy( p, "@EXCL(");
  15.     p += 6;
  16.     for ( i = 1; i < siz - 1; ++i )
  17.     {
  18.         sprintf(tmp, "%d", dat[i] & 0xFF );
  19.         strcpy(p,tmp);    p += strlen(tmp);
  20.         if ( i < siz - 2 )
  21.         {
  22.             *p = ',';
  23.             ++p;
  24.         }
  25.     }
  26.     *p = ')';    ++p;
  27.     *p = '\0';
  28.  
  29.     return (strlen(buf));
  30. }
  31.