16 lines
348 B
OCaml
16 lines
348 B
OCaml
|
|
type subsystem = SubSystem of string
|
|
type dir = Dir of string
|
|
|
|
type tree_reorganization = (subsystem * dir list) list
|
|
|
|
|
|
|
|
val load_tree_reorganization :
|
|
Common.filename -> tree_reorganization
|
|
|
|
val change_organization:
|
|
tree_reorganization -> Common.filename (* dir *) -> unit
|
|
|
|
val subsystem_of_dir :
|
|
dir -> tree_reorganization -> subsystem
|