Databases
StackOverflow2013
Postsdbo
POLoading module with dynlink re-initialises top-level values
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POLoading module with dynlink re-initialises top-level values
    primarykey
    data
    text
    <p>I have a problem where I have a global hashtable, and then I load a .cma file with Dynlink, which registers a function in the hashtable.</p> <p>However, the behaviour I seem to be see is that when the module is dynamically linked, all the global bindings get re-initialised, such that my hashtable is empty.</p> <p>E.g.:</p> <pre><code>Table.extensions : (string, string -&gt; string) Hashtbl.t Extensions.load : unit -&gt; unit (* loads the specified .cma files *) Extensions.register : string -&gt; (string -&gt; string) -&gt; unit (* adds entry to Table.extensions, prints name of extension registered *) Main: let () = Extensions.load (); Hashtbl.iter (fun x _ -&gt; print_endline x) Table.extensions; Printf.printf "%d extensions loaded\n" (Hashtbl.length Table.extensions) </code></pre> <p>My program loads one .cma file, so it <em>should</em> print:</p> <pre><code>Registered extension 'test' test 1 extensions loaded </code></pre> <p>Instead I get:</p> <pre><code>Registered extension 'test' 0 extensions loaded </code></pre> <p>I've been fighting this for several hours now; no matter how I refactor my code, I get no closer to a working solution.</p> <p>EDIT: Extensions.load:</p> <pre><code>Dynlink.allow_unsafe_modules true;; let load () = try let exts = Sys.readdir "exts" in Array.iter begin fun name -&gt; try Dynlink.loadfile (Filename.concat "exts" name); Printf.printf "Loaded %s\n" name; with | Dynlink.Error error -&gt; print_endline (Dynlink.error_message error) | exn -&gt; print_endline (Printexc.to_string exn) end exts with _ -&gt; () </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USjessicah
    1. USjessicah
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POLoading module with dynlink re-initialises top-level values
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POLoading module with dynlink re-initialises top-level values
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POLoading module with dynlink re-initialises top-level values
      1. This table or related slice is empty.
      1. VTUpMod
    1. COAre you sure that extension registers itself in the same hashtbl that is used by main program? I.e. isn't it possible that there are two instances of `Table.extenstions`?
      singulars
      1. POLoading module with dynlink re-initialises top-level values
      1. USygrek
    2. COCan you post a little more code? Specifically it would be helpful to see what `Extensions.load` is doing.
      singulars
      1. POLoading module with dynlink re-initialises top-level values
      1. USNiki Yoshiuchi
    3. COTwo instances of Table.extensions? If this is so, how would I prevent that?
      singulars
      1. POLoading module with dynlink re-initialises top-level values
      1. USjessicah
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload