nadesiko3 3.7.19 → 3.7.20

package/batch/command.txt

@@ -789,10 +789,10 @@
 | 関数 | フォルダ作成 | PATHの/PATHを/PATHに/PATHへ | ディレクトリPATHを作成して返す(再帰的に作成) | ふぉるださくせい | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L682
 | 変数 | ファイルコピーデフォルト動作 | |  '上書禁止'  | ふぁいるこぴーでふぉるとどうさ | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L686
 | 関数 | ファイルコピー | AからBに/AをBへ | パスAをパスBへファイルコピーする(『ファイルコピーデフォルト動作』が「上書」「上書き」「overwrite」なら上書きコピー、それ以外はコピー先が存在するなら失敗)(非同期関数) | ふぁいるこぴー | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L692
-| 関数 | ファイル上書コピー | AからBに/AをBへ | パスAをパスBへファイルコピーする(相手先に内容をマージしてコピー)(非同期関数) | ふぁいるうわがきこぴー | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L707
+| 関数 | ファイル上書コピー | AからBに/AをBへ | パスAをパスBへファイルコピーする(コピー先に内容をマージしてコピー)(非同期関数) | ふぁいるうわがきこぴー | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L707
 | 関数 | ファイルコピー時 | CALLBACKでAからBに/AをBへ | パスAをパスBへファイルコピーしてcallbackを実行 | ふぁいるこぴーしたとき | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L717
 | 関数 | ファイル移動 | AからBに/AをBへ | パスAをパスBへ移動する(『ファイルコピーデフォルト動作』が「上書」「上書き」「overwrite」なら上書き移動、それ以外は移動先が存在するなら失敗)(非同期関数) | ふぁいるいどう | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L730
-| 関数 | ファイル上書移動 | AからBに/AをBへ | パスAをパスBへ移動する(相手先に内容をマージしてコピー後、元を削除)(非同期関数) | ふぁいるうわがきいどう | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L748
+| 関数 | ファイル上書移動 | AからBに/AをBへ | パスAをパスBへ移動する(移動先に内容をマージしてコピー後、元を削除)(非同期関数) | ふぁいるうわがきいどう | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L748
 | 関数 | ファイル処理時 | Fを/Fで | ファイルコピー・移動の処理状況をコールバックFで報告する(変数『対象』に{"件数":N,"現在":M}をセット) | ふぁいるしょりじ | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L761
 | 関数 | ファイル処理強制停止 |  | 『ファイルコピー』『ファイル移動』などの処理を強制停止する | ふぁいるしょりきょうせいていし | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L773
 | 関数 | ファイル移動時 | CALLBACKでAからBに/AをBへ | パスAをパスBへ移動してcallbackを実行 | ふぁいるいどうしたとき | https://github.com/kujirahand/nadesiko3/tree/master/src/plugin_node.mts#L782

package/core/package.json

@@ -1,6 +1,6 @@
 {
   "name": "nadesiko3core",
-  "version": "3.7.19",
+  "version": "3.7.20",
   "description": "Japanese Programming Language Nadesiko v3 core",
   "main": "index.mjs",
   "type": "module",

package/core/src/nako_ast.mts

@@ -45,6 +45,7 @@ export type NodeType = 'nop'
   | 'inc'
   | 'func'
   | 'calc_func'
+  | 'call_value'
   | 'func_pointer'
   | 'func_obj'
   | 'renbun'

package/core/src/nako_core_version.mjs

@@ -1,8 +1,8 @@
 // 実際のバージョン定義 (自動生成されるので以下を編集しない)
 const coreVersion = {
-    version: '3.7.19',
+    version: '3.7.20',
     major: 3,
     minor: 7,
-    patch: 19
+    patch: 20
 };
 export default coreVersion;

package/core/src/nako_core_version.mts

@@ -11,9 +11,9 @@ export interface NakoCoreVersion {
 }
 // 実際のバージョン定義 (自動生成されるので以下を編集しない)
 const coreVersion: NakoCoreVersion = {
-  version: '3.7.19',
+  version: '3.7.20',
   major: 3,
   minor: 7,
-  patch: 19
+  patch: 20
 }
 export default coreVersion

package/core/src/nako_gen.mjs

@@ -65,6 +65,7 @@ export class NakoGen {
         /** スタックトップ */
         this.varsSet = { isFunction: false, names: new Set(), readonly: new Set() };
         this.varslistSet[2] = this.varsSet;
+        this.functionContextStack = [];
         // 現在定義中の関数名
         this.defFuncName = '';
         // 1以上のとき高速化する。
@@ -249,6 +250,11 @@ export class NakoGen {
         code += 'const __v0 = __self.__v0 = __self.__varslist[0];\n';
         code += 'const __v1 = __self.__v1 = __self.__varslist[1];\n';
         code += 'const __vars = __self.__vars = __self.__varslist[2];\n';
+        code += 'const __nako_make_closure = (local, parent) => ({\n' +
+            '  has: (key) => local.has(key) || (parent !== null && parent.has(key)),\n' +
+            '  get: (key) => local.has(key) ? local.get(key) : (parent !== null ? parent.get(key) : undefined),\n' +
+            '  set: (key, value) => { if (local.has(key) || parent === null || !parent.has(key)) { local.set(key, value); } else { parent.set(key, value); } return value; }\n' +
+            '});\n';
         code += `const __modList = __self.__modList = ${JSON.stringify(com.getModList())}\n`;
         code += 'const __line = (lineno) => { __self.__v0.set(\'__line\', lineno); }\n';
         code += '__v0.set(\'__line\', \'l0:__getDefFuncCode\');\n';
@@ -491,6 +497,9 @@ export class NakoGen {
             case 'calc_func':
                 code += this.convCallFunc(node, isExpression);
                 break;
+            case 'call_value':
+                code += this.convCallValue(node, isExpression);
+                break;
             case 'if':
                 code += this.convIf(node);
                 break;
@@ -574,6 +583,28 @@ export class NakoGen {
                 js_set: this.varname_set(name, String(jsvalue))
             };
         }
+        // 外側の無名関数のローカル変数をクロージャとして参照する #2268
+        const currentFunc = this.functionContextStack[this.functionContextStack.length - 1];
+        if (this.varslistSet.length > 4 && currentFunc?.isAnonymous) {
+            const currentIndex = this.varslistSet.length - 1;
+            for (let i = currentIndex - 1; i >= 3; i--) {
+                if (this.varslistSet[i].names.has(name)) {
+                    for (const context of this.functionContextStack) {
+                        if (context.isAnonymous && context.varsIndex > i) {
+                            context.usesClosure = true;
+                        }
+                    }
+                    const nameJson = JSON.stringify(name);
+                    return {
+                        i,
+                        name,
+                        isTop: false,
+                        js: `__nako_closure.get(${nameJson})`,
+                        js_set: `__nako_closure.set(${nameJson}, ${jsvalue ?? 'undefined'})`
+                    };
+                }
+            }
+        }
         // __varslist ?
         for (let i = 2; i >= 0; i--) {
             if (this.varslistSet[i].names.has(name)) {
@@ -787,6 +818,12 @@ export class NakoGen {
         this.varsSet = { isFunction: true, names: initialNames, readonly: new Set() };
         // ローカル変数をPUSHする
         this.varslistSet.push(this.varsSet);
+        const funcContext = {
+            isAnonymous: name === '',
+            varsIndex: this.varslistSet.length - 1,
+            usesClosure: false
+        };
+        this.functionContextStack.push(funcContext);
         // JSの引数と引数をバインド
         if (isExtractJS) {
             variableDeclarations += indent + 'var 引数 = arguments;\n';
@@ -903,6 +940,10 @@ export class NakoGen {
         const lineInfo = '  ' + this.convLineno(node, true, 1) + '\n';
         code = tof + performanceMonitorInjectAtStart + pushStack + variableDeclarations + lineInfo + code + popStack;
         code += endOfFunction;
+        if (funcContext.isAnonymous && funcContext.usesClosure) {
+            const parentClosure = `(typeof __nako_closure === 'undefined' ? null : __nako_closure)`;
+            code = `(function(__nako_closure) {\n  return ${code}\n})(__nako_make_closure(__self.__vars, ${parentClosure}))`;
+        }
         // 名前があれば、関数を登録する
         if (name) {
             const nameFuncValue = this.nakoFuncList.get(name);
@@ -914,6 +955,7 @@ export class NakoGen {
         }
         this.usedAsyncFn = oldUsedAsyncFn; // 以前の値を戻す
         this.varslistSet.pop();
+        this.functionContextStack.pop();
         this.varsSet = this.varslistSet[this.varslistSet.length - 1];
         if (name) {
             this.__self.__varslist[1].set(name, code);
@@ -1650,6 +1692,18 @@ export class NakoGen {
         }
         return code;
     }
+    convCallValue(node, isExpression) {
+        const callee = this._convGen(node.blocks[0], true);
+        const args = node.blocks.slice(1).map((arg) => this._convGen(arg, true));
+        args.push('__self');
+        const funcCall = `${callee}(${args.join(',')})`;
+        if (isExpression) {
+            return funcCall;
+        }
+        const sorePrefex = (this.speedMode.invalidSore === 0) ? '__self.__setSore(' : '';
+        const sorePostfix = (this.speedMode.invalidSore === 0) ? ')' : '';
+        return this.convLineno(node, false) + `${sorePrefex}${funcCall}${sorePostfix};\n`;
+    }
     convRenbun(node) {
         const right = this._convGen(node.blocks[1], true);
         const left = this._convGen(node.blocks[0], false);

package/core/src/nako_gen.mts

@@ -32,6 +32,11 @@ interface PerformanceMonitor {
   systemFunctionBody: number; // システム関数(呼び出しコードを除く)
   mumeiId: number;
 }
+interface FunctionContext {
+  isAnonymous: boolean;
+  varsIndex: number;
+  usesClosure: boolean;
+}
 interface FindVarResult {
   i: number;
   name: string;
@@ -80,6 +85,7 @@ export class NakoGen {
   // 変数管理
   private varslistSet: VarsSet[] // [システム変数一覧, グローバル変数一覧, ローカル変数一覧]で変数セットを記録
   private varsSet: VarsSet // ローカルな変数を記録
+  private functionContextStack: FunctionContext[] // 関数生成時のレキシカルスコープ情報
   public debugOption: NakoDebugOption
   // public
   numAsyncFn: number
@@ -140,6 +146,7 @@ export class NakoGen {
     /** スタックトップ */
     this.varsSet = { isFunction: false, names: new Set(), readonly: new Set() }
     this.varslistSet[2] = this.varsSet
+    this.functionContextStack = []
 
     // 現在定義中の関数名
     this.defFuncName = ''
@@ -333,6 +340,11 @@ export class NakoGen {
     code += 'const __v0 = __self.__v0 = __self.__varslist[0];\n'
     code += 'const __v1 = __self.__v1 = __self.__varslist[1];\n'
     code += 'const __vars = __self.__vars = __self.__varslist[2];\n'
+    code += 'const __nako_make_closure = (local, parent) => ({\n' +
+      '  has: (key) => local.has(key) || (parent !== null && parent.has(key)),\n' +
+      '  get: (key) => local.has(key) ? local.get(key) : (parent !== null ? parent.get(key) : undefined),\n' +
+      '  set: (key, value) => { if (local.has(key) || parent === null || !parent.has(key)) { local.set(key, value); } else { parent.set(key, value); } return value; }\n' +
+      '});\n'
     code += `const __modList = __self.__modList = ${JSON.stringify(com.getModList())}\n`
     code += 'const __line = (lineno) => { __self.__v0.set(\'__line\', lineno); }\n'
     code += '__v0.set(\'__line\', \'l0:__getDefFuncCode\');\n'
@@ -572,6 +584,9 @@ export class NakoGen {
     case 'calc_func':
       code += this.convCallFunc(node as AstCallFunc, isExpression)
       break
+    case 'call_value':
+      code += this.convCallValue(node as AstBlocks, isExpression)
+      break
     case 'if':
       code += this.convIf(node as AstIf)
       break
@@ -656,6 +671,28 @@ export class NakoGen {
         js_set: this.varname_set(name, String(jsvalue))
       }
     }
+    // 外側の無名関数のローカル変数をクロージャとして参照する #2268
+    const currentFunc = this.functionContextStack[this.functionContextStack.length - 1]
+    if (this.varslistSet.length > 4 && currentFunc?.isAnonymous) {
+      const currentIndex = this.varslistSet.length - 1
+      for (let i = currentIndex - 1; i >= 3; i--) {
+        if (this.varslistSet[i].names.has(name)) {
+          for (const context of this.functionContextStack) {
+            if (context.isAnonymous && context.varsIndex > i) {
+              context.usesClosure = true
+            }
+          }
+          const nameJson = JSON.stringify(name)
+          return {
+            i,
+            name,
+            isTop: false,
+            js: `__nako_closure.get(${nameJson})`,
+            js_set: `__nako_closure.set(${nameJson}, ${jsvalue ?? 'undefined'})`
+          }
+        }
+      }
+    }
     // __varslist ?
     for (let i = 2; i >= 0; i--) {
       if (this.varslistSet[i].names.has(name)) {
@@ -872,6 +909,12 @@ export class NakoGen {
     this.varsSet = { isFunction: true, names: initialNames, readonly: new Set() }
     // ローカル変数をPUSHする
     this.varslistSet.push(this.varsSet)
+    const funcContext: FunctionContext = {
+      isAnonymous: name === '',
+      varsIndex: this.varslistSet.length - 1,
+      usesClosure: false
+    }
+    this.functionContextStack.push(funcContext)
     // JSの引数と引数をバインド
     if (isExtractJS) {
       variableDeclarations += indent + 'var 引数 = arguments;\n'
@@ -978,6 +1021,10 @@ export class NakoGen {
     const lineInfo = '  ' + this.convLineno(node, true, 1) + '\n'
     code = tof + performanceMonitorInjectAtStart + pushStack + variableDeclarations + lineInfo + code + popStack
     code += endOfFunction
+    if (funcContext.isAnonymous && funcContext.usesClosure) {
+      const parentClosure = `(typeof __nako_closure === 'undefined' ? null : __nako_closure)`
+      code = `(function(__nako_closure) {\n  return ${code}\n})(__nako_make_closure(__self.__vars, ${parentClosure}))`
+    }
 
     // 名前があれば、関数を登録する
     if (name) {
@@ -991,6 +1038,7 @@ export class NakoGen {
     this.usedAsyncFn = oldUsedAsyncFn // 以前の値を戻す
 
     this.varslistSet.pop()
+    this.functionContextStack.pop()
     this.varsSet = this.varslistSet[this.varslistSet.length - 1]
     if (name) { this.__self.__varslist[1].set(name, code) }
     this.defFuncName = '' // 関数名をクリア
@@ -1727,6 +1775,19 @@ export class NakoGen {
     return code
   }
 
+  convCallValue(node: AstBlocks, isExpression: boolean): string {
+    const callee = this._convGen(node.blocks[0], true)
+    const args = node.blocks.slice(1).map((arg) => this._convGen(arg, true))
+    args.push('__self')
+    const funcCall = `${callee}(${args.join(',')})`
+    if (isExpression) {
+      return funcCall
+    }
+    const sorePrefex = (this.speedMode.invalidSore === 0) ? '__self.__setSore(' : ''
+    const sorePostfix = (this.speedMode.invalidSore === 0) ? ')' : ''
+    return this.convLineno(node, false) + `${sorePrefex}${funcCall}${sorePostfix};\n`
+  }
+
   convRenbun(node: AstOperator): string {
     const right = this._convGen(node.blocks[1], true)
     const left = this._convGen(node.blocks[0], false)

package/core/src/nako_parser3.mjs

@@ -907,7 +907,7 @@ export class NakoParser extends NakoParserBase {
         }
         return ans;
     }
-    yGetArgParen(y) {
+    yGetArgParen(y, funcName) {
         let isClose = false;
         const si = this.stack.length;
         while (!this.isEOF()) {
@@ -927,7 +927,8 @@ export class NakoParser extends NakoParserBase {
             break;
         }
         if (!isClose) {
-            throw NakoSyntaxError.fromNode(`C風関数『${y[0].value}』でカッコが閉じていません`, y[0]);
+            const name = funcName || y[0].value || this.nodeToStr(y[0], { depth: 0, typeName: '関数' }, false);
+            throw NakoSyntaxError.fromNode(`C風関数『${name}』でカッコが閉じていません`, y[0]);
         }
         const a = [];
         while (si < this.stack.length) {
@@ -938,6 +939,30 @@ export class NakoParser extends NakoParserBase {
         }
         return a;
     }
+    /** 関数の戻り値を続けてC風呼び出しする */
+    yApplyCallValue(callee) {
+        let node = callee;
+        while (this.check('(')) {
+            this.get(); // skip '('
+            const args = this.yGetArgParen([node], '関数呼び出しの結果');
+            if (!this.check(')')) {
+                throw NakoSyntaxError.fromNode('C風関数呼び出しのエラー', node);
+            }
+            const close = this.get();
+            node = {
+                type: 'call_value',
+                blocks: [node, ...args],
+                josi: close?.josi || '',
+                startOffset: node.startOffset,
+                endOffset: close?.endOffset,
+                line: node.line,
+                column: node.column,
+                file: node.file,
+                end: this.peekSourceMap()
+            };
+        }
+        return node;
+    }
     /** @returns {AstRepeatTimes | null} */
     yRepeatTime() {
         const map = this.peekSourceMap();
@@ -1775,7 +1800,7 @@ export class NakoParser extends NakoParserBase {
         }
         // 「**して、**」の場合も一度切る
         if (RenbunJosi.indexOf(t.josi) >= 0) {
-            funcNode.josi = 'して';
+            funcNode.josi = (this.isReadingCalc && t.josi === 'には') ? '' : 'して';
             return funcNode;
         }
         // 続き
@@ -2411,7 +2436,7 @@ export class NakoParser extends NakoParserBase {
             return null;
         }
         // 助詞がある？ つまり、関数呼び出しがある？
-        if (t.josi === '') {
+        if (t.josi === '' && !this.canNextFuncTakeNoJosiArg()) {
             return t;
         } // 値だけの場合
         // 関数の呼び出しがあるなら、スタックに載せて関数読み出しを呼ぶ
@@ -2451,6 +2476,18 @@ export class NakoParser extends NakoParserBase {
         }
         return fCalc;
     }
+    /** 次の関数が空助詞の値を引数として受け取れるか */
+    canNextFuncTakeNoJosiArg() {
+        if (!this.check('func')) {
+            return false;
+        }
+        const func = this.peek();
+        const josiList = func?.meta?.josi;
+        if (!josiList) {
+            return false;
+        }
+        return josiList.some((josi) => josi.indexOf('') >= 0);
+    }
     /** @returns {Ast | null} */
     yValueKakko() {
         if (!this.check('(')) {
@@ -2604,7 +2641,7 @@ export class NakoParser extends NakoParserBase {
                     }
                     asyncFn = !!meta.asyncFn;
                 }
-                return {
+                const funcNode = {
                     type: 'func',
                     name: funcName,
                     blocks: args,
@@ -2614,6 +2651,7 @@ export class NakoParser extends NakoParserBase {
                     ...map,
                     end: this.peekSourceMap()
                 };
+                return this.yApplyCallValue(funcNode);
             }
             throw NakoSyntaxError.fromNode('C風関数呼び出しのエラー', funcNameToken || NewEmptyToken());
         }
@@ -2788,7 +2826,7 @@ export class NakoParser extends NakoParserBase {
             const t = this.getCur();
             const word = this.getVarNameRef(t);
             // word[n] || word@n
-            if (word.josi === '' && this.checkTypes(['[', '@'])) {
+            if ((word.josi === '' && this.checkTypes(['[', '@'])) || (word.josi !== '' && this.check('@'))) {
                 const ast = {
                     type: 'ref_array', // 配列参照
                     name: word,
@@ -2808,7 +2846,7 @@ export class NakoParser extends NakoParserBase {
                 return ast;
             }
             // オブジェクトプロパティ構文(参照) word$prop (#1793)
-            if (word.josi === '' && (this.check2(['$', 'word']) || this.check2(['$', 'string']))) {
+            if (this.check2(['$', 'word']) || this.check2(['$', 'string'])) {
                 const propList = [];
                 let josi = '';
                 while (this.check('$')) {

package/core/src/nako_parser3.mts

@@ -813,7 +813,7 @@ export class NakoParser extends NakoParserBase {
     return ans
   }
 
-  yGetArgParen(y: Ast[]): Ast[] { // C言語風呼び出しでカッコの中を取得
+  yGetArgParen(y: Ast[], funcName?: string): Ast[] { // C言語風呼び出しでカッコの中を取得
     let isClose = false
     const si = this.stack.length
     while (!this.isEOF()) {
@@ -831,7 +831,8 @@ export class NakoParser extends NakoParserBase {
       break
     }
     if (!isClose) {
-      throw NakoSyntaxError.fromNode(`C風関数『${(y[0] as AstStrValue).value}』でカッコが閉じていません`, y[0])
+      const name = funcName || (y[0] as AstStrValue).value || this.nodeToStr(y[0], { depth: 0, typeName: '関数' }, false)
+      throw NakoSyntaxError.fromNode(`C風関数『${name}』でカッコが閉じていません`, y[0])
     }
     const a: Ast[] = []
     while (si < this.stack.length) {
@@ -841,6 +842,31 @@ export class NakoParser extends NakoParserBase {
     return a
   }
 
+  /** 関数の戻り値を続けてC風呼び出しする */
+  yApplyCallValue(callee: Ast): Ast {
+    let node = callee
+    while (this.check('(')) {
+      this.get() // skip '('
+      const args = this.yGetArgParen([node], '関数呼び出しの結果')
+      if (!this.check(')')) {
+        throw NakoSyntaxError.fromNode('C風関数呼び出しのエラー', node)
+      }
+      const close = this.get()
+      node = {
+        type: 'call_value',
+        blocks: [node, ...args],
+        josi: close?.josi || '',
+        startOffset: node.startOffset,
+        endOffset: close?.endOffset,
+        line: node.line,
+        column: node.column,
+        file: node.file,
+        end: this.peekSourceMap()
+      } as AstBlocks
+    }
+    return node
+  }
+
   /** @returns {AstRepeatTimes | null} */
   yRepeatTime(): AstRepeatTimes | null {
     const map = this.peekSourceMap()
@@ -1542,7 +1568,7 @@ export class NakoParser extends NakoParserBase {
 
     // 「**して、**」の場合も一度切る
     if (RenbunJosi.indexOf(t.josi) >= 0) {
-      funcNode.josi = 'して'
+      funcNode.josi = (this.isReadingCalc && t.josi === 'には') ? '' : 'して'
       return funcNode
     }
     // 続き
@@ -2139,7 +2165,7 @@ export class NakoParser extends NakoParserBase {
     const t = this.yGetArg()
     if (!t) { return null }
     // 助詞がある？ つまり、関数呼び出しがある？
-    if (t.josi === '') { return t } // 値だけの場合
+    if (t.josi === '' && !this.canNextFuncTakeNoJosiArg()) { return t } // 値だけの場合
     // 関数の呼び出しがあるなら、スタックに載せて関数読み出しを呼ぶ
     const tmpReadingCalc = this.isReadingCalc
     this.isReadingCalc = true
@@ -2176,6 +2202,15 @@ export class NakoParser extends NakoParserBase {
     return fCalc
   }
 
+  /** 次の関数が空助詞の値を引数として受け取れるか */
+  canNextFuncTakeNoJosiArg(): boolean {
+    if (!this.check('func')) { return false }
+    const func = this.peek() as TokenCallFunc | null
+    const josiList = func?.meta?.josi
+    if (!josiList) { return false }
+    return josiList.some((josi) => josi.indexOf('') >= 0)
+  }
+
   /** @returns {Ast | null} */
   yValueKakko(): Ast | null {
     if (!this.check('(')) { return null }
@@ -2318,7 +2353,7 @@ export class NakoParser extends NakoParserBase {
           }
           asyncFn = !!meta.asyncFn
         }
-        return {
+        const funcNode = {
           type: 'func',
           name: funcName,
           blocks: args,
@@ -2328,6 +2363,7 @@ export class NakoParser extends NakoParserBase {
           ...map,
           end: this.peekSourceMap()
         } as AstCallFunc
+        return this.yApplyCallValue(funcNode)
       }
       throw NakoSyntaxError.fromNode('C風関数呼び出しのエラー', funcNameToken || NewEmptyToken())
     }
@@ -2497,7 +2533,7 @@ export class NakoParser extends NakoParserBase {
       const word = this.getVarNameRef(t)
 
       // word[n] || word@n
-      if (word.josi === '' && this.checkTypes(['[', '@'])) {
+      if ((word.josi === '' && this.checkTypes(['[', '@'])) || (word.josi !== '' && this.check('@'))) {
         const ast: Ast = {
           type: 'ref_array', // 配列参照
           name: word,
@@ -2514,7 +2550,7 @@ export class NakoParser extends NakoParserBase {
       }
 
       // オブジェクトプロパティ構文(参照) word$prop (#1793)
-      if (word.josi === '' && (this.check2(['$', 'word']) || this.check2(['$', 'string']))) {
+      if (this.check2(['$', 'word']) || this.check2(['$', 'string'])) {
         const propList: Ast[] = []
         let josi = ''
         while (this.check('$')) {

package/core/test/array_test.mjs

@@ -109,6 +109,22 @@ describe('array_test', async () => {
     await cmp('([{"犬": "わんわん"}])[0]$犬を表示', 'わんわん')
     await cmp('([{"犬": ["わんわん"]}])[0]$犬@0を表示', 'わんわん')
   })
+  it('$の前に助詞を書けるようにする #2313', async () => {
+    // 参照
+    await cmp('色見本={"赤": "#F00", "青": "#00F"};色見本の$赤を表示。', '#F00')
+    await cmp('色見本={"赤": "#F00", "青": "#00F"};色見本から$赤を表示。', '#F00')
+    // 代入
+    await cmp('色見本={"赤": "#F00", "青": "#00F"};色見本の$赤は「#FF0000」;色見本の$赤を表示。', '#FF0000')
+    await cmp('色見本={}; 色見本で$赤は「#F00」; 色見本で$赤を表示。', '#F00')
+  })
+  it('@の前に助詞を書けるようにする(参照) #2313', async () => {
+    await cmp('色見本={"赤": "#F00", "青": "#00F"};色見本の@"赤"を表示。', '#F00')
+    await cmp('色見本={"赤": "#F00", "青": "#00F"};色見本から@"赤"を表示。', '#F00')
+  })
+  it('@の前に助詞を書けるようにする(代入) #2313', async () => {
+    await cmp('色見本={"赤": "#F00", "青": "#00F"};色見本の@"赤"は「#FF0000」;色見本の@"赤"を表示。', '#FF0000')
+    await cmp('色見本={}; 色見本で@"赤"は「#F00」; 色見本で@"赤"を表示。', '#F00')
+  })
   it('配列＋オブジェクトプロパティ #2139', async () => {
     await cmp('A=[{"b":10}]; A[0].b = 20; A[0].bを表示。', '20')
   })

package/core/test/func_call.mjs

@@ -58,6 +58,17 @@ describe('関数呼び出しテスト', async () => {
   it('**には**構文 - 配列カスタムソート', async () => {
     await cmp('A=[5,1,3];Aを配列カスタムソートするには(a,b);それはb-a;ここまで;Aを「:」で配列結合して表示', '5:3:1')
   })
+  it('代入文と**には**構文を組み合わせて戻り値を取得する #1994', async () => {
+    await cmp(`
+TIDは0.001秒後には
+  「時間だよ」を表示
+ここまで
+TIDのタイマー停止
+もし(TID!=undefined)ならば
+  「OK」を表示
+ここまで
+`, 'OK')
+  })
   it('階乗計算 - 再帰', async () => {
     await cmp('●(VをAのBで)階乗計算とは;' +
       'もし、Bが0以下ならば、Vを戻す。;(V*A)をAの(B-1)で階乗計算して戻す。' +