Changeset 20292 for lang/javascript/hsp-on-js/trunk

Timestamp:

09/30/08 18:31:50 (5 years ago)

Author:

fujidig

Message:

mref を実装

Location:

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

Files:

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

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

@@ -35 +35 @@
                         switch(val.getType()) {
                         case VarType.STR:
-                                this.refstr = val.toStrValue();
+                                this.refstr.assign([], val.toStrValue());
                                 break;
                         case VarType.DOUBLE:
-                                this.refdval = val.toDoubleValue();
+                                this.refdval.assign([], val.toDoubleValue());
                                 break;
                         case VarType.INT:
-                                this.stat = val.toIntValue();
+                                this.stat.assign([], val.toIntValue());
                                 break;
                         default:
@@ -166 +166 @@
                 this.scanArgs(arguments, '');
                 throw new StopException;
+        },
+        0x16: function mref(v, id) {
+                this.scanArgs(arguments, 'aN');
+                id = id ? id.toIntValue()._value : 0;
+                switch(id) {
+                case 64:
+                        v.variable.value = this.stat;
+                        break;
+                case 65:
+                        v.variable.value = this.refstr;
+                        break;
+                default:
+                        throw new HSPError(ErrorCode.UNSUPPORTED_FUNCTION);
+                }
         },
         0x18: function exgoto(v, mode, b, label) {
@@ -204 +218 @@
         },
         0x03: function stat() {
-                return this.stat;
+                return this.stat.at([]);
         },
         0x04: function cnt() {
@@ -219 +233 @@
         },
         0x0c: function refstr() {
-                return this.refstr;
+                return this.refstr.at([]);
         },
         0x0d: function refdval() {
-                return this.refdval;
+                return this.refdval.at([]);
         }
 };

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

@@ -10 +10 @@
         this.loopStack = [];
         this.frameStack = [];
-        this.stat = new IntValue(0);
-        this.refdval = new DoubleValue(0);
-        this.refstr = new StrValue('');
+        this.stat = new IntArray();
+        this.refdval = new DoubleArray();
+        this.refstr = new StrArray();
         this.random = new VCRandom();
 }

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\x04\x00\x00\x00\x38\x01\x00\x00',
-'\x60\x00\x00\x00\x90\x00\x00\x00\xf0\x00\x00\x00\x19\x00\x00\x00',
-'\x09\x01\x00\x00\x04\x00\x00\x00\x0d\x01\x00\x00\x2b\x00\x00\x00',
-'\x38\x01\x00\x00\x00\x00\x00\x00\x38\x01\x00\x00\x00\x00\x00\x00',
-'\x38\x01\x00\x00\x00\x00\x00\x00\x38\x01\x00\x00\x00\x00\x00\x00',
-'\x38\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
-'\x01\x20\x00\x00\x00\x00\x08\x00\x04\x00\x10\x27\x0f\x20\x0a\x00',
-'\x01\x00\x01\x00\x01\x40\x00\x00\x0f\x20\x0a\x00\x01\x00\x02\x00',
-'\x01\x40\x00\x00\x01\x20\x03\x00\x00\x00\x08\x00\x0d\x00\x08\x00',
-'\x00\x00\x28\x00\x04\x80\xff\xff\xff\xff\x00\x00\x29\x00\x08\x20',
-'\x20\x00\x01\x00\x02\x00\x01\x40\x01\x00\x01\x40\x00\x00\x01\x20',
-'\x03\x00\x00\x00\x08\x00\x0d\x00\x00\x00\x00\x00\x28\x00\x0d\x00',
-'\x08\x00\x00\x00\x28\x00\x04\x80\xff\xff\xff\xff\x00\x00\x29\x00',
-'\x01\x00\x03\x00\x00\x00\x01\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
-'\x01\x00\x03\x00\x0f\x20\x11\x00\x0f\x20\x00\x00\x07\x00\x00\x00',
-'\x74\x2e\x68\x73\x70\x00\x73\x69\x7a\x65\x00\x73\x72\x63\x00\x64',
-'\x65\x73\x74\x00\x74\x69\x6d\x65\x00\x42\x00\x00\x00\xfe\x00\x00',
-'\x00\x00\x00\x00\x06\x06\x06\x00\x0d\x08\x17\x04\x00\x06\xfd\x06',
-'\x00\x00\x00\x00\xfd\x0b\x00\x00\x01\x00\xfd\x0f\x00\x00\x02\x00',
-'\xfd\x14\x00\x00\x03\x00\xff\xff'
+'\x48\x53\x50\x33\x01\x03\x00\x00\x02\x00\x00\x00\xde\x02\x00\x00',
+'\x60\x00\x00\x00\x9a\x01\x00\x00\xfa\x01\x00\x00\x89\x00\x00\x00',
+'\x83\x02\x00\x00\x20\x00\x00\x00\xa3\x02\x00\x00\x3b\x00\x00\x00',
+'\xde\x02\x00\x00\x00\x00\x00\x00\xde\x02\x00\x00\x00\x00\x00\x00',
+'\xde\x02\x00\x00\x00\x00\x00\x00\xde\x02\x00\x00\x00\x00\x00\x00',
+'\xde\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
+'\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20\x01\x00\x07\x00\x01\x00',
+'\x0b\x20\x00\x00\x06\x00\x04\x00\x00\x00\x0f\x20\x02\x00\x04\x00',
+'\x01\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20\x01\x00\x07\x00',
+'\x02\x00\x0b\x20\x00\x00\x06\x00\x04\x00\x00\x00\x0f\x20\x02\x00',
+'\x03\x00\x06\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20\x01\x00',
+'\x07\x00\x03\x00\x0b\x20\x00\x00\x06\x00\x04\x00\x00\x00\x0f\x20',
+'\x02\x00\x02\x00\x0e\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20',
+'\x16\x00\x01\x00\x00\x00\x04\x40\x40\x00\x09\x20\x0f\x00\x02\x00',
+'\x12\x00\x01\x00\x00\x00\x00\x00\x00\x00\x01\x20\x00\x00\x00\x00',
+'\x08\x00\x04\x00\x7b\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20',
+'\x01\x00\x07\x00\x04\x00\x0b\x20\x00\x00\x06\x00\x04\x00\x00\x00',
+'\x0f\x20\x02\x00\x04\x00\xc8\x01\x09\x20\x0f\x00\x02\x00\x20\x00',
+'\x01\x00\x00\x00\x00\x00\x00\x00\x01\x20\x00\x00\x00\x00\x08\x00',
+'\x02\x00\x2e\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20\x01\x00',
+'\x07\x00\x05\x00\x0b\x20\x00\x00\x06\x00\x04\x00\x00\x00\x0f\x20',
+'\x02\x00\x04\x00\x15\x03\x09\x20\x0f\x00\x02\x00\x32\x00\x01\x00',
+'\x00\x00\x00\x00\x00\x00\x01\x20\x00\x00\x00\x00\x08\x00\x04\x00',
+'\x6f\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20\x16\x00\x01\x00',
+'\x01\x00\x04\x40\x41\x00\x09\x20\x0f\x00\x02\x00\x40\x00\x01\x00',
+'\x01\x00\x00\x00\x00\x00\x01\x20\x01\x00\x00\x00\x08\x00\x02\x00',
+'\x50\x00\x0f\x20\x01\x00\x07\x00\x00\x00\x0f\x20\x11\x00\x0f\x20',
+'\x00\x00\x07\x00\x06\x00\x09\x20\x0f\x00\x02\x00\x54\x00\x0e\x00',
+'\x03\x00\x00\x00\x00\x00\x09\x20\x0f\x00\x02\x00\x5c\x00\x0e\x00',
+'\x0c\x00\x00\x00\x00\x00\x09\x20\x0f\x00\x02\x00\x66\x00\x0e\x00',
+'\x0d\x00\x00\x00\x00\x00\x09\x20\x0f\x00\x0f\x20\x02\x00\x0f\x20',
+'\x11\x00\x0f\x20\x00\x00\x07\x00\x07\x00\x74\x2e\x68\x73\x70\x00',
+'\x1f\x85\xeb\x51\xb8\x1e\x09\x40\x66\x6f\x6f\x00\x73\x74\x61\x74',
+'\x5f\x61\x67\x65\x6e\x74\x20\x3d\x20\x00\x73\x74\x61\x74\x5f\x61',
+'\x67\x65\x6e\x74\x20\x3d\x20\x00\x62\x61\x72\x00\x73\x74\x61\x74',
+'\x5f\x61\x67\x65\x6e\x74\x20\x3d\x20\x00\x72\x65\x66\x73\x74\x72',
+'\x5f\x61\x67\x65\x6e\x74\x20\x3d\x20\x00\x62\x61\x7a\x00\x73\x74',
+'\x61\x74\x20\x3d\x20\x00\x72\x65\x66\x73\x74\x72\x20\x3d\x20\x00',
+'\x72\x65\x66\x64\x76\x61\x6c\x20\x3d\x20\x00\x73\x74\x61\x74\x5f',
+'\x61\x67\x65\x6e\x74\x00\x72\x65\x66\x73\x74\x72\x5f\x61\x67\x65',
+'\x6e\x74\x00\xab\x00\x00\x00\x0d\x00\x00\x00\x1e\x00\x00\x00\x2f',
+'\x00\x00\x00\x58\x00\x00\x00\x77\x00\x00\x00\xa5\x00\x00\x00\xc7',
+'\x00\x00\x00\xfe\x00\x00\x00\x00\x00\x00\x00\x00\x04\x0d\x04\x0d',
+'\x04\x0d\x04\x00\x06\x08\x06\x04\x0d\x08\x06\x04\x0d\x08\x06\x04',
+'\x00\x06\x08\x06\x04\x00\x06\x00\x00\x08\x08\x08\x02\x02\x00\x06',
+'\xfd\x71\x00\x00\x00\x00\xfd\x7c\x00\x00\x01\x00\xff\xff'
         ].join('');
 

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

@@ -1 @@
-size = 10000
-sdim src, size
-sdim dest, size
+#define set(%1) gosub *@f : if 0 : *@ : return %1
 
-time = gettime(-1)
-memcpy dest, src, size
-time = int(gettime(-1) - time)
-mes time
+gosub *show
+set 1
+gosub *show
+set 3.14
+gosub *show
+set "foo"
+gosub *show
 
+mref stat_agent, 64
+mes "stat_agent = "+stat_agent
+stat_agent = 123
+gosub *show
+set 456
+mes "stat_agent = "+stat_agent
+stat_agent = "bar"
+gosub *show
+set 789
+mes "stat_agent = "+stat_agent
+stat_agent = 111
+gosub *show
+
+mref refstr_agent, 65
+mes "refstr_agent = "+refstr_agent
+refstr_agent = "baz"
+gosub *show
+
+stop
+
+*show
+mes "stat = "+stat
+mes "refstr = "+refstr
+mes "refdval = "+refdval
+mes
+return
+