Changeset 20178 for lang

Timestamp:

09/29/08 09:48:31 (5 years ago)

Author:

fujidig

Message:

wpeek, lpeek を実装

Location:

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

Files:

• builtin-funcs.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

@@ -310 +310 @@
                 return new IntValue(v.getbyte(n));
         },
+        0x00a: function wpeek(v, n) {
+                this.scanArgs(arguments, 'vN');
+                n = n ? n.toIntValue()._value : 0;
+                if(n < 0) {
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION);
+                }
+                return new IntValue(v.getbyte(n) | v.getbyte(n + 1) << 8);
+        },
+        0x00b: function lpeek(v, n) {
+                this.scanArgs(arguments, 'vN');
+                n = n ? n.toIntValue()._value : 0;
+                if(n < 0) {
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION);
+                }
+                return new IntValue(v.getbyte(n) | v.getbyte(n + 1) << 8 | v.getbyte(n + 2) << 16 | v.getbyte(n + 3) << 24);
+        },
         0x00d: function varuse(v) {
                 this.scanArgs(arguments, 'v');
@@ -329 +345 @@
                 return new IntValue(Math.min(Math.max(min, val), max));
         },
-        0x100: function str(val) {
-                this.scanArgs(arguments, '.');
+        0x100: function str(val, base) {
+                this.scanArgs(arguments, '.N');
+                if(base) {
+                        // 16 進数の変換用。strf を実装するまでのつなぎ
+                        val = val.toIntValue()._value;
+                        base = base.toIntValue()._value;
+                        if(val < 0) val += 0x100000000;
+                        return new StrValue(val.toString(base));
+                }
                 return val.toStrValue();
         },

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\xe1\x00\x00\x00',
-'\x60\x00\x00\x00\x5c\x00\x00\x00\xbc\x00\x00\x00\x08\x00\x00\x00',
-'\xc4\x00\x00\x00\x08\x00\x00\x00\xcc\x00\x00\x00\x15\x00\x00\x00',
-'\xe1\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x00\x00\x00\x00\x00\x00',
-'\xe1\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x00\x00\x00\x00\x00\x00',
-'\xe1\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
-'\x01\x20\x00\x00\x00\x00\x08\x00\x04\x80\xaf\xbe\xad\xde\x0f\x20',
-'\x04\x00\x07\x00\x00\x00\x04\x00\x04\x00\x09\x20\x0f\x00\x0d\x00',
-'\x09\x00\x00\x00\x28\x00\x01\x00\x00\x00\x0e\x40\x04\x00\x00\x00',
-'\x29\x00\x0f\x20\x05\x00\x09\x20\x0f\x00\x0d\x00\x09\x00\x00\x00',
-'\x28\x00\x01\x00\x00\x00\x04\xc0\xff\xff\xff\xff\x00\x00\x29\x00',
-'\x0f\x20\x11\x00\x0f\x20\x00\x00\x07\x00\x01\x00\x74\x2e\x68\x73',
-'\x70\x00\x61\x00\x1b\x00\x00\x00\x28\x00\x00\x00\xfe\x00\x00\x00',
-'\x00\x00\x00\x07\x06\x0c\x02\x0d\x06\xfd\x06\x00\x00\x00\x00\xff',
-'\xff'
+'\x48\x53\x50\x33\x01\x03\x00\x00\x01\x00\x00\x00\xe4\x03\x00\x00',
+'\x60\x00\x00\x00\x48\x03\x00\x00\xa8\x03\x00\x00\x08\x00\x00\x00',
+'\xb0\x03\x00\x00\x04\x00\x00\x00\xb4\x03\x00\x00\x30\x00\x00\x00',
+'\xe4\x03\x00\x00\x00\x00\x00\x00\xe4\x03\x00\x00\x00\x00\x00\x00',
+'\xe4\x03\x00\x00\x00\x00\x00\x00\xe4\x03\x00\x00\x00\x00\x00\x00',
+'\xe4\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
+'\x01\x20\x00\x00\x00\x00\x08\x00\x04\x80\x11\x22\x33\x44\x04\xc0',
+'\x55\x66\x77\x88\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x09\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x00\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
+'\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x09\x00\x00\x00\x28\x00',
+'\x01\x00\x00\x00\x04\x40\x01\x00\x00\x00\x29\x00\x04\x40\x10\x00',
+'\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x09\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x02\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
+'\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x09\x00\x00\x00\x28\x00',
+'\x01\x00\x00\x00\x04\x40\x03\x00\x00\x00\x29\x00\x04\x40\x10\x00',
+'\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x09\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x04\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
+'\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x09\x00\x00\x00\x28\x00',
+'\x01\x00\x00\x00\x04\x40\x05\x00\x00\x00\x29\x00\x04\x40\x10\x00',
+'\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x09\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x06\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
+'\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x09\x00\x00\x00\x28\x00',
+'\x01\x00\x00\x00\x04\x40\x07\x00\x00\x00\x29\x00\x04\x40\x10\x00',
+'\x00\x00\x29\x00\x09\x20\x0f\x00\x09\x20\x0f\x00\x0d\x00\x00\x01',
+'\x00\x00\x28\x00\x0d\x00\x0a\x00\x00\x00\x28\x00\x01\x00\x00\x00',
+'\x04\x40\x00\x00\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00',
+'\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x0a\x00',
+'\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x01\x00\x00\x00\x29\x00',
+'\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01',
+'\x00\x00\x28\x00\x0d\x00\x0a\x00\x00\x00\x28\x00\x01\x00\x00\x00',
+'\x04\x40\x02\x00\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00',
+'\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x0a\x00',
+'\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x03\x00\x00\x00\x29\x00',
+'\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01',
+'\x00\x00\x28\x00\x0d\x00\x0a\x00\x00\x00\x28\x00\x01\x00\x00\x00',
+'\x04\x40\x04\x00\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00',
+'\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x0a\x00',
+'\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x05\x00\x00\x00\x29\x00',
+'\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01',
+'\x00\x00\x28\x00\x0d\x00\x0a\x00\x00\x00\x28\x00\x01\x00\x00\x00',
+'\x04\x40\x06\x00\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00',
+'\x09\x20\x0f\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x0b\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x00\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
+'\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x0b\x00\x00\x00\x28\x00',
+'\x01\x00\x00\x00\x04\x40\x01\x00\x00\x00\x29\x00\x04\x40\x10\x00',
+'\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x0b\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x02\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x09\x20\x0f\x00',
+'\x0d\x00\x00\x01\x00\x00\x28\x00\x0d\x00\x0b\x00\x00\x00\x28\x00',
+'\x01\x00\x00\x00\x04\x40\x03\x00\x00\x00\x29\x00\x04\x40\x10\x00',
+'\x00\x00\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00',
+'\x0d\x00\x0b\x00\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x04\x00',
+'\x00\x00\x29\x00\x04\x40\x10\x00\x00\x00\x29\x00\x0f\x20\x11\x00',
+'\x0f\x20\x00\x00\x07\x00\x00\x00\x74\x2e\x68\x73\x70\x00\x61\x00',
+'\x9e\x01\x00\x00\xfe\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a',
+'\x14\x14\x14\x14\x14\x14\x14\x14\x00\x02\x00\x14\x14\x14\x14\x14',
+'\x14\x14\x00\x02\x00\x14\x14\x14\x14\x14\x00\x06\xfd\x06\x00\x00',
+'\x00\x00\xff\xff'
         ].join('');
 

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

@@ -1 @@
-a = $deadbeaf
-repeat 4
-        mes peek(a, cnt)
-loop
-mes peek(a, -1)
+;#define hex(%1) strf("%%x", %1)
+#define hex(%1) str(%1, 16)
+
+
+a = $44332211, $88776655
+mes hex(peek(a,0))
+mes hex(peek(a,1))
+mes hex(peek(a,2))
+mes hex(peek(a,3))
+mes hex(peek(a,4))
+mes hex(peek(a,5))
+mes hex(peek(a,6))
+mes hex(peek(a,7))
+
+mes 
+
+mes hex(wpeek(a,0))
+mes hex(wpeek(a,1))
+mes hex(wpeek(a,2))
+mes hex(wpeek(a,3))
+mes hex(wpeek(a,4))
+mes hex(wpeek(a,5))
+mes hex(wpeek(a,6))
+
+mes 
+
+mes hex(lpeek(a,0))
+mes hex(lpeek(a,1))
+mes hex(lpeek(a,2))
+mes hex(lpeek(a,3))
+mes hex(lpeek(a,4))
+