Module Kreal


module Kreal: sig .. end
Converting real constants with only integral values

val error : unit -> 'a

type sign =
| Positive
| Negative

type state =
| Integral
| Fraction
| Exponent

type env = {
   mantiss : Buffer.t;
   exponent : Buffer.t;
   mutable sign : sign;
   mutable coma : int;
   mutable state : state;
}
type token =
| Digit
| Plus
| Minus
| Exp
| Dot
val token : char -> token
val trail : string -> (int * int) option
val convert : string -> string