Changeset 21605

Timestamp:

10/19/08 07:26:18 (5 years ago)

Author:

fujidig

Message:

getpath を実装

Location:

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

Files:

• builtin-funcs.js (modified) (1 diff)
• t.hsp (modified) (1 diff)

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

@@ -599 +599 @@
                 return Formatter.sprintf(this, format, args);
         },
+        0x104: function getpath(path, flags) {
+                this.scanArgs(arguments, 'sn');
+                path = path.toStrValue()._value;
+                flags = flags.toIntValue()._value;
+                if(flags & 16) {
+                        var re = /((?:[\x81-\x9f\xe0-\xfc][\s\S]|[^A-Z])*)([A-Z]*)/g;
+                        path = path.replace(re, function(s,a,b) {
+                                return a + b.toLowerCase();
+                        });
+                }
+                var dir = /^(?:\w:)?(?:(?:[^\x81-\x9f\xe0-\xfc]|[\x81-\x9f\xe0-\xfc]{2})*[\/\\])?/.exec(path)[0];
+                var ext = /(?:\.[^.\/\\]*)?$/.exec(path)[0];
+                var basename = path.slice(dir.length, path.length - ext.length);
+                if(flags & 8) {
+                        path = basename + ext;
+                } else if(flags & 32) {
+                        path = dir;
+                }
+                var result = path;
+                switch(flags & 7) {
+                case 1:
+                        result = path.slice(0, path.length - ext.length);
+                        break;
+                case 2:
+                        result = ext;
+                        break;
+                }
+                return new StrValue(result);
+        },
         0x180: function sin(val) {
                 this.scanArgs(arguments, 'n');

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

@@ -1 @@
-mes double("0x100")
-mes double("abc")
-mes double(" \n\t1E5")
-mes int(" \n\t++123")
-mes strf("%#x", int("$100"))
-mes strf("%#x", int("$123$456"))
+path = "C:\\Program Files\\hsp31\\readme.txt"
+mes "all:" + getpath(path, 0)
+mes "remove ext: " + getpath(path, 1)
+mes "ext only: " + getpath(path, 2)
+mes "filename only: " + getpath(path, 8)
+mes "lower case: " + getpath(path, 16)
+mes "only dir: " + getpath(path, 32)