1. my class Set does Setty {
2. has $!WHICH;
4. multi method WHICH (Set:D:) {
5. nqp::if(
6. nqp::attrinited(self,Set,'$!WHICH'),
7. $!WHICH,
8. $!WHICH := nqp::if(
9. nqp::istype(self.WHAT,Set),
10. 'Set|',
11. nqp::concat(self.^name,'|')
12. ) ~ nqp::sha1(
13. nqp::join("\0",Rakudo::Sorting.MERGESORT-str(
14. Rakudo::QuantHash.RAW-KEYS(self)
15. ))
16. )
17. )
18. }
20. method iterator(Set:D:) {
21. class :: does Rakudo::Iterator::Mappy {
22. method pull-one() {
23. nqp::if(
24. $!iter,
25. Pair.new(nqp::iterval(nqp::shift($!iter)),True),
26. IterationEnd
27. )
28. }
29. }.new($!elems)
30. }
32. multi method kv(Set:D:) {
33. Seq.new(class :: does Rakudo::QuantHash::Quanty-kv {
34. method pull-one() is raw {
35. nqp::if(
36. $!on,
37. nqp::stmts(
38. ($!on = 0),
39. True,
40. ),
41. nqp::if(
42. $!iter,
43. nqp::stmts(
44. ($!on = 1),
45. nqp::iterval(nqp::shift($!iter))
46. ),
47. IterationEnd
48. )
49. )
50. }
51. method push-all($target --> IterationEnd) {
52. nqp::while(
53. $!iter,
54. nqp::stmts( # doesn't sink
55. $target.push(nqp::iterval(nqp::shift($!iter))),
56. $target.push(True)
57. )
58. )
59. }
60. }.new(self))
61. }
62. multi method values(Set:D:) { True xx self.total }
64. multi method grab(Set:D: $count?) {
65. X::Immutable.new( method => 'grab', typename => self.^name ).throw;
66. }
67. multi method grabpairs(Set:D $count?) {
68. X::Immutable.new( method => 'grabpairs', typename => self.^name ).throw;
69. }
71. #--- coercion methods
72. multi method Set(Set:D:) { self }
73. multi method SetHash(Set:D:) {
74. nqp::if(
75. $!elems && nqp::elems($!elems),
76. nqp::p6bindattrinvres(
77. nqp::create(SetHash),SetHash,'$!elems',nqp::clone($!elems)
78. ),
79. nqp::create(SetHash)
80. )
81. }
82. method clone() {
83. nqp::if(
84. $!elems && nqp::elems($!elems),
85. nqp::clone(self),
86. set()
87. )
88. }
90. #--- interface methods
91. method STORE(*@pairs, :$initialize --> Set:D) {
92. nqp::if(
93. (my $iterator := @pairs.iterator).is-lazy,
94. Failure.new(X::Cannot::Lazy.new(:action<initialize>,:what(self.^name))),
95. nqp::if(
96. $initialize,
97. self.SET-SELF(
98. Rakudo::QuantHash.ADD-PAIRS-TO-SET(
99. nqp::create(Rakudo::Internals::IterationSet), $iterator
100. )
101. ),
102. X::Assignment::RO.new(value => self).throw
103. )
104. )
105. }
107. multi method AT-KEY(Set:D: \k --> Bool:D) {
108. nqp::p6bool($!elems && nqp::existskey($!elems,k.WHICH))
109. }
110. multi method ASSIGN-KEY(Set:D: \k,\v) {
111. X::Assignment::RO.new(value => self).throw;
112. }
113. multi method DELETE-KEY(Set:D: \k) {
114. X::Immutable.new(method => 'DELETE-KEY', typename => self.^name).throw;
115. }
116. }