Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

never crash

Browse source
This commit is contained in:
Mylloon 2023-10-24 15:46:53 +02:00
parent abcbd1754c
commit 24860a540f
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
flap/src/hopix/hopixLexer.mll
View file

@ -31,11 +31,11 @@
| "\\\"" -> Some '"' | "\\\"" -> Some '"'
| "\\\\" -> Some '\\' | "\\\\" -> Some '\\'
| _ -> | _ ->
(match String.get data 1 with (try
| '0' | '1' | '2' ->
let caractere = String.sub data 1 (String.length data - 1) in let caractere = String.sub data 1 (String.length data - 1) in
let ascii_code = int_of_string caractere in let ascii_code = int_of_string caractere in
Some (Char.chr ascii_code) Some (Char.chr ascii_code)
with
| _ -> None) | _ -> None)
;; ;;
} }