issue.pony

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
use per = "collections/persistent"

use ast = "../ast"

class val Issue
  let rule: Rule
  let start: per.List[ast.Node] "A path from the current (first) node to the root."
  let next: per.List[ast.Node] "A path from the next node to the root."

  new val create(
    rule': Rule,
    start': per.List[ast.Node],
    next': per.List[ast.Node])
  =>
    rule = rule'
    start = start'
    next = next'

  fun val match_start(node: ast.Node): Bool =>
    try
      node is start.head()?
    else
      false
    end

  fun val match_next(node: ast.Node): Bool =>
    try
      node is next.head()?
    else
      false
    end