blob: c08a5b480718610a48959141774142a282f1b986 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(*i $Id$ i*)
(*i*)
open Names
(*i*)
(* Module markers. *)
type 'a stock
type module_mark
type 'a stocked
type 'a stock_args = {
name : string;
proc : string -> 'a }
val make_stock : 'a stock_args -> 'a stock
val make_module_marker : string list -> module_mark
val stock : 'a stock -> module_mark -> string -> 'a stocked
val retrieve : 'a stock -> 'a stocked -> 'a
|