Commit: 97b183d0ef6865a260d06dfd58c115092667294b - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revision: 97b183d0ef6865a260d06dfd58c115092667294b (tree)
• Zeit: 2019-02-25 14:20:38
• Autor: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

New class, CKNJ12. CRLF for GPRT method. Error handling.

Ändern Zusammenfassung

• add: mips/classes/CKNJ12/CKNJ12.BAS
• add: mips/classes/CKNJ12/SHNMK12.JIS
• add: mips/classes/CKNJ12/SHNMK12.UNI
• add: mips/classes/CKNJ12/font/k12shnm2jis.php
• add: mips/classes/CKNJ12/font/k12shnmk2uni.php
• add: mips/classes/CKNJ12/help.txt
• modified: mips/classes/CKNJ16/CKNJ16.BAS
• modified: mips/classes/CKNJ16/font/shinonome2jis.php
• modified: mips/classes/CKNJ16/font/shinonome2uni.php
• modified: mips/classes/CKNJ16/help.txt

Diff

--- /dev/null
+++ b/mips/classes/CKNJ12/CKNJ12.BAS
@@ -0,0 +1,200 @@
+REM CKNJ16.BAS ver 0.1
+REM Class CKNJ12 for MachiKania Type Z/M
+REM using Shinonome 12x12 font
+
+STATIC PRIVATE MODE,FBUFF,FO,PLT,BMPF
+
+METHOD INIT
+  REM File buffer size is 18 bytes
+  dim FBUFF(4)
+  REM 12x12 bytes matrix for PUTBMP
+  dim BMPF(35)
+  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
+
+METHOD GPRT
+  var t$,b,i,j
+  fclose
+  FO=0
+  REM Set palette
+  PLT=args(2)*256+args(3)
+  gosub GPSTR,args$(1)
+  fclose
+  return
+
+REM Private method GPRTCH
+REM 1st param: JIS code #
+LABEL GPRTCH
+  var i,x,y
+  REM Create BMP from font file
+  gosub FGETCH,args(1)
+  for y=0 to 5
+    i=peek(FBUFF+y*3)
+    for x=0 to 7
+      if i and (1<<(7-x)) then
+        poke BMPF+y*24+x,PLT>>8
+      else
+        poke BMPF+y*24+x,PLT and 0xff
+      endif
+    next
+    i=peek(FBUFF+y*3+1)
+    for x=8 to 11
+      if i and (1<<(15-x)) then
+        poke BMPF+y*24+x,PLT>>8
+      else
+        poke BMPF+y*24+x,PLT and 0xff
+      endif
+    next
+    for x=0 to 3
+      if i and (1<<(3-x)) then
+        poke BMPF+(y*2+1)*12+x,PLT>>8
+      else
+        poke BMPF+(y*2+1)*12+x,PLT and 0xff
+      endif
+    next
+    i=peek(FBUFF+y*3+2)
+    for x=4 to 11
+      if i and (1<<(11-x)) then
+        poke BMPF+(y*2+1)*12+x,PLT>>8
+      else
+        poke BMPF+(y*2+1)*12+x,PLT and 0xff
+      endif
+    next
+  next
+  REM Draw in graphic
+  x=SYSTEM(28)
+  y=SYSTEM(29)
+  putbmp x,y,12,12,BMPF
+  if x+24<SYSTEM(22) then
+    x=x+12
+  else
+    x=0
+    y=y+12
+  endif
+  point x,y
+  return
+
+REM Private medthod FGETCH
+REM 1st param: JIS code #
+LABEL FGETCH
+  var p
+  if 0=FO then
+    REM File isn't yet open
+    REM open it 
+    FO=1
+    if 2=MODE then
+      fopen "SHNMK12.UNI","r"
+    else
+      fopen "SHNMK12.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
+      p=-1
+    elseif p<0x2700 then
+      p=p-0x2000+0x0500
+    elseif p<0x3000 then
+      p=-1
+    elseif p<0x3100 then
+      p=p-0x3000+0x0c00
+    elseif p<0x4e00 then
+      p=-1
+    elseif p<0xa000 then
+      p=p-0x4e00+0x0d00
+    elseif p<0xff00 then
+      p=-1
+    else
+      p=p-0xff00+0x5f00
+    endif
+  else
+    REM EUC
+    p=p-0xa1a1
+  endif
+  p=p*18
+  if 0<=p and p+18<flen() then
+    fseek p
+    fget FBUFF,18
+  else
+    for p=0 to 4
+      FBUFF(p)=0
+    next
+  endif
+  return
+
+REM Private method GPSTR
+REM 1st param: JIS/EUC/UTF string
+REM return: string with PCG set
+LABEL GPSTR
+  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 GPrint character
+      gosub GPRTCH,j
+    elseif 0x20<b then
+      REM 7 bit character
+      gosub GPRTCH,0xa3b0+b-0x30
+      i=i+1
+    endif
+  wend
+  return
+
+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 GPrint character
+      gosub GPRTCH,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 GPrint character
+      gosub GPRTCH,j
+    elseif 0x20<b then
+      REM 7 bit character
+      gosub GPRTCH,0xff00+b-0x20
+      i=i+1
+    endif
+  wend
+  return

Binary files /dev/null and b/mips/classes/CKNJ12/SHNMK12.JIS differ

Binary files /dev/null and b/mips/classes/CKNJ12/SHNMK12.UNI differ

--- /dev/null
+++ b/mips/classes/CKNJ12/font/k12shnm2jis.php
@@ -0,0 +1,55 @@
+<?php
+
+/*
+
+	Binary font file generator for Shinonome 12x12 font.
+	Place 'shnmk12.bdf' in the same directory and run this script.
+	The font file is used for EUC-JP.
+	On 2/23/2019, Shinonome font is not available from: http://openlab.ring.gr.jp/efont/shinonome/
+	but archive is found from: https://web.archive.org/
+
+*/
+
+$tfile=file_get_contents('./shnmk12.bdf');
+$ftable=array();
+preg_replace_callback('/STARTCHAR[\s]+([0-9a-f]{4})[\s\S]*?(([0-9a-f]{4}[\s]+){12})/',function($m) use(&$ftable){
+	/* JIS 0x3835: 元 */
+	/* example:
+		STARTCHAR 3835
+		ENCODING 14389
+		SWIDTH 960 0
+		DWIDTH 12 0
+		BBX 12 12 0 -2
+		BITMAP
+		0000
+		1f80
+		0000
+		0000
+		7fe0
+		0900
+		0900
+		0900
+		1100
+		1120
+		2120
+		40e0
+		ENDCHAR
+	*/
+	$ftable[hexdec($m[1])]=preg_replace('/([0-9a-f]{3})[0-9a-f][\s]+/','$1',$m[2]);
+},$tfile);
+//print_r($ftable);exit;
+
+$result='';
+for($code=0x2121;$code<=0x7426;$code++){
+	if (isset($ftable[$code])) {
+		for($i=0;$i<36;$i+=2){
+			$b=substr($ftable[$code],$i,2);
+			$result.=chr(hexdec($b));
+		}
+	} else {
+		$result.="\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+		$result.="\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+	}
+}
+
+file_put_contents('./SHNMK12.JIS',$result);

--- /dev/null
+++ b/mips/classes/CKNJ12/font/k12shnmk2uni.php
@@ -0,0 +1,105 @@
+<?php
+/*
+
+	Binary font file generator for Shinonome 12x12 font.
+	Place 'shnmk16.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.
+	On 2/23/2019, Shinonome font is not available from: http://openlab.ring.gr.jp/efont/shinonome/
+	but archive is found from: https://web.archive.org/
+	Unicode - JIS table was obtained from: http://www.unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/JIS0208.TXT
+
+*/
+
+$tfile=file_get_contents('./shnmk12.bdf');
+$ftable=array();
+preg_replace_callback('/STARTCHAR[\s]+([0-9a-f]{4})[\s\S]*?(([0-9a-f]{4}[\s]+){12})/',function($m) use(&$ftable){
+	/* JIS 0x3835: 元 */
+	/* example:
+		STARTCHAR 3835
+		ENCODING 14389
+		SWIDTH 960 0
+		DWIDTH 12 0
+		BBX 12 12 0 -2
+		BITMAP
+		0000
+		1f80
+		0000
+		0000
+		7fe0
+		0900
+		0900
+		0900
+		1100
+		1120
+		2120
+		40e0
+		ENDCHAR
+	*/
+	$ftable[hexdec($m[1])]=preg_replace('/([0-9a-f]{3})[0-9a-f][\s]+/','$1',$m[2]);
+},$tfile);
+//print_r($ftable);exit;
+
+$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 (isset($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<36;$i+=2){
+			$b=substr($jtable[$code],$i,2);
+			$result.=chr(hexdec($b));
+		}
+	} else {
+		$result.="\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+		$result.="\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+	}
+}
+file_put_contents('./SHNMK12.UNI',$result);
+

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

--- a/mips/classes/CKNJ16/CKNJ16.BAS
+++ b/mips/classes/CKNJ16/CKNJ16.BAS
@@ -1,4 +1,4 @@
-REM CKNJ16.BAS ver 0.1
+REM CKNJ16.BAS ver 0.11
 REM Class CKNJ16 for MachiKania Type Z/M
 REM using Shinonome 16x16 font
 
@@ -61,8 +61,16 @@ LABEL GPRTCH
     next
   next
   REM Draw in graphic
-  putbmp ,16,16,BMPF
-  point SYSTEM(28)+16,SYSTEM(29)
+  x=SYSTEM(28)
+  y=SYSTEM(29)
+  putbmp x,y,16,16,BMPF
+  if x+32<SYSTEM(22) then
+    x=x+16
+  else
+    x=0
+    y=y+16
+  endif
+  point x,y
   return
 
 REM Private medthod FGETCH
@@ -86,18 +94,19 @@ LABEL FGETCH
       p=p-0x500
     elseif p<0x2000 then
       REM ERR
+      p=-1
     elseif p<0x2700 then
       p=p-0x2000+0x0500
     elseif p<0x3000 then
-      REM ERR
+      p=-1
     elseif p<0x3100 then
       p=p-0x3000+0x0c00
     elseif p<0x4e00 then
-      REM ERR
+      p=-1
     elseif p<0xa000 then
       p=p-0x4e00+0x0d00
     elseif p<0xff00 then
-      REM ERR
+      p=-1
     else
       p=p-0xff00+0x5f00
     endif
@@ -105,8 +114,15 @@ LABEL FGETCH
     REM EUC
     p=p-0xa1a1
   endif
-  fseek p*32
-  fget FBUFF,32
+  p=p*32
+  if 0<=p and p+32<flen() then
+    fseek p
+    fget FBUFF,32
+  else
+    for p=0 to 7
+      FBUFF(p)=0
+    next
+  endif
   return
 
 REM Private method GPSTR

--- a/mips/classes/CKNJ16/font/shinonome2jis.php
+++ b/mips/classes/CKNJ16/font/shinonome2jis.php
@@ -2,7 +2,7 @@
 
 /*
 
-	Binary font file generator for Misaki 8x8 font.
+	Binary font file generator for Shinonome 16x16 font.
 	Place 'shnmk16.bdf' in the same directory and run this script.
 	The font file is used for EUC-JP.
 	On 2/23/2019, Shinonome font is available from: https://www.mgo-tec.com/kanji-font-shinonome

--- a/mips/classes/CKNJ16/font/shinonome2uni.php
+++ b/mips/classes/CKNJ16/font/shinonome2uni.php
@@ -1,7 +1,7 @@
 <?php
 /*
 
-	Binary font file generator for Misaki 8x8 font.
+	Binary font file generator for Shinonome 16x16 font.
 	Place 'shnmk16.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.

--- a/mips/classes/CKNJ16/help.txt
+++ b/mips/classes/CKNJ16/help.txt
@@ -1,6 +1,6 @@
 ＜クラス名およびバージョン＞
 CKNJ16
-ver 0.1
+ver 0.11
 
 ＜ファイル名＞
 CKNJ16.BAS