mirror of
https://github.com/kalmarek/SmallHyperbolic
synced 2025-03-17 17:17:10 +01:00
format groupparse
This commit is contained in:
parent
6a112e15fd
commit
8339cbd5cf
@ -4,7 +4,8 @@ comm(a,b,args...) = comm(comm(a,b), args...)
|
||||
const MAGMA_PRESENTATION_regex = r"Group<\s?(?<gens>.*)\s?\|\s?(?<rels>.*)\s?>"
|
||||
const COMMUTATOR_regex = r"\((?<comm>[\w](\s?,\s?[\w]){1+})\)"
|
||||
iscomment(line) = startswith(line, "//")
|
||||
ismagma_presentation(line) = (m = match(MAGMA_PRESENTATION_regex, line); return !isnothing(m), m)
|
||||
ismagma_presentation(line) =
|
||||
(m = match(MAGMA_PRESENTATION_regex, line); return !isnothing(m), m)
|
||||
|
||||
|
||||
|
||||
@ -42,7 +43,10 @@ function parse_magma_fpgroup(str::AbstractString)
|
||||
return parse_magma_fpgroup(gens_str, rels_strs)
|
||||
end
|
||||
|
||||
function parse_magma_fpgroup(gens_str::AbstractVector{<:AbstractString}, rels_str::AbstractVector{<:AbstractString})
|
||||
function parse_magma_fpgroup(
|
||||
gens_str::AbstractVector{<:AbstractString},
|
||||
rels_str::AbstractVector{<:AbstractString},
|
||||
)
|
||||
|
||||
gens_arr = Symbol.(gens_str)
|
||||
gens_expr = Expr(:tuple, gens_arr...)
|
||||
@ -52,7 +56,7 @@ function parse_magma_fpgroup(gens_str::AbstractVector{<:AbstractString}, rels_st
|
||||
|
||||
F = FreeGroup(String.(gens_str))
|
||||
relations = @eval begin
|
||||
$gens_expr = AbstractAlgebra.gens($F);
|
||||
$gens_expr = AbstractAlgebra.gens($F)
|
||||
$rels_expr
|
||||
end
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user