57 lines
2.0 KiB
Plaintext
57 lines
2.0 KiB
Plaintext
#!/usr/bin/env nomsu -V4.8.10
|
|
use "lib/object.nom"
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
object (Source):
|
|
externally (Source from text %text) means:
|
|
%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})
|