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 /sml/trunk/src/runtime/c-libs/smlnj-ccalls/c-calls-lib.c
ViewVC logotype

Annotation of /sml/trunk/src/runtime/c-libs/smlnj-ccalls/c-calls-lib.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download) (as text)

1 : monnier 2 /* c-calls-lib.c
2 :     *
3 :     * COPYRIGHT (c) 1994 AT&T Bell Laboratories.
4 :     */
5 :    
6 :     #include "ml-base.h"
7 :     #include "c-library.h"
8 :     #include "cfun-proto-list.h"
9 :    
10 :    
11 :     /* the table of C functions and ML names */
12 :     #define C_CALLS_CFUNC(NAME, FUNC, CTYPE, CARGS) \
13 :     CFUNC_BIND(NAME, (cfunc_t) FUNC, "")
14 :     #define CFUNC(NAME, FUNC, MLTYPE) CFUNC_BIND(NAME, FUNC, MLTYPE)
15 :     PVT cfunc_binding_t CFunTable[] = {
16 :     #include "cfun-list.h"
17 :     CFUNC_NULL_BIND
18 :     };
19 :     #undef CFUNC
20 :    
21 :    
22 :     /* the c-calls library */
23 :     c_library_t SMLNJ_CCalls_Library = {
24 :     CLIB_NAME,
25 :     CLIB_VERSION,
26 :     CLIB_DATE,
27 :     NIL(clib_init_fn_t),
28 :     CFunTable
29 :     };
30 :    

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