#37734

Committed 01 Apr 2024 05:34AM UTC coverage: 81.405% (-0.02%) from 81.428%

Build # #37734

Build Type

push

local

Committed by

web-flow

Commit Message

Add `Base.isrelocatable(pkg)` (#53906)

This PR adds a utility function `isrelocatable(pkg)` that can be used to
check if `pkg` is already precompiled and if the associated cachefile is
relocatable.

The reason to implicitly perform the `isprecompiled` check is that the
exact same computation needs to be done to find the right `.ji`.

A `pkg` is said to be relocatable if
1. all `include()` paths are relocatable (they start with `@depot`),
2. all `include_dependency()` paths are relocatable (they start with
`@depot` and `track_content=true` was used to include them).

Run Details

26 of 27 new or added lines in 1 file covered. (96.3%)

39 existing lines in 6 files now uncovered.

70670 of 86813 relevant lines covered (81.4%)

15650018.11 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

91.67

/stdlib/Markdown/src/parse/util.jl

# This file is a part of Julia. License is MIT: https://julialang.org/license

macro dotimes(n, body)
    quote
        for i = 1:$(esc(n))
            $(esc(body))
        end
    end
end

const whitespace = " \t\r"

"""
Skip any leading whitespace. Returns io.
"""
function skipwhitespace(io::IO; newlines = true)
    while !eof(io) && (peek(io, Char) in whitespace || (newlines && peek(io) == UInt8('\n')))
        read(io, Char)
    end
    return io
end

"""
Skip any leading blank lines. Returns the number skipped.
"""
function skipblank(io::IO)
    start = position(io)
    i = 0
    for c in readeach(io, Char)
        c == '\n' && (start = position(io); i+=1; continue)
        c == '\r' && (start = position(io); i+=1; continue)
        c in whitespace || break
    end
    seek(io, start)
    return i
end

"""
Return true if the line contains only (and, unless allowempty,
at least one of) the characters given.
"""
function linecontains(io::IO, chars; allow_whitespace = true,
                                     eat = true,
                                     allowempty = false)
    start = position(io)
    l = readline(io)
    length(l) == 0 && return allowempty

    result = allowempty
    for c in l
        c in whitespace && (allow_whitespace ? continue : (result = false; break))
        c in chars && (result = true; continue)
        result = false; break
    end
    !(result && eat) && seek(io, start)
    return result
end

blankline(io::IO; eat = true) =
    linecontains(io, "",
                 allow_whitespace = true,
                 allowempty = true,
                 eat = eat)

"""
Test if the stream starts with the given string.
`eat` specifies whether to advance on success (true by default).
`padding` specifies whether leading whitespace should be ignored.
"""
function startswith(stream::IO, s::AbstractString; eat = true, padding = false, newlines = true)
    start = position(stream)
    padding && skipwhitespace(stream, newlines = newlines)
    result = true
    for char in s
        !eof(stream) && read(stream, Char) == char ||
            (result = false; break)
    end
    !(result && eat) && seek(stream, start)
    return result
end

function startswith(stream::IO, c::AbstractChar; eat = true)
    if !eof(stream) && peek(stream) == UInt8(c)
        eat && read(stream, Char)
        return true
    else
        return false
    end
end

function startswith(stream::IO, ss::Vector{<:AbstractString}; kws...)
    any(s->startswith(stream, s; kws...), ss)
end

function startswith(stream::IO, r::Regex; eat = true, padding = false)
    @assert Base.startswith(r.pattern, "^")
    start = position(stream)
    padding && skipwhitespace(stream)
    line = readline(stream)
    seek(stream, start)
    m = match(r, line)
    m === nothing && return ""
    eat && @dotimes length(m.match) read(stream, Char)
    return m.match
end

"""
Executes the block of code, and if the return value is `nothing`,
returns the stream to its initial position.
"""
function withstream(f, stream)
    pos = position(stream)
    result = f()
    (result ≡ nothing || result ≡ false) && seek(stream, pos)
    return result
end

"""
Consume the standard allowed markdown indent of
three spaces. Returns false if there are more than
three present.
"""
function eatindent(io::IO, n = 3)
    withstream(io) do
        m = 0
        while startswith(io, ' ') m += 1 end
        return m <= n
    end
end

"""
Read the stream until startswith(stream, delim)
The delimiter is consumed but not included.
Returns nothing and resets the stream if delim is
not found.
"""
function readuntil(stream::IO, delimiter; newlines = false, match = nothing)
    withstream(stream) do
        buffer = IOBuffer()
        count = 0
        while !eof(stream)
            if startswith(stream, delimiter)
                if count == 0
                    return String(take!(buffer))
                else
                    count -= 1
                    write(buffer, delimiter)
                    continue
                end
            end
            char = read(stream, Char)
            char == match && (count += 1)
            !newlines && char == '\n' && break
            write(buffer, char)
        end
    end
end

# TODO: refactor this. If we're going to assume
# the delimiter is a single character + a minimum
# repeat we may as well just pass that into the
# function.

"""
Parse a symmetrical delimiter which wraps words.
i.e. `*word word*` but not `*word * word`.
`repeat` specifies whether the delimiter can be repeated.
Escaped delimiters are not yet supported.
"""
function parse_inline_wrapper(stream::IO, delimiter::AbstractString; rep = false)
    delimiter, nmin = string(delimiter[1]), length(delimiter)
    withstream(stream) do
        if position(stream) >= 1
            # check the previous byte isn't a delimiter
            skip(stream, -1)
            (read(stream, Char) in delimiter) && return nothing
        end
        n = nmin
        startswith(stream, delimiter^n) || return nothing
        while startswith(stream, delimiter); n += 1; end
        !rep && n > nmin && return nothing
        !eof(stream) && peek(stream, Char) in whitespace && return nothing

        buffer = IOBuffer()
        for char in readeach(stream, Char)
            write(buffer, char)
            if !(char in whitespace || char == '\n' || char in delimiter) && startswith(stream, delimiter^n)
                trailing = 0
                while startswith(stream, delimiter); trailing += 1; end
                trailing == 0 && return String(take!(buffer))
                write(buffer, delimiter ^ (n + trailing))
            end
        end
    end
end

function showrest(io::IO)
    start = position(io)
    show(read(io, String))
    println()
    seek(io, start)
end

1	# This file is a part of Julia. License is MIT: https://julialang.org/license
2
3	macro dotimes(n, body)
4	quote
5	for i = 1:$(esc(n))
6	$(esc(body))
7	end
8	end
9	end
10
11	const whitespace = " \t\r"
12
13	"""
14	Skip any leading whitespace. Returns io.
15	"""
16	function skipwhitespace(io::IO; newlines = true)	202,938✔
17	while !eof(io) && (peek(io, Char) in whitespace \|\| (newlines && peek(io) == UInt8('\n')))	252,926✔
18	read(io, Char)	50,001✔
19	end	50,001✔
20	return io	101,469✔
21	end
22
23	"""
24	Skip any leading blank lines. Returns the number skipped.
25	"""
26	function skipblank(io::IO)	67,802✔
27	start = position(io)	67,802✔
UNCOV 28	i = 0	×
29	for c in readeach(io, Char)	128,000✔
30	c == '\n' && (start = position(io); i+=1; continue)	87,252✔
31	c == '\r' && (start = position(io); i+=1; continue)	83,431✔
32	c in whitespace \|\| break	83,430✔
33	end	56,267✔
34	seek(io, start)	67,802✔
35	return i	67,802✔
36	end
37
38	"""
39	Return true if the line contains only (and, unless allowempty,
40	at least one of) the characters given.
41	"""
42	function linecontains(io::IO, chars; allow_whitespace = true,	116,162✔
43	eat = true,
44	allowempty = false)
45	start = position(io)	58,081✔
46	l = readline(io)	58,081✔
47	length(l) == 0 && return allowempty	58,081✔
48
UNCOV 49	result = allowempty	×
50	for c in l	74,522✔
51	c in whitespace && (allow_whitespace ? continue : (result = false; break))	38,209✔
52	c in chars && (result = true; continue)	37,259✔
53	result = false; break	37,259✔
54	end	1,890✔
55	!(result && eat) && seek(io, start)	37,263✔
56	return result	37,263✔
57	end
58
59	blankline(io::IO; eat = true) =	116,162✔
60	linecontains(io, "",
61	allow_whitespace = true,
62	allowempty = true,
63	eat = eat)
64
65	"""
66	Test if the stream starts with the given string.
67	`eat` specifies whether to advance on success (true by default).
68	`padding` specifies whether leading whitespace should be ignored.
69	"""
70	function startswith(stream::IO, s::AbstractString; eat = true, padding = false, newlines = true)	1,135,874✔
71	start = position(stream)	567,937✔
72	padding && skipwhitespace(stream, newlines = newlines)	567,937✔
73	result = true	3,366✔
74	for char in s	1,135,874✔
75	!eof(stream) && read(stream, Char) == char \|\|	622,351✔
76	(result = false; break)	3,105✔
77	end	163,497✔
78	!(result && eat) && seek(stream, start)	567,937✔
79	return result	567,937✔
80	end
81
82	function startswith(stream::IO, c::AbstractChar; eat = true)	394,199✔
83	if !eof(stream) && peek(stream) == UInt8(c)	393,576✔
84	eat && read(stream, Char)	79,421✔
85	return true	79,421✔
86	else
87	return false	314,155✔
88	end
89	end
90
91	function startswith(stream::IO, ss::Vector{<:AbstractString}; kws...)	×
92	any(s->startswith(stream, s; kws...), ss)	×
93	end
94
95	function startswith(stream::IO, r::Regex; eat = true, padding = false)	199,564✔
96	@assert Base.startswith(r.pattern, "^")	99,782✔
97	start = position(stream)	99,782✔
98	padding && skipwhitespace(stream)	99,782✔
99	line = readline(stream)	99,782✔
100	seek(stream, start)	99,782✔
101	m = match(r, line)	99,782✔
102	m === nothing && return ""	99,782✔
103	eat && @dotimes length(m.match) read(stream, Char)	38,054✔
104	return m.match	38,054✔
105	end
106
107	"""
108	Executes the block of code, and if the return value is `nothing`,
109	returns the stream to its initial position.
110	"""
111	function withstream(f, stream)	41,474✔
112	pos = position(stream)	564,049✔
113	result = f()	564,075✔
114	(result ≡ nothing \|\| result ≡ false) && seek(stream, pos)	564,049✔
115	return result	564,049✔
116	end
117
118	"""
119	Consume the standard allowed markdown indent of
120	three spaces. Returns false if there are more than
121	three present.
122	"""
123	function eatindent(io::IO, n = 3)
124	withstream(io) do	219,902✔
125	m = 0	109,951✔
126	while startswith(io, ' ') m += 1 end	160,475✔
127	return m <= n	109,951✔
128	end
129	end
130
131	"""
132	Read the stream until startswith(stream, delim)
133	The delimiter is consumed but not included.
134	Returns nothing and resets the stream if delim is
135	not found.
136	"""
137	function readuntil(stream::IO, delimiter; newlines = false, match = nothing)	48,695✔
138	withstream(stream) do	48,695✔
139	buffer = IOBuffer()	48,695✔
140	count = 0	458✔
141	while !eof(stream)	437,400✔
142	if startswith(stream, delimiter)	437,242✔
143	if count == 0	13,264✔
144	return String(take!(buffer))	48,537✔
145	else
146	count -= 1	37✔
147	write(buffer, delimiter)	37✔
148	continue	37✔
149	end
150	end
151	char = read(stream, Char)	388,668✔
152	char == match && (count += 1)	117,605✔
153	!newlines && char == '\n' && break	388,668✔
154	write(buffer, char)	388,668✔
155	end	388,705✔
156	end
157	end
158
159	# TODO: refactor this. If we're going to assume
160	# the delimiter is a single character + a minimum
161	# repeat we may as well just pass that into the
162	# function.
163
164	"""
165	Parse a symmetrical delimiter which wraps words.
166	i.e. `word word` but not `word word`.
167	`repeat` specifies whether the delimiter can be repeated.
168	Escaped delimiters are not yet supported.
169	"""
170	function parse_inline_wrapper(stream::IO, delimiter::AbstractString; rep = false)	43,246✔
171	delimiter, nmin = string(delimiter[1]), length(delimiter)	43,246✔
172	withstream(stream) do	21,623✔
173	if position(stream) >= 1	21,623✔
174	# check the previous byte isn't a delimiter
175	skip(stream, -1)	11,824✔
176	(read(stream, Char) in delimiter) && return nothing	11,824✔
177	end
178	n = nmin	21,615✔
179	startswith(stream, delimiter^n) \|\| return nothing	42,735✔
180	while startswith(stream, delimiter); n += 1; end	502✔
181	!rep && n > nmin && return nothing	495✔
182	!eof(stream) && peek(stream, Char) in whitespace && return nothing	491✔
183
184	buffer = IOBuffer()	479✔
185	for char in readeach(stream, Char)	958✔
186	write(buffer, char)	7,849✔
187	if !(char in whitespace \|\| char == '\n' \|\| char in delimiter) && startswith(stream, delimiter^n)	14,906✔
188	trailing = 0	5✔
189	while startswith(stream, delimiter); trailing += 1; end	362✔
190	trailing == 0 && return String(take!(buffer))	358✔
191	write(buffer, delimiter ^ (n + trailing))	4✔
192	end
193	end	7,495✔
194	end
195	end
196
197	function showrest(io::IO)	×
198	start = position(io)	×
199	show(read(io, String))	×
200	println()	×
201	seek(io, start)	×
202	end

JuliaLang / julia / #37734

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous