1 (* Copyright (C
) 2012 Matthew Fluet
.
2 * Copyright (C
) 2002-2006, 2008 Henry Cejtin
, Matthew Fluet
, Suresh
3 * Jagannathan
, and Stephen Weeks
.
5 * MLton is released under a BSD
-style license
.
6 * See the file MLton
-LICENSE for details
.
11 structure AddrFamily
= MkAbsRepEq(type rep
= C_Int
.t
)
12 structure Sock
= MkAbsRep(type rep
= C_Sock
.t
)
13 structure SockType
= MkAbsRepEq(type rep
= C_Int
.t
)
15 structure Prim
= PrimitiveFFI
.Net
31 Primitive
.IntWordConv
.idFromWord32ToInt32
33 o Primitive
.IntWordConv
.idFromInt32ToWord32
35 Primitive
.IntWordConv
.idFromWord32ToInt32
37 o Primitive
.IntWordConv
.idFromInt32ToWord32
42 Primitive
.IntWordConv
.idFromWord16ToInt16
44 o Primitive
.IntWordConv
.idFromInt16ToWord16
46 Primitive
.IntWordConv
.idFromWord16ToInt16
48 o Primitive
.IntWordConv
.idFromInt16ToWord16
57 val fInt8
= fn _
=> raise Fail
"Net.C_Int.hton: fInt8"
58 val fInt16
= Int16
.hton
59 val fInt32
= Int32
.hton
60 val fInt64
= fn _
=> raise Fail
"Net.C_Int.hton: fInt64")
68 val fInt8
= fn _
=> raise Fail
"Net.C_Int.ntoh: fInt8"
69 val fInt16
= Int16
.ntoh
70 val fInt32
= Int32
.ntoh
71 val fInt64
= fn _
=> raise Fail
"Net.C_Int.ntoh: fInt64")