Changeset 20933

Timestamp:

10/08/08 00:23:40 (2 months ago)

Author:

fujidig

Message:

notesel, noteunsel, noteinfo (notemax, notesize) を実装

Location:

lang/javascript/hsp-on-js/trunk/src

Files:

• builtin-funcs.js (modified) (2 diffs)
• evaluator.js (modified) (2 diffs)
• run-in-shell.js (modified) (1 diff)
• t.hsp (modified) (1 diff)

lang/javascript/hsp-on-js/trunk/src/builtin-funcs.js

@@ -337 +337 @@
                 v.setbytes(offset, Utils.strTimes(String.fromCharCode(val), length));
         },
+        0x22: function notesel(v) {
+                this.scanArgs(arguments, 'v');
+                if(v.getType() != VarType.STR) {
+                        v.assign(StrValue.EMPTY_STR);
+                }
+                var offset = v.variable.value.getOffset(v.indices);
+                if(offset == null) throw new HSPError(ErrorCode.ARRAY_OVERFLOW);
+                var buf = v.variable.value.values[offset];
+                this.noteStack.push(buf);
+        },
         0x27: function randomize(seed) {
                 this.scanArgs(arguments, 'N');
                 this.random.srand(seed ? seed.toIntValue()._value : +new Date);
+        },
+        0x28: function noteunsel() {
+                this.scanArgs(arguments, '');
+                this.noteStack.pop();
         }
 };
@@ -450 +464 @@
                 return new IntValue(using);
         },
+        0x00e: function noteinfo(n) {
+                this.scanArgs(arguments, 'N');
+                n = n ? n.toIntValue()._value : 0;
+                switch(n) {
+                case 0: // notemax
+                        var lines = this.getNote().getValue()._value.split(/\r\n|\n|\r/);
+                        var len = lines.length;
+                        if(!lines[len-1]) len --;
+                        return new IntValue(len);
+                case 1: // notesize
+                        return new IntValue(this.getNote().getValue()._value.length);
+                default:
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION);
+                }
+        },
         0x00f: function instr(str, fromIndex, pattern) {
                 this.scanArgs(arguments, 'sNs');

lang/javascript/hsp-on-js/trunk/src/evaluator.js

@@ -10 +10 @@
         this.loopStack = [];
         this.frameStack = [];
+        this.noteStack = [];
         this.stat = new IntArray();
         this.refdval = new DoubleArray();
@@ -202 +203 @@
                 this.frameStack.push(new Frame(this.pc + 1));
                 this.pc = label.pos - 1;
+        },
+        getNote: function getNote() {
+                if(this.noteStack.length == 0) {
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION);
+                }
+                return this.noteStack[this.noteStack.length - 1];
         },
         getBuiltinFuncName: function getBuiltinFuncName(insn) {

lang/javascript/hsp-on-js/trunk/src/run-in-shell.js

@@ -21 +21 @@
 function main(){
         var data = [
-'\x48\x53\x50\x33\x01\x03\x00\x00\x01\x00\x00\x00\xb0\x00\x00\x00',
-'\x60\x00\x00\x00\x30\x00\x00\x00\x90\x00\x00\x00\x09\x00\x00\x00',
-'\x99\x00\x00\x00\x04\x00\x00\x00\x9d\x00\x00\x00\x13\x00\x00\x00',
-'\xb0\x00\x00\x00\x00\x00\x00\x00\xb0\x00\x00\x00\x00\x00\x00\x00',
-'\xb0\x00\x00\x00\x00\x00\x00\x00\xb0\x00\x00\x00\x00\x00\x00\x00',
-'\xb0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
-'\x01\x20\x00\x00\x00\x00\x08\x00\x02\x00\x06\x00\x08\x20\x1f\x00',
-'\x01\x00\x00\x00\x04\x40\x64\x00\x08\x20\x1a\x00\x01\x00\x00\x00',
-'\x04\x40\x40\x00\x0f\x20\x11\x00\x0f\x20\x00\x00\x07\x00\x00\x00',
-'\x74\x2e\x68\x73\x70\x00\x00\x61\x00\x12\x00\x00\x00\xfe\x00\x00',
-'\x00\x00\x00\x00\x06\x06\x06\x06\xfd\x07\x00\x00\x00\x00\xff\xff'
+'\x48\x53\x50\x33\x01\x03\x00\x00\x04\x00\x00\x00\x61\x02\x00\x00',
+'\x70\x00\x00\x00\x70\x01\x00\x00\xe0\x01\x00\x00\x3b\x00\x00\x00',
+'\x1b\x02\x00\x00\x08\x00\x00\x00\x23\x02\x00\x00\x3e\x00\x00\x00',
+'\x61\x02\x00\x00\x00\x00\x00\x00\x61\x02\x00\x00\x00\x00\x00\x00',
+'\x61\x02\x00\x00\x00\x00\x00\x00\x61\x02\x00\x00\x00\x00\x00\x00',
+'\x61\x02\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x60\x00\x00\x00',
+'\x68\x73\x70\x6c\x65\x74\x33\x00\x00\x00\x00\x00\x00\x00\x00\x00',
+'\x01\x20\x00\x00\x00\x00\x08\x00\x02\x00\x06\x00\x08\x20\x22\x00',
+'\x01\x00\x00\x00\x09\x20\x0f\x00\x0d\x00\x0e\x00\x00\x00\x28\x00',
+'\x04\x00\x01\x00\x00\x00\x29\x00\x01\x20\x01\x00\x00\x00\x08\x00',
+'\x02\x00\x08\x00\x08\x20\x22\x00\x01\x00\x01\x00\x09\x20\x0f\x00',
+'\x0d\x00\x0e\x00\x00\x00\x28\x00\x04\x00\x01\x00\x00\x00\x29\x00',
+'\x01\x20\x02\x00\x00\x00\x08\x00\x02\x00\x0b\x00\x08\x20\x22\x00',
+'\x01\x00\x02\x00\x09\x20\x0f\x00\x0d\x00\x0e\x00\x00\x00\x28\x00',
+'\x04\x00\x01\x00\x00\x00\x29\x00\x01\x20\x03\x00\x00\x00\x08\x00',
+'\x02\x00\x0f\x00\x08\x20\x22\x00\x01\x00\x03\x00\x09\x20\x0f\x00',
+'\x0d\x00\x0e\x00\x00\x00\x28\x00\x04\x00\x01\x00\x00\x00\x29\x00',
+'\x09\x20\x0f\x00\x0d\x00\x0e\x00\x00\x00\x28\x00\x04\x00\x01\x00',
+'\x00\x00\x29\x00\x08\x20\x28\x00\x09\x20\x0f\x00\x0d\x00\x0e\x00',
+'\x00\x00\x28\x00\x04\x00\x01\x00\x00\x00\x29\x00\x08\x20\x28\x00',
+'\x09\x20\x0f\x00\x0d\x00\x0e\x00\x00\x00\x28\x00\x04\x00\x01\x00',
+'\x00\x00\x29\x00\x08\x20\x28\x00\x09\x20\x0f\x00\x0d\x00\x0e\x00',
+'\x00\x00\x28\x00\x04\x00\x01\x00\x00\x00\x29\x00\x08\x20\x28\x00',
+'\x09\x20\x0f\x00\x01\x20\x00\x00\x00\x00\x08\x00\x02\x00\x14\x00',
+'\x02\x40\x15\x00\x02\x40\x17\x00\x02\x40\x1a\x00\x02\x40\x1e\x00',
+'\x02\x40\x23\x00\x02\x40\x2a\x00\x0f\x20\x0b\x00\x07\x00\x00\x00',
+'\x0f\x20\x0c\x00\x07\x00\x00\x00\x01\x00\x00\x00\x08\x20\x22\x00',
+'\x01\x00\x00\x00\x00\x00\x28\x00\x0e\x00\x04\x00\x00\x00\x29\x00',
+'\x09\x20\x0f\x00\x0d\x00\x0e\x00\x00\x00\x28\x00\x00\x00\x29\x00',
+'\x0f\x20\x05\x00\x0f\x20\x11\x00\x0f\x20\x00\x00\x07\x00\x01\x00',
+'\x74\x2e\x68\x73\x70\x00\x2a\x00\x2a\x2a\x00\x2a\x2a\x2a\x00\x2a',
+'\x2a\x2a\x2a\x00\x00\x20\x00\x0d\x0a\x00\x0d\x0a\x20\x00\x0d\x0a',
+'\x0d\x0a\x00\x61\x0d\x0a\x0d\x0a\x62\x00\x61\x0d\x0a\x0d\x0a\x62',
+'\x0d\x0a\x00\x61\x00\x62\x00\x63\x00\x64\x00\xb2\x00\x00\x00\xb2',
+'\x00\x00\x00\xfe\x00\x00\x00\x00\x00\x00\x00\x06\x04\x0a\x06\x04',
+'\x0a\x06\x04\x0a\x06\x04\x0a\x0a\x02\x0a\x02\x0a\x02\x0a\x02\x00',
+'\x02\x12\x0a\x0a\x08\x02\x06\xfd\x33\x00\x00\x00\x00\xfd\x35\x00',
+'\x00\x01\x00\xfd\x37\x00\x00\x02\x00\xfd\x39\x00\x00\x03\x00\xff',
+'\xff'
         ].join('');
 

lang/javascript/hsp-on-js/trunk/src/t.hsp

@@ -1 @@
-a = ""
-memexpand a, 100
-poke a, 64
+#runtime "hsplet3"
+a = "*"
+notesel a
+mes noteinfo(1) ; >> 1
+        b = "**"
+        notesel b
+        mes noteinfo(1) ; >> 2
+                c = "***"
+                notesel c
+                mes noteinfo(1) ; >> 3
+                        d = "****"
+                        notesel d
+                        mes noteinfo(1) ; >> 4
+                        mes noteinfo(1) ; >> 4
+                        noteunsel
+                mes noteinfo(1) ; >> 3
+                noteunsel
+        mes noteinfo(1) ; >> 2
+        noteunsel
+mes noteinfo(1) ; >> 1
+noteunsel
+
+mes
+a = "", " ", "\n", "\n ", "\n\n", "a\n\nb", "a\n\nb\n"
+foreach a
+        notesel a.cnt
+        mes noteinfo()
+loop
+