Commit: 96d501812ad9f7cbf6648efd811a6c9d81136cd2 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Révision: 96d501812ad9f7cbf6648efd811a6c9d81136cd2 (tree)
• l'heure: 2019-04-08 11:14:09
• Auteur: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Message de Log

Class STRING ver 0.1

Change Summary

• add: mips/classes/STRING/STRING.bas
• add: mips/classes/STRING/help.txt

Modification

--- /dev/null
+++ b/mips/classes/STRING/STRING.bas
@@ -0,0 +1,145 @@
+REM STRING.BAS ver 0.1
+REM Class STRING for MachiKania Type Z/M
+REM for handling string as a class object
+
+REM There must be only one public field
+FIELD PUBLIC STR$
+STATIC PRIVATE RES$
+
+REM constructor
+METHOD INIT
+  if args(0)=0 then
+    STR$=""
+  else
+    STR$=""+args$(1)
+  endif
+  return
+
+REM Public method CHARAT
+METHOD CHARAT
+  return peek(STR+args(1))
+
+REM Public method EQUALS
+METHOD EQUALS
+  if len(STR$)!=len(args$(1)) then return 0
+  return not(strncmp(STR$,args$(1),len(STR$)))
+
+REM Public method INDEX
+METHOD INDEX
+  var p
+  if 0<=args(1) then
+    REM args(1) is a character
+    for p=0 to len(STR$)-1
+      if peek(STR+p)=args(1) then return p
+    next
+    return -1
+  endif
+  REM args$(1) is string
+  for p=0 to len(STR$)-len(args$(1))
+    if peek(STR+p)!=peek(args(1)) then continue
+    if 0=strncmp(STR$(p),args$(1),len(args$(1))) then return p
+  next
+  return -1
+
+REM Public method LINDEX
+METHOD LINDEX
+  var p
+  if 0<=args(1) then
+    REM args(1) is a character
+    for p=len(STR$)-1 to 0 step -1
+      if peek(STR+p)=args(1) then return p
+    next
+    return -1
+  endif
+  REM args$(1) is string
+  for p=len(STR$)-len(args$(1)) to 0 step -1
+    if peek(STR+p)!=peek(args(1)) then continue
+    if 0=strncmp(STR$(p),args$(1),len(args$(1))) then return p
+  next
+  return -1
+
+REM Public method LENGTH
+METHOD LENGTH
+  return len(STR$)
+
+REM Public method REPLC
+METHOD REPLC
+  var p
+  RES$=""
+  for p=0 to len(STR$)-1
+    if peek(STR+p)!=peek(args(1)) then
+      REM First character doesn't match
+      RES$=RES$+chr$(peek(STR+p))
+      continue
+    endif
+    if strncmp(STR$(p),args$(1),len(args$(1))) then
+      REM String doesn't match
+      RES$=RES$+chr$(peek(STR+p))
+      continue
+    endif
+    REM String matches. Let's replace
+    RES$=RES$+args$(2)
+    p=p+len(args$(1))-1
+  next
+  return RES$
+
+REM Public method SUBSTR
+METHOD SUBSTR
+  if args(0)=1 then return STR$(args(1))
+  if args(0)=2 then return STR$(args(1),args(2))
+  return STR$
+
+REM Public method LCASE
+METHOD LCASE
+  var p,b
+  RES$=""+STR$
+  for p=0 to len(RES$)-1
+    b=peek(RES+p)
+    if 0x41<=b and b<=0x5a then poke RES+p,b+0x20
+  next
+  return RES
+
+REM Public method UCASE
+METHOD UCASE
+  var p,b
+  RES$=""+STR$
+  for p=0 to len(RES$)-1
+    b=peek(RES+p)
+    if 0x61<=b and b<=0x7a then poke RES+p,b-0x20
+  next
+  return RES
+
+REM Public method TRIM
+METHOD TRIM
+  var p
+  RES$=""+STR$
+  if args(0)=1 then
+    if args(1)=1 then
+      REM L-trim
+      for p=0 to len(RES$)-1
+        if 0x20<peek(RES+p) then return RES+p
+      next
+      return ""
+    elseif args(1)=2 then
+      REM R-trim
+      for p=len(RES$)-1 to 0 step -1
+        if 0x20<peek(RES+p) then
+          poke RES+p+1,0
+          return RES
+        endif
+      next
+      return ""
+    endif
+  endif
+  REM R-trim
+  for p=len(RES$)-1 to 0 step -1
+    if 0x20<peek(RES+p) then
+      poke RES+p+1,0
+      break
+    endif
+  next
+  REM L-trim
+  for p=0 to len(RES$)-1
+    if 0x20<peek(RES+p) then return RES+p
+  next
+  return ""

--- /dev/null
+++ b/mips/classes/STRING/help.txt
@@ -0,0 +1,59 @@
+＜クラス名およびバージョン＞
+STRING
+ver 0.1
+
+＜ファイル名＞
+STRING.BAS
+
+＜ライセンス＞
+BASファイルは、パブリックドメイン。
+
+＜概要＞
+JavaのStringクラス様の文字列を扱うクラス。
+
+＜コンストラクター＞
+第一引数は、文字列もしくはCSTRオブジェクト。
+
+＜パブリックフィールド＞
+STR$
+	扱う文字列を保持する。
+
+＜パブリックメソッド＞
+CHARAT(x)
+	指定位置xにある文字をバイト値で返す
+
+EQUALS(x$)
+	x$と自身を比較し、同一なら１を、そうでないなら０を返す
+
+INDEX(x)
+	xで指定された文字が最初に出現する位置のインデックスを返す
+
+INDEX(x$)
+	x$で示された文字列が最初に出現する位置のインデックスを返す
+
+LINDEX(x)
+	xで指定された文字が最後に出現する位置のインデックスを返す
+
+LINDEX(x$)
+	x$で示された文字列が最後に出現する位置のインデックスを返す
+
+LENGTH()
+	文字列長を返す
+
+REPLC$(x$,y$)
+	文字列x$を、文字列y$に置換した結果の文字列を返す
+
+SUBSTR$(x[,y])
+	部分文字列を返す
+
+LCASE$()
+	全ての大文字を小文字に変換して返す
+
+UCASE$()
+	全ての小文字を大文字に変換して返す
+
+TRIM$([x])
+	x=1の場合左端、x=2の場合右端、x=3の場合両端から空白を除去して返す。省略した場合は
+	両端。
+
+