nadesiko3 3.2.36 → 3.2.37

package/release/yoyakugo.json

@@ -18,6 +18,8 @@
   "定",
   "逐次実行",
   "条件分岐",
+  "増",
+  "減",
   "変数",
   "定数",
   "エラー監視",

package/src/nako_from_dncl.js

@@ -77,20 +77,65 @@ function dncl2nako(src, filename) {
         'を実行し，そうでなければ': '違えば',
         'を実行し、そうでなければ': '違えば',
         'を繰り返す': 'ここまで',
-        '改行なしで表示': '継続表示',
+        '改行なしで表示': '連続無改行表示',
         'のすべての値を0にする': '=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]',
         'ずつ増やしながら':'ずつ増やし繰り返す',
         'ずつ減らしながら':'ずつ減らし繰り返す',
     }
-
+    let peekChar = () => src.charAt(0)
+    let nextChar = () => {
+        let ch = src.charAt(0)
+        src = src.substring(1)
+        return ch
+    }
+    // 文字列を判定するフラグ
+    let flagStr = false
+    let poolStr = ''
+    let endStr = ''
+    // 結果
     let result = ''
     while (src !='') {
         // 代入記号を変更
         const ch = src.charAt(0)
+        if (flagStr) {
+            if (ch === endStr) {
+                result += poolStr + endStr
+                poolStr = ''
+                flagStr = false
+                nextChar()
+                continue
+            }
+            poolStr += nextChar()
+            continue
+        }
+        // 文字列？
+        if (ch == '"') {
+            flagStr = true
+            endStr = '"'
+            poolStr = nextChar()
+            continue
+        }
+        if (ch == '「') {
+            flagStr = true
+            endStr = '」'
+            poolStr = nextChar()
+            continue
+        }
+        if (ch == '『') {
+            flagStr = true
+            endStr = '』'
+            poolStr = nextChar()
+            continue
+        }
         // 空白を飛ばす
         if (ch === ' ' || ch === '　' || ch == '\t') {
-            result += ch
-            src = src.substring(1)
+            result += nextChar()
+            continue
+        }
+        // 表示を連続表示に置き換える
+        if (src.substring(0, 3) === 'を表示') {
+            result += 'を連続表示'
+            src = src.substring(3)
             continue
         }
         // 1行先読み
@@ -101,74 +146,6 @@ function dncl2nako(src, filename) {
         } else {
             line = src
         }
-        //「var を n 増やす」を「var = var + 1」と置き換える
-        const r = line.match(/^([a-zA-Z_][a-zA-Z0-9_]*)\s*を\s*([0-9a-zA-Z_]+)\s*(増やす|減らす)/)
-        if (r) {
-            const var_name = r[1]
-            const inc_val = r[2]
-            const inc_dec = r[3]
-            if (inc_dec == '増やす') {
-                result += `${var_name} = ${var_name} + ${inc_val};`
-            } else {
-                result += `${var_name} = ${var_name} - ${inc_val};`
-            }
-            src = src.substring(r[0].length)
-            continue
-        }
-        //「S1とS2とS3を表示する」を「(S1)&(S2)&S3)を表示」と置き換える
-        // あまりスマートではないが手抜きで
-        if (line.indexOf('表示') >= 0) {
-            const r6 = line.match(/^(.+?)と(.+?)と(.+?)と(.+?)と(.+?)と(.+?)(を|と)表示/)
-            if (r6) {
-                const s1 = r6[1]
-                const s2 = r6[2]
-                const s3 = r6[3]
-                const s4 = r6[4]
-                const s5 = r6[5]
-                const s6 = r6[6]
-                result += `(${s1})&(${s2})&(${s3})&(${s4})&(${s5})&(${s6})を表示`
-                src = src.substring(r6[0].length)
-                continue
-            }
-            const r5 = line.match(/^(.+?)と(.+?)と(.+?)と(.+?)と(.+?)(を|と)表示/)
-            if (r5) {
-                const s1 = r5[1]
-                const s2 = r5[2]
-                const s3 = r5[3]
-                const s4 = r5[4]
-                const s5 = r5[5]
-                result += `(${s1})&(${s2})&(${s3})&(${s4})&(${s5})を表示`
-                src = src.substring(r5[0].length)
-                continue
-            }
-            const r4 = line.match(/^(.+?)と(.+?)と(.+?)と(.+?)(を|と)表示/)
-            if (r4) {
-                const s1 = r4[1]
-                const s2 = r4[2]
-                const s3 = r4[3]
-                const s4 = r4[4]
-                result += `(${s1})&(${s2})&(${s3})&(${s4})を表示`
-                src = src.substring(r4[0].length)
-                continue
-            }
-            const r3 = line.match(/^(.+?)と(.+?)と(.+?)(を|と)表示/)
-            if (r3) {
-                const s1 = r3[1]
-                const s2 = r3[2]
-                const s3 = r3[3]
-                result += `(${s1})&(${s2})&(${s3})を表示`
-                src = src.substring(r3[0].length)
-                continue
-            }
-            const r2 = line.match(/^(.+?)と(.+?)を表示/)
-            if (r2) {
-                const s1 = r2[1]
-                const s2 = r2[2]
-                result += `(${s1})&(${s2})を表示`
-                src = src.substring(r2[0].length)
-                continue
-            }
-        }
         // 『もしj>hakosuならばhakosu←jを実行する』のような単文のもし文
         const rif = line.match(/^もし(.+)を実行する(。|．)*/)
         if (rif) {
@@ -193,8 +170,7 @@ function dncl2nako(src, filename) {
         }
 
         // 1文字削る
-        src = src.substring(1)
-        result += ch
+        result += nextChar()
     }
     return result
 }

package/src/nako_gen.js

@@ -476,6 +476,9 @@ try {
       case 'let':
         code += this.convLet(node)
         break
+      case 'inc':
+        code += this.convInc(node)
+        break
       case 'word':
       case 'variable':
         code += this.convGetVar(node)
@@ -1376,6 +1379,24 @@ try {
     return `(${left} ${op} ${right})`
   }
 
+  convInc (node) {
+    // もし値が省略されていたら、変数「それ」に代入する
+    let value = null
+    if (this.speedMode.invalidSore === 0) { value = this.varname('それ') }
+    if (node.value) { value = this._convGen(node.value, true) }
+    if (value == null) {
+      throw NakoSyntaxError.fromNode('加算する先の変数名がありません。', node)
+    }
+    // 変数名
+    const name = node.name.value
+    const res = this.findVar(name)
+    let code = ''
+    if (res === null) { this.varsSet.names.add(name) }
+    code += `if (typeof(${this.varname(name)}) === 'undefined') { ${this.varname(name)} = 0; }`
+    code += `${this.varname(name)} += ${value}`
+    return ';' + this.convLineno(node, false) + code + '\n'
+  }
+
   convLet (node) {
     // もし値が省略されていたら、変数「それ」に代入する
     let value = null

package/src/nako_parser3.js

@@ -96,6 +96,7 @@ class NakoParser extends NakoParserBase {
   /** @returns {Ast | null} */
   ySentence () {
     const map = this.peekSourceMap()
+    
     // 最初の語句が決まっている構文
     if (this.check('eol')) { return this.yEOL() }
     if (this.check('もし')) { return this.yIF() }
@@ -103,18 +104,11 @@ class NakoParser extends NakoParserBase {
     if (this.check('逐次実行')) { return this.yTikuji() }
     if (this.accept(['抜ける'])) { return { type: 'break', josi: '', ...map, end: this.peekSourceMap() } }
     if (this.accept(['続ける'])) { return { type: 'continue', josi: '', ...map, end: this.peekSourceMap() } }
-    if (this.accept(['require', 'string', '取込'])) {
-      return {
-        type: 'require',
-        value: this.y[1].value,
-        josi: '',
-        ...map,
-        end: this.peekSourceMap()
-      }
-    }
+    if (this.accept(['require', 'string', '取込'])) { return { type: 'require', value: this.y[1].value, josi: '', ...map, end: this.peekSourceMap() } }
     if (this.accept(['not', '非同期モード'])) { return this.yASyncMode() }
     if (this.accept(['not', 'DNCLモード'])) { return this.yDNCLMode() }
     if (this.accept(['not', 'string', 'モード設定'])) { return this.ySetGenMode(this.y[1].value) }
+    
     // 関数呼び出し演算子
     if (this.check2(['func', '←'])) { return this.yCallOp() }
     if (this.check2(['func', 'eq'])) {
@@ -128,7 +122,9 @@ class NakoParser extends NakoParserBase {
     if (this.accept([this.yLet])) { return this.y[0] }
     if (this.accept([this.yDefTest])) { return this.y[0] }
     if (this.accept([this.yDefFunc])) { return this.y[0] }
-    if (this.accept([this.yCall])) { // 関数呼び出しの他、各種構文の実装
+    
+    // 関数呼び出しの他、各種構文の実装
+    if (this.accept([this.yCall])) {
       const c1 = this.y[0]
       if (c1.josi === 'して') { // 連文をblockとして接続する(もし構文、逐次実行構文などのため)
         const c2 = this.ySentence()
@@ -944,52 +940,107 @@ class NakoParser extends NakoParserBase {
     }
   }
 
+  /** @returns {import('./nako3').Ast | null | undefined} */
+  yDainyu () {
+    const map = this.peekSourceMap()
+    const dainyu = this.get() // 代入
+    if (dainyu === null) { return null }
+    const value = this.popStack(['を'])
+    const word = this.popStack(['へ', 'に'])
+    if (!word || (word.type !== 'word' && word.type !== 'func' && word.type !== '配列参照')) {
+      throw NakoSyntaxError.fromNode('代入文で代入先の変数が見当たりません。『(変数名)に(値)を代入』のように使います。', dainyu)
+    }
+    // 配列への代入
+    if (word.type === '配列参照') {
+      return {
+          type: 'let_array', 
+          name: word.name, 
+          index: word.index, 
+          value: value, 
+          josi: '', 
+          checkInit: this.flagCheckArrayInit, 
+          ...map, end: this.peekSourceMap()
+      };
+    }
+    // 一般的な変数への代入
+    return {
+      type: 'let', name: word, 
+      value: value, josi: '', 
+      ...map, end: this.peekSourceMap()
+    }
+  }
+
+  /** @returns {import('./nako3').Ast | null | undefined} */
+  ySadameru () {
+    const map = this.peekSourceMap()
+    const sadameru = this.get() // 定める
+    if (sadameru === null) { return null }
+    const word = this.popStack(['を'])
+    const value = this.popStack(['へ', 'に'])
+    console.log(word)
+    if (!word || (word.type !== 'word' && word.type !== 'func' && word.type !== '配列参照')) {
+      throw NakoSyntaxError.fromNode('『定める』文で定数が見当たりません。『(定数名)を(値)に定める』のように使います。', sadameru)
+    }
+    return {
+      type: 'def_local_var', name: word, vartype: '定数', 
+      value: value, josi: '', 
+      ...map, end: this.peekSourceMap()
+    };
+  }
+
+  /** @returns {import('./nako3').Ast | null | undefined} */
+  yIncDec () {
+    const map = this.peekSourceMap()
+    const action = this.get() // (増やす|減らす)
+    if (action === null) { return null }
+    
+    // 『Nずつ増やして繰り返す』文か？
+    if (this.check('繰返')) { 
+      this.pushStack({type: 'word', value: action.value, josi: action.josi, ...map, end: this.peekSourceMap})
+      return this.yFor();
+    }
+    
+    // スタックから引数をポップ
+    let value = this.popStack(['だけ', '']);
+    const word = this.popStack(['を'])
+    if (!word || (word.type !== 'word' && word.type !== '配列参照')) {
+      throw NakoSyntaxError.fromNode(
+        `『${action.type}』文で定数が見当たりません。『(変数名)を(値)だけ${action.type}』のように使います。`, 
+        action)
+    }
+
+    // 減らすなら-1かける
+    if (action.value === '減') {
+      value = { type: 'op', operator: '*', left: value, right: {type: 'number', value: -1, line: action.line}, josi: '', ...map }
+    }
+
+    return {
+      type: 'inc',
+      name: word, 
+      value: value,
+      josi: action.josi,
+      ...map, end: this.peekSourceMap()
+    };
+  }
+
   /** @returns {import('./nako3').Ast | null | undefined} */
   yCall () {
     if (this.isEOF()) { return null }
+    
+    // スタックに積んでいく
     while (!this.isEOF()) {
-      const map = this.peekSourceMap()
+      if (this.check('ここから')) { this.get() }
       // 代入
-      if (this.check('代入')) {
-        const dainyu = this.get()
-        const value = this.popStack(['を'])
-        const word = this.popStack(['へ', 'に'])
-        if (!word || (word.type !== 'word' && word.type !== 'func' && word.type !== '配列参照')) {
-          throw NakoSyntaxError.fromNode('代入文で代入先の変数が見当たりません。', dainyu)
-        }
-
-        switch (word.type) {
-          case '配列参照': // 配列への代入
-            return { type: 'let_array', name: word.name, index: word.index, value: value, josi: '', checkInit: this.flagCheckArrayInit, ...map, end: this.peekSourceMap() }
-          default:
-            return { type: 'let', name: word, value: value, josi: '', ...map, end: this.peekSourceMap() }
-        }
-      }
-      if (this.check('定める')) {
-        const dainyu = this.get()
-        const word = this.popStack(['を'])
-        const value = this.popStack(['に'])
-        if (!word || word.type !== 'word') {
-          throw NakoSyntaxError.fromNode('代入文で代入先の変数が見当たりません。', dainyu)
-        }
-        return {
-          type: 'def_local_var',
-          name: word,
-          vartype: '定数',
-          value: value,
-          ...map,
-          end: this.peekSourceMap()
-        }
-      }
+      if (this.check('代入')) { return this.yDainyu(); }
+      if (this.check('定める')) { return this.ySadameru(); }
       // 制御構文
-      if (this.check('ここから')) { this.get() }
       if (this.check('回')) { return this.yRepeatTime() }
       if (this.check('間')) { return this.yWhile() }
       if (this.check('繰返') || this.check('増繰返') || this.check('減繰返')) { return this.yFor() }
       if (this.check('反復')) { return this.yForEach() }
       if (this.check('条件分岐')) { return this.ySwitch() }
-      // 戻す
       if (this.check('戻る')) { return this.yReturn() }
+      if (this.check('増') || this.check('減')) { return this.yIncDec() }
       // C言語風関数
       if (this.check2([['func', 'word'], '(']) && this.peek().josi === '') { // C言語風
         const t = this.yValue()
@@ -1020,6 +1071,7 @@ class NakoParser extends NakoParserBase {
       }
       break
     } // end of while
+    
     // 助詞が余ってしまった場合
     if (this.stack.length > 0) {
       this.logger.debug('--- stack dump ---\n' + JSON.stringify(this.stack, null, 2) + '\npeek: ' + JSON.stringify(this.peek(), null, 2))

package/src/nako_reserved_words.js

@@ -23,6 +23,8 @@ module.exports = {
   '定': '定める',
   '逐次実行': '逐次実行',
   '条件分岐': '条件分岐',
+  '増': '増',
+  '減': '減',
   '変数': '変数',
   '定数': '定数',
   'エラー監視': 'エラー監視', // 例外処理:エラーならばと対

package/src/nako_version.js

@@ -1,8 +1,8 @@
 // なでしこバージョン
 const nakoVersion = {
-  version: '3.2.36',
+  version: '3.2.37',
   major: 3,
   minor: 2,
-  patch: 36
+  patch: 37
 }
 module.exports = nakoVersion

package/src/plugin_system.js

@@ -202,6 +202,30 @@ const PluginSystem = {
     },
     return_none: true
   },
+  '連続表示': { // @引数に指定した引数を全て表示する // @れんぞく表示
+    type: 'func',
+    josi: [['と', 'を']],
+    isVariableJosi: true,
+    pure: true,
+    fn: function (...a) {
+      const sys = a.pop()
+      const v = a.join('')
+      sys.__exec('表示', [v, sys])
+    },
+    return_none: true
+  },
+  '連続無改行表示': { // @引数に指定した引数を全て表示する（改行しない) // @れんぞくむかいぎょうひょうじ
+    type: 'func',
+    josi: [['と', 'を']],
+    isVariableJosi: true,
+    pure: true,
+    fn: function (...a) {
+      const sys = a.pop()
+      const v = a.join('')
+      sys.__exec('継続表示', [v, sys])
+    },
+    return_none: true
+  },
   '表示ログ': { type: 'const', value: '' }, // @ひょうじろぐ
   '表示ログクリア': { // @表示ログを空にする // @ひょうじろぐくりあ
     type: 'func',

package/test/common/basic_test.js

@@ -314,4 +314,15 @@ describe('basic', () => {
   it('もし文で「ならば」の前の空行でエラー #1079', () => {
     cmp('A=5;もし、A > 3　ならば「OK」と表示;', 'OK')
   })
+  it('『増やす』『減らす』文の追加 #1145', () => {
+    // 増やす
+    cmp('A=0;Aを1増やす。Aと表示;', '1')
+    cmp('A=0;Aを123だけ増やす。Aと表示;', '123')
+    // 減らす
+    cmp('A=10;Aを1減らす。Aと表示;', '9')
+    cmp('A=10;Aを5だけ減らす。Aと表示;', '5')
+    // 初期化しないで使うと0になる
+    cmp('Aを3増やす;Aと表示;', '3')
+    cmp('Aを3減らす;Aと表示;', '-3')
+  })
 })

package/test/common/dncl_test.js

@@ -58,6 +58,8 @@ describe('dncl (#1140)', () => {
     it('表示エミュレート', () => {
         cmpNako('!DNCLモード\nx←10,y←20\nxと"-"とyを表示する。', '10-20')
         cmpNako('!DNCLモード\nx←10,y←20\n"("とxと","とyと")"を表示する。', '(10,20)')
+        cmpNako('!DNCLモード\nx←10,y←20,z←30\n"("とxと","とyと","とzと")"を表示する。', '(10,20,30)')
+        cmpNako('!DNCLモード\nx←10,y←20\n「<」とxと","とyと「>」を表示する。', '<10,20>')
     })
 })