Merge branch 'master' of gitlab.com:gabriel.alfour/tezos
This commit is contained in:
commit
26ffdf0808
@ -6,7 +6,7 @@ let parse_file (source: string) : Ast.entry_point result =
|
||||
* and suffix = ".pp.ligo"
|
||||
* in prefix ^ suffix in
|
||||
*
|
||||
* let cpp_cmd = Printf.sprintf "cpp -traditional-cpp %s -o %s"
|
||||
* let cpp_cmd = Printf.sprintf "cpp -traditional-cpp %s > %s"
|
||||
* source pp_input in
|
||||
* let%bind () = sys_command cpp_cmd in
|
||||
*
|
||||
|
@ -13,7 +13,7 @@ let parse_file (source: string) : AST_Raw.t result =
|
||||
and suffix = ".pp.ligo"
|
||||
in prefix ^ suffix in
|
||||
|
||||
let cpp_cmd = Printf.sprintf "cpp -traditional-cpp %s -o %s"
|
||||
let cpp_cmd = Printf.sprintf "cpp -traditional-cpp %s > %s"
|
||||
source pp_input in
|
||||
let%bind () = sys_command cpp_cmd in
|
||||
|
||||
|
@ -35,10 +35,10 @@ let pp_input =
|
||||
let cpp_cmd =
|
||||
match EvalOpt.input with
|
||||
None | Some "-" ->
|
||||
Printf.sprintf "cpp -traditional-cpp%s - -o %s"
|
||||
Printf.sprintf "cpp -traditional-cpp%s - > %s"
|
||||
lib_path pp_input
|
||||
| Some file ->
|
||||
Printf.sprintf "cpp -traditional-cpp%s %s -o %s"
|
||||
Printf.sprintf "cpp -traditional-cpp%s %s > %s"
|
||||
lib_path file pp_input
|
||||
|
||||
let () =
|
||||
|
@ -53,10 +53,10 @@ let pp_input =
|
||||
let cpp_cmd =
|
||||
match EvalOpt.input with
|
||||
None | Some "-" ->
|
||||
Printf.sprintf "cpp -traditional-cpp%s - -o %s"
|
||||
Printf.sprintf "cpp -traditional-cpp%s - > %s"
|
||||
lib_path pp_input
|
||||
| Some file ->
|
||||
Printf.sprintf "cpp -traditional-cpp%s %s -o %s"
|
||||
Printf.sprintf "cpp -traditional-cpp%s %s > %s"
|
||||
lib_path file pp_input
|
||||
|
||||
let () =
|
||||
|
Loading…
Reference in New Issue
Block a user