Changeset 20224 for lang/javascript/hsp-on-js

Timestamp:

09/29/08 21:50:19 (5 years ago)

Author:

fujidig

Message:

文字列型変数をメモリ操作命令に対応。
HSPの文字列型変数の動作をエミュレートするように（代入しても内容と0の後ろに元の内容が残っているなど）

Location:

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

Files:

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

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

@@ -116 +116 @@
         0x0a: function sdim(v, strLength, l0, l1, l2, l3) {
                 this.scanArgs(arguments, 'aNNNNN');
+                strLength = strLength ? strLength.toIntValue()._value : 64;
                 l0 = l0 ? l0.toIntValue()._value : 0;
                 l1 = l1 ? l1.toIntValue()._value : 0;
                 l2 = l2 ? l2.toIntValue()._value : 0;
                 l3 = l3 ? l3.toIntValue()._value : 0;
-                v.variable.dim(VarType.STR, l0, l1, l2, l3);
+                var ary = new StrArray();
+                ary.strDim(strLength, l0, l1, l2, l3);
+                v.variable.value = ary;
         },
         0x0b: function foreach(label) {

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

@@ -108 +108 @@
 };
 
+HSPArray.lengthToIndices = function lengthToIndices(l0, l1, l2, l3) {
+        var indices = [l0, l1, l2, l3];
+        // 後ろから 0 を取り除く
+        var i = indices.length - 1;
+        while(i >= 0) {
+                if(indices[i]) break;
+                indices.pop();
+                i --;
+        }
+        for(var i = 0; i < indices.length; i ++) {
+                if(indices[i] < 0) {
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION, '配列の要素数に負の数が指定されています');
+                }
+                if(indices[i] != 0) {
+                        indices[i] --;
+                }
+        }
+        return indices;
+}
+
 if(typeof HSPonJS != 'undefined') {
         HSPonJS.HSPArray = HSPArray;

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

@@ -52 +52 @@
 end
 
+if ARGV.delete('--shell')
+  filenames << '-'
+end
+
 if ARGV.delete('--rhino')
   system(*%w[rhino -w]+filenames.map{|i|["-f", i]}.flatten)

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\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'
+'\x48\x53\x50\x33\x01\x03\x00\x00\x01\x00\x00\x00\xaf\x00\x00\x00',
+'\x60\x00\x00\x00\x30\x00\x00\x00\x90\x00\x00\x00\x08\x00\x00\x00',
+'\x98\x00\x00\x00\x04\x00\x00\x00\x9c\x00\x00\x00\x13\x00\x00\x00',
+'\xaf\x00\x00\x00\x00\x00\x00\x00\xaf\x00\x00\x00\x00\x00\x00\x00',
+'\xaf\x00\x00\x00\x00\x00\x00\x00\xaf\x00\x00\x00\x00\x00\x00\x00',
+'\xaf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00',
+'\x0f\x20\x0a\x00\x01\x00\x00\x00\x04\x40\x64\x00\x08\x20\x21\x00',
+'\x01\x00\x00\x00\x04\x40\x2a\x00\x04\x40\x41\x00\x09\x20\x0f\x00',
+'\x01\x00\x00\x00\x0f\x20\x11\x00\x0f\x20\x00\x00\x07\x00\x00\x00',
+'\x74\x2e\x68\x73\x70\x00\x61\x00\x12\x00\x00\x00\xfe\x00\x00\x00',
+'\x00\x00\x00\x06\x08\x04\x06\xfd\x06\x00\x00\x00\x00\xff\xff'
         ].join('');
 
@@ -49 +45 @@
         var evaluator = new Evaluator(axdata, sequence);
         evaluator.evaluate();
+        return evaluator;
 }
 

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

@@ -1 +1 @@
 function StrArray() {
         HSPArray.call(this);
-        this.values = [new StrValue('')];
+        this.values = [Utils.strTimes("\0", 64)];
 }
 
@@ -7 +7 @@
 
 Utils.objectExtend(StrArray.prototype, {
+        assign: function assign(indices, rhs) {
+                this.expand(indices);
+                var offset = this.getOffset(indices);
+                var value = this.values[offset];
+                rhs = rhs.toStrValue();
+                value = rhs._value + "\0" + value.slice(rhs._value.length + 1);
+                this.values[offset] = value;
+        },
         expand: function expand(indices) {
                 var isExpanded = HSPArray.prototype.expand.call(this, indices);
@@ -12 +20 @@
                         var newLen = this.allLength();
                         for(var i = this.values.length; i < newLen; i ++) {
-                                this.values[i] = new StrValue('');
+                                this.values[i] = Utils.strTimes("\0", 64);
                         }
                 }
                 return isExpanded;
         },
+        at: function at(indices) {
+                var offset = this.getOffset(indices);
+                if(offset == null) throw new HSPError(ErrorCode.ARRAY_OVERFLOW);
+                return new StrValue(Utils.getCStr(this.values[offset]));
+        },
         getType: function getType() {
                 return VarType.STR;
+        },
+        strDim: function strDim(strLength, l0, l1, l2, l3) {
+                if(strLength == undefined || strLength < 64) {
+                        strLength = 64;
+                }
+                var indices = HSPArray.lengthToIndices(l0, l1, l2, l3);
+                HSPArray.prototype.expand.call(this, indices);
+                var len = this.allLength();
+                for(var i = 0; i < len; i ++) {
+                        this.values[i] = Utils.strTimes("\0", strLength);
+                }
+        },
+        getbyte: function getbyte(indices, bytesOffset) {
+                var offset = this.getOffset(indices);
+                if(offset == null) throw new HSPError(ErrorCode.ARRAY_OVERFLOW);
+                if(!(0 <= bytesOffset && bytesOffset < this.values[offset].length)) {
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION);
+                }
+                return this.values[offset].charCodeAt(bytesOffset);
+        },
+        setbyte: function setbyte(indices, bytesOffset, val) {
+                var offset = this.getOffset(indices);
+                if(offset == null) throw new HSPError(ErrorCode.ARRAY_OVERFLOW);
+                var str = this.values[offset];
+                if(!(0 <= bytesOffset && bytesOffset < str.length)) {
+                        throw new HSPError(ErrorCode.ILLEGAL_FUNCTION);
+                }
+                this.values[offset] = str.slice(0, bytesOffset) + String.fromCharCode(val & 0xff) + str.slice(bytesOffset + 1);
         }
 });

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

@@ -1 @@
-memset a, 0xff, 4
+sdim a, 100
+memset a, '*', 65
 mes a
-
-a = 0x44332211, 0x55
-memcpy a, a, 4, 0, 1
-mes str(a, 16)
-

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

@@ -69 +69 @@
                         throw new HSPError(ErrorCode.ILLEGAL_FUNCTION, '異常な変数型の値です');
                 }
-                var indices = [l0, l1, l2, l3];
-                // 後ろから 0 を取り除く
-                var i = indices.length - 1;
-                while(i >= 0) {
-                        if(indices[i]) break;
-                        indices.pop();
-                        i --;
-                }
-                for(var i = 0; i < indices.length; i ++) {
-                        if(indices[i] < 0) {
-                                throw new HSPError(ErrorCode.ILLEGAL_FUNCTION, '配列の要素数に負の数が指定されています');
-                        }
-                        if(indices[i] != 0) {
-                                indices[i] --;
-                        }
-                }
+                var indices = HSPArray.lengthToIndices(l0, l1, l2, l3);
                 ary.expand(indices);
                 this.value = ary;