From ecf3e4075141163459200a2b2d05bd8b866c371d Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Mon, 12 Dec 2022 16:25:02 -0500
Subject: Module include syntax

---
 tnslc/paths.tnsl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'tnslc/paths.tnsl')

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]
-- 
cgit v1.2.3