balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of gitlab.com:gabriel.alfour/tezos

Browse Source
This commit is contained in:
Galfour 2019-05-02 21:14:32 +00:00
commit 26ffdf0808
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ligo/parser/camligo/user.ml
View File

@ -6,7 +6,7 @@ let parse_file (source: string) : Ast.entry_point result =
* and suffix = ".pp.ligo" * and suffix = ".pp.ligo"
* in prefix ^ suffix in * 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 * source pp_input in
* let%bind () = sys_command cpp_cmd in * let%bind () = sys_command cpp_cmd in
* *

2
src/ligo/parser/parser.ml
View File

@ -13,7 +13,7 @@ let parse_file (source: string) : AST_Raw.t result =
and suffix = ".pp.ligo" and suffix = ".pp.ligo"
in prefix ^ suffix in 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 source pp_input in
let%bind () = sys_command cpp_cmd in let%bind () = sys_command cpp_cmd in

4
src/ligo/parser/pascaligo/LexerMain.ml
View File

@ -35,10 +35,10 @@ let pp_input =
let cpp_cmd = let cpp_cmd =
match EvalOpt.input with match EvalOpt.input with
None | Some "-" -> None | Some "-" ->
Printf.sprintf "cpp -traditional-cpp%s - -o %s" Printf.sprintf "cpp -traditional-cpp%s - > %s"
lib_path pp_input lib_path pp_input
| Some file -> | Some file ->
Printf.sprintf "cpp -traditional-cpp%s %s -o %s" Printf.sprintf "cpp -traditional-cpp%s %s > %s"
lib_path file pp_input lib_path file pp_input
let () = let () =

4
src/ligo/parser/pascaligo/ParserMain.ml
View File

@ -53,10 +53,10 @@ let pp_input =
let cpp_cmd = let cpp_cmd =
match EvalOpt.input with match EvalOpt.input with
None | Some "-" -> None | Some "-" ->
Printf.sprintf "cpp -traditional-cpp%s - -o %s" Printf.sprintf "cpp -traditional-cpp%s - > %s"
lib_path pp_input lib_path pp_input
| Some file -> | Some file ->
Printf.sprintf "cpp -traditional-cpp%s %s -o %s" Printf.sprintf "cpp -traditional-cpp%s %s > %s"
lib_path file pp_input lib_path file pp_input
let () = let () =