wolfpack-parser 0.2.0

The parser of wolfpack. Internal part of wolfpack-lang, not a stable API
Documentation 
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

---
source: crates/wolf_parser/tests/parser.rs
expression: result.dump
---
file
  doc! " Suggests a command for a mistyped one. The edit distance comes from a package of each target"
  doc! " language, declared in `wolfpack.toml` (chapter 7, section 8.6)."
  module main
  section extern
    extern ts
      (fn distance (params (a String) (b String)) (-> Int) from "fastest-levenshtein#distance")
    extern go
      fn
        distance
        (params (a String) (b String))
        (-> Int)
        from "github.com/agnivade/levenshtein.ComputeDistance"
    (extern rust (fn distance (params (a String) (b String)) (-> Int) from "strsim::levenshtein"))
  (section config (const doc " Words farther than this get no suggestion." max_distance Int 2))
  section main
    fn
      main
      ()
      block
        (let commands (list "build" "check" "run" "test" "fmt" "explain"))
        for
          word
          (list "biuld" "tset" "chek" "rnu" "format")
          block
            match
              (call suggest word commands)
              (=> (Some command) (call print (+ (+ (+ word ": did you mean `") command) "`?")))
              (=> None (call print (+ word ": no suggestion")))
  section functions
    fn
      doc " The closest command to `word`, if it is close enough; the first one wins a tie."
      suggest
      (params (word String) (commands (List String)))
      (-> (Option String))
      block
        (var best (Option String) None)
        (var best_distance (+ max_distance 1))
        for
          command
          commands
          block
            (let d (call distance word command))
            if
              (< d best_distance)
              (block (= best (call Some (call (. command copy)))) (= best_distance d))
        best
  section tests
    test
      "distance counts single edits"
      block
        (call assert (== (call distance "kitten" "sitting") 3))
        (call assert (== (call distance "same" "same") 0))
    test
      "far words get no suggestion"
      block
        (call assert (== (call suggest "format" (list "fmt")) None))
        (call assert (== (call suggest "tst" (list "test")) (call Some "test")))