2024-05-10 16:15.14: New job: test c-cube/iter https://github.com/c-cube/iter.git#refs/heads/main (fc69ce4c919cdd04fb5041410fd61d5a3f742702) (linux-x86_64:(lower-bound))
Base: ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb
Opam project build
To reproduce locally:
git clone --recursive "https://github.com/c-cube/iter.git" -b "main" && cd "iter" && git reset --hard fc69ce4c
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb
# debian-12-4.08_opam-2.1
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
WORKDIR /src
RUN sudo ln -f /usr/bin/opam-2.1 /usr/bin/opam
RUN opam init --reinit -ni
RUN uname -rs && opam exec -- ocaml -version && opam --version
WORKDIR /src
RUN sudo chown opam /src
RUN cd ~/opam-repository && (git cat-file -e 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b || git fetch origin master) && git reset -q --hard 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b && git log --no-decorate -n1 --oneline && opam update -u
COPY --chown=1000:1000 iter.opam ./
RUN opam pin add -yn iter.dev './'
ENV DEPS="astring.0.8.2 base-bigarray.base base-bytes.base base-threads.base base-unix.base cmdliner.1.0.0 conf-m4.1 cppo.1.6.1 dune.2.0.1 fmt.0.8.5 jbuilder.1.0+beta20.1 logs.0.6.2 mdx.1.4.0 ocaml.4.08.1 ocaml-base-compiler.4.08.1 ocaml-config.1 ocaml-migrate-parsetree.1.3.0 ocamlbuild.0.14.0 ocamlfind.1.8.0 ounit2.2.2.0 ppx_derivers.1.0 qcheck-core.0.9 re.1.7.2 result.1.0 stdlib-shims.0.1.0 topkg.0.9.0 uchar.0.0.2"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.1 --depext-only -y iter.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . /src
RUN opam exec -- dune build @install @check @runtest && rm -rf _build
END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK
2024-05-10 16:15.14: Using cache hint "c-cube/iter-ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb-debian-12-4.08_opam-2.1-90eef496baf0ed67f501f2a6a91aeb47"
2024-05-10 16:15.14: Using OBuilder spec:
((from ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb)
(comment debian-12-4.08_opam-2.1)
(user (uid 1000) (gid 1000))
(env CLICOLOR_FORCE 1)
(env OPAMCOLOR always)
(workdir /src)
(run (shell "sudo ln -f /usr/bin/opam-2.1 /usr/bin/opam"))
(run (shell "opam init --reinit -ni"))
(run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
(workdir /src)
(run (shell "sudo chown opam /src"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b || git fetch origin master) && git reset -q --hard 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b && git log --no-decorate -n1 --oneline && opam update -u"))
(copy (src iter.opam) (dst ./))
(run (network host)
(shell "opam pin add -yn iter.dev './'"))
(env DEPS "astring.0.8.2 base-bigarray.base base-bytes.base base-threads.base base-unix.base cmdliner.1.0.0 conf-m4.1 cppo.1.6.1 dune.2.0.1 fmt.0.8.5 jbuilder.1.0+beta20.1 logs.0.6.2 mdx.1.4.0 ocaml.4.08.1 ocaml-base-compiler.4.08.1 ocaml-config.1 ocaml-migrate-parsetree.1.3.0 ocamlbuild.0.14.0 ocamlfind.1.8.0 ounit2.2.2.0 ppx_derivers.1.0 qcheck-core.0.9 re.1.7.2 result.1.0 stdlib-shims.0.1.0 topkg.0.9.0 uchar.0.0.2")
(env CI true)
(env OCAMLCI true)
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam update --depexts && opam install --cli=2.1 --depext-only -y iter.dev $DEPS"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam install $DEPS"))
(copy (src .) (dst /src))
(run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
)
2024-05-10 16:15.14: Waiting for resource in pool OCluster
2024-05-11 10:01.52: Waiting for worker…
2024-05-11 10:06.56: Got resource from pool OCluster
Building on doris.caelum.ci.dev
All commits already cached
HEAD is now at fc69ce4 faster doc build
(from ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb)
Unable to find image 'ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb' locally
docker.io/ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb: Pulling from ocaml/opam
61aa86cd8a87: Pulling fs layer
61aa86cd8a87: Verifying Checksum
61aa86cd8a87: Download complete
61aa86cd8a87: Pull complete
Digest: sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb
Status: Downloaded newer image for ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb
2024-05-11 10:06.57 ---> using "e0805034d9e735da2cb99f3eb2cde6a7473dabe8bd1020b5bf9a6e9f3a9991fe" from cache
/: (comment debian-12-4.08_opam-2.1)
/: (user (uid 1000) (gid 1000))
/: (env CLICOLOR_FORCE 1)
/: (env OPAMCOLOR always)
/: (workdir /src)
/src: (run (shell "sudo ln -f /usr/bin/opam-2.1 /usr/bin/opam"))
2024-05-11 10:06.57 ---> using "646bc87e0f57317c5ebf610ed55d499e1a9858c6afbb70f9b3c1442beb0c0bc7" from cache
/src: (run (shell "opam init --reinit -ni"))
Configuring from /home/opam/.opamrc and then from built-in defaults.
Checking for available remotes: rsync and local, git.
- you won't be able to use mercurial repositories unless you install the hg command on your system.
- you won't be able to use darcs repositories unless you install the darcs command on your system.
This version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.1, which can't be reverted.
You may want to back it up before going further.
Continue? [Y/n] y
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2024-05-11 10:06.57 ---> using "3efe606a65f6fe7269ee6813ddd2fa2c2714f24a04a227ae5fb5c7db864c4c57" from cache
/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Linux 5.15.0-101-generic
The OCaml toplevel, version 4.08.1
2.1.5
2024-05-11 10:06.57 ---> using "6225fba4323f2de754e24da77b187b22e091a3b5bdd8f66c82092a9cc9863ec9" from cache
/src: (workdir /src)
/src: (run (shell "sudo chown opam /src"))
2024-05-11 10:06.57 ---> using "35c4353ebc362a36ebb5c4ac3584cadf9893526dc08b896ef76d9b395ed9c850" from cache
/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b || git fetch origin master) && git reset -q --hard 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
* branch master -> FETCH_HEAD
eb2dcab0d8..2ae169d7d0 master -> origin/master
307e33d08f @dra27 and @Octachron maintain the 4.08+ packages
<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).
However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages.
Nothing to do.
# Run eval $(opam env) to update the current shell environment
2024-05-11 10:06.57 ---> using "167082e53e3e0b5c6101e17be718ec3e4c289917b8e1d14e9b0bc7b95515b5c7" from cache
/src: (copy (src iter.opam) (dst ./))
2024-05-11 10:06.57 ---> saved as "19090849c8def772bf90b933c5d1879b4c283e9d9fff5565592eab1b669d958c"
/src: (run (network host)
(shell "opam pin add -yn iter.dev './'"))
[iter.dev] synchronised (file:///src)
iter is now pinned to file:///src (version dev)
2024-05-11 10:07.01 ---> saved as "60e41f7779b053ddf425cd2386b7589a08103eeb6df7683a87c3fe94d3147590"
/src: (env DEPS "astring.0.8.2 base-bigarray.base base-bytes.base base-threads.base base-unix.base cmdliner.1.0.0 conf-m4.1 cppo.1.6.1 dune.2.0.1 fmt.0.8.5 jbuilder.1.0+beta20.1 logs.0.6.2 mdx.1.4.0 ocaml.4.08.1 ocaml-base-compiler.4.08.1 ocaml-config.1 ocaml-migrate-parsetree.1.3.0 ocamlbuild.0.14.0 ocamlfind.1.8.0 ounit2.2.2.0 ppx_derivers.1.0 qcheck-core.0.9 re.1.7.2 result.1.0 stdlib-shims.0.1.0 topkg.0.9.0 uchar.0.0.2")
/src: (env CI true)
/src: (env OCAMLCI true)
/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam update --depexts && opam install --cli=2.1 --depext-only -y iter.dev $DEPS"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian bookworm InRelease
- Get:2 http://deb.debian.org/debian bookworm-updates InRelease [55.4 kB]
- Get:3 http://deb.debian.org/debian-security bookworm-security InRelease [48.0 kB]
- Get:4 http://deb.debian.org/debian-security bookworm-security/main amd64 Packages [155 kB]
- Fetched 258 kB in 0s (695 kB/s)
- Reading package lists...
-
<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[iter.dev] synchronised (no changes)
[NOTE] Package ocaml-config is already installed (current version is 1).
[NOTE] Package ocaml-base-compiler is already installed (current version is 4.08.1).
[NOTE] Package ocaml is already installed (current version is 4.08.1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following system packages will first need to be installed:
m4
<><> Handling external dependencies <><><><><><><><><><><><><><><><><><><><><><>
+ /usr/bin/sudo "apt-get" "install" "-qq" "-yy" "m4"
- debconf: delaying package configuration, since apt-utils is not installed
2024-05-11 10:07.19 ---> saved as "dcf6a75c4fa8a4ceca813eef62ff84251ef48f6d033bc499879dd06b64e51249"
/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam install $DEPS"))
[NOTE] Package ocaml-config is already installed (current version is 1).
[NOTE] Package ocaml-base-compiler is already installed (current version is 4.08.1).
[NOTE] Package ocaml is already installed (current version is 4.08.1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following actions will be performed:
- install dune 2.0.1
- install conf-m4 1
- install jbuilder 1.0+beta20.1
- install result 1.0
- install ocamlbuild 0.14.0
- install stdlib-shims 0.1.0
- install ocamlfind 1.8.0
- install ppx_derivers 1.0
- install uchar 0.0.2
- install topkg 0.9.0
- install base-bytes base
- install ocaml-migrate-parsetree 1.3.0
- install cmdliner 1.0.0
- install re 1.7.2
- install qcheck-core 0.9
- install ounit2 2.2.0
- install cppo 1.6.1
- install astring 0.8.2
- install fmt 0.8.5
- install logs 0.6.2
- install mdx 1.4.0
===== 21 to install =====
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved astring.0.8.2 (cached)
-> retrieved cmdliner.1.0.0 (cached)
-> retrieved cppo.1.6.1 (cached)
-> installed conf-m4.1
-> retrieved fmt.0.8.5 (cached)
-> retrieved logs.0.6.2 (cached)
-> retrieved mdx.1.4.0 (cached)
-> retrieved jbuilder.1.0+beta20.1 (cached)
-> retrieved ocaml-migrate-parsetree.1.3.0 (cached)
-> retrieved ocamlbuild.0.14.0 (cached)
-> retrieved dune.2.0.1 (cached)
-> retrieved ocamlfind.1.8.0 (cached)
-> retrieved ounit2.2.2.0 (cached)
-> retrieved ppx_derivers.1.0 (cached)
-> retrieved qcheck-core.0.9 (cached)
-> retrieved re.1.7.2 (cached)
-> retrieved result.1.0 (cached)
-> retrieved stdlib-shims.0.1.0 (cached)
-> retrieved uchar.0.0.2 (cached)
-> retrieved topkg.0.9.0 (cached)
-> installed result.1.0
-> installed ocamlfind.1.8.0
-> installed base-bytes.base
-> installed ocamlbuild.0.14.0
-> installed uchar.0.0.2
-> installed jbuilder.1.0+beta20.1
-> installed ppx_derivers.1.0
-> installed cppo.1.6.1
-> installed re.1.7.2
-> installed dune.2.0.1
-> installed stdlib-shims.0.1.0
-> installed qcheck-core.0.9
-> installed topkg.0.9.0
-> installed ounit2.2.2.0
-> installed astring.0.8.2
-> installed cmdliner.1.0.0
-> installed fmt.0.8.5
-> installed ocaml-migrate-parsetree.1.3.0
-> installed logs.0.6.2
-> installed mdx.1.4.0
Done.
# Run eval $(opam env) to update the current shell environment
2024-05-11 10:07.58 ---> saved as "273832be3cbf627cf97f13602fc974d33e7cbdc7b827677a4758ec12fbc5411b"
/src: (copy (src .) (dst /src))
2024-05-11 10:07.58 ---> saved as "720250d98b0d47dea0d4626afb0ceb44d141846fc8598c82af907b718b95a022"
/src: (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
File "benchs/dune", line 3, characters 17-26:
3 | (libraries iter benchmark)
^^^^^^^^^
Error: Library "benchmark" not found.
Hint: try: dune external-lib-deps --missing @install @check @runtest
File "README.md", line 1, characters 0-0:
git (internal) (exit 1)
(cd _build/default && /usr/bin/git diff --no-index --color=always -u README.md README.md.corrected)
diff --git a/README.md b/README.md.corrected
index 4c8f158..9bffba5 100644
--- a/README.md
+++ b/README.md.corrected
@@ -7,7 +7,8 @@ Clean and efficient loop fusion for all your iterating needs!
# #require "iter";;
# let p x = x mod 5 = 0 in
Iter.(1 -- 5_000 |> filter p |> map (fun x -> x * x) |> fold (+) 0);;
-- : int = 8345837500
+Line 2, characters 3-7:
+Error: Unbound module Iter
```
`Iter` is a simple abstraction over `iter` functions
@@ -52,16 +53,20 @@ With iter, if the source structure provides a
# let q : int Queue.t = Queue.create();;
val q : int Queue.t = <abstr>
# Iter.( 1 -- 10 |> to_queue q);;
-- : unit = ()
+Line 1, characters 1-5:
+Error: Unbound module Iter
# Iter.of_queue q |> Iter.to_list ;;
-- : int list = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10]
+Line 1, characters 1-14:
+Error: Unbound module Iter
# let s : int Stack.t = Stack.create();;
val s : int Stack.t = <abstr>
# Iter.(of_queue q |> to_stack s);;
-- : unit = ()
+Line 1, characters 1-5:
+Error: Unbound module Iter
# Iter.of_stack s |> Iter.to_list ;;
-- : int list = [10; 9; 8; 7; 6; 5; 4; 3; 2; 1]
+Line 1, characters 1-14:
+Error: Unbound module Iter
```
Note how the list of elements is reversed when we transfer them
@@ -84,7 +89,8 @@ val h : (int, string) Hashtbl.t = <abstr>
# (* now to get the values *)
Iter.of_hashtbl h |> Iter.map snd |> Iter.to_list;;
-- : string list = ["6"; "2"; "8"; "7"; "3"; "5"; "4"; "9"; "0"; "10"; "1"]
+Line 2, characters 3-18:
+Error: Unbound module Iter
```
### Replacing `for` loops
@@ -95,7 +101,8 @@ use `Iter.(--) : int -> int -> int Iter.t`.
```ocaml
# Iter.(1 -- 10_000_000 |> fold (+) 0);;
-- : int = 50000005000000
+Line 1, characters 1-5:
+Error: Unbound module Iter
# let p x = x mod 5 = 0 in
Iter.(1 -- 5_000
@@ -103,7 +110,8 @@ use `Iter.(--) : int -> int -> int Iter.t`.
|> map (fun x -> x * x)
|> fold (+) 0
);;
-- : int = 8345837500
+Line 2, characters 3-7:
+Error: Unbound module Iter
```
**NOTE**: with _flambda_ under sufficiently strong
@@ -131,20 +139,24 @@ type term = Var of string | App of term * term | Lambda of term
| App (a,b) ->
Iter.append (subterms a) (subterms b))
;;
-val subterms : term -> term Iter.t = <fun>
+Line 1, characters 33-39:
+Error: Unbound module Iter
# (* Now we can define many other functions easily! *)
let vars t =
Iter.filter_map
(function Var s -> Some s | _ -> None)
(subterms t) ;;
-val vars : term -> string Iter.t = <fun>
+Line 3, characters 5-20:
+Error: Unbound module Iter
# let size t = Iter.length (subterms t) ;;
-val size : term -> int = <fun>
+Line 1, characters 14-25:
+Error: Unbound module Iter
# let vars_list l = Iter.(of_list l |> flat_map vars);;
-val vars_list : term list -> string Iter.t = <fun>
+Line 1, characters 19-23:
+Error: Unbound module Iter
```
### Permutations
@@ -157,21 +169,26 @@ enumerating the ways we can insert an element in a list.
```ocaml
# open Iter.Infix;;
+Line 1, characters 6-16:
+Error: Unbound module Iter
# let rec insert x l = match l with
| [] -> Iter.return [x]
| y :: tl ->
Iter.append
(insert x tl >|= fun tl' -> y :: tl')
(Iter.return (x :: l)) ;;
-val insert : 'a -> 'a list -> 'a list Iter.t = <fun>
+Line 2, characters 11-22:
+Error: Unbound module Iter
# let rec permute l = match l with
| [] -> Iter.return []
| x :: tl -> permute tl >>= insert x ;;
-val permute : 'a list -> 'a list Iter.t = <fun>
+Line 2, characters 11-22:
+Error: Unbound module Iter
# permute [1;2;3;4] |> Iter.take 2 |> Iter.to_list ;;
-- : int list list = [[4; 3; 2; 1]; [4; 3; 1; 2]]
+Line 1, characters 1-8:
+Error: Unbound value permute
```
### Advanced example
ocamlc src/.iter.objs/byte/Iter.{cmo,cmt}
File "src/Iter.ml", line 204, characters 6-141:
204 | ......match !acc with
205 | | Nil -> acc := !cur
206 | | _ ->
207 | (match !tail with
208 | | Nil -> ()
209 | | Cons r -> r.tl <- !cur)
Warning 4: this pattern-matching is fragile.
It will remain exhaustive when constructors are added to type node.
ocamlopt src/.iter.objs/native/Iter.{cmx,o}
File "src/Iter.ml", line 204, characters 6-141:
204 | ......match !acc with
205 | | Nil -> acc := !cur
206 | | _ ->
207 | (match !tail with
208 | | Nil -> ()
209 | | Cons r -> r.tl <- !cur)
Warning 4: this pattern-matching is fragile.
It will remain exhaustive when constructors are added to type node.
t_iter alias tests/unit/runtest
seed: 292382094
================================================================================
success (ran 4 tests)
"/usr/bin/env" "bash" "-c" "opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-05-11 10:07.59: Job failed: Failed: Build failed