mutated_ocaml / camlp4 / test / fixtures / match_parser.ml

1
2
3
4
5
6
7
8
9
open Camlp4.PreCast;

let _loc = Loc.ghost in
let e = <:expr< parser [: `"a" :] -> t >> in
let a =
  match e with
  [ <:expr< parser [: `$str:x$ :] -> t >> -> x
  | _ -> assert False ]
in Format.printf "a: %S@." a;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.