Support merging of registries.

README.md

@@ -100,3 +100,4 @@ of the package's `Project.toml` file.
 
 * [Working with a Private Registry and/or Private Repositories](docs/ssh_keys.md)
 * [Registering a Package in a Subdirectory of a Repository](docs/subdir.md)
+* [Merging Registries](docs/merge.md)

docs/merge.md

@@ -0,0 +1,22 @@
+If you for some reason have two registries that should only be one or
+you want to copy some packages from one registry to another, you can
+use the function `LocalRegistry.merge` (not exported).
+
+ LocalRegistry.merge(target_path, source_path)
+
+Copy all packages in the registry at `source_path` into the
+registry at `target_path`.
+
+ LocalRegistry.merge(target_path, source_path, include = ["A", "B"])
+
+Copy only the packages `A` and `B`.
+
+ LocalRegistry.merge(target_path, source_path, exclude = ["A", "B"])
+
+Copy all packages except `A` and `B`.
+
+----
+
+This gives an error if you try to copy a package that already exists
+in the target repository. There is no built in support for commiting
+or pushing the target registry.

src/LocalRegistry.jl

@@ -14,12 +14,14 @@ module LocalRegistry
 
 using RegistryTools: RegistryTools, gitcmd, Compress,
  check_and_update_registry_files, ReturnStatus, haserror,
- find_registered_version
+ find_registered_version, parse_registry
 using UUIDs: uuid4
 using Pkg: Pkg, TOML
 
 export create_registry, register
 
+include("merge.jl")
+
 # Note: The `uuid` keyword argument is intentionally omitted from the
 # documentation string since it's not intended for users.
 """

src/merge.jl

@@ -0,0 +1,62 @@
+using RegistryTools: write_registry
+
+function merge(target_path::AbstractString,
+ source_path::AbstractString;
+ include::Union{Nothing, Vector{<:AbstractString}} = nothing,
+ exclude::Union{Nothing, Vector{<:AbstractString}} = nothing)
+ if !isnothing(include) && !isnothing(exclude)
+ error("Packages can be either included or excluded, not both.")
+ end
+
+ target_registry = parse_registry(joinpath(target_path, "Registry.toml"))
+ source_registry = parse_registry(joinpath(source_path, "Registry.toml"))
+
+ target_packages = target_registry.packages
+ packages = source_registry.packages
+
+ if !isnothing(include)
+ packages = filter(p -> last(p)["name"] in include, packages)
+ if length(packages) != length(include)
+ missing_packages = setdiff(include, [p["name"] for p in values(packages)])
+ error("Included packages $(missing_packages) do not exist in the source repository")
+ end
+ end
+
+ if !isnothing(exclude)
+ missing_packages = setdiff(exclude, [p["name"] for p in values(packages)])
+ if !isempty(missing_packages)
+ error("Excluded packages $(missing_packages) do not exist in the source repository")
+ end
+ packages = filter(p -> last(p)["name"] ∉ exclude, packages)
+ end
+
+ colliding_names = intersect([p["name"] for p in values(target_packages)],
+ [p["name"] for p in values(packages)])
+ if !isempty(colliding_names)
+ error("The target registry already contains these packages: $(colliding_names).")
+ end
+
+ colliding_uuids = intersect(keys(target_packages), keys(packages))
+ if !isempty(colliding_uuids)
+ error("The target registry already contains these uuids: $(colliding_uuids).")
+ end
+
+ for (uuid, package) in packages
+ push!(target_packages, uuid => package)
+ package_dir = joinpath(target_path, package["path"])
+ if isdir(package_dir)
+ error("Package dir ", package["path"], " already exists in target registry.")
+ end
+ mkpath(package_dir)
+ for filename in ("Package.toml", "Versions.toml",
+ "Deps.toml", "Compat.toml")
+ from = joinpath(source_path, package["path"], filename)
+ to = joinpath(target_path, package["path"], filename)
+ if isfile(from)
+ cp(from, to)
+ end
+ end
+ end
+
+ write_registry(joinpath(target_path, "Registry.toml"), target_registry)
+end