TAG212 2025/12/23

  Compiler/Driver
    メモコマンド追加。IDE等で使用することで、表示するメモを指定できます。

Author: kumatan

CHANGE.txt

@@ -1,4 +1,7 @@
 �X�V����
+TAG212 2025/12/23
+  Compiler/Driver
+    �����R�}���h�lj��BIDE���Ŏg�p���邱�ƂŁA�\�����郁�����w��ł��܂��B
 TAG211 2025/12/22
   Compiler/Driver
     PC�R�}���h�lj��BIDE���Ŏg�p���邱�ƂŁA����̃p�[�g�̃��[�^�[�̐F���w��ł��܂��B

MML.txt

@@ -959,6 +959,23 @@ mub
     0xFF 0xFD 0x02 0x00 n1
 
 
+-�p�[�g����
+�R�}���h
+    '
+����
+    '...'
+�l�͈̔�
+    ������(���ɕ������`�F�b�N�͂��Ă��Ȃ���100�������x�����x����)
+�f�t�H���g�l
+    �Ȃ�
+�g�p�”\�ȃp�[�g
+    ALL
+���e
+    IDE�̃p�[�g�������w�肷��B
+mub�t�@�C���ł̃t�H�[�}�b�g
+    0xFF 0xFD 0x0n(������̃o�C�g��+1) 0x01 n...(������̃f�[�^(SJIS))
+
+
 -�p�[�g�ʃ��v���C�X
 �R�}���h
     [|

mucomDotNETCompiler/lang/mucomDotNETmessage.ja-JP.txt

@@ -178,6 +178,8 @@ E0534='EX'効果音モードスロット指定コマンドの解析に失敗し
 E0535='EX'効果音モードスロット指定コマンドの解析に失敗しました。数値が範囲を超えています。(値:{0})
 E0536='EX'効果音モードスロット指定コマンドの解析に失敗しました。スロット番号は1～4になります。(値:{0})
 E0537='EXO?'効果音モードスイッチコマンドの解析に失敗しました。
+E0538='PC?'パートカラーコマンドの解析に失敗しました。
+E0539='''メモコマンドの解析に失敗しました。
 
 ;Program.cs 0600
 E0600=引数(.mucファイル)欲しいよぉ

mucomDotNETCompiler/lang/mucomDotNETmessage.txt

@@ -184,6 +184,8 @@ E0534='EX'Illegal value on Ch3SpecialMode SLOT command.Unable to read the values
 E0535='EX'Illegal value on Ch3SpecialMode SLOT command.Value is out of range.(value:{0})
 E0536='EX'Illegal value on Ch3SpecialMode SLOT command.Specify the slot number from 1 to 4.(value:{0})
 E0537='EXO?'Illegal value on Ch3SpecialMode Switch command.
+E0538='PC?'Illegal value on Part Color command.
+E0539='''Illegal value on Memo command.
 
 ;Program.cs 0600
 E0600=I want arguments(.muc File) please?

mucomDotNETCompiler/msub.cs

@@ -66,6 +66,7 @@ public class Msub
         ,0x23 //,'#'	FLAG SET
         ,0x5f //,'_'	局地的ポルタメント
         //,(byte)'~' //   逆TIE
+        ,(byte)'\'' //  メモ
         ,0
         };
 

mucomDotNETCompiler/muc88.cs

@@ -75,6 +75,7 @@ public Muc88(work work, MUCInfo mucInfo,iEncoding enc)
             , SETFLG
             , SETPinPOR
             //, SETRTIE
+            , SETMEMO
             };
         }
 
@@ -1716,7 +1717,7 @@ private EnmFCOMPNextRtn SETCOLOR()
             mucInfo.srcCPtr++;
 
             int ptr = mucInfo.srcCPtr;
-            byte n = (byte)msub.ERRT(mucInfo.lin, ref ptr, msg.get("E0531"));
+            byte n = (byte)msub.ERRT(mucInfo.lin, ref ptr, msg.get("E0538"));
             mucInfo.srcCPtr = ptr;
             work.color = n;
 
@@ -1728,6 +1729,47 @@ private EnmFCOMPNextRtn SETCOLOR()
             return EnmFCOMPNextRtn.fcomp1;
         }
 
+        private EnmFCOMPNextRtn SETMEMO()
+        {
+            mucInfo.srcCPtr++;
+
+            int ptr = mucInfo.srcCPtr;
+            List<byte> buf = new List<byte>();
+            char ch;
+            do
+            {
+                ch = mucInfo.lin.Item2.Length > ptr ? mucInfo.lin.Item2[ptr++] : (char)0;
+                byte[] b = enc.GetSjisArrayFromString(ch.ToString());
+                if (ch == '\'' || ch == 0) break;
+                buf.AddRange(b);
+            } while (true);
+
+            if (buf.Count < 1) {
+                throw new MucException(
+                    msg.get("E0539")
+                    , mucInfo.row, mucInfo.col);
+            }
+            mucInfo.srcCPtr = ptr;
+
+            int len = buf.Count + 1;
+            List<byte> lbuf = new List<byte>();
+            int n = 0;
+            for(int i = 0; i < 3; i++)
+            {
+                n += 0x7f << (i * 7);
+                lbuf.Add((byte)(((len & (0x7f << (i * 7))) >> (i * 7)) 
+                    | (len > n ? 0x80 : 0x00)));
+                if (len <= n) break;
+            }
+
+            msub.MWRITE(new MmlDatum(0xff), new MmlDatum(0xfd));// IDE向け
+            foreach (byte b in lbuf) msub.MWRIT2(new MmlDatum(b));//Length
+            msub.MWRIT2(new MmlDatum(1));// 1: Memo
+            foreach (byte b in buf) msub.MWRIT2(new MmlDatum(b));//メモデータ
+
+            return EnmFCOMPNextRtn.fcomp1;
+        }
+
         // **	SOFT ENVELOPE	**
 
         private EnmFCOMPNextRtn SETSEV()

mucomDotNETDriver/music2.cs

@@ -293,7 +293,16 @@ public void SetFMCOMTable()
 
         private void IDECMD()
         {
-            byte len = (byte)work.pg.mData[work.hl++].dat;
+            int len = 0;
+            int cnt = 0;
+            byte d;
+            do
+            {
+                d = (byte)work.pg.mData[work.hl++].dat;
+                len += (d & 0x7f) << (7 * cnt);
+                cnt++;
+            } while ((d & 0x80) != 0);
+
             byte[] cmd=new byte[len];
             for (int i = 0; i < len; i++)
             {
@@ -308,6 +317,11 @@ private void IDECMD()
                         DummyOUT(enmMMLType.PartColor, new List<object>() { (object)cmd });
                     }
                     break;
+                case 0x01://Memo
+                    {
+                        DummyOUT(enmMMLType.Lyric, new List<object>() { (object)cmd });
+                    }
+                    break;
             }
         }