aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Rosetta-Code-Count-examples/Ada/rosetta-code-count-examples.ada
View file

@ -27,12 +27,12 @@ procedure Count_Examples is
A : Attr;
Page : Aws.Response.Data;
Uri_Xml : constant String :=
"http://rosettacode.org/mw/api.php?action=query&list=categorymembers"
"https://rosettacode.org/w/api.php?action=query&list=categorymembers"
&
"&format=xml&cmlimit=500&cmtitle=Category:";
begin
Page := Client.Get (Uri_Xml & Category);
if Response.Status_Code (Page) not in Messages.Success then
Page := Client.Get (Uri_Xml & Category, Follow_Redirection => True);
if AWS.Response.Status_Code (Page) not in Messages.Success then
raise Client.Connection_Error;
end if;
declare
@ -65,10 +65,11 @@ procedure Count_Examples is
begin
Page :=
Client.Get
("http://rosettacode.org/mw/index.php?title=" &
("https://rosettacode.org/w/index.php?title=" &
Aws.Url.Encode (Title) &
"&action=raw");
Response.Message_Body (Page, File);
"&action=raw",
Follow_Redirection => True);
AWS.Response.Message_Body (Page, File);
while not End_Of_File (File) loop
Resources.Get_Line (File, Buffer, Last);
Position :=