drop support for (preprocess metaquot)
This commit is contained in:
parent
0f28c8bba0
commit
9b6b6b11f7
|
@ -271,13 +271,6 @@ module Gen(P : Params) = struct
|
||||||
| None -> sources
|
| None -> sources
|
||||||
| Some set -> String_set.union sources set
|
| 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 |
|
| User variables |
|
||||||
+-----------------------------------------------------------------+ *)
|
+-----------------------------------------------------------------+ *)
|
||||||
|
@ -580,18 +573,6 @@ module Gen(P : Params) = struct
|
||||||
String_map.map modules ~f:(fun (m : Module.t) ->
|
String_map.map modules ~f:(fun (m : Module.t) ->
|
||||||
match Preprocess_map.find m.name preprocess with
|
match Preprocess_map.find m.name preprocess with
|
||||||
| No_preprocessing -> m
|
| 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 ->
|
| Command cmd ->
|
||||||
pped_module m ~dir ~f:(fun _kind src dst ->
|
pped_module m ~dir ~f:(fun _kind src dst ->
|
||||||
add_rule
|
add_rule
|
||||||
|
|
|
@ -253,13 +253,11 @@ module Preprocess = struct
|
||||||
type t =
|
type t =
|
||||||
| No_preprocessing
|
| No_preprocessing
|
||||||
| Command of String_with_vars.t
|
| Command of String_with_vars.t
|
||||||
| Metaquot
|
|
||||||
| Pps of { pps : Pp_set.t; flags : string list }
|
| Pps of { pps : Pp_set.t; flags : string list }
|
||||||
|
|
||||||
let t =
|
let t =
|
||||||
sum
|
sum
|
||||||
[ cstr "no_preprocessing" [] No_preprocessing
|
[ cstr "no_preprocessing" [] No_preprocessing
|
||||||
; cstr "metaquot" [] Metaquot
|
|
||||||
; cstr "command" [String_with_vars.t] (fun x -> Command x)
|
; cstr "command" [String_with_vars.t] (fun x -> Command x)
|
||||||
; cstr "pps" [list Pp_or_flag.t] (fun l ->
|
; cstr "pps" [list Pp_or_flag.t] (fun l ->
|
||||||
let pps, flags = Pp_or_flag.split l in
|
let pps, flags = Pp_or_flag.split l in
|
||||||
|
|
Loading…
Reference in New Issue