gazagnaire.org / ocaml-oci
OCaml library and CLI for OCI and Docker image manipulation
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

irmin-atproto: lexicon-driven backend design + mli

Thomas Gazagnaire 616ee8f8 0173a4d6

+27 -27
+3 -3
src/spec/arch.ml
··· 1 1 open Common 2 2 3 3 type t = 4 - | X386 4 + | I386 5 5 | Amd64 6 6 | Arm 7 7 | Arm64 ··· 18 18 | Unknown 19 19 20 20 let to_string = function 21 - | X386 -> "386" 21 + | I386 -> "386" 22 22 | Amd64 -> "amd64" 23 23 | Arm -> "arm" 24 24 | Arm64 -> "arm64" ··· 35 35 | Unknown -> "unknown" 36 36 37 37 let of_string = function 38 - | "386" -> Ok X386 38 + | "386" -> Ok I386 39 39 | "amd64" -> Ok Amd64 40 40 | "arm" -> Ok Arm 41 41 | "arm64" -> Ok Arm64
+1 -1
src/spec/arch.mli
··· 2 2 implementations SHOULD understand, values listed in the Go Language document 3 3 for GOARCH. *) 4 4 type t = 5 - | X386 5 + | I386 6 6 | Amd64 7 7 | Arm 8 8 | Arm64
+18 -18
src/spec/platform.ml
··· 93 93 94 94 let valid_os_arch : OS.t * Arch.t -> bool = function 95 95 | Aix, Ppc64 96 - | Android, X386 97 - | Android, Xamd64 96 + | Android, I386 97 + | Android, Amd64 98 98 | Android, Arm 99 99 | Android, Arm64 100 - | Darwin, Xamd64 100 + | Darwin, Amd64 101 101 | Darwin, Arm64 102 - | Dragonfly, Xamd64 103 - | Freebsd, X386 104 - | Freebsd, Xamd64 102 + | Dragonfly, Amd64 103 + | Freebsd, I386 104 + | Freebsd, Amd64 105 105 | Freebsd, Arm 106 - | Illumos, Xamd64 106 + | Illumos, Amd64 107 107 | Ios, Arm64 108 108 | Js, Wasm 109 - | Linux, X386 110 - | Linux, Xamd64 109 + | Linux, I386 110 + | Linux, Amd64 111 111 | Linux, Arm 112 112 | Linux, Arm64 113 113 | Linux, Loong64 ··· 119 119 | Linux, Ppc64le 120 120 | Linux, Riscv64 121 121 | Linux, S390x 122 - | Netbsd, X386 123 - | Netbsd, Xamd64 122 + | Netbsd, I386 123 + | Netbsd, Amd64 124 124 | Netbsd, Arm 125 - | Openbsd, X386 126 - | Openbsd, Xamd64 125 + | Openbsd, I386 126 + | Openbsd, Amd64 127 127 | Openbsd, Arm 128 128 | Openbsd, Arm64 129 - | Plan9, X386 130 - | Plan9, Xamd64 129 + | Plan9, I386 130 + | Plan9, Amd64 131 131 | Plan9, Arm 132 - | Solaris, Xamd64 132 + | Solaris, Amd64 133 133 | Wasip1, Wasm 134 - | Windows, X386 135 - | Windows, Xamd64 134 + | Windows, I386 135 + | Windows, Amd64 136 136 | Windows, Arm 137 137 | Windows, Arm64 -> 138 138 true
+2 -2
src/util.ml
··· 1 1 let arch_of_osrelease : Osrelease.Arch.t -> Oci_spec.Arch.t = function 2 - | `X86_32 -> X386 3 - | `X86_64 -> Xamd64 2 + | `X86_32 -> I386 3 + | `X86_64 -> Amd64 4 4 | `Aarch64 -> Arm64 5 5 | `Arm32 _ -> Arm 6 6 | `Ppc64 `Le -> Ppc64le
+2 -2
test/spec/test_arch.ml
··· 4 4 let roundtrip () = 5 5 let cases = 6 6 [ 7 - ("386", Arch.X386); 8 - ("amd64", Arch.Xamd64); 7 + ("386", Arch.I386); 8 + ("amd64", Arch.Amd64); 9 9 ("arm", Arch.Arm); 10 10 ("arm64", Arch.Arm64); 11 11 ("wasm", Arch.Wasm);
+1 -1
test/spec/test_platform.ml
··· 17 17 check string "to_string" "linux/arm64" (Platform.to_string p) 18 18 19 19 let accessors () = 20 - let p = Platform.v Arch.Xamd64 OS.Darwin in 20 + let p = Platform.v Arch.Amd64 OS.Darwin in 21 21 check string "os" "darwin" (OS.to_string (Platform.os p)); 22 22 check string "arch" "amd64" (Arch.to_string (Platform.arch p)) 23 23