33 lines
1.1 KiB
R
33 lines
1.1 KiB
R
# Metadata-only ABI triage so the full build avoids downloading every source.
|
|
# Mirrors bincraft::abi_classify rules 1-2; "ambiguous" packages still need a
|
|
# source grep via bincraft::needs_per_minor_recompile().
|
|
|
|
classify_from_metadata <- function(needs_compilation, linking_to, risky_deps) {
|
|
nc <- if (length(needs_compilation) == 0L || is.na(needs_compilation)) {
|
|
""
|
|
} else {
|
|
tolower(trimws(needs_compilation))
|
|
}
|
|
if (!identical(nc, "yes")) {
|
|
return("not-sensitive")
|
|
}
|
|
lt <- if (length(linking_to) == 0L || is.na(linking_to)) "" else linking_to
|
|
linked <- trimws(unlist(strsplit(lt, "[,\n]")))
|
|
linked <- sub("\\s*\\(.*\\)$", "", linked) # strip "(>= x)" constraints
|
|
linked <- linked[nzchar(linked)]
|
|
if (any(linked %in% risky_deps)) {
|
|
return("sensitive")
|
|
}
|
|
"ambiguous"
|
|
}
|
|
|
|
parse_build_args <- function(args) {
|
|
sensitive_only <- "--sensitive-only" %in% args
|
|
pos <- args[!startsWith(args, "--")]
|
|
list(
|
|
sensitive_only = sensitive_only,
|
|
split_into = as.integer(pos[1L]),
|
|
split_index = as.integer(pos[2L]),
|
|
ncpus = as.integer(pos[3L])
|
|
)
|
|
}
|