Группа :: Разработка/ML
Пакет: ocaml-omake
навигация по пакетам
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: omake-0.9.8.6-fix-and-or-operators.patch
Скачать
Скачать
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)