regular_expressions_client_capabilities.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
32
33
34
use json = "../../../../json"

interface val RegularExpressionsClientCapabilities
  fun val engine(): String
  fun val version(): (String | None)

primitive ParseRegularExpressionsClientCapabilities
  fun apply(obj: json.Object val):
    (RegularExpressionsClientCapabilities | String)
  =>
    let engine': String =
      try
        match obj("engine")?
        | let e: String val =>
          e.clone()
        else
          return "regularExpressions.engine must be of type string"
        end
      else
        return "RegularExpressionsClientCapabilities must contain 'engine'"
      end
    let version': (String | None) =
      try
        match obj("version")?
        | let v: String val =>
          v.clone()
        else
          return "regularExpressions.version must be of type string"
        end
      end
    object val is RegularExpressionsClientCapabilities
      fun val engine(): String => engine'
      fun val version(): (String | None) => version'
    end