matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

drop support for (preprocess metaquot)

This commit is contained in:
Jeremie Dimino 2017-02-24 10:50:43 +00:00
parent 0f28c8bba0
commit 9b6b6b11f7
2 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/gen_rules.ml
View File

@ -271,13 +271,6 @@ module Gen(P : Params) = struct
| None -> sources
| Some set -> String_set.union sources set
(* +-----------------------------------------------------------------+
| Tools |
+-----------------------------------------------------------------+ *)
let ppx_metaquot = Named_artifacts.in_findlib "ppx_tools:ppx_metaquot"
let ppx_rewriter = Named_artifacts.in_findlib "ppx_tools:rewriter"
(* +-----------------------------------------------------------------+
| User variables |
+-----------------------------------------------------------------+ *)
@ -580,18 +573,6 @@ module Gen(P : Params) = struct
String_map.map modules ~f:(fun (m : Module.t) ->
match Preprocess_map.find m.name preprocess with
| No_preprocessing -> m
| Metaquot ->
pped_module m ~dir ~f:(fun kind src dst ->
add_rule
(preprocessor_deps
>>>
Build.fanout (ppx_rewriter ~dir ~dep_kind) (ppx_metaquot ~dir ~dep_kind)
>>>
Build.run (Dyn fst)
[ Dyn (fun (_, ppx_metaquot) -> Dep ppx_metaquot)
; A "-o"; Target dst
; Ml_kind.flag kind; Dep src
]))
| Command cmd ->
pped_module m ~dir ~f:(fun _kind src dst ->
add_rule

2
src/jbuild_types.ml
View File

@ -253,13 +253,11 @@ module Preprocess = struct
type t =
| No_preprocessing
| Command of String_with_vars.t
| Metaquot
| Pps of { pps : Pp_set.t; flags : string list }
let t =
sum
[ cstr "no_preprocessing" [] No_preprocessing
; cstr "metaquot" [] Metaquot
; cstr "command" [String_with_vars.t] (fun x -> Command x)
; cstr "pps" [list Pp_or_flag.t] (fun l ->
let pps, flags = Pp_or_flag.split l in