Changeset 20195

Timestamp:

09/29/08 16:16:59 (5 years ago)

Author:

fujidig

Message:

memset, memcpy を実装

Location:

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

Files:

• builtin-funcs.js (modified) (2 diffs)
• hsp-array.js (modified) (1 diff)
• run-in-shell.js (modified) (1 diff)
• t.hsp (modified) (1 diff)
• utils.js (modified) (1 diff)
• variable-agent.js (modified) (1 diff)
• variable.js (modified) (1 diff)

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

@@ -237 +237 @@
                 v.setbyte(offset + 1, val >> 8);
         },
-        0x1c: function wpoke(v, offset, val) {
+        0x1c: function lpoke(v, offset, val) {
                 this.scanArgs(arguments, 'vNN');
                 offset = offset ? offset.toIntValue()._value : 0;
@@ -245 +245 @@
                 v.setbyte(offset + 2, val >> 16);
                 v.setbyte(offset + 3, val >> 24);
+        },
+        0x20: function memcpy(destVar, srcVar, length, destOffset, srcOffset) {
+                this.scanArgs(arguments, 'vvNNN');
+                length = length ? length.toIntValue()._value : 0;
+                destOffset = destOffset ? destOffset.toIntValue()._value : 0;
+                srcOffset = srcOffset ? srcOffset.toIntValue()._value : 0;
+                destVar.setbytes(destOffset, srcVar.getbytes(srcOffset, length));
+        },
+        0x21: function memset(v, val, length, offset) {
+                this.scanArgs(arguments, 'vNNN');
+                val = val ? val.toIntValue()._value : 0;
+                length = length ? length.toIntValue()._value : 0;
+                offset = offset ? offset.toIntValue()._value : 0;
+                v.setbytes(offset, Utils.strTimes(String.fromCharCode(val), length));
         },
         0x27: function randomize(seed) {

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

@@ -93 +93 @@
                 throw new HSPError(ErrorCode.UNSUPPORTED_FUNCTION,
                                    VarTypeNames[this.getType()]+" 型はメモリ書き込みに対応していません"); 
+        },
+        getbytes: function getbytes(indices, bytesOffset, length) {
+                var result = "";
+                for(var i = 0; i < length; i ++) {
+                        result += String.fromCharCode(this.getbyte(indices, bytesOffset + i));
+                }
+                return result;
+        },
+        setbytes: function setbytes(indices, bytesOffset, buf) {
+                for(var i = 0; i < buf.length; i ++) {
+                        this.setbyte(indices, bytesOffset + i, buf.charCodeAt(i));
+                }
         }
 };

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\x6a\x01\x00\x00',
-'\x60\x00\x00\x00\xe2\x00\x00\x00\x42\x01\x00\x00\x08\x00\x00\x00',
-'\x4a\x01\x00\x00\x04\x00\x00\x00\x4e\x01\x00\x00\x1c\x00\x00\x00',
-'\x6a\x01\x00\x00\x00\x00\x00\x00\x6a\x01\x00\x00\x00\x00\x00\x00',
-'\x6a\x01\x00\x00\x00\x00\x00\x00\x6a\x01\x00\x00\x00\x00\x00\x00',
-'\x6a\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
-'\x08\x20\x1b\x00\x01\x00\x00\x00\x04\x40\x00\x00\x04\x40\x22\x11',
-'\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00\x01\x00\x00\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\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\x01\x20\x00\x00\x00\x00\x08\x00',
-'\x04\x00\x00\x00\x04\x40\x00\x00\x08\x20\x1c\x00\x01\x00\x00\x00',
-'\x04\x40\x01\x00\x04\xc0\x11\x22\x33\x44\x09\x20\x0f\x00\x0d\x00',
-'\x00\x01\x00\x00\x28\x00\x01\x00\x00\x00\x04\x40\x10\x00\x00\x00',
-'\x29\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00\x01\x00',
-'\x00\x00\x00\x00\x28\x00\x04\x00\x01\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\x6b\x00\x00\x00\xfe\x00',
-'\x00\x00\x00\x00\x00\x00\x00\x08\x0c\x14\x14\x00\x08\x09\x0c\x12',
-'\x00\x06\xfd\x06\x00\x00\x00\x00\xff\xff'
+'\x48\x53\x50\x33\x01\x03\x00\x00\x01\x00\x00\x00\xe9\x00\x00\x00',
+'\x60\x00\x00\x00\x66\x00\x00\x00\xc6\x00\x00\x00\x08\x00\x00\x00',
+'\xce\x00\x00\x00\x04\x00\x00\x00\xd2\x00\x00\x00\x17\x00\x00\x00',
+'\xe9\x00\x00\x00\x00\x00\x00\x00\xe9\x00\x00\x00\x00\x00\x00\x00',
+'\xe9\x00\x00\x00\x00\x00\x00\x00\xe9\x00\x00\x00\x00\x00\x00\x00',
+'\xe9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
+'\x08\x20\x21\x00\x01\x00\x00\x00\x04\x40\xff\x00\x04\x40\x04\x00',
+'\x09\x20\x0f\x00\x01\x00\x00\x00\x01\x20\x00\x00\x00\x00\x08\x00',
+'\x04\x80\x11\x22\x33\x44\x04\x40\x55\x00\x08\x20\x20\x00\x01\x00',
+'\x00\x00\x01\x40\x00\x00\x04\x40\x04\x00\x04\x40\x00\x00\x04\x40',
+'\x01\x00\x09\x20\x0f\x00\x0d\x00\x00\x01\x00\x00\x28\x00\x01\x00',
+'\x00\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\x2d\x00',
+'\x00\x00\xfe\x00\x00\x00\x00\x00\x00\x08\x04\x00\x09\x0c\x0c\x00',
+'\x06\xfd\x06\x00\x00\x00\x00\xff\xff'
         ].join('');
 

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

@@ -1 @@
-;#define hex(%1) strf("%%x", %1)
-#define hex(%1) str(%1, 16)
+memset a, 0xff, 4
+mes a
 
-wpoke a, 0, 0x1122
-mes hex(a)
-mes hex(peek(a,0))
-mes hex(peek(a,1))
+a = 0x44332211, 0x55
+memcpy a, a, 4, 0, 1
+mes str(a, 16)
 
-a = 0, 0
-lpoke a, 1, 0x44332211
-mes hex(a)
-mes hex(a.1)
-

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

@@ -15 +15 @@
                 ary.length -= n;
                 return result;
+        },
+        strTimes: function strTimes(str, n) {
+                var result = ''
+                for(var i = 0; i < n; i ++) {
+                        result += str;
+                }
+                return result;
         }
 };

lang/javascript/hsp-on-js/trunk/src/variable-agent.js

@@ -79 +79 @@
         setbyte: function setbyte(bytesOffset, val) {
                 return this.variable.setbyte(this.indices, bytesOffset, val);
+        },
+        getbytes: function getbytes(bytesOffset, length) {
+                return this.variable.getbytes(this.indices, bytesOffset, length);
+        },
+        setbytes: function setbytes(bytesOffset, buf) {
+                return this.variable.setbytes(this.indices, bytesOffset, buf);
         }
 };

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

@@ -93 +93 @@
         setbyte: function setbyte(indices, bytesOffset, val) {
                 return this.value.setbyte(indices, bytesOffset, val);
+        },
+        getbytes: function getbytes(indices, bytesOffset, length) {
+                return this.value.getbytes(indices, bytesOffset, length);
+        },
+        setbytes: function setbytes(indices, bytesOffset, buf) {
+                return this.value.setbytes(indices, bytesOffset, buf);
         }
 };