blob: 64c64bcf989e445d11c84d1a161e1f6443536da7 (
plain)
1
2
3
4
5
6
7
8
9
10
|
type chemtbl = (string, int) Hashtbl.t
and chemrecord = { mutable hashtbl : chemtbl; mutable formula : string; }
and item = { ikey : string; itbl : chemrecord; mutable sign : int; }
and listitems = item list
val chem_addsym : chemtbl -> string -> int -> unit
val chem_add : chemrecord -> chemrecord -> chemrecord
val chem_mult : chemrecord -> int -> chemrecord
val createchem : string -> int -> chemrecord
val chem_negate : listitems -> unit
val chem_printitem : item -> unit
|
