50 lines
1.8 KiB
Plaintext
50 lines
1.8 KiB
Plaintext
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})
|