Incremental checkin, currently not working, just saving progress.

1 files changed, 49 insertions, 0 deletions

diff --git a/nomnom/source.nom b/nomnom/source.nom
new file mode 100644
index 0000000..e05b314
--- /dev/null
+++ b/nomnom/source.nom
@@ -0,0 +1,49 @@
+use "lib/object.nom"
+
+object (Source):
+    action [Source from text %text]:
+        %match = (%text::matching groups "^@(.-)%[(%d+):(%d+)%]$")
+        set {%filename:%match.1, %start:%match.2, %stop:%match.3}
+        unless %filename:
+            %match = (%text::matching groups "^@(.-)%[(%d+)%]$")
+            set {%filename:%match.1, %start:%match.2}
+        return (Source {filename:%filename, start:(%start or 1) as number, stop: %stop as number})
+
+    my action [as text] "\
+        ..@\(%me.filename)[\(%me.start)\(":\(%me.stop)" if %me.stop else "")]"
+
+    my action [as lua] "\
+        ..Source{filename=\(%me.filename::as lua), start=\(%me.start)\
+        ..\(", stop=\(%me.stop)" if %stop else "")}"
+
+    my action [as nomsu] "\
+        ..(Source {filename:\(%me.filename::as nomsu), start:\(%me.start)\
+        ..\(", stop:\(%me.stop)" if %stop else "")})"
+    
+    my action [== %other] (..)
+        all of [..]
+            (%me's metatable) == (%other's metatable)
+            %me.filename == %other.filename
+            %me.start == %other.start
+            %me.stop == %other.stop
+
+    my action [< %other]:
+        assume %me.filename == %other.filename
+        if (%start == %other.start):
+            return ((%me.stop or %me.start) < (%other.stop or %other.start))
+        ..else:
+            return (%me.start < %other.start)
+
+    my action [<= %other]:
+        assume %me.filename == %other.filename
+        if (%start == %other.start):
+            return ((%me.stop or %me.start) <= (%other.stop or %other.start))
+        ..else:
+            return (%me.start <= %other.start)
+
+    my action [+ %offset]:
+        if ((type of %me) == "number"):
+            set {%me:%offset, %offset:%me}
+        ..else:
+            assume (type of %offset) == "number"
+        return (Source {filename:%me.filename, start:%me.start + %offset, stop:%me.stop})