Module include syntax

1 files changed, 20 insertions, 0 deletions

diff --git a/tnslc/paths.tnsl b/tnslc/paths.tnsl
index 1e8c705..1a97f08 100644
--- a/tnslc/paths.tnsl
+++ b/tnslc/paths.tnsl
@@ -38,6 +38,26 @@
         ;return tnsl.io.readFile(self.full_path())
     ;/
 
+    /; extension_is ({}charp chk) [bool]
+        ;{}charp ext = ""
+        ;int dot = -1
+        /; loop (int i = len (self.file) - 1; i > 0) [i = i - 1]
+            /; if (self.file{i} == '.')
+                ;dot = i
+                ;break
+            ;/
+        ;/
+
+        /; if (dot > 0)
+            ;dot++
+            /; loop (dot < len (self.file)) [dot++]
+                ;ext.append(self.file{dot})
+            ;/
+        ;/
+
+        ;return string_equate(chk, ext)
+    ;/
+
 ;/
 
 /; split({}charp str, charp c) [{}{}charp]