Skip to content

Commit 4ba5aa1

Browse files
committed
Add STAT_ constants on JVM.
1 parent a937cc6 commit 4ba5aa1

File tree

1 file changed

+22
-1
lines changed

1 file changed

+22
-1
lines changed

src/vm/jvm/QAST/Compiler.nqp

Lines changed: 22 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1689,7 +1689,28 @@ my %const_map := nqp::hash(
16891689
'CCLASS_PUNCTUATION', 1024,
16901690
'CCLASS_ALPHANUMERIC', 2048,
16911691
'CCLASS_NEWLINE', 4096,
1692-
'CCLASS_WORD', 8192
1692+
'CCLASS_WORD', 8192,
1693+
1694+
'STAT_EXISTS', 0,
1695+
'STAT_FILESIZE', 1,
1696+
'STAT_ISDIR', 2,
1697+
'STAT_ISREG', 3,
1698+
'STAT_ISDEV', 4,
1699+
'STAT_CREATETIME', 5,
1700+
'STAT_ACCESSTIME', 6,
1701+
'STAT_MODIFYTIME', 7,
1702+
'STAT_CHANGETIME', 8,
1703+
'STAT_BACKUPTIME', 9,
1704+
'STAT_UID', 10,
1705+
'STAT_GID', 11,
1706+
'STAT_ISLNK', 12,
1707+
'STAT_PLATFORM_DEV', -1,
1708+
'STAT_PLATFORM_INODE', -2,
1709+
'STAT_PLATFORM_MODE', -3,
1710+
'STAT_PLATFORM_NLINKS', -4,
1711+
'STAT_PLATFORM_DEVTYPE', -5,
1712+
'STAT_PLATFORM_BLOCKSIZE', -6,
1713+
'STAT_PLATFORM_BLOCKS', -7,
16931714
);
16941715
QAST::OperationsJAST.add_core_op('const', -> $qastcomp, $op {
16951716
if nqp::existskey(%const_map, $op.name) {

0 commit comments

Comments
 (0)