jyapayne/flitter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add poc files

Browse source
This commit is contained in:
Joey Yakimowich-Payne 2018-05-26 10:55:38 +09:00
commit fa600b98f7
220 changed files with 45679 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
h_files-format/source_tree.mli Normal file
View file

@ -0,0 +1,16 @@
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