1 (* Copyright (C
) 2009 Matthew Fluet
.
2 * Copyright (C
) 1999-2006 Henry Cejtin
, Matthew Fluet
, Suresh
3 * Jagannathan
, and Stephen Weeks
.
4 * Copyright (C
) 1997-2000 NEC Research Institute
.
6 * MLton is released under a BSD
-style license
.
7 * See the file MLton
-LICENSE for details
.
10 functor FixInt(PInt
: sig include INTEGER
end) : INTEGER
=
15 (* SML
/NJ uses lower instead
of upper
case. *)
16 val toUpper
= String.translate (Char.toString
o Char.toUpper
)
18 fun fmt r w
= toUpper (PInt
.fmt r w
)
19 fun toString w
= toUpper (PInt
.toString w
)
23 structure FixedInt
= FixInt(struct open Pervasive
.FixedInt
end)
24 structure Int = FixInt(struct open Pervasive
.Int end)
25 structure Int31
= FixInt(struct open Pervasive
.Int31
end)
26 structure Int32
= FixInt(struct open Pervasive
.Int32
end)
27 structure Int64
= FixInt(struct open Pervasive
.Int64
end)
28 structure LargeInt
= FixInt(struct open Pervasive
.LargeInt
end)
29 structure Position
= FixInt(struct open Pervasive
.Position
end)