提交: 0f3767e7c0eca157a5230acd3432c5c92c63de75 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• 修訂: 0f3767e7c0eca157a5230acd3432c5c92c63de75 (tree)
• 時間: 2019-02-24 13:09:58
• 作者: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

Class CKNJ8

Change Summary

• add: mips/classes/CKNJ8/CKNJ8.BAS
• add: mips/classes/CKNJ8/MISAKI.JIS
• add: mips/classes/CKNJ8/MISAKI.UNI
• add: mips/classes/CKNJ8/font/misaki2jis.php
• add: mips/classes/CKNJ8/font/misaki2uni.php
• add: mips/classes/CKNJ8/help.txt

差異

--- /dev/null
+++ b/mips/classes/CKNJ8/CKNJ8.BAS
@@ -0,0 +1,195 @@
+REM CKNJ8.BAS ver 0.1
+REM Class CKNJ8 for MachiKania Type Z/M
+REM using Misaki 8x8 font
+
+STATIC PRIVATE CACHE,CNUM,MODE,FBUFF,FO
+
+METHOD INIT
+  REM File buffer size is 8 bytes
+  dim FBUFF(1)
+  REM use 158 PCG fonts
+  dim CACHE(157)
+  REM CNUM=0-127 correspond 0x80-0xFF, CNUM=128-136 do 0x01-0x09,
+  REM and CNUM=137-157 do 0x0b-0x1f
+  CNUM=0
+  REM Use PCG
+  usepcg
+  REM Set encoding
+  REM MODE: either "EUC-JP", or "UTF-8"
+  if 0<args(0) then
+    if 0=STRNCMP("EUC-JP",args$(1),7) then
+      MODE=1
+    elseif 0=STRNCMP("UTF-8",args$(1),6) then
+      MODE=2
+    else
+      print "Illegal encoding:";args$(1)
+      end
+    endif
+  else
+    REM Default: EUC-JP
+    MODE=1
+  endif
+  return
+
+REM Public method, PRT and GPRT
+REM 1st argument: string to print
+METHOD PRT
+  var t$,b,i,j
+  fclose
+  FO=0
+  t$=gosub$(MKSTR,args$(1))
+  print t$;
+  fclose
+  return
+
+METHOD GPRT
+  var t$,b,i,j
+  fclose
+  FO=0
+  t$=gosub$(MKSTR,args$(1))
+  gprint ,args(2),args(3),t$
+  fclose
+  return
+
+REM Private method GETPCG
+REM 1st param: JIS code # starting from 0x2121
+REM return: Byte as PCG character
+LABEL GETPCG
+  var i
+  for i=0 to 157
+    if CACHE(i)=args(1) then
+      REM Found in CACHE
+      if i<128 then return 0x80+i
+      if i<137 then return 0x01+i-128
+      return 0x0b + i-137
+    endif
+  next
+  REM Not found in CACHE
+  REM Open the file and find it.
+  gosub FGETCH,args(1)
+  i=CNUM
+  CNUM=CNUM+1
+  if 157<=CNUM then CNUM=0
+  if i<128 then
+    i=0x80+i
+  elseif i<137 then
+    i=0x01+i-128
+  else
+    i=i-137
+  endif
+  pcg i,gosub(LE2BE,FBUFF(0)),gosub(LE2BE,FBUFF(1))
+  return i
+
+REM Private medthod FGETCH
+REM 1st param: JIS code # starting from 0x2121
+LABEL FGETCH
+  var p
+  if 0=FO then
+    REM File isn't yet open
+    REM open it 
+    FO=1
+    if 2=MODE then
+      fopen "MISAKI.UNI","r"
+    else
+      fopen "MISAKI.JIS","r"
+    endif
+  endif
+  p=args(1)
+  if 2=MODE then
+    REM UTF-8
+    if p<0x0500 then
+      p=p-0x500
+    elseif p<0x2000 then
+      REM ERR
+    elseif p<0x2700 then
+      p=p-0x2000+0x0500
+    elseif p<0x3000 then
+      REM ERR
+    elseif p<0x3100 then
+      p=p-0x3000+0x0c00
+    elseif p<0x4e00 then
+      REM ERR
+    elseif p<0xa000 then
+      p=p-0x4e00+0x0d00
+    elseif p<0xff00 then
+      REM ERR
+    else
+      p=p-0xff00+0x5f00
+    endif
+  else
+    REM EUC
+    p=p-0xa1a1
+  endif
+  fseek p*8
+  fget FBUFF,8
+  return
+
+REM Private method MKSTR
+REM 1st param: JIS/EUC/UTF string
+REM return: string with PCG set
+LABEL MKSTR
+  t$=""
+  i=0
+  if 1=MODE then
+  	goto EUCSTR
+  elseif 2=MODE then
+  	goto UTFSTR
+  else
+  	goto EUCSTR
+  endif
+
+REM Private method EUCSTR
+REM supports EUC-JP string
+LABEL EUCSTR
+  while i<len(args$(1))
+    b=peek(args(1)+i)
+    if 0xa0<b then
+      REM Detect Kanji
+      REM Get EUC code in var j
+      j=b*256+peek(args(1)+i+1)
+      i=i+2
+      REM Get PCG character and add to t$
+      j=gosub(GETPCG,j)
+      t$=t$+chr$(j)
+    else
+      t$=t$+chr$(b)
+      i=i+1
+    endif
+  wend
+  return t$
+
+REM Private method UTFSTR
+REM supports UTF-8 string
+LABEL UTFSTR
+  while i<len(args$(1))
+    b=peek(args(1)+i)
+    if 0xc0 = (0xe0 and b) then
+      REM Get Unicode in j
+      j=((b and 0x1f)<<6)+(peek(args(1)+i+1) and 0x3f)
+      i=i+2
+      REM Get PCG character and add to t$
+      j=gosub(GETPCG,j)
+      t$=t$+chr$(j)
+    elseif 0xe0 = (0xf0 and b) then
+      REM Get Unicode in j
+      j=((b and 0x0f)<<12)+((peek(args(1)+i+1) and 0x3f)<<6)+(peek(args(1)+i+2) and 0x3f)
+      i=i+3
+      REM Get PCG character and add to t$
+      j=gosub(GETPCG,j)
+      t$=t$+chr$(j)
+    else
+      t$=t$+chr$(b)
+      i=i+1
+    endif
+  wend
+  return t$
+
+REM Private method LE2BE
+REM Note that PCG statement is big endian
+LABEL LE2BE
+  var i
+  i=args(1)<<24
+  i=i or ((args(1) and 0xff00) <<8)
+  i=i or ((args(1) and 0xff0000) >>8)
+  i=i or (args(1)>>24)
+  return i

Binary files /dev/null and b/mips/classes/CKNJ8/MISAKI.JIS differ

Binary files /dev/null and b/mips/classes/CKNJ8/MISAKI.UNI differ

--- /dev/null
+++ b/mips/classes/CKNJ8/font/misaki2jis.php
@@ -0,0 +1,50 @@
+<?php
+
+/*
+
+	Binary font file generator for Misaki 8x8 font.
+	Place 'misaki_gothic.bdf' in the same directory and run this script.
+	The font file is used for UTF-8.
+	Misaki font was downloaded from: http://www.geocities.jp/littlimi/misaki.htm
+	On 2/23/2019, Misaki font is available from: http://littlelimit.net/
+
+*/
+
+$tfile=file_get_contents('./misaki_gothic.bdf');
+$ftable=array();
+preg_replace_callback('/STARTCHAR[\s]+([0-9a-f]{4})[\s\S]*?(([0-9a-f]{2}[\s]+){8})/',function($m) use(&$ftable){
+	/* JIS 0x3835: 元 */
+	/* example:
+		STARTCHAR 3835
+		ENCODING 14389
+		SWIDTH 960 0
+		DWIDTH 8 0
+		BBX 8 8 0 -2
+		BITMAP
+		7c
+		00
+		fe
+		28
+		28
+		4a
+		8e
+		00
+		ENDCHAR
+	*/
+	$ftable[hexdec($m[1])]=preg_replace('/[\s]+/','',$m[2]);
+},$tfile);
+//print_r($ftable);
+
+$result='';
+for($code=0x2121;$code<=0x7426;$code++){
+	if (isset($ftable[$code])) {
+		for($i=0;$i<16;$i+=2){
+			$b=substr($ftable[$code],$i,2);
+			$result.=chr(hexdec($b));
+		}
+	} else {
+		$result.="\x00\x00\x00\x00\x00\x00\x00\x00";
+	}
+}
+
+file_put_contents('./MISAKI.JIS',$result);

--- /dev/null
+++ b/mips/classes/CKNJ8/font/misaki2uni.php
@@ -0,0 +1,100 @@
+<?php
+/*
+
+	Binary font file generator for Misaki 8x8 font.
+	Place 'misaki_gothic.bdf' in the same directory and run this script.
+	Place 'JIS0208.TXT' in the same directory and run this script.
+	The font file is used for UTF-8.
+	Misaki font was downloaded from: http://www.geocities.jp/littlimi/misaki.htm
+	On 2/23/2019, Misaki font is available from: http://littlelimit.net/
+	Unicode - JIS table was obtained from: http://www.unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/JIS0208.TXT
+
+*/
+
+$tfile=file_get_contents('./misaki_gothic.bdf');
+$ftable=array();
+preg_replace_callback('/STARTCHAR[\s]+([0-9a-f]{4})[\s\S]*?(([0-9a-f]{2}[\s]+){8})/',function($m) use(&$ftable){
+	/* JIS 0x3835: 元 */
+	/* example:
+		STARTCHAR 3835
+		ENCODING 14389
+		SWIDTH 960 0
+		DWIDTH 8 0
+		BBX 8 8 0 -2
+		BITMAP
+		7c
+		00
+		fe
+		28
+		28
+		4a
+		8e
+		00
+		ENDCHAR
+	*/
+	$ftable[hexdec($m[1])]=preg_replace('/[\s]+/','',$m[2]);
+},$tfile);
+//print_r($ftable);
+
+$tfile=file_get_contents('./JIS0208.TXT');
+$jtable=array();
+preg_replace_callback('/[\r\n]0x([0-9A-F]{4})[\s]+0x([0-9A-F]{4})[\s]+0x([0-9A-F]{4})/',function($m) use(&$jtable,&$ftable){
+	// $m[1]: SJIS, $m[2]: JIS, $m[3]: UTF16
+	if ($ftable[hexdec($m[2])]) {
+		$jtable[hexdec($m[3])]=$ftable[hexdec($m[2])];
+	}
+},$tfile);
+
+$result='';
+for($code=0x0000;$code<=0xffff;$code++){
+	/*
+		Skip:
+			0500 - 1fff
+			2700 - 2fff
+			3100 - 4dff
+			a000 - feff
+		Valid:
+			0000 - 04ff (0500, total 0500)
+			2000 - 26ff (0700, total 0c00)
+			3000 - 30ff (0100, total 0d00)
+			4e00 - 9fff (5200, total 5f00)
+			ff00 - ffff (0100, total 6000)
+		Therefore:
+			if P<0x0500 then
+			  P=P-0x500
+			elseif P<0x2000 then
+			  REM ERR
+			elseif P<0x2700 then
+			  P=P-0x2000+0x0500
+			elseif P<0x3000 then
+			  REM ERR
+			elseif P<0x3100 then
+			  P=P-0x3000+0x0c00
+			elseif P<0x4e00 then
+			  REM ERR
+			elseif P<0xa000 then
+			  P=P-0x4e00+0x0d00
+			elseif P<0xff00 then
+			  REM ERR
+			else
+			  P=P-0xff00+0x5f00
+			endif
+	*/
+	switch($code){
+		case 0x0500: $code=0x2000; break;
+		case 0x2700: $code=0x3000; break;
+		case 0x3100: $code=0x4e00; break;
+		case 0xa000: $code=0xff00; break;
+		default:                   break;
+	}
+	if (isset($jtable[$code])) {
+		for($i=0;$i<16;$i+=2){
+			$b=substr($jtable[$code],$i,2);
+			$result.=chr(hexdec($b));
+		}
+	} else {
+		$result.="\x00\x00\x00\x00\x00\x00\x00\x00";
+	}
+}
+file_put_contents('./MISAKI.UNI',$result);
+

--- /dev/null
+++ b/mips/classes/CKNJ8/help.txt
@@ -0,0 +1,43 @@
+＜クラス名およびバージョン＞
+CKNJ8
+ver 0.1
+
+＜ファイル名＞
+CKNJ8.BAS
+MISAKI.JIS
+MISAKI.UNI
+
+＜概要＞
+日本語表示クラス。美咲フォント(8x8)を使用し、PCGを用いてキャラクターディスプレイ
+に、また、グラフィックディスプレイに日本語を含む文字列を表示する。文字コードは、
+EUC-JP, UTF-8に対応。
+
+＜コンストラクター＞
+第１引数
+	文字コードとして、"EUC-JP", "UTF-8"のいずれかを選択。省略した場合は、
+	"EUC-JP"。
+
+＜パブリックフィールド＞
+なし
+
+＜パブリックメソッド＞
+PRT(x$)
+	日本語を含む文字列x$を、キャラクターディスプレイに表示する。
+
+GPRT(x$,y,z)
+	日本語を含む文字列x$を、グラフィックディスプレイに表示する。yは文字色、zは
+	背景色を指定。
+
+＜使用例＞
+テキストモードでの日本語表示例。この場合は、BASファイルをUTF-8(BOMなし)で保存す
+る事。
+
+USECLASS CKNJ8
+K=NEW(CKNJ8,"UTF-8")
+K.PRT("本日は晴天なり")
+
+次のように使用する事も出来る。
+
+USECLASS CKNJ8
+CKNJ8::INIT("UTF-8")
+CKNJ8::PRT("本日は晴天なり")