The Fortress Language Specification - CiteSeerX

40.9 The Trait Fortress.Core.BinaryLinearEndianSequence
trait BinaryLinearEndianSequencenat b,nat n,bool bigEndianSequence
extends { BasicBinaryOperationsBinaryLinearEndianSequenceb, n,bigEndianSequence }
where { b ≤ maxBinaryWordBitLog }
coercion nat b ′ ,bool bigEndianBytes,bool bigEndianBits
(x:BinaryEndianWordb ′ ,bigEndianBytes,bigEndianBits)
where {bigEndianBytes = bigEndianSequence, 2 b′ = n · 2 b }
coercion nat m,nat radix,nat q,nat k,nat v(x:NaturalNumeralm,radix, v)
where {radix = 2 q , q · m = n · 2 bk }
opr [j: IndexInt] : BinaryWordb
throws { IndexOutOfBoundsException }
opr nat k[j: IntegerStatick] : BinaryWordb where { k < n }
opr nat m[r: RangeOfStaticSizeIndexInt, m] :
BinaryLinearEndianSequenceb, m,bigEndianSequence
throws { IndexOutOfBoundsException } where { m ≤ n }
opr int a,nat m,int c[r:StaticRangea, m, c] :
BinaryLinearEndianSequenceb, m,bigEndianSequence
where { 0 ≤ a < n, 0 ≤ a + m · c < n }
opr [j: IndexInt] := (v: BinaryWordb):
BinaryLinearEndianSequenceb, n,bigEndianSequence
throws { IndexOutOfBoundsException }
opr nat k[j: IntegerStatick] := (v: BinaryWordb):
BinaryLinearEndianSequenceb, n,bigEndianSequence where { k < n }
opr nat m[r: RangeOfStaticSizeIndexInt, m] :=
(v: BinaryLinearEndianSequenceb, m,bigEndianSequence):
BinaryLinearEndianSequenceb, n,bigEndianSequence
throws { IndexOutOfBoundsException }
opr int a,nat m,int c[r:StaticRangea, m, c] :=
(v: BinaryLinearEndianSequenceb, m,bigEndianSequence):
BinaryLinearEndianSequenceb, n,bigEndianSequence
where { 0 ≤ a < n, 0 ≤ a + m · c < n }
update(j:IndexInt, v: BinaryWordb):
BinaryLinearEndianSequenceb, n,bigEndianSequence
throws { IndexOutOfBoundsException }
updatenat k(j: IntegerStatick, v: BinaryWordb):
BinaryLinearEndianSequenceb, n,bigEndianSequence where { k < n }
updatenat m(r:RangeOfStaticSizeIndexInt, m,
v: BinaryLinearEndianSequenceb, m,bigEndianSequence):
BinaryLinearEndianSequenceb, n,bigEndianSequence
throws { IndexOutOfBoundsException }
updateint a,nat m,int c(r:StaticRangea, m, c,
v: BinaryLinearEndianSequenceb, m,bigEndianSequence):
BinaryLinearEndianSequenceb, n,bigEndianSequence
where { 0 ≤ a < n, 0 ≤ a + m · c < n }
opr ‖ nat m(self,other: BinaryLinearEndianSequenceb, m,bigEndianSequence):
BinaryLinearEndianSequenceb, n + m,bigEndianSequence
opr ‖ nat m,nat radix,nat q,nat k,nat v(self,other: NaturalNumeralm,radix, v):
LinearSequenceBinaryWordb, n + k where {radix = 2 q , q · m = k · 2 b }
opr ‖ nat m,nat radix,nat q,nat k,nat v(other: NaturalNumeralm,radix, v,self):
LinearSequenceBinaryWordb, n + k where {radix = 2 q , q · m = k · 2 b }
294