MML播放器

30_day/Makefile

@@ -23,7 +23,7 @@ haribote.img : haribote/ipl20.bin haribote/haribote.sys Makefile \
 		sosu/sosu.hrb sosu2/sosu2.hrb sosu3/sosu3.hrb \
 		type/type.hrb iroha/iroha.hrb chklang/chklang.hrb \
 		notrec/notrec.hrb bball/bball.hrb invader/invader.hrb \
-		calc/calc.hrb tview/tview.hrb
+		calc/calc.hrb tview/tview.hrb mmlplay/mmlplay.hrb
 	$(EDIMG)   imgin:../z_tools/fdimg0at.tek \
 		wbinimg src:haribote/ipl20.bin len:512 from:0 to:0 \
 		copy from:haribote/haribote.sys to:@: \
@@ -57,6 +57,11 @@ haribote.img : haribote/ipl20.bin haribote/haribote.sys Makefile \
 		copy from:invader/invader.hrb to:@: \
 		copy from:calc/calc.hrb to:@: \
 		copy from:tview/tview.hrb to:@: \
+		copy from:mmlplay/mmlplay.hrb to:@: \
+		copy from:mmldata/kirakira.mml to:@: \
+		copy from:mmldata/fujisan.mml to:@: \
+		copy from:mmldata/daigo.mml to:@: \
+		copy from:mmldata/daiku.mml to:@: \
 		copy from:nihongo/nihongo.fnt to:@: \
 		imgout:haribote.img
 
@@ -102,6 +107,7 @@ full :
 	$(MAKE) -C invader
 	$(MAKE) -C calc
 	$(MAKE) -C tview
+	$(MAKE) -C mmlplay
 	$(MAKE) haribote.img
 
 run_full :
@@ -155,6 +161,7 @@ clean_full :
 	$(MAKE) -C invader		clean
 	$(MAKE) -C calc			clean
 	$(MAKE) -C tview		clean
+	$(MAKE) -C mmlplay		clean
 
 src_only_full :
 	$(MAKE) -C haribote		src_only
@@ -187,6 +194,7 @@ src_only_full :
 	$(MAKE) -C invader		src_only
 	$(MAKE) -C calc			src_only
 	$(MAKE) -C tview		src_only
+	$(MAKE) -C mmlplay		src_only
 	-$(DEL) haribote.img
 
 refresh :

30_day/mmldata/daigo.org

@@ -0,0 +1,30 @@
+/* 「交響曲第5番 ハ短調 "運命" op. 67」より Ludwig van Beethoven */
+
+$E"SJIS"; $K"交響曲第5番ハ短調 %"運命%" op.67";
+
+T155Q7L8O4
+RGGGE-2.RFFFD4&D1
+RGGGQ8E-Q7A-A-A-Q8GQ7>E-E-E-C8&C2<GGG
+Q8DQ7A-A-A-Q8GQ7>FFFD8&D2GGF
+Q8E-Q7<E-E-FQ8G>Q7GGFQ8E-Q7<E-E-F
+Q8GQ7>GGFL4E-RCRG2.L8R<A-A-A-F4&F1
+RA-A-A-Q8FQ7DDDQ8<BQ7A-A-A-Q8GQ7<GGG
+>>E-A-A-A-Q8FQ7DDDQ8<BQ7A-A-A-Q8GQ7<GGG
+>>E-G>CCQ8C2Q7<BBB>DQ8D2Q7CCCE-Q8E-Q7DQ4DF
+Q8FQ7EQ4EGQ7GQ7FQ4FA-Q8A-Q7GQ4GB-Q8B-Q7A-Q4A->C
+Q8CQ7<BQ4B>DQ7CE-E-E-C<GGGE-C<GGE-CCC<B>>>FDD
+<BGFFD<BGFD<B>CCC>>E-E-E-
+C<AAAG-E-E-E-C<AAAA4R2R4B-4R4
+RB-B-B-E-2F2Q8<B-2>L4B->E-DE-FQ7CQ8CQ7<B-
+Q8B->E-DE-FQ7CQ8CQ7<B-Q8>B->E-DE-FQ7CQ8C<B-
+Q8<B->CD-Q7CQ8<B->C<B-Q7A-Q8>D-E-FQ7E-
+Q8D-E-D-Q7CQ8E-FG-FE-Q7FQ8G-FE-Q7FQ8G-F
+E-Q7FQ8G-FE-FG-FG-Q7AL8B-&B-2Q4>C<B-A-
+Q8A-Q7GQ4FE-Q8E-Q7DQ4CDQ8FQ7E-Q4<B-G
+Q8>DQ7CQ4<A-FQ8>CQ7<B-Q4GE-Q7<B-Q8>>AB-A
+B-AB-Q7AQ4B->C<B-A-Q8A-Q7GQ4FE-Q8E-Q7DQ4CD
+Q8FQ7E-Q4<B-GQ8>DQ7CQ4<A-FQ8>CQ7<B-Q4GE-
+Q7<B->B->B-B-E-GGGE-<B-B-B-GE-E-E-
+Q8<B-Q7>DDDQ8E-Q7>GGGE-<B-B-B-GE-E-E-
+Q8<B-Q7>B-B-B-B-4R4.B-B-B-B-4R4.>DDDE-4
+R1R4

30_day/mmldata/daiku.org

@@ -0,0 +1,17 @@
+/* 「交響曲第9番 ニ短調 "合唱" op.125」より Ludwig van Beethoven  尾崎喜八作詞 */
+
+$E"SJIS";							T110L4
+
+									O4
+$K"晴れたる青空  漂う雲よ";			F+F+GA AGF+E DDEF+ F+.E8E2
+$K"小鳥は歌えり  林に森に";			F+F+GA AGF+E DDEF+ E.D8D2
+$K"心は爽やか  喜び満ちて";			EEF+D EF+8G8F+D EF+8G8F+E DE<A>
+$K"見交わす我らの  明るき笑顔";		F+& F+F+GA AGF+E DDEF+ E.D8D2
+
+									O5
+$K"花咲く丘べに  憩える友よ";		F+F+GA AGF+E DDEF+ F+.E8E2
+$K"吹く風爽やか  みなぎる陽射し";	F+F+GA AGF+E DDEF+ E.D8D2
+$K"心は穏やか  幸せ溢れ";			EEF+D EF+8G8F+D EF+8G8F+E DE<A>
+$K"響くは我らの  喜びの歌";			F+& F+F+GA AGF+E DDEF+ E.D8D2
+
+$K"";								R1

30_day/mmldata/fujisan.org

@@ -0,0 +1,15 @@
+/* 「富士山」 文部省唱歌  巌谷小波作詞 */
+
+$E"SJIS";					T120L4O4
+
+$K"あたまを雲の上に出し";	G.G8AGEC8D8E2		D.G8GF8E8D2.R
+$K"四方の山を見おろして";	G.G8ECA.B8>C<A		G.A8G8F8E8D8C2.R
+$K"かみなりさまを下に聞く";	D.D8DDC8D8E8F8G2	A.B8>C<AG2.R
+$K"富士は日本一の山";		>C2<AGE.E8AG		FED.C8C2.R
+
+$K"青空高くそびえ立ち";		G.G8AGEC8D8E2		D.G8GF8E8D2.R
+$K"からだに雪の着物着て";	G.G8ECA.B8>C<A		G.A8G8F8E8D8C2.R
+$K"霞のすそを遠く曳く";		D.D8DDC8D8E8F8G2	A.B8>C<AG2.R
+$K"富士は日本一の山";		>C2<AGE.E8AG		FED.C8C2.R
+
+$K"";						R1R1

30_day/mmldata/kirakira.org

@@ -0,0 +1,13 @@
+/* 「きらきら星」 フランス民謡  武鹿悦子作詞 */
+
+$E"SJIS";							T120L4O4
+
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"まばたきしては  みんなを見てる";	GGFFEED2 GGFFEED2
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"";								R1
+
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"みんなの歌が  届くといいな";		GGFFEED2 GGFFEED2
+$K"きらきらひかる  お空の星よ";		CCGGAAG2 FFEEDDC2
+$K"";								R1 R1

30_day/mmlplay/!cons_9x.bat

@@ -0,0 +1 @@
+command

30_day/mmlplay/!cons_nt.bat

@@ -0,0 +1 @@
+cmd.exe

30_day/mmlplay/Makefile

@@ -0,0 +1,5 @@
+APP      = mmlplay
+STACK    = 132k
+MALLOC   = 0k
+
+include ../app_make.txt

30_day/mmlplay/make.bat

@@ -0,0 +1 @@
+..\..\z_tools\make.exe %1 %2 %3 %4 %5 %6 %7 %8 %9

30_day/mmlplay/mmlplay.c

@@ -0,0 +1,271 @@
+#include "apilib.h"
+
+#include <string.h>	/* strlen */
+
+int strtol(char *s, char **endp, int base);	 /*标准函数<stdlib.h> */
+
+void waittimer(int timer, int time);
+void end(char *s);
+
+void HariMain(void)
+{
+	char winbuf[256 * 112], txtbuf[100 * 1024];
+	char s[32], *p, *r;
+	int win, timer, i, j, t = 120, l = 192 / 4, o = 4, q = 7, note_old = 0;
+
+	/*音号与频率（mHz）的对照表*/
+	/*例如，04A为440Hz，即440000 */
+	/*第16八度的A为1802240Hz，即1802240000 */
+	/*以下为第16八度的列表（C～B） */
+	static int tonetable[12] = {
+		1071618315, 1135340056, 1202850889, 1274376125, 1350154473, 1430438836,
+		1515497155, 1605613306, 1701088041, 1802240000, 1909406767, 2022946002
+	};
+	static int notetable[7] = { +9, +11, +0 /* C */, +2, +4, +5, +7 };
+
+	/*命令行解析*/
+	api_cmdline(s, 30);
+	for (p = s; *p > ' '; p++) { }	/*一直读到空格为止*/
+	for (; *p == ' '; p++) { }	/*跳过空格*/
+	i = strlen(p);
+	if (i > 12) {
+file_error:
+		end("file open error.\n");
+	}
+	if (i == 0) {
+		end(0);
+	}
+
+	/*准备窗口*/
+	win = api_openwin(winbuf, 256, 112, -1, "mmlplay");
+	api_putstrwin(win, 128, 32, 0, i, p);
+	api_boxfilwin(win, 8, 60, 247,  76, 7);
+	api_boxfilwin(win, 6, 86, 249, 105, 7);
+
+	/*载入文件*/
+	i = api_fopen(p);
+	if (i == 0) {
+		goto file_error;
+	}
+	j = api_fsize(i, 0);
+	if (j >= 100 * 1024) {
+		j = 100 * 1024 - 1;
+	}
+	api_fread(txtbuf, j, i);
+	api_fclose(i);
+	txtbuf[j] = 0;
+	r = txtbuf;
+	i = 0; /*通常模式*/
+	for (p = txtbuf; *p != 0; p++) {	/*为了方便处理，将注释和空白删去*/
+		if (i == 0 && *p > ' ') {	/*不是空格或换行符*/
+			if (*p == '/') {
+				if (p[1] == '*') {
+					i = 1;
+				} else if (p[1] == '/') {
+					i = 2;
+				} else {
+					*r = *p;
+					if ('a' <= *p && *p <= 'z') {
+						*r += 'A' - 'a';	/*将小写字母转换为大写字母*/
+					}
+					r++;
+				}
+			} else if (*p == 0x22) {
+				*r = *p;
+				r++;
+				i = 3;
+			} else {
+				*r = *p;
+				r++;
+			}
+		} else if (i == 1 && *p == '*' && p[1] == '/') {	/*段注释*/
+			p++;
+			i = 0;
+		} else if (i == 2 && *p == 0x0a) {	/*行注释*/
+			i = 0;
+		} else if (i == 3) {	/*字符串*/
+			*r = *p;
+			r++;
+			if (*p == 0x22) {
+				i = 0;
+			} else if (*p == '%') {
+				p++;
+				*r = *p;
+				r++;
+			}
+		}
+	}
+	*r = 0;
+
+	/*定时器准备*/
+	timer = api_alloctimer();
+	api_inittimer(timer, 128);
+
+	/*主体*/
+	p = txtbuf;
+	for (;;) {
+		if (('A' <= *p && *p <= 'G') || *p == 'R') {	/*音符、休止符*/
+			/*计算频率*/
+			if (*p == 'R') {
+				i = 0;
+				s[0] = 0;
+			} else {
+				i = o * 12 + notetable[*p - 'A'] + 12;
+				s[0] = 'O';
+				s[1] = '0' + o;
+				s[2] = *p;
+				s[3] = ' ';
+				s[4] = 0;
+			}
+			p++;
+			if (*p == '+' || *p == '-' || *p == '#') {
+				s[3] = *p;
+				if (*p == '-') {
+					i--;
+				} else {
+					i++;
+				}
+				p++;
+			}
+			if (i != note_old) {
+				api_boxfilwin(win + 1, 32, 36, 63, 51, 8);
+				if (s[0] != 0) {
+					api_putstrwin(win + 1, 32, 36, 10, 4, s);
+				}
+				api_refreshwin(win, 32, 36, 64, 52);
+				if (28 <= note_old && note_old <= 107) {
+					api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10,  76, 7);
+				}
+				if (28 <= i && i <= 107) {
+					api_boxfilwin(win, (i - 28) * 3 + 8, 60, (i - 28) * 3 + 10,  76, 4);
+				}
+				if (s[0] != 0) {
+					api_beep(tonetable[i % 12] >> (17 - i / 12));
+				} else {
+					api_beep(0);
+				}
+				note_old = i;
+			}
+			/*音长计算*/
+			if ('0' <= *p && *p <= '9') {
+				i = 192 / strtol(p, &p, 10);
+			} else {
+				i = l;
+			}
+			for (; *p == '.'; ) {
+				p++;
+				i += i / 2;
+			}
+			i *= (60 * 100 / 48);
+			i /= t;
+			if (s[0] != 0 && q < 8 && *p != '&') {
+				j = i * q / 8;
+				waittimer(timer, j);
+				api_boxfilwin(win, 32, 36, 63, 51, 8);
+				if (28 <= note_old && note_old <= 107) {
+					api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10,  76, 7);
+				}
+				note_old = 0;
+				api_beep(0);
+			} else {
+				j = 0;
+				if (*p == '&') {
+					p++;
+				}
+			}
+			waittimer(timer, i - j);
+		} else if (*p == '<') {	/*八度-- */
+			p++;
+			o--;
+		} else if (*p == '>') {	/*八度++ */
+			p++;
+			o++;
+		} else if (*p == 'O') {	/*八度指定*/
+			o = strtol(p + 1, &p, 10);
+		} else if (*p == 'Q') {	/* Q参数指定*/
+			q = strtol(p + 1, &p, 10);
+		} else if (*p == 'L') { /*默认音长指定*/ 
+			l = strtol(p + 1, &p, 10);
+			if (l == 0) {
+				goto syntax_error;
+			}
+			l = 192 / l;
+			for (; *p == '.'; ) {
+				p++;
+				l += l / 2;
+			}
+		} else if (*p == 'T') {	 /*速度指定*/
+			t = strtol(p + 1, &p, 10);
+		} else if (*p == '$') {	/*扩展命令*/
+			if (p[1] == 'K') {	/*卡拉OK命令*/
+				p += 2;
+				for (; *p != 0x22; p++) {
+					if (*p == 0) {
+						goto syntax_error;
+					}
+				}
+				p++;
+				for (i = 0; i < 32; i++) {
+					if (*p == 0) {
+						goto syntax_error;
+					}
+					if (*p == 0x22) {
+						break;
+					}
+					if (*p == '%') {
+						s[i] = p[1];
+						p += 2;
+					} else {
+						s[i] = *p;
+						p++;
+					}
+				}
+				if (i > 30) {
+					end("karaoke too long.\n");
+				}
+				api_boxfilwin(win + 1, 8, 88, 247, 103, 7);
+				s[i] = 0;
+				if (i != 0) {
+					api_putstrwin(win + 1, 128 - i * 4, 88, 0, i, s);
+				}
+				api_refreshwin(win, 8, 88, 248, 104);
+			}
+			for (; *p != ';'; p++) {
+				if (*p == 0) {
+					goto syntax_error;
+				}
+			}
+			p++;
+		} else if (*p == 0) {
+			p = txtbuf;
+		} else {
+syntax_error:
+			end("mml syntax error.\n");
+		}
+	}
+}
+
+void waittimer(int timer, int time)
+{
+	int i;
+	api_settimer(timer, time);
+	for (;;) {
+		i = api_getkey(1);
+		if (i == 'Q' || i == 'q') {
+			api_beep(0);
+			api_end();
+		}
+		if (i == 128) {
+			return;
+		}
+	}
+}
+
+void end(char *s)
+{
+	if (s != 0) {
+		api_putstr0(s);
+	}
+	api_beep(0);
+	api_end();
+}