structure CatData =
struct
datatype CatEntry =
E_BASE of Uri.Uri
| E_DELEGATE of string * Uri.Uri
| E_EXTEND of Uri.Uri
| E_MAP of string * Uri.Uri
| E_REMAP of Uri.Uri * Uri.Uri
type Catalog = Uri.Uri * CatEntry list
end