Annotation of /smlnj-c/trunk/cutil.sml

Parent Directory | Revision Log

---

Revision 250 - (view) (download)
Original Path: sml/trunk/src/smlnj-c/cutil.sml

1 :	monnier	249	(* cutil.sml
2 :			*
3 :			* COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :			*
5 :			* functor producing structures with C functions required for
6 :			* the SML/NJ C interface.
7 :			*)
8 :
9 :			functor CUtil (structure C: C_CALLS) : C_UTIL =
10 :			struct
11 :			open C
12 :
13 :			val ptos' = registerAutoFreeCFn("ptos",[CaddrT],CstringT)
14 :			fun ptos p = let val Cstring s = ptos' [Caddr p] in s end
15 :			val ptoi' = registerAutoFreeCFn("ptoi",[CaddrT],CintT)
16 :			fun ptoi p = let val Cint i = ptoi' [Caddr p] in i end
17 :			end (* functor CUtil *)

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0