1 (* Copyright (C
) 1999-2007 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
3 * Copyright (C
) 1997-2000 NEC Research Institute
.
5 * MLton is released under a BSD
-style license
.
6 * See the file MLton
-LICENSE for details
.
9 (* Primitive names are special
-- see atoms
/prim
.fun. *)
11 structure Primitive
= struct
19 val < = _prim
"WordU8_lt": char
* char
-> bool;
21 val idToWord8
= _prim
"WordU8_extdToWord8": char
-> Word8.word;
22 val idFromWord8
= _prim
"WordU8_extdToWord8": Word8.word -> char
;
23 val idToInt8
= _prim
"WordS8_extdToWord8": char
-> Int8
.int;
24 val idFromInt8
= _prim
"WordS8_extdToWord8": Int8
.int -> char
;
30 structure S
= IntegralComparisons(Char8
)
40 val < = _prim
"WordU16_lt": char
* char
-> bool;
42 val idToWord16
= _prim
"WordU16_extdToWord16": char
-> Word16
.word;
43 val idFromWord16
= _prim
"WordU16_extdToWord16": Word16
.word -> char
;
44 val idToInt16
= _prim
"WordS16_extdToWord16": char
-> Int16
.int;
45 val idFromInt16
= _prim
"WordS16_extdToWord16": Int16
.int -> char
;
51 structure S
= IntegralComparisons(Char16
)
61 val < = _prim
"WordU32_lt": char
* char
-> bool;
63 val idToWord32
= _prim
"WordU32_extdToWord32": char
-> Word32
.word;
64 val idFromWord32
= _prim
"WordU32_extdToWord32": Word32
.word -> char
;
65 val idToInt32
= _prim
"WordS32_extdToWord32": char
-> Int32
.int;
66 val idFromInt32
= _prim
"WordS32_extdToWord32": Int32
.int -> char
;
72 structure S
= IntegralComparisons(Char32
)