Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #require "re.posix";;
- (* open Base ;;
- open Core ;; *)
- (* type <record-name> =
- {
- <field>: <type>;
- <field>: <type>;
- } *)
- type service_info =
- {
- service_name : string ;
- port : int ;
- protocol : string ;
- }
- ;;
- (* #require "re.postix";; *)
- let service_info_of_string line =
- let matches =
- Re.exec (Re.Posix.compile_pat "([a-zA-Z]+)[t]+([0-9]+)/([a-zA-Z]+)") line
- in
- {
- service_name = Re.get matches 1;
- port = Int.of_string (Re.get matches 2);
- protocol = Re.get matches 3;
- }
- ;;
- print_endline "foobar"
- dune build hello_world.exe
- ppx hello_world.pp.ml (exit 1)
- (cd _build/default && .ppx/jbuild/ppx_jane/ppx.exe -o hello_world.pp.ml --impl hello_world.ml --dump-ast)
- File "hello_world.ml", line 385, characters 0-1:
- Error: Syntax error
- (executable
- ((name hello_world)
- (libraries (core))
- (preprocess (pps (ppx_jane)))))
Add Comment
Please, Sign In to add comment