OCaml 4.01.0 rebuild.

- Modernize the spec file.
- Enable debuginfo.
- Add patch to remove more warnings.
This commit is contained in:
Richard W.M. Jones 2013-09-19 13:21:01 +01:00
parent ef86fc88fe
commit 85681e6e6a
2 changed files with 140 additions and 14 deletions

View File

@ -1,18 +1,16 @@
%define debug_package %{nil}
Name: ocaml-omake
Version: 0.9.8.6
Release: 0.rc1%{?dist}.7
Release: 0.rc1%{?dist}.8
Summary: Build system with automated dependency analysis
Group: Development/Tools
License: LGPLv2+ with exceptions and GPLv2+ and BSD
URL: http://omake.metaprl.org/download.html
Source0: http://omake.metaprl.org/downloads/omake-%{version}-0.rc1.tar.gz
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
ExcludeArch: sparc64 s390 s390x
Patch0: omake-debian-disable-ocaml-warnings.patch
Patch1: omake-0.9.8.6-fix-and-or-operators.patch
# omake can be used on non-OCaml projects (RHBZ#548536).
Provides: omake
@ -50,6 +48,7 @@ features many additional enhancements, including the following.
%setup -q -n omake-%{version}
%patch0 -p1
%patch1 -p1
%build
@ -58,22 +57,14 @@ make all \
%install
rm -rf $RPM_BUILD_ROOT
make install \
INSTALL_ROOT=$RPM_BUILD_ROOT \
PREFIX=%{_prefix} MANDIR=%{_mandir} BINDIR=%{_bindir} LIBDIR=%{_libdir}
chmod 0755 $RPM_BUILD_ROOT%{_bindir}/*
strip $RPM_BUILD_ROOT%{_bindir}/omake
strip $RPM_BUILD_ROOT%{_bindir}/cvs_realclean
%clean
rm -rf $RPM_BUILD_ROOT
%files
%defattr(-,root,root,-)
%doc LICENSE LICENSE.OMake
%doc CHANGELOG.txt
%doc doc/txt/omake-doc.txt doc/ps/omake-doc.pdf doc/html/
@ -84,6 +75,12 @@ rm -rf $RPM_BUILD_ROOT
%changelog
* Thu Sep 19 2013 Richard W.M. Jones <rjones@redhat.com> - 0.9.8.6-0.rc1.8
- OCaml 4.01.0 rebuild.
- Modernize the spec file.
- Enable debuginfo.
- Add patch to remove more warnings.
* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.9.8.6-0.rc1.7
- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild

View File

@ -0,0 +1,129 @@
diff -ur omake-0.9.8.6.old/src/libmojave-external/stdlib/lm_array_util.ml omake-0.9.8.6/src/libmojave-external/stdlib/lm_array_util.ml
--- omake-0.9.8.6.old/src/libmojave-external/stdlib/lm_array_util.ml 2006-07-15 18:23:37.000000000 +0100
+++ omake-0.9.8.6/src/libmojave-external/stdlib/lm_array_util.ml 2013-09-19 13:12:58.851096621 +0100
@@ -85,7 +85,7 @@
let mem i v =
let l = Array.length v in
let rec aux j =
- j < l & ( i = v.(j) or
+ j < l && ( i = v.(j) ||
aux (j + 1) )
in
aux 0
@@ -112,7 +112,7 @@
let exists f v =
let l = Array.length v in
let rec aux j =
- j < l & ( f v.(j) or
+ j < l && ( f v.(j) ||
aux (j + 1) )
in
aux 0
diff -ur omake-0.9.8.6.old/src/libmojave-external/util/lm_filename_util.ml omake-0.9.8.6/src/libmojave-external/util/lm_filename_util.ml
--- omake-0.9.8.6.old/src/libmojave-external/util/lm_filename_util.ml 2007-01-29 20:14:42.000000000 +0000
+++ omake-0.9.8.6/src/libmojave-external/util/lm_filename_util.ml 2013-09-19 13:14:00.082153118 +0100
@@ -412,7 +412,7 @@
let simplify_path path =
let rec simplify path' = function
dir::tl ->
- if dir = "" or dir = "." then
+ if dir = "" || dir = "." then
simplify path' tl
else if dir = ".." then
match path' with
diff -ur omake-0.9.8.6.old/src/libmojave-external/stdlib/lm_list_util.ml omake-0.9.8.6/src/libmojave-external/stdlib/lm_list_util.ml
--- omake-0.9.8.6.old/src/libmojave-external/stdlib/lm_list_util.ml 2007-05-14 04:12:14.000000000 +0100
+++ omake-0.9.8.6/src/libmojave-external/stdlib/lm_list_util.ml 2013-09-19 13:12:26.120066393 +0100
@@ -576,7 +576,7 @@
let rec intersects l = function
h :: t ->
- List.mem h l or intersects l t
+ List.mem h l || intersects l t
| [] ->
false
@@ -763,7 +763,7 @@
let rec compare_eq l1 l2 =
match l1, l2 with
h1::t1, h2::t2 ->
- h1 == h2 & compare_eq t1 t2
+ h1 == h2 && compare_eq t1 t2
| [], [] ->
true
| _ ->
@@ -813,7 +813,7 @@
*)
let rec for_all2 f l1 l2 =
match (l1,l2) with
- h1::t1, h2::t2 -> f h1 h2 & for_all2 f t1 t2
+ h1::t1, h2::t2 -> f h1 h2 && for_all2 f t1 t2
| [], [] -> true
| _ -> false
@@ -822,7 +822,7 @@
*)
let rec exists2 f l1 l2 = match (l1,l2) with
h1::t1, h2::t2 ->
- f h1 h2 or exists2 f t1 t2
+ f h1 h2 || exists2 f t1 t2
| _ -> false
(*
diff -ur omake-0.9.8.6.old/src/libmojave-external/stdlib/lm_string_util.ml omake-0.9.8.6/src/libmojave-external/stdlib/lm_string_util.ml
--- omake-0.9.8.6.old/src/libmojave-external/stdlib/lm_string_util.ml 2008-06-28 02:21:34.000000000 +0100
+++ omake-0.9.8.6/src/libmojave-external/stdlib/lm_string_util.ml 2013-09-19 13:13:38.745133434 +0100
@@ -97,7 +97,7 @@
let for_all f s =
let len = String.length s in
let rec check i =
- (i = len) or (f s.[i] & check (succ i))
+ (i = len) || (f s.[i] && check (succ i))
in
check 0
@@ -1239,7 +1239,7 @@
let sub name s i len =
if !debug_string then
let len' = String.length s in
- if i >= 0 & len >= 0 & i + len < len' then
+ if i >= 0 && len >= 0 && i + len < len' then
String.sub s i len
else
begin
@@ -1253,7 +1253,7 @@
if !debug_string then
let from_len = String.length froms in
let to_len = String.length tos in
- if i >= 0 & j >= 0 & len >= 0 & i + len < from_len & j + len < to_len then
+ if i >= 0 && j >= 0 && len >= 0 && i + len < from_len && j + len < to_len then
String.blit froms i tos j len
else
begin
@@ -1266,7 +1266,7 @@
let set name s i c =
if !debug_string then
let len = String.length s in
- if i >= 0 & i < len then
+ if i >= 0 && i < len then
String.set s i c
else
begin
@@ -1278,7 +1278,7 @@
let get name s i =
let len = String.length s in
- if i >= 0 & i < len then
+ if i >= 0 && i < len then
String.get s i
else
begin
@@ -1534,7 +1534,7 @@
buf.[i] <- ' ';
convert (i + 1) (j + 1)
end
- else if uri.[j] = '%' & j < len - 2 then
+ else if uri.[j] = '%' && j < len - 2 then
begin
buf.[i] <- unhex_char uri.[j + 1] uri.[j + 2];
convert (i + 1) (j + 3)