Revision 76a927c3de4193e2f5f644b95e370e950c094cca authored by Jameson Nash on 07 January 2017, 20:37:10 UTC, committed by Jameson Nash on 08 January 2017, 14:40:37 UTC
1 parent a034de4
reqs.jl
# This file is a part of Julia. License is MIT: http://julialang.org/license
module Reqs
import Base: ==
import ...Pkg.PkgError
using ..Types
# representing lines of REQUIRE files
abstract Line
immutable Comment <: Line
content::AbstractString
end
immutable Requirement <: Line
content::AbstractString
package::AbstractString
versions::VersionSet
system::Vector{AbstractString}
function Requirement(content::AbstractString)
fields = split(replace(content, r"#.*$", ""))
system = AbstractString[]
while !isempty(fields) && fields[1][1] == '@'
push!(system,shift!(fields)[2:end])
end
isempty(fields) && throw(PkgError("invalid requires entry: $content"))
package = shift!(fields)
all(field->ismatch(Base.VERSION_REGEX, field), fields) ||
throw(PkgError("invalid requires entry for $package: $content"))
versions = VersionNumber[fields...]
issorted(versions) || throw(PkgError("invalid requires entry for $package: $content"))
new(content, package, VersionSet(versions), system)
end
function Requirement(package::AbstractString, versions::VersionSet, system::Vector{AbstractString}=AbstractString[])
content = ""
for os in system
content *= "@$os "
end
content *= package
if versions != VersionSet()
for ival in versions.intervals
(content *= " $(ival.lower)")
ival.upper < typemax(VersionNumber) &&
(content *= " $(ival.upper)")
end
end
new(content, package, versions, system)
end
end
==(a::Line, b::Line) = a.content == b.content
hash(s::Line, h::UInt) = hash(s.content, h + (0x3f5a631add21cb1a % UInt))
# general machinery for parsing REQUIRE files
function read{T<:AbstractString}(readable::Vector{T})
lines = Line[]
for line in readable
line = chomp(line)
push!(lines, ismatch(r"^\s*(?:#|$)", line) ? Comment(line) : Requirement(line))
end
return lines
end
function read(readable::Union{IO,Base.AbstractCmd})
lines = Line[]
for line in eachline(readable)
line = chomp(line)
push!(lines, ismatch(r"^\s*(?:#|$)", line) ? Comment(line) : Requirement(line))
end
return lines
end
read(file::AbstractString) = isfile(file) ? open(read,file) : Line[]
function write(io::IO, lines::Vector{Line})
for line in lines
println(io, line.content)
end
end
function write(io::IO, reqs::Requires)
for pkg in sort!(collect(keys(reqs)), by=lowercase)
println(io, Requirement(pkg, reqs[pkg]).content)
end
end
write(file::AbstractString, r::Union{Vector{Line},Requires}) = open(io->write(io,r), file, "w")
function parse(lines::Vector{Line})
reqs = Requires()
for line in lines
if isa(line,Requirement)
if !isempty(line.system)
applies = false
if is_windows(); applies |= ("windows" in line.system); end
if is_unix(); applies |= ("unix" in line.system); end
if is_apple(); applies |= ("osx" in line.system); end
if is_linux(); applies |= ("linux" in line.system); end
if is_bsd(); applies |= ("bsd" in line.system); end
if is_windows(); applies &= !("!windows" in line.system); end
if is_unix(); applies &= !("!unix" in line.system); end
if is_apple(); applies &= !("!osx" in line.system); end
if is_linux(); applies &= !("!linux" in line.system); end
if is_bsd(); applies &= !("!bsd" in line.system); end
applies || continue
end
reqs[line.package] = haskey(reqs, line.package) ?
intersect(reqs[line.package], line.versions) : line.versions
end
end
return reqs
end
parse(x) = parse(read(x))
function dependents(packagename::AbstractString)
pkgs = AbstractString[]
cd(Pkg.dir()) do
for (pkg,latest) in Pkg.Read.latest()
if haskey(latest.requires, packagename)
push!(pkgs, pkg)
end
end
end
pkgs
end
# add & rm – edit the content a requires file
function add(lines::Vector{Line}, pkg::AbstractString, versions::VersionSet=VersionSet())
v = VersionSet[]
filtered = filter(lines) do line
if !isa(line,Comment) && line.package == pkg && isempty(line.system)
push!(v, line.versions)
return false
end
return true
end
length(v) == 1 && v[1] == intersect(v[1],versions) && return copy(lines)
versions = reduce(intersect, versions, v)
push!(filtered, Requirement(pkg, versions))
end
rm(lines::Vector{Line}, pkg::AbstractString) = filter(lines) do line
isa(line,Comment) || line.package != pkg
end
end # module
Computing file changes ...