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/branches/blume-private-devel/src/ml-nlffi-lib/Tests/readline/libh.sml
ViewVC logotype

Annotation of /sml/branches/blume-private-devel/src/ml-nlffi-lib/Tests/readline/libh.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1440 - (view) (download)

1 : mblume 1439 structure LibH = struct
2 :     local
3 : mblume 1440 val lh_curses = DynLinkage.open_lib
4 :     { name = "libcurses.so", global = true, lazy = true }
5 :     val lh = DynLinkage.open_lib'
6 :     { name = "libreadline.so", global = true, lazy = true,
7 :     dependencies = [lh_curses] }
8 : mblume 1439 in
9 :     fun libh s = let
10 :     val sh = DynLinkage.lib_symbol (lh, s)
11 :     in
12 :     fn () => DynLinkage.addr sh
13 :     end
14 :     end
15 :     end

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