blob: c6736d7c90bc93b5659e237369c075238a64c664 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/env perl6
use v6;
use lib <lib>;
use HTTP::UserAgent;
use JSON::Fast;
use Matrix::Client;
sub get-api-docs {
my $url = "https://matrix.org/docs/api/client-server/json/api-docs.json";
my $ua = HTTP::UserAgent.new;
my $res = $ua.get($url);
die "Cannot get response $res" unless $res.is-success;
my $data = from-json($res.content);
my %tags;
for $data<paths> -> $path {
$path.kv.map: -> $p, $methods {
for $methods.kv -> $method, $description {
for $description<tags> -> $tag {
unless %tags{$tag}:exists {
%tags{$tag} = Array.new;
}
%tags{$tag}.push("{$method.uc} - $p");
}
}
}
}
%tags
}
sub MAIN(:$spec?) {
my %tags = get-api-docs;
my $implemented-methods = (Matrix::Client, Matrix::Client::Room).map(*.^methods)
.flat.map(
{
quietly try { .WHY.Str } or ""
}).grep(/_matrix/).SetHash;
.say for $implemented-methods;
say q:to/EOF/;
# List of implemented endpoints
This list was generated by the `load-docs.p6` script that gets the data
from the [api-docs.json](https://matrix.org/docs/api/client-server/json/api-docs.json)
from matrix.org. This will give you an overview about what's implemented in the library.
EOF
for %tags.sort -> $pair {
my $tag = $pair.key;
my $methods = $pair.value;
say qq:to/EOF/;
## $tag
EOF
for $methods.Seq.sort -> $m {
my Str $method = $m.trim;
my $checked = $implemented-methods{$m} ?? "X" !! " ";
if $spec {
$method = $m.subst(/unstable/, $spec)
}
say "- [$checked] " ~ $method;
}
say "";
}
}
|
