Skip to content

Commit 7eda394

Browse files
cokecoke
committed
track file rename from pod6 to rakudoc
1 parent 3f54861 commit 7eda394

18 files changed

+45
-45
lines changed

‎lib/Test-Files.rakumod

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -41,14 +41,14 @@ method files() {
4141
Filtered list of C<files> to return only Pod files.
4242
)
4343
method pods() {
44-
return $.files.grep({$_.ends-with: '.pod6'})
44+
return $.files.grep({$_.ends-with: '.rakudoc'})
4545
}
4646

4747
#|(
4848
Filtered list of C<files> to return only Pod files and markdown.
4949
)
5050
method documents() {
51-
return $.files.grep({$_.ends-with: '.pod6' or $_.ends-with: '.md'})
51+
return $.files.grep({$_.ends-with: '.rakudoc' or $_.ends-with: '.md'})
5252
}
5353

5454
#|(

‎util/clean-spell

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -38,9 +38,9 @@ my $at-a-time = 4;
3838
my @files = Test-Files.documents.grep({not $_ ~~ / 'README.' .. '.md' /});
3939

4040
# ... but use pre-generated/rendered Pod6 files for our quick search.
41-
note "Caching pod6 files...";
41+
note "Caching rakudoc files...";
4242
@files = @files.map({
43-
$_.ends-with('.pod6') ?? Pod::Cache.cache-file($_) !! $_;
43+
$_.ends-with('.rakudoc') ?? Pod::Cache.cache-file($_) !! $_;
4444
});
4545

4646
for <xt/pws/words.pws xt/pws/code.pws> -> $dict {

‎util/create-brackets-table.raku

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
# global array defined in the BEGIN block at the end:
44
my @bracket-chars;
55

6-
my $f = $*PROGRAM.parent(2).child('doc').child('Language').child('brackets.pod6');
6+
my $f = $*PROGRAM.parent(2).child('doc').child('Language').child('brackets.rakudoc');
77

88
if !@*ARGS {
99
say qq:to/HERE/;
@@ -31,23 +31,23 @@ my $lb = '|';
3131
my $rb = '|';
3232

3333
if $reorder {
34-
$f = "../doc/Language/brackets-reordered.pod6";
34+
$f = "../doc/Language/brackets-reordered.rakudoc";
3535
}
3636

3737
if $lb ~~ /'|'/ {
3838
# need to escape the pipe for the doc site
3939
$lb = '\\|';
4040
$rb = $lb
4141
}
42-
write-brackets-pod6-file :$f, :$lb, :$rb, :$reorder;
42+
write-brackets-rakudoc-file :$f, :$lb, :$rb, :$reorder;
4343
@ofils.append: $f;
4444

4545
say "Normal end.";
4646
my $s = @ofils.elems > 1 ?? 's' !! '';
4747
say "See output file$s:";
4848
say " $_" for @ofils;
4949

50-
sub write-brackets-pod6-file(:$f, :$lb?, :$rb?, :$reorder?) {
50+
sub write-brackets-rakudoc-file(:$f, :$lb?, :$rb?, :$reorder?) {
5151

5252
my $fh = open $f, :w;
5353

‎util/issue-with-all-pod6.raku

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#!/usr/bin/env raku
22

3-
my @docs = qx/git ls-files | grep "\.pod6"/.lines;
3+
my @docs = qx/git ls-files | grep "\.rakudoc"/.lines;
44

55
for @docs -> $d {
66
my $repo-path = S[doc] = '/raku/doc/blob/master/doc' with $d;
@@ -14,7 +14,7 @@ for @docs -> $d {
1414
}
1515
}
1616

17-
$web-path .= trans( [ "Language", "Programs", ".pod6" ] =>
17+
$web-path .= trans( [ "Language", "Programs", ".rakudoc" ] =>
1818
[ "language", "programs", "" ] );
1919
say "* [ ] $doc-name [file]($repo-path), [generated]($web-path)";
2020
}

‎util/list-missing-methods.raku

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ subset SummaryCsv of Str:D where *.split(',')».trim ⊆ ($summary_opts.flat);
1616
#| Type to require an argument to be True
1717
subset Flag of Bool:D where :so;
1818

19-
#| Scan a pod6 file or directory of pod6 files for under-documented & over-documented methods
19+
#| Scan a rakudoc file or directory of rakudoc files for under-documented & over-documented methods
2020
sub MAIN(
2121
IO(Str) $input-path where *.e="{$doc_dir}/doc/Type", #= Path to the file or directory to check
2222
ReportCsv :report(:$r)='all', #= Comma-separated list of documentation types to display
@@ -44,7 +44,7 @@ sub MAIN(
4444
my $summary := Summary.new;
4545

4646
# Main program execution -- parse each file, and print reports as we go
47-
for $input-path.&process-pod6(:%filters, :%ignored-types).map(
47+
for $input-path.&process-rakudoc(:%filters, :%ignored-types).map(
4848
-> Result $_ --> Str {
4949
when Err { given .kind {
5050
when NoTypeFound { if $reports-to-print ~~ 'err' { Report::fmt($_)} }
@@ -87,22 +87,22 @@ sub MAIN(
8787
}
8888

8989
#| Process either a Pod6 file or a directory of Pod6 files
90-
proto process-pod6(|) { given {*} { .WHAT ~~ List ?? $_ !! ($_,).List} };
90+
proto process-rakudoc(|) { given {*} { .WHAT ~~ List ?? $_ !! ($_,).List} };
9191

9292
#| Process a directory of Pod6 files by recursively processing each file
93-
multi process-pod6($path where *.IO.d, :%ignored-types,
93+
multi process-rakudoc($path where *.IO.d, :%ignored-types,
9494
:%filters (:$exclude, :$exclude-dir, :$only, :$only-dir) --> List) {
9595
|(lazy $path.dir ==> grep( -> $path {
9696
when $path ~~ :d { all( (with $exclude-dir { $path.basename !~~ $_}))}
9797
default { all( (with $exclude { $path.basename !~~ $_}),
9898
(with $only { $path.basename ~~ $_}),
9999
(with $only-dir { $path.parent ~~ $_}))}})
100-
==> map({|process-pod6($^next-path, :%ignored-types, :%filters)}))
100+
==> map({|process-rakudoc($^next-path, :%ignored-types, :%filters)}))
101101
}
102102

103103
#| Process a Pod6 file by parsing with the MethodDoc grammar and then comparing
104104
#| the documented methods against the methods visible via introspection
105-
multi process-pod6($path where *.IO.f, :%ignored-types, *% --> Result) {
105+
multi process-rakudoc($path where *.IO.f, :%ignored-types, *% --> Result) {
106106
POST {{ # Must return either an error or a methods Map with only Set|Bag leaf values
107107
when Ok { given .unwrap<methods> {
108108
when Set|Bag { True }
@@ -111,8 +111,8 @@ multi process-pod6($path where *.IO.f, :%ignored-types, *% --> Result) {
111111
default { True }
112112
}}
113113

114-
when $path !~~ /'doc/Type/'.*.pod6/ { return NoTypeFound.new(:$path)}
115-
my $type-name := (S/.*'doc/Type/'(.*).pod6/$0/).subst(:g, '/', '::') with $path;
114+
when $path !~~ /'doc/Type/'.*.rakudoc/ { return NoTypeFound.new(:$path)}
115+
my $type-name := (S/.*'doc/Type/'(.*).rakudoc/$0/).subst(:g, '/', '::') with $path;
116116
my $ignored-methods := %ignored-types{"$type-name", 'ALL_TYPES'}.map(|*).grep(Any:D).List;
117117

118118
# if we're at a low enough level that this amount of introspection fails, skip the type

‎util/missing-types.raku

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!/usr/bin/env raku
22

33
# This script parses the type-graph.txt file and checks
4-
# the existence of the corresponding pod6 file for most entries
4+
# the existence of the corresponding rakudoc file for most entries
55
# skips: Metamodel and PROCESS types
66

77
use lib 'lib';
@@ -15,7 +15,7 @@ for $t.sorted -> $type {
1515
printf "%-40s not defined in this Perl\n", $type.name()
1616
if $actual === Any and $type.name ne "Any" | "Failure" | "Nil";
1717
next unless $actual.^name eq $type.name;
18-
my $filename = 'doc/Type/' ~ $type.name.subst(:g, '::', '/') ~ '.pod6';
18+
my $filename = 'doc/Type/' ~ $type.name.subst(:g, '::', '/') ~ '.rakudoc';
1919
printf "%-40s not found in documentation\n", $type.name() unless $filename.IO.e;
2020
CATCH { default { } }
2121
}

‎util/new-type.raku

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,11 @@
22

33
# If the documentation for a type does not exist, create the skeleton of the doc
44
# $ raku util/new-type.raku --kind=role Some::Role
5-
# this creates the file doc/Type/Some/Role.pod6
5+
# this creates the file doc/Type/Some/Role.rakudoc
66

77
sub MAIN($typename, :$kind='class') {
88
my @path-chunks = $typename.split('::');
9-
my $filename = @path-chunks.pop ~ '.pod6';
9+
my $filename = @path-chunks.pop ~ '.rakudoc';
1010
my $path = 'doc/Type';
1111
for @path-chunks -> $c {
1212
$path ~= "/$c";

‎util/unskip.raku

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ sub run-ok($file) {
4141
}
4242

4343
sub remove-skip($file, $skip-pos, :$solo=False) {
44-
my ($test-file, $test-io) = tempfile(:suffix<.pod6>, :!unlink);
44+
my ($test-file, $test-io) = tempfile(:suffix<.rakudoc>, :!unlink);
4545

4646
for $file.IO.slurp.lines.kv -> $pos, $line {
4747
if $pos == $skip-pos {

‎util/xt-recent.sh

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,4 +12,4 @@
1212
# verify recent work.
1313

1414

15-
TEST_FILES="$(git log --name-status | awk '/^M.*\.(pod6|md|t)$/ {print $2}' | head -40 | sort -u)" make xtest "$@"
15+
TEST_FILES="$(git log --name-status | awk '/^M.*\.(rakudoc|md|t)$/ {print $2}' | head -40 | sort -u)" make xtest "$@"

‎xt/aspell.rakutest

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -67,7 +67,7 @@ my $lock = Lock::Async.new;
6767

6868
@files.race.map: -> $file {
6969
# We use either the raw markdown or the rendered/cached Pod.
70-
my $input-file = $file.ends-with('.pod6') && !$file.contains('pod-cache') ?? Pod::Cache.cache-file($file) !! $file;
70+
my $input-file = $file.ends-with('.rakudoc') && !$file.contains('pod-cache') ?? Pod::Cache.cache-file($file) !! $file;
7171

7272
# split the input file into a block of code and a block of text
7373
# anything with a leading space is considered code, and we just

0 commit comments

Comments
 (0)