105 lines
2.3 KiB
Plaintext
105 lines
2.3 KiB
Plaintext
module horse/movement
|
|
|
|
// Running styles.
|
|
pub type style
|
|
Front-Runner
|
|
Pace-Chaser
|
|
Late-Surger
|
|
End-Closer
|
|
|
|
// Automatically generated.
|
|
// Equality comparison of the `style` type.
|
|
pub fun style/(==)(this : style, other : style) : e bool
|
|
match (this, other)
|
|
(Front-Runner, Front-Runner) -> True
|
|
(Pace-Chaser, Pace-Chaser) -> True
|
|
(Late-Surger, Late-Surger) -> True
|
|
(End-Closer, End-Closer) -> True
|
|
(_, _) -> False
|
|
|
|
// Shows a string representation of the `style` type.
|
|
pub fun style/show(this : style) : e string
|
|
match this
|
|
Front-Runner -> "Front Runner"
|
|
Pace-Chaser -> "Pace Chaser"
|
|
Late-Surger -> "Late Surger"
|
|
End-Closer -> "End Closer"
|
|
|
|
// Starting aptitude levels.
|
|
pub type level
|
|
G
|
|
F
|
|
E
|
|
D
|
|
C
|
|
B
|
|
A
|
|
S
|
|
|
|
// Automatically generated.
|
|
// Comparison of the `level` type.
|
|
pub fun level/cmp(this : level, other : level) : e order
|
|
match (this, other)
|
|
(G, G) -> Eq
|
|
(G, _) -> Lt
|
|
(_, G) -> Gt
|
|
(F, F) -> Eq
|
|
(F, _) -> Lt
|
|
(_, F) -> Gt
|
|
(E, E) -> Eq
|
|
(E, _) -> Lt
|
|
(_, E) -> Gt
|
|
(D, D) -> Eq
|
|
(D, _) -> Lt
|
|
(_, D) -> Gt
|
|
(C, C) -> Eq
|
|
(C, _) -> Lt
|
|
(_, C) -> Gt
|
|
(B, B) -> Eq
|
|
(B, _) -> Lt
|
|
(_, B) -> Gt
|
|
(A, A) -> Eq
|
|
(A, _) -> Lt
|
|
(_, A) -> Gt
|
|
(S, S) -> Eq
|
|
|
|
// Automatically generated.
|
|
// Fip comparison of the `level` type.
|
|
pub fun level/order2(this : level, other : level) : order2<level>
|
|
match (this, other)
|
|
(G, G) -> Eq2(G)
|
|
(G, other') -> Lt2(G, other')
|
|
(this', G) -> Gt2(G, this')
|
|
(F, F) -> Eq2(F)
|
|
(F, other') -> Lt2(F, other')
|
|
(this', F) -> Gt2(F, this')
|
|
(E, E) -> Eq2(E)
|
|
(E, other') -> Lt2(E, other')
|
|
(this', E) -> Gt2(E, this')
|
|
(D, D) -> Eq2(D)
|
|
(D, other') -> Lt2(D, other')
|
|
(this', D) -> Gt2(D, this')
|
|
(C, C) -> Eq2(C)
|
|
(C, other') -> Lt2(C, other')
|
|
(this', C) -> Gt2(C, this')
|
|
(B, B) -> Eq2(B)
|
|
(B, other') -> Lt2(B, other')
|
|
(this', B) -> Gt2(B, this')
|
|
(A, A) -> Eq2(A)
|
|
(A, other') -> Lt2(A, other')
|
|
(this', A) -> Gt2(A, this')
|
|
(S, S) -> Eq2(S)
|
|
|
|
// Automatically generated.
|
|
// Shows a string representation of the `level` type.
|
|
pub fun level/show(this : level) : string
|
|
match this
|
|
G -> "G"
|
|
F -> "F"
|
|
E -> "E"
|
|
D -> "D"
|
|
C -> "C"
|
|
B -> "B"
|
|
A -> "A"
|
|
S -> "S"
|