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

SCM Repository

[smlnj] Diff of /sml/trunk/src/ml-nlffi-lib/memory/linkage-dlopen.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffi-lib/memory/linkage-dlopen.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1014, Tue Jan 15 16:32:43 2002 UTC revision 1015, Tue Jan 15 21:46:00 2002 UTC
# Line 74  Line 74 
74      in      in
75          val main_lib = mkHandle (fn () => checked dlopen (NONE, true, true))          val main_lib = mkHandle (fn () => checked dlopen (NONE, true, true))
76    
77            fun open_lib' { name, lazy, global, dependencies } =
78                mkHandle (fn () => (app (ignore o get) dependencies;
79                                    checked dlopen (SOME name, lazy, global)))
80          fun open_lib { name, lazy, global } =          fun open_lib { name, lazy, global } =
81              mkHandle (fn () => checked dlopen (SOME name, lazy, global))              open_lib' { name = name, lazy = lazy, global = global,
82                            dependencies = [] }
83    
84          fun lib_symbol (lh, s) = mkHandle (fn () => checked dlsym (get lh, s))          fun lib_symbol (lh, s) = mkHandle (fn () => checked dlsym (get lh, s))
85    

Legend:
Removed from v.1014  
changed lines
  Added in v.1015

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