paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-06-04 00:58:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add IsDate

Browse Source
This commit is contained in:
michael 2019-10-01 18:26:37 +00:00
parent 949f0181b9
commit cc0cee2387
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/js.pas
View File

@ -856,6 +856,7 @@ function hasString(const v: JSValue): boolean; external name 'rtl.hasString';//
function hasValue(const v: JSValue): boolean; assembler; // returns the JS definition of if(v): v is not false, undefined, null, 0, NaN, or the empty string. Note: JS if(new Boolean(false)) returns true.
function isArray(const v: JSValue): boolean; external name 'rtl.isArray';
function isBoolean(const v: JSValue): boolean; assembler;
function isDate(const v: JSValue): boolean; assembler;
function isCallback(const v: JSValue): boolean; assembler;
function isChar(const v: JSValue): boolean; assembler;
function isClass(const v: JSValue): boolean; assembler; // is a Pascal class, e.g. a TClass
@ -941,6 +942,11 @@ asm
return typeof(v) == 'boolean';
end;
function isDate(const v: JSValue): boolean; assembler;
asm
return (v instanceof Date);
end;
function isCallback(const v: JSValue): boolean; assembler;
asm
return rtl.isObject(v) && rtl.isObject(v.scope) && (rtl.isString(v.fn) || rtl.isFunction(v.fn));