Version 6.2. Drop upstreamed ppx_tools-6.1-ocaml-4.11.patch.
This commit is contained in:
parent
059d539005
commit
9715086862
@ -4,23 +4,18 @@
|
|||||||
|
|
||||||
%global srcname ppx-tools
|
%global srcname ppx-tools
|
||||||
%global upname ppx_tools
|
%global upname ppx_tools
|
||||||
%global ocamlvr 4.10.0
|
|
||||||
|
|
||||||
Name: ocaml-%{srcname}
|
Name: ocaml-%{srcname}
|
||||||
Version: 6.1
|
Version: 6.2
|
||||||
Release: 7%{?dist}
|
Release: 1%{?dist}
|
||||||
Summary: Tools for authors of ppx rewriters
|
Summary: Tools for authors of ppx rewriters
|
||||||
|
|
||||||
License: MIT
|
License: MIT
|
||||||
URL: https://github.com/ocaml-ppx/%{upname}
|
URL: https://github.com/ocaml-ppx/%{upname}
|
||||||
Source0: %{url}/archive/%{version}+%{ocamlvr}/%{upname}-%{version}.tar.gz
|
Source0: %{url}/archive/%{version}/%{upname}-%{version}.tar.gz
|
||||||
|
|
||||||
# Sent upstream 2020-04-22.
|
BuildRequires: ocaml >= 4.08.0
|
||||||
Patch1: ppx_tools-6.1-ocaml-4.11.patch
|
|
||||||
|
|
||||||
BuildRequires: ocaml >= %{ocamlvr}
|
|
||||||
BuildRequires: ocaml-dune >= 1.6
|
BuildRequires: ocaml-dune >= 1.6
|
||||||
BuildRequires: ocaml-findlib
|
|
||||||
BuildRequires: ocaml-odoc
|
BuildRequires: ocaml-odoc
|
||||||
|
|
||||||
%description
|
%description
|
||||||
@ -42,7 +37,7 @@ BuildArch: noarch
|
|||||||
Documentation for %{name}.
|
Documentation for %{name}.
|
||||||
|
|
||||||
%prep
|
%prep
|
||||||
%autosetup -n %{upname}-%{version}-%{ocamlvr} -p1
|
%autosetup -n %{upname}-%{version}
|
||||||
|
|
||||||
%build
|
%build
|
||||||
dune build %{?_smp_mflags}
|
dune build %{?_smp_mflags}
|
||||||
@ -112,6 +107,10 @@ dune runtest
|
|||||||
%license LICENSE
|
%license LICENSE
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Wed Aug 5 2020 Jerry James <loganjerry@gmail.com> - 6.2-1
|
||||||
|
- Version 6.2
|
||||||
|
- Drop upstreamed ppx_tools-6.1-ocaml-4.11.patch
|
||||||
|
|
||||||
* Sat Aug 01 2020 Fedora Release Engineering <releng@fedoraproject.org> - 6.1-7
|
* Sat Aug 01 2020 Fedora Release Engineering <releng@fedoraproject.org> - 6.1-7
|
||||||
- Second attempt - Rebuilt for
|
- Second attempt - Rebuilt for
|
||||||
https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
|
https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
|
||||||
|
@ -1,127 +0,0 @@
|
|||||||
diff -ur ppx_tools-6.1-4.10.0.old/ast_convenience.ml ppx_tools-6.1-4.10.0.new/ast_convenience.ml
|
|
||||||
--- ppx_tools-6.1-4.10.0.old/ast_convenience.ml 2020-02-12 00:59:14.000000000 +0000
|
|
||||||
+++ ppx_tools-6.1-4.10.0.new/ast_convenience.ml 2020-04-22 15:41:13.243499094 +0100
|
|
||||||
@@ -29,7 +29,7 @@
|
|
||||||
type t = Parsetree.constant =
|
|
||||||
Pconst_integer of string * char option
|
|
||||||
| Pconst_char of char
|
|
||||||
- | Pconst_string of string * string option
|
|
||||||
+ | Pconst_string of string * Location.t * string option
|
|
||||||
| Pconst_float of string * char option
|
|
||||||
|
|
||||||
let of_constant x = x
|
|
||||||
@@ -53,7 +53,7 @@
|
|
||||||
| xs -> Exp.tuple ?loc ?attrs xs
|
|
||||||
let cons ?loc ?attrs hd tl = constr ?loc ?attrs "::" [hd; tl]
|
|
||||||
let list ?loc ?attrs l = List.fold_right (cons ?loc ?attrs) l (nil ?loc ?attrs ())
|
|
||||||
-let str ?loc ?attrs s = Exp.constant ?loc ?attrs (Pconst_string (s, None))
|
|
||||||
+let str ?loc ?attrs s = Exp.constant ?loc ?attrs (Pconst_string (s, Location.none, None))
|
|
||||||
let int ?loc ?attrs x = Exp.constant ?loc ?attrs (Pconst_integer (string_of_int x, None))
|
|
||||||
let int32 ?loc ?attrs x = Exp.constant ?loc ?attrs (Pconst_integer (Int32.to_string x, Some 'l'))
|
|
||||||
let int64 ?loc ?attrs x = Exp.constant ?loc ?attrs (Pconst_integer (Int64.to_string x, Some 'L'))
|
|
||||||
@@ -85,7 +85,7 @@
|
|
||||||
| xs -> Pat.tuple ?loc ?attrs xs
|
|
||||||
let plist ?loc ?attrs l = List.fold_right (pcons ?loc ?attrs) l (pnil ?loc ?attrs ())
|
|
||||||
|
|
||||||
-let pstr ?loc ?attrs s = Pat.constant ?loc ?attrs (Pconst_string (s, None))
|
|
||||||
+let pstr ?loc ?attrs s = Pat.constant ?loc ?attrs (Pconst_string (s, Location.none, None))
|
|
||||||
let pint ?loc ?attrs x = Pat.constant ?loc ?attrs (Pconst_integer (string_of_int x, None))
|
|
||||||
let pchar ?loc ?attrs x = Pat.constant ?loc ?attrs (Pconst_char x)
|
|
||||||
let pfloat ?loc ?attrs x = Pat.constant ?loc ?attrs (Pconst_float (string_of_float x, None))
|
|
||||||
@@ -93,11 +93,11 @@
|
|
||||||
let tconstr ?loc ?attrs c l = Typ.constr ?loc ?attrs (lid ?loc c) l
|
|
||||||
|
|
||||||
let get_str = function
|
|
||||||
- | {pexp_desc=Pexp_constant (Pconst_string (s, _)); _} -> Some s
|
|
||||||
+ | {pexp_desc=Pexp_constant (Pconst_string (s, _, _)); _} -> Some s
|
|
||||||
| _ -> None
|
|
||||||
|
|
||||||
let get_str_with_quotation_delimiter = function
|
|
||||||
- | {pexp_desc=Pexp_constant (Pconst_string (s, d)); _} -> Some (s, d)
|
|
||||||
+ | {pexp_desc=Pexp_constant (Pconst_string (s, _, d)); _} -> Some (s, d)
|
|
||||||
| _ -> None
|
|
||||||
|
|
||||||
let get_lid = function
|
|
||||||
diff -ur ppx_tools-6.1-4.10.0.old/ast_convenience.mli ppx_tools-6.1-4.10.0.new/ast_convenience.mli
|
|
||||||
--- ppx_tools-6.1-4.10.0.old/ast_convenience.mli 2020-02-12 00:59:14.000000000 +0000
|
|
||||||
+++ ppx_tools-6.1-4.10.0.new/ast_convenience.mli 2020-04-22 15:38:39.785437823 +0100
|
|
||||||
@@ -32,7 +32,7 @@
|
|
||||||
type t = Parsetree.constant =
|
|
||||||
Pconst_integer of string * char option
|
|
||||||
| Pconst_char of char
|
|
||||||
- | Pconst_string of string * string option
|
|
||||||
+ | Pconst_string of string * Location.t * string option
|
|
||||||
| Pconst_float of string * char option
|
|
||||||
|
|
||||||
(** Convert Asttypes.constant to Constant.t *)
|
|
||||||
diff -ur ppx_tools-6.1-4.10.0.old/ast_mapper_class.ml ppx_tools-6.1-4.10.0.new/ast_mapper_class.ml
|
|
||||||
--- ppx_tools-6.1-4.10.0.old/ast_mapper_class.ml 2020-02-12 00:59:14.000000000 +0000
|
|
||||||
+++ ppx_tools-6.1-4.10.0.new/ast_mapper_class.ml 2020-04-22 15:48:15.989092767 +0100
|
|
||||||
@@ -603,6 +603,8 @@
|
|
||||||
| PTyp x -> PTyp (this # typ x)
|
|
||||||
| PPat (x, g) -> PPat (this # pat x, map_opt (this # expr) g)
|
|
||||||
| PSig x -> PSig (this # signature x)
|
|
||||||
+
|
|
||||||
+ method constant (c : Parsetree.constant) = c (* XXX? *)
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
@@ -623,6 +625,7 @@
|
|
||||||
class_type = (fun _ -> this # class_type);
|
|
||||||
class_type_declaration = (fun _ -> this # class_type_declaration);
|
|
||||||
class_type_field = (fun _ -> this # class_type_field);
|
|
||||||
+ constant = (fun _ -> this # constant);
|
|
||||||
constructor_declaration = (fun _ -> this # constructor_declaration);
|
|
||||||
expr = (fun _ -> this # expr);
|
|
||||||
extension = (fun _ -> this # extension);
|
|
||||||
diff -ur ppx_tools-6.1-4.10.0.old/ast_mapper_class.mli ppx_tools-6.1-4.10.0.new/ast_mapper_class.mli
|
|
||||||
--- ppx_tools-6.1-4.10.0.old/ast_mapper_class.mli 2020-02-12 00:59:14.000000000 +0000
|
|
||||||
+++ ppx_tools-6.1-4.10.0.new/ast_mapper_class.mli 2020-04-22 15:47:01.257106016 +0100
|
|
||||||
@@ -22,6 +22,7 @@
|
|
||||||
method class_type: class_type -> class_type
|
|
||||||
method class_type_declaration: class_type_declaration -> class_type_declaration
|
|
||||||
method class_type_field: class_type_field -> class_type_field
|
|
||||||
+ method constant : constant -> constant
|
|
||||||
method constructor_arguments: constructor_arguments -> constructor_arguments
|
|
||||||
method constructor_declaration: constructor_declaration -> constructor_declaration
|
|
||||||
method expr: expression -> expression
|
|
||||||
diff -ur ppx_tools-6.1-4.10.0.old/dune ppx_tools-6.1-4.10.0.new/dune
|
|
||||||
--- ppx_tools-6.1-4.10.0.old/dune 2020-02-12 00:59:14.000000000 +0000
|
|
||||||
+++ ppx_tools-6.1-4.10.0.new/dune 2020-04-22 15:50:10.948610676 +0100
|
|
||||||
@@ -3,7 +3,8 @@
|
|
||||||
(synopsis "Tools for authors of ppx rewriters and other syntactic tools")
|
|
||||||
(wrapped false)
|
|
||||||
(modules ast_convenience ast_mapper_class)
|
|
||||||
- (libraries compiler-libs.common))
|
|
||||||
+ (libraries compiler-libs.common)
|
|
||||||
+ (flags (:standard -w "-3")))
|
|
||||||
|
|
||||||
(library
|
|
||||||
(name ppx_metaquot)
|
|
||||||
@@ -14,12 +15,14 @@
|
|
||||||
(modules ppx_metaquot)
|
|
||||||
(ppx.driver (main Ppx_metaquot.Main.main))
|
|
||||||
(ppx_runtime_libraries ppx_tools)
|
|
||||||
- (libraries compiler-libs.common ppx_tools ast_lifter))
|
|
||||||
+ (libraries compiler-libs.common ppx_tools ast_lifter)
|
|
||||||
+ (flags (:standard -w "-3")))
|
|
||||||
|
|
||||||
(executable
|
|
||||||
(name genlifter)
|
|
||||||
(modules genlifter)
|
|
||||||
- (libraries compiler-libs.common ppx_tools))
|
|
||||||
+ (libraries compiler-libs.common ppx_tools)
|
|
||||||
+ (flags (:standard -w "-3")))
|
|
||||||
|
|
||||||
(executable
|
|
||||||
(name dumpast)
|
|
||||||
@@ -29,7 +32,8 @@
|
|
||||||
(executable
|
|
||||||
(name ppx_metaquot_main)
|
|
||||||
(modules ppx_metaquot_main)
|
|
||||||
- (libraries ppx_metaquot))
|
|
||||||
+ (libraries ppx_metaquot)
|
|
||||||
+ (flags (:standard -w "-3")))
|
|
||||||
|
|
||||||
(executable
|
|
||||||
(name rewriter)
|
|
2
sources
2
sources
@ -1 +1 @@
|
|||||||
SHA512 (ppx_tools-6.1.tar.gz) = 596dd6c9682eb1f36376a9fb60b9dff58ce7416bd83d5d0f5b36517b917b9466c99f621bcccc012255eefcd07d9c1663c2900eae60d89492c2e62c3173ed9311
|
SHA512 (ppx_tools-6.2.tar.gz) = fc3943c69901ef46843355c3482d5a1481d05ee94fb0a344ec04101059a02cbaa76fed5742cfae82730edf378f2e140d859a5cf590653f85359255d451f07dc8
|
||||||
|
Loading…
Reference in New Issue
Block a user