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

26
h_program-lang/skip_code.mli Normal file
View file

@ -0,0 +1,26 @@
type skip =
(* mostly to avoid parsing errors messages *)
| Dir of Common.dirname
| File of Common.filename
| DirElement of Common.dirname
| SkipErrorsDir of Common.dirname
val load: Common.filename -> skip list
val filter_files:
skip list -> Common.dirname (* root *) -> Common.filename list ->
Common.filename list
(* assumes given full paths *)
val filter_files_if_skip_list:
Common.filename list -> Common.filename list
val reorder_files_skip_errors_last:
skip list -> Common.dirname (* root *) -> Common.filename list ->
Common.filename list
(* returns true if we should skip the file for errors *)
val build_filter_errors_file:
skip list -> (Common.filename (* readable *) -> bool)