Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /smlnj-c/releases/release-110.63/cutil.sml
ViewVC logotype

Annotation of /smlnj-c/releases/release-110.63/cutil.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2379 - (view) (download)

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