comparison src/flat_util.sig @ 28:104d43266b33

Field sorting for Flat
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 16:22:46 -0400
parents 4ab19c19665f
children
comparison
equal deleted inserted replaced
27:145b536fc702 28:104d43266b33
26 *) 26 *)
27 27
28 signature FLAT_UTIL = sig 28 signature FLAT_UTIL = sig
29 29
30 structure Typ : sig 30 structure Typ : sig
31 val compare : Flat.typ * Flat.typ -> order
32 val sortFields : (string * Flat.typ) list -> (string * Flat.typ) list
33
31 val mapfold : (Flat.typ', 'state, 'abort) Search.mapfolder 34 val mapfold : (Flat.typ', 'state, 'abort) Search.mapfolder
32 -> (Flat.typ, 'state, 'abort) Search.mapfolder 35 -> (Flat.typ, 'state, 'abort) Search.mapfolder
33 36
34 val map : (Flat.typ' -> Flat.typ') 37 val map : (Flat.typ' -> Flat.typ')
35 -> Flat.typ -> Flat.typ 38 -> Flat.typ -> Flat.typ