@@ -138,9 +138,6 @@ sub recursive-dir($dir) {
138
138
}
139
139
}
140
140
141
- # --sparse=5: only process 1/5th of the files
142
- # mostly useful for performance optimizations, profiling etc.
143
- #
144
141
# --parallel=10: perform some parts in parallel (with width/degree of 10)
145
142
# much faster, but with the current state of async/concurrency
146
143
# in Rakudo you risk segfaults, weird errors, etc.
@@ -150,7 +147,6 @@ my $coffee-exe = './highlights/node_modules/coffee-script/bin/coffee'.IO.e??'./h
150
147
151
148
sub MAIN (
152
149
Bool : $ typegraph = False ,
153
- Int : $ sparse ,
154
150
Bool : $ no-highlight = False ,
155
151
Int : $ parallel = 1 ,
156
152
) {
@@ -175,9 +171,9 @@ sub MAIN(
175
171
my % h = $ type-graph . sorted. kv . flat . reverse ;
176
172
write-type-graph-images(: force($ typegraph ), : $ parallel );
177
173
178
- process-pod-dir ' Programs' , : $ sparse , : $ parallel ;
179
- process-pod-dir ' Language' , : $ sparse , : $ parallel ;
180
- process-pod-dir ' Type' , : sorted-by{ % h {. key } // -1 }, : $ sparse , : $ parallel ;
174
+ process-pod-dir ' Programs' , : $ parallel ;
175
+ process-pod-dir ' Language' , : $ parallel ;
176
+ process-pod-dir ' Type' , : sorted-by{ % h {. key } // -1 }, : $ parallel ;
181
177
182
178
highlight-code-blocks unless $ no-highlight ;
183
179
@@ -209,14 +205,11 @@ sub MAIN(
209
205
}
210
206
211
207
say ' Processing complete.' ;
212
- if $ sparse {
213
- say " This is a sparse or incomplete run. DO NOT SYNC WITH doc.perl6.org!" ;
214
- }
215
208
216
209
spurt (' links.txt' , $ url-log . URLS. sort . unique . join (" \n " ));
217
210
}
218
211
219
- sub process-pod-dir ($ dir , : & sorted-by = &[cmp ], : $ sparse , : $ parallel ) {
212
+ sub process-pod-dir ($ dir , : & sorted-by = &[cmp ], : $ parallel ) {
220
213
say " Reading doc/$ dir ..." ;
221
214
222
215
my @ pod-sources =
@@ -229,10 +222,6 @@ sub process-pod-dir($dir, :&sorted-by = &[cmp], :$sparse, :$parallel) {
229
222
=> $ _
230
223
}). sort (& sorted-by );
231
224
232
- if $ sparse {
233
- @ pod-sources = @ pod-sources [^ (@ pod-sources / $ sparse ). ceiling ];
234
- }
235
-
236
225
say " Processing $ dir Pod files ..." ;
237
226
my $ total = + @ pod-sources ;
238
227
my $ kind = $ dir . lc ;
0 commit comments