kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-12-26 02:20:30 +01:00
Code Issues Releases Wiki Activity

initial @compat changes, works on v0.6 without warnings

Browse Source
This commit is contained in:
kalmar 2017-07-06 17:27:56 +02:00
parent 02c1022846
commit df19042de6
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Groups.jl
View File

@ -25,7 +25,7 @@ doc"""
> * `pow` which is the (multiplicative) exponent of a symbol.
"""
abstract type GSymbol end
@compat abstract type GSymbol end
doc"""
W::GWord{T<:GSymbol} <:GroupElem
@ -44,17 +44,17 @@ doc"""
"""
@compat mutable struct GWord{T<:GSymbol} <: GroupElem
symbols::Vector{T}
savedhash::UInt
modified::Bool
parent::Group
symbols::Vector{T}
savedhash::UInt
modified::Bool
parent::Group
function GWord(symbols::Vector{T})
return new(symbols, hash(symbols), true)
end
@compat function GWord{T}(symbols::Vector{T}) where {T<:GSymbol}
return new(symbols, hash(symbols), true)
end
end
abstract AbstractFPGroup <: Group
@compat abstract type AbstractFPGroup <: Group end
###############################################################################
#
@ -70,7 +70,7 @@ parent{T<:GSymbol}(w::GWord{T}) = w.parent
#
###############################################################################
GWord{T<:GSymbol}(s::T) = GWord{T}(T[s])
GWord(s::T) where {T<:GSymbol} = GWord{T}(T[s])
convert{T<:GSymbol}(::Type{GWord{T}}, s::T) = GWord{T}(T[s])
###############################################################################
@ -79,7 +79,6 @@ convert{T<:GSymbol}(::Type{GWord{T}}, s::T) = GWord{T}(T[s])
#
###############################################################################
function hash(W::GWord, h::UInt)
W.modified && reduce!(W)
@compat res = xor(W.savedhash, h)