comby-tools/comby
1
1
Fork 0
mirror of https://github.com/comby-tools/comby.git synced 2024-08-16 16:50:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

propagate filepath under -newline-separated

Browse Source
This commit is contained in:
Rijnard van Tonder 2021-06-06 20:06:42 -07:00
parent ef5d420739
commit 2ff3890649
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/kernel/matchers/rewrite.ml
View File

@ -131,13 +131,24 @@ let all ?source ?metasyntax ?external_handler ?fresh ?filepath ~rewrite_template
(* in-place substitution *)
| Some source ->
rev_matches
|> List.map ~f:(fun Match.{ environment; _ } -> substitute_in_rewrite_template ?filepath ?metasyntax ?external_handler ?fresh rewrite_template environment)
|> List.map ~f:(fun Match.{ environment; _ } ->
substitute_in_rewrite_template
?filepath
?metasyntax
?external_handler
?fresh rewrite_template
environment)
|> substitute_matches rev_matches source
(* no in place substitution, emit result separated by newlines *)
| None ->
let buf = Buffer.create 20 in
List.iter rev_matches ~f:(fun m ->
substitute_in_rewrite_template ?metasyntax ?external_handler ?fresh rewrite_template m.environment
substitute_in_rewrite_template
?filepath
?metasyntax
?external_handler
?fresh
rewrite_template m.environment
|> fun { replacement_content; _ } ->
Buffer.add_string buf replacement_content;
Buffer.add_char buf '\n');