Skip to content

Commit c8c49b9

Browse files
committed
remove sparse directive
long term goal: make everything faster so this isn't needed Maybe add it back after refactoring is done
1 parent 2885891 commit c8c49b9

File tree

1 file changed

+4
-15
lines changed

1 file changed

+4
-15
lines changed

htmlify.p6

Lines changed: 4 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -138,9 +138,6 @@ sub recursive-dir($dir) {
138138
}
139139
}
140140

141-
# --sparse=5: only process 1/5th of the files
142-
# mostly useful for performance optimizations, profiling etc.
143-
#
144141
# --parallel=10: perform some parts in parallel (with width/degree of 10)
145142
# much faster, but with the current state of async/concurrency
146143
# 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
150147

151148
sub MAIN(
152149
Bool :$typegraph = False,
153-
Int :$sparse,
154150
Bool :$no-highlight = False,
155151
Int :$parallel = 1,
156152
) {
@@ -175,9 +171,9 @@ sub MAIN(
175171
my %h = $type-graph.sorted.kv.flat.reverse;
176172
write-type-graph-images(:force($typegraph), :$parallel);
177173

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;
181177

182178
highlight-code-blocks unless $no-highlight;
183179

@@ -209,14 +205,11 @@ sub MAIN(
209205
}
210206

211207
say 'Processing complete.';
212-
if $sparse {
213-
say "This is a sparse or incomplete run. DO NOT SYNC WITH doc.perl6.org!";
214-
}
215208

216209
spurt('links.txt', $url-log.URLS.sort.unique.join("\n"));
217210
}
218211

219-
sub process-pod-dir($dir, :&sorted-by = &[cmp], :$sparse, :$parallel) {
212+
sub process-pod-dir($dir, :&sorted-by = &[cmp], :$parallel) {
220213
say "Reading doc/$dir ...";
221214

222215
my @pod-sources =
@@ -229,10 +222,6 @@ sub process-pod-dir($dir, :&sorted-by = &[cmp], :$sparse, :$parallel) {
229222
=> $_
230223
}).sort(&sorted-by);
231224

232-
if $sparse {
233-
@pod-sources = @pod-sources[^(@pod-sources / $sparse).ceiling];
234-
}
235-
236225
say "Processing $dir Pod files ...";
237226
my $total = +@pod-sources;
238227
my $kind = $dir.lc;

0 commit comments

Comments
 (0)