Fix money parsing

[denismerigoux]

Embarrasingly, there was a bug in the parsing of money literals like 0,3 € or $0.3 : they were counted as "3 cents" instead of "30 cents" due to a string to integer conversion error. This PR fixes this behavior by padding a 0 on the right to these kinds of money literals.

[AltGr]

Ouch! Shouldn't that rather be handled by the lexer directly ?

diff --git a/compiler/surface/lexer.cppo.ml b/compiler/surface/lexer.cppo.ml
index ce3a0ba3..f745961e 100644
--- a/compiler/surface/lexer.cppo.ml
+++ b/compiler/surface/lexer.cppo.ml
@@ -563,6 +563,7 @@ let rec lex_code (lexbuf : lexbuf) : token =
         | MC_DECIMAL_SEPARATOR -> buf := cents
         | _ -> ()
       done;
+      Buffer.add_string cents (String.make (2 - Buffer.length cents) '0');
       L.update_acc lexbuf;
       MONEY_AMOUNT (Runtime.integer_of_string (Buffer.contents units), Runtime.integer_of_string (Buffer.contents cents))
   | Plus digit, MC_DECIMAL_SEPARATOR, Star digit ->

[denismerigoux]

Yes you're right. I implemented your suggestion.