package apero-core

  1. Overview
  2. Docs
package apero-core
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file dynload.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
let ref:string array option ref = ref None

let loadfile plugin args = 
  ref := Some args;
  try
    Dynlink.loadfile @@ Dynlink.adapt_filename plugin;
  with
   | Dynlink.Error s -> failwith (Printf.sprintf "Error loading plugin %s: %s" plugin (Dynlink.error_message s))

let loadfile_private plugin args = 
  ref := Some args;
  try
    Dynlink.loadfile_private @@ Dynlink.adapt_filename plugin;
  with
   | Dynlink.Error s -> failwith (Printf.sprintf "Error loading plugin %s: %s" plugin (Dynlink.error_message s))