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

Fix printing of bytes in parsers/lexers

Browse Source
This commit is contained in:
Tom Jack 2020-01-09 16:51:23 -06:00
parent 1b0ed4d4de
commit 5cef850bdd
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/passes/1-parser/cameligo/LexToken.mll
View File

@ -145,7 +145,7 @@ let proj_token = function
| Bytes Region.{region; value = s,b} -> | Bytes Region.{region; value = s,b} ->
region, region,
sprintf "Bytes (\"%s\", \"0x%s\")" sprintf "Bytes (\"%s\", \"0x%s\")"
s (Hex.to_string b) s (Hex.show b)
| Begin region -> region, "Begin" | Begin region -> region, "Begin"
| Else region -> region, "Else" | Else region -> region, "Else"
| End region -> region, "End" | End region -> region, "End"

4
src/passes/1-parser/cameligo/ParserLog.ml
View File

@ -105,7 +105,7 @@ let print_bytes state {region; value} =
let line = let line =
sprintf "%s: Bytes (\"%s\", \"0x%s\")\n" sprintf "%s: Bytes (\"%s\", \"0x%s\")\n"
(compact state region) lexeme (compact state region) lexeme
(Hex.to_string abstract) (Hex.show abstract)
in Buffer.add_string state#buffer line in Buffer.add_string state#buffer line
let print_int state {region; value} = let print_int state {region; value} =
@ -712,7 +712,7 @@ and pp_ne_injection :
and pp_bytes state {value=lexeme,hex; region} = and pp_bytes state {value=lexeme,hex; region} =
pp_loc_node (state#pad 2 0) lexeme region; pp_loc_node (state#pad 2 0) lexeme region;
pp_node (state#pad 2 1) (Hex.to_string hex) pp_node (state#pad 2 1) (Hex.show hex)
and pp_int state {value=lexeme,z; region} = and pp_int state {value=lexeme,z; region} =
pp_loc_node (state#pad 2 0) lexeme region; pp_loc_node (state#pad 2 0) lexeme region;

2
src/passes/1-parser/pascaligo/LexToken.mll
View File

@ -126,7 +126,7 @@ let proj_token = function
| Bytes Region.{region; value = s,b} -> | Bytes Region.{region; value = s,b} ->
region, region,
sprintf "Bytes (\"%s\", \"0x%s\")" sprintf "Bytes (\"%s\", \"0x%s\")"
s (Hex.to_string b) s (Hex.show b)
| Int Region.{region; value = s,n} -> | Int Region.{region; value = s,n} ->
region, sprintf "Int (\"%s\", %s)" s (Z.to_string n) region, sprintf "Int (\"%s\", %s)" s (Z.to_string n)

4
src/passes/1-parser/pascaligo/ParserLog.ml
View File

@ -90,7 +90,7 @@ let print_bytes state {region; value} =
let line = let line =
sprintf "%s: Bytes (\"%s\", \"0x%s\")\n" sprintf "%s: Bytes (\"%s\", \"0x%s\")\n"
(compact state region) lexeme (compact state region) lexeme
(Hex.to_string abstract) (Hex.show abstract)
in Buffer.add_string state#buffer line in Buffer.add_string state#buffer line
let print_int state {region; value} = let print_int state {region; value} =
@ -1093,7 +1093,7 @@ and pp_pattern state = function
and pp_bytes state {value=lexeme,hex; region} = and pp_bytes state {value=lexeme,hex; region} =
pp_loc_node (state#pad 2 0) lexeme region; pp_loc_node (state#pad 2 0) lexeme region;
pp_node (state#pad 2 1) (Hex.to_string hex) pp_node (state#pad 2 1) (Hex.show hex)
and pp_int state {value=lexeme,z; region} = and pp_int state {value=lexeme,z; region} =
pp_loc_node (state#pad 2 0) lexeme region; pp_loc_node (state#pad 2 0) lexeme region;

2
src/passes/1-parser/reasonligo/LexToken.mll
View File

@ -140,7 +140,7 @@ let proj_token = function
| Bytes Region.{region; value = s,b} -> | Bytes Region.{region; value = s,b} ->
region, region,
sprintf "Bytes (\"%s\", \"0x%s\")" sprintf "Bytes (\"%s\", \"0x%s\")"
s (Hex.to_string b) s (Hex.show b)
| Else region -> region, "Else" | Else region -> region, "Else"
| False region -> region, "False" | False region -> region, "False"
| If region -> region, "If" | If region -> region, "If"