annotate cdcnv.c @ 0:e1a1a181c0d7

initial import

/* cdcnv.c ---------------------------------------------
$Id: cdcnv.c,v 1.1 2002/12/21 01:13:27 tosy Exp $

  (以前の履歴は rcctl.c 参照)
  v0.30  97.12.13  コード変換部(cdcnv.c)分離
  v0.31  98.03.07  Mac21対応
  v0.31a 98.03.11  Syncom対応(要rc_send修正)
  v0.31b 98.03.15  ALISA3(L)対応
  v0.32  98.11.29  鉄人,Σ,NET7000対応
  v0.40  02.12.15  B-kara,HyperJOY対応,Σバグ修正
------------------------------------------------------*/

#include <string.h>
#if defined(__FreeBSD__)||defined(linux)
#define stricmp(s, c) strcasecmp(s, c)
#endif

const char *mks = "XUGJHBPDSNKMALZTCI";
#define M_X2 0	/* X2000 */
#define M_UK 1	/* U-kara */
#define M_GI 2	/* GIGA */
#define M_JO 3	/* JOYSOUND */
#define M_HJ 4	/* HyperJOY */
#define M_BT 5	/* BeMax'S(T) */
#define M_PR 6	/* Prologue21 */
#define M_DA 7	/* DAM */
#define M_SY 8	/* Syncom/孫悟空 */
#define M_N7 9	/* NET7000 */
#define M_BK 10 /* B-kara */
#define M_MA 11	/* Mac21 */
#define M_A3 12	/* ALISA3(A) */
#define M_AL 13	/* ALISA3(L) */
#define M_AZ 14	/* ALISA3(Z) */
#define M_TS 15	/* 東映システム */
#define M_SI 16	/* Σシステム */
#define M_TJ 17	/* カラオケの鉄人 */

#define K_SE 3
#define K_KU 4
#define K_KD 5
#define K_SP 6
#define K_ST 7
#define K_CL 8
#define K_NM 9

int cvt[][21] = {
  /* cd,  IDL,  IDH,   SE,   KU,   KD,   SP,   ST,   CL, */
  /*  0,    1,    2,    3,    4,    5,    6,    7,    8,    9,    A,    B*/
  {0x30, 0x2e, 0xd1, 0x17, 0x02, 0x03, 0x0c, 0x1c, 0x0d,         /* X2000 */
   0x13, 0x10, 0x14, 0x18, 0x11, 0x15, 0x19, 0x12, 0x16, 0x1a,   -1,   -1 },
  {0x30, 0x98, 0x67, 0x0c, 0x13, 0x12, 0x0f, 0x0e, 0x0d,     /* U-kara/-2 */
   0x09, 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08,   -1,   -1 },
  {0x10, 0x84, 0x10,   -1, 0x04, 0x05, 0x0f, 0x01,   -1,          /* GIGA */
   0xf0, 0x60, 0x70, 0x80, 0x90, 0xa0, 0xb0, 0xc0, 0xd0, 0xe0,   -1,   -1 },
  {0x40, 0x81, 0x16, 0x1f, 0x54, 0x0b, 0x1d, 0x5c, 0x1c,      /* JOYSOUND */
   0x00, 0x07, 0x0a, 0x58, 0x03, 0x06, 0x50, 0x01, 0x0e, 0x5d,   -1,   -1 },
  {0x20, 0x81, 0x16, 0x1f, 0x54, 0x0b, 0x1d, 0x5c, 0x1c,      /* HyperJOY */
   0x00, 0x07, 0x0a, 0x58, 0x03, 0x06, 0x50, 0x01, 0x0e, 0x5d,   -1,   -1 },
  {0x20, 0xac, 0x53, 0x9d, 0xcc, 0xca, 0x96, 0xdc, 0x9a,   /* BeMax'S (T) */
   0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89,   -1,   -1 },
  {0x10, 0x81, 0xb0, 0x33, 0xd3, 0xb3, 0x93, 0x13,   -1,    /* Prologue21 */
   0x00, 0x08, 0x04, 0x0c, 0x02, 0x0a, 0x06, 0x0e, 0x01, 0x09,   -1,   -1 },
  {0x10, 0xd1, 0x2d, 0x09, 0x04, 0x05, 0x00, 0x01, 0x07,           /* DAM */
   0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b },
  {0x60, 0xc3, 0xc3, 0x05, 0x2c, 0x2d, 0x04, 0xc7, 0x02,        /* Syncom */
   0x0f, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e,   -1,   -1 },
  {0x30, 0x84, 0x05, 0x0f, 0x0e, 0x0c, 0x07,   -1, 0x1e,       /* NET7000 */
   0x1c, 0x10, 0x11, 0x12, 0x14, 0x15, 0x16, 0x18, 0x19, 0x1a,   -1,   -1 },
  {0x10, 0x2e, 0xd1, 0x4c, 0x35, 0x33, 0x4f, 0x4e, 0x4d,        /* B-kara */
   0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b },
  {0x30, 0x80, 0x00, 0x03, 0x18, 0x14, 0x1e,   -1, 0x07,         /* Mac21 */
   0x00, 0x0c, 0x0d, 0x0e, 0x08, 0x09, 0x0a, 0x04, 0x05, 0x06, 0x01, 0x02 },
  {0x30, 0x87, 0x56, 0x12, 0x43, 0x47, 0x11,   -1, 0x42,        /* ALISA3 */
   0x0d, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0e, 0x0f },
  {0x30, 0x87, 0x56, 0x12, 0x43, 0x47, 0x11,   -1, 0x42,        /* ALISA3 */
   0x0d, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0e, 0x0f },
  {0x30, 0x87, 0x56, 0x12, 0x43, 0x47, 0x11,   -1, 0x42,        /* ALISA3 */
   0x0d, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0e, 0x0f },
  {0x30, 0x00, 0xff, 0x41, 0x08, 0x09, 0x4c, 0x45, 0x44,      /* TOEI sys */
   0x13, 0x0f, 0x4f, 0x4e, 0x07, 0x47, 0x46, 0x03, 0x43, 0x42, 0x53, 0x52 },
  {0x10, 0x55, 0xaa, 0x3e, 0x08, 0x09, 0x5c,   -1,   -1,     /* Σ System */
   0x13, 0x0f, 0x4f, 0x4e, 0x07, 0x47, 0x46, 0x03, 0x43, 0x42, 0x53, 0x52 },
  {0x40, 0xae, 0x51, 0xdc, 0x03, 0x02, 0x96,   -1, 0xdd,          /* 鉄人 */
   0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0xda, 0xdb }
  };

int tsc[] = {0x00, 0x04, 0x0c, 0x10, 0x01, 0x05, 0x0d, 0x11};
int tjc[] = {0xd5, 0xd6, 0xd7, 0xd8, 0xd9, 0xde, 0xd0, 0xd1, 0xd2, 0xd3};

char *cverrstr[] = {
  "Invalid maker code.",
  "Invalid music number.",
  "Invalid function code."
};

int cdcnv(int buf[], char *mak, char *cod)
{
  int maker, i, c, n, *q;

  if ((maker = (int)strchr(mks, *mak & 0xdf)) == NULL)
    return -1;
  maker -= (int)mks;

  q = buf;

  *q++ = 0x80;	/* wake-up code */
  *q++ = cvt[maker][0];
  *q++ = cvt[maker][1];
  *q++ = cvt[maker][2];

  /* 統合機種等でのメーカー名指定 */
  if ((c = *++mak) != 0) {
    if ((maker == M_A3)&&('0' <= c)&&(c <= '4'))
      cvt[maker][K_SE] = 0x12 + (c - '0');
    else if ((maker == M_AZ)&&('1' <= c)&&(c <= '4'))
      *q++ = 0x13 + (c - '1');
    else if ((maker == M_AL)&&('0' <= c)&&(c <= '9')) {
      *q++ = cvt[maker][K_NM + (c - '0')];
      *q++ = 0x10;
    }
    else if ((maker == M_TS)&&('1' <= c)&&(c <= '8'))
      *q++ = tsc[c - '1'];
    else if ((maker == M_TJ)&&('0' <= c)&&(c <= '9'))
      *q++ = tjc[c - '1'];
    else if ((maker == M_UK)&&('2' == c)) {
      buf[1] = 0x70;
      *q++ = 0xf0;
    }
  }
  if (maker == M_BK)
    *q++ = 0xf0;

  if (('0' <= *cod)&&(*cod <= '9')) {
    if (maker == M_DA)
      *q++ = 0x08;
    else if (maker == M_MA)
      *q++ = 0x10;	/* Req.1 */
    else if (maker == M_SI) {
      /* [1-9A-F] -> '01','02',...,'15' , NULL -> '00' */
      if (*mak == 0) {
        *q++ = cvt[maker][K_NM + 0];
        *q++ = cvt[maker][K_NM + 0];
      }
      else {
        if (mak[1] != 0)
	  *q++ = cvt[maker][K_NM + (*mak++ - '0')];
	else
	  *q++ = cvt[maker][K_NM + ((*mak >= 'A')? 1: 0)];
	*q++ = cvt[maker][K_NM + ((*mak % 0x41) & 0x0f)];
      }
    }

    /* 曲コード変換 */
    while((c = *cod++) != '\0') {
      if (('0' <= c)&&(c <= '9'))
        *q = cvt[maker][c - '0' + K_NM];
      else if ((c == 'A')||(c == 'a'))
        *q = cvt[maker][10 + K_NM];
      else if ((c == 'B')||(c == 'b'))
        *q = cvt[maker][11 + K_NM];
      else if (c == '-') {
	if (maker == M_TJ)
	  *q = cvt[maker][K_SE];
	else
	  continue;
      }
      else
        *q = -1;
      if (*q++ == -1)
	return -2;
    }

    /* 送信直前処理 */
    switch(maker) {
    case M_X2:
      /* X2000: 曲コードの末尾 2 桁の直前にも SET を送信 */
      q -= 2;
      q[3] = cvt[maker][K_SE];
      q[2] = q[1];
      q[1] = q[0];
      q[0] = cvt[maker][K_SE];
      q += 4;
      break;

    case M_GI:
      /* GIGA: 曲コードが 6 桁以下の場合は最後に'0'を埋める */
      while(q < &buf[10])
        *q++ = cvt[maker][K_NM];
      break;

    case M_PR:
      /* Prologue21: */
      for( i=0; i<3; i++ ) {
        buf[10-i] = 0;
        if (q > &buf[4])
          buf[10-i] = *--q << 4;
        if (q > &buf[4])
          buf[10-i] |= *--q;
      }
      q = &buf[11];
      *q++ = 0x33;
      buf[4] = buf[8];
      buf[5] = buf[9];
      buf[6] = buf[10];
      buf[7] = buf[11];
      break;  /* q=&buf[8] にしないとバグのような… */

    case M_SI:
      /* Σシステム: コード長 10 バイト(<Maker[2]>,<Code[7]>,<SET>)固定 */
    case M_DA:
      /* DAM: コード長 9 バイト(0x08,<Code[7]>,<SET>)固定 */
    case M_BK:
      /* B-kara: コード長 9 バイト(0xf0,<Code[7]>,<SET>)固定 */
      n = (maker == M_SI)? 12: 11; /* 数字の最終桁を buf[n] とした値 */
      for( i=0; i<7; i++ ) {
        c = *(q-1);
	if ((i == 1)&&((c == cvt[maker][K_NM+10])||(c == cvt[maker][K_NM+11])))
	  /* 曲コード中の'A','B'以降の桁数が1桁なら'0'を挿入 */
	  buf[n-i] = cvt[maker][K_NM + 0];
        else if ((i == 2)&&(c!=cvt[maker][K_NM+10])&&(c!=cvt[maker][K_NM+11]))
	  /* 曲コードの末尾 3 文字めが'A','B'でなければ'-'を設定 */
          buf[n-i] = (maker == M_BK)? 0x3d: ((maker == M_SI)? 0x51: 0x3c);
        else if (q > &buf[n-6])
          buf[n-i] = *--q;
        else
	  /* 桁数の足らない部分には'0'を設定 */
          buf[n-i] = cvt[maker][K_NM + 0];
      }
      q = &buf[n+1];
    default:
      *q++ = cvt[maker][K_SE];
      break;
    }
  }
  /* 制御コードの処理 */
  else {
    *q = -1;
    if (!stricmp(cod, "SE"))
      *q = cvt[maker][K_SE];
    else if (!stricmp(cod, "KU"))
      *q = cvt[maker][K_KU];
    else if (!stricmp(cod, "KD"))
      *q = cvt[maker][K_KD];
    else if (!stricmp(cod, "SP"))
      *q = cvt[maker][K_SP];
    else if (!stricmp(cod, "ST"))
      *q = cvt[maker][K_ST];
    else if (!stricmp(cod, "CL"))
      *q = cvt[maker][K_CL];
    if (*q == -1)
      return -3;
    q++;
  }

  if ((maker == M_BK)||((maker == M_UK)&&('2' == *mak)))
    *q++ = 0xf7;

  buf[1] |= q-buf-2;	/* 実送信バイト数(PIC 制御用)を埋め込み */
  return q-buf;
}