package comby

  1. Overview
  2. Docs
A tool for structural code search and replace that supports ~every language

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (5)

Authors

  1. R
    Rijnard van Tonder

Maintainers

  1. R
    rvantonder@gmail.com

Sources

1.3.0.tar.gz
md5=617a80e8673c3f811403f09701c08a25
sha512=2f8f82c119210ae0efd7f3eefdd992d6b52655575233dfab74662d9a9854ce4aafcd4fe01dad17ba310e38f28ee1437be2f3c4af4f6952a97bb19e1400fc709a

doc/src/comby.language/omega_parser.ml.html

Source file omega_parser.ml

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
open Core

open Angstrom

open Ast

let (|>>) p f =
  p >>= fun x -> return (f x)

let alphanum =
  satisfy (function
      | 'a' .. 'z'
      | 'A' .. 'Z'
      | '0' .. '9' -> true
      | _ -> false)

let variable_parser =
  (string Syntax.variable_left_delimiter
   *> (many (alphanum <|> char '_') |>> String.of_char_list)
   <* string Syntax.variable_right_delimiter)

let escaped_char_s  =
  any_char

let char_token_s =
  (char '\\' *> escaped_char_s >>= fun c -> return (Format.sprintf {|\%c|} c))
  <|> (any_char |>> String.of_char)

let value_parser =
  (string {|"|}
   *> (many_till char_token_s (string {|"|})))
  |>> String.concat

let operator_parser =
  choice
    [ string Syntax.equal
    ; string Syntax.not_equal
    ]

let atom_parser =
  choice
    [ (variable_parser >>= fun variable -> return (Variable variable))
    ; (value_parser >>= fun value -> return (String value))
    ]

let rewrite_template_parser =
  value_parser >>= fun value -> return (RewriteTemplate value)