Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,40 +0,0 @@
|
|||
with Ada.Strings.Unbounded;
|
||||
with Ada.Text_IO.Text_Streams;
|
||||
with DOM.Core.Documents;
|
||||
with DOM.Core.Elements;
|
||||
with DOM.Core.Nodes;
|
||||
|
||||
procedure Character_Remarks is
|
||||
package DC renames DOM.Core;
|
||||
package IO renames Ada.Text_IO;
|
||||
package US renames Ada.Strings.Unbounded;
|
||||
type Remarks is record
|
||||
Name : US.Unbounded_String;
|
||||
Text : US.Unbounded_String;
|
||||
end record;
|
||||
type Remark_List is array (Positive range <>) of Remarks;
|
||||
My_Remarks : Remark_List :=
|
||||
((US.To_Unbounded_String ("April"),
|
||||
US.To_Unbounded_String ("Bubbly: I'm > Tam and <= Emily")),
|
||||
(US.To_Unbounded_String ("Tam O'Shanter"),
|
||||
US.To_Unbounded_String ("Burns: ""When chapman billies leave the street ...""")),
|
||||
(US.To_Unbounded_String ("Emily"),
|
||||
US.To_Unbounded_String ("Short & shrift")));
|
||||
My_Implementation : DC.DOM_Implementation;
|
||||
My_Document : DC.Document := DC.Create_Document (My_Implementation);
|
||||
My_Root_Node : DC.Element := DC.Nodes.Append_Child (My_Document,
|
||||
DC.Documents.Create_Element (My_Document, "CharacterRemarks"));
|
||||
My_Element_Node : DC.Element;
|
||||
My_Text_Node : DC.Text;
|
||||
begin
|
||||
for I in My_Remarks'Range loop
|
||||
My_Element_Node := DC.Nodes.Append_Child (My_Root_Node,
|
||||
DC.Documents.Create_Element (My_Document, "Character"));
|
||||
DC.Elements.Set_Attribute (My_Element_Node, "Name", US.To_String (My_Remarks (I).Name));
|
||||
My_Text_Node := DC.Nodes.Append_Child (My_Element_Node,
|
||||
DC.Documents.Create_Text_Node (My_Document, US.To_String (My_Remarks (I).Text)));
|
||||
end loop;
|
||||
DC.Nodes.Write (IO.Text_Streams.Stream (IO.Standard_Output),
|
||||
N => My_Document,
|
||||
Pretty_Print => True);
|
||||
end Character_Remarks;
|
||||
|
|
@ -1,53 +0,0 @@
|
|||
with Ada.Wide_Wide_Text_IO;
|
||||
|
||||
with League.Strings;
|
||||
with XML.SAX.Attributes;
|
||||
with XML.SAX.Pretty_Writers;
|
||||
|
||||
procedure Main is
|
||||
|
||||
function "+"
|
||||
(Item : Wide_Wide_String) return League.Strings.Universal_String
|
||||
renames League.Strings.To_Universal_String;
|
||||
|
||||
type Remarks is record
|
||||
Name : League.Strings.Universal_String;
|
||||
Remark : League.Strings.Universal_String;
|
||||
end record;
|
||||
|
||||
type Remarks_Array is array (Positive range <>) of Remarks;
|
||||
|
||||
------------
|
||||
-- Output --
|
||||
------------
|
||||
|
||||
procedure Output (Remarks : Remarks_Array) is
|
||||
Writer : XML.SAX.Pretty_Writers.SAX_Pretty_Writer;
|
||||
Attributes : XML.SAX.Attributes.SAX_Attributes;
|
||||
|
||||
begin
|
||||
Writer.Set_Offset (2);
|
||||
Writer.Start_Document;
|
||||
Writer.Start_Element (Qualified_Name => +"CharacterRemarks");
|
||||
|
||||
for J in Remarks'Range loop
|
||||
Attributes.Clear;
|
||||
Attributes.Set_Value (+"name", Remarks (J).Name);
|
||||
Writer.Start_Element
|
||||
(Qualified_Name => +"Character", Attributes => Attributes);
|
||||
Writer.Characters (Remarks (J).Remark);
|
||||
Writer.End_Element (Qualified_Name => +"Character");
|
||||
end loop;
|
||||
|
||||
Writer.End_Element (Qualified_Name => +"CharacterRemarks");
|
||||
Writer.End_Document;
|
||||
|
||||
Ada.Wide_Wide_Text_IO.Put_Line (Writer.Text.To_Wide_Wide_String);
|
||||
end Output;
|
||||
|
||||
begin
|
||||
Output
|
||||
(((+"April", +"Bubbly: I'm > Tam and <= Emily"),
|
||||
(+"Tam O'Shanter", +"Burns: ""When chapman billies leave the street ..."""),
|
||||
(+"Emily", +"Short & shrift")));
|
||||
end Main;
|
||||
|
|
@ -1,112 +0,0 @@
|
|||
( ( 2XML
|
||||
= PCDATAentities attributeValueEntities doAll doAttributes
|
||||
, xml
|
||||
. ( attributeValueEntities
|
||||
= a c
|
||||
. @( !arg
|
||||
: ?a
|
||||
(("<"|"&"|\"):?c)
|
||||
?arg
|
||||
)
|
||||
& !a
|
||||
"&"
|
||||
( !c:"<"<
|
||||
| !c:"&"&
|
||||
| quot
|
||||
)
|
||||
";"
|
||||
attributeValueEntities$!arg
|
||||
| !arg
|
||||
)
|
||||
& ( PCDATAentities
|
||||
= a c
|
||||
. @( !arg
|
||||
: ?a
|
||||
(("<"|"&"|">"):?c)
|
||||
?arg
|
||||
)
|
||||
& !a
|
||||
"&"
|
||||
( !c:"<"<
|
||||
| !c:"&"&
|
||||
| gt
|
||||
)
|
||||
";"
|
||||
PCDATAentities$!arg
|
||||
| !arg
|
||||
)
|
||||
& ( doAttributes
|
||||
= a v
|
||||
. !arg:(?a.?v) ?arg
|
||||
& " "
|
||||
PCDATAentities$!a
|
||||
"=\""
|
||||
attributeValueEntities$!v
|
||||
\"
|
||||
doAttributes$!arg
|
||||
|
|
||||
)
|
||||
& ( doAll
|
||||
= xml first A B C att XML
|
||||
. !arg:?xml
|
||||
& :?XML
|
||||
& whl
|
||||
' ( !xml:%?first ?xml
|
||||
& ( !first:(?A.?B)
|
||||
& ( !B:(?att,?C)
|
||||
& !XML
|
||||
( !C:
|
||||
& "<" !A doAttributes$!att " />\n"
|
||||
| "<"
|
||||
!A
|
||||
doAttributes$!att
|
||||
">"
|
||||
doAll$!C
|
||||
"</"
|
||||
!A
|
||||
">\n"
|
||||
)
|
||||
: ?XML
|
||||
| !A
|
||||
: ( "!"&!XML "<!" !B ">":?XML
|
||||
| "!--"
|
||||
& !XML "<!--" !B "-->":?XML
|
||||
| "?"&!XML "<?" !B "?>\n":?XML
|
||||
| "![CDATA["
|
||||
& !XML "<![CDATA[" !B "]]>":?XML
|
||||
| "!DOCTYPE"
|
||||
& !XML "<!DOCTYPE" !B ">":?XML
|
||||
| ?
|
||||
& !XML "<" !A doAttributes$!B ">":?XML
|
||||
)
|
||||
)
|
||||
| !XML PCDATAentities$!first:?XML
|
||||
)
|
||||
)
|
||||
& str$!XML
|
||||
)
|
||||
& doAll$!arg
|
||||
)
|
||||
& ( makeList
|
||||
= characters name names remark remarks
|
||||
. !arg:(?names.?remarks)
|
||||
& :?characters
|
||||
& whl
|
||||
' ( (!names.!remarks)
|
||||
: (%?name ?names.%?remark ?remarks)
|
||||
& !characters (Character.(name.!name),!remark)
|
||||
: ?characters
|
||||
)
|
||||
& ("?".xml) (CharacterRemarks.,!characters)
|
||||
)
|
||||
& put
|
||||
$ ( 2XML
|
||||
$ ( makeList
|
||||
$ ( April "Tam O'Shanter" Emily
|
||||
. "Bubbly: I'm > Tam and <= Emily"
|
||||
"Burns: \"When chapman billies leave the street ...\""
|
||||
"Short & shrift"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
function xmlquote(sequence s)
|
||||
sequence r
|
||||
r = ""
|
||||
for i = 1 to length(s) do
|
||||
if s[i] = '<' then
|
||||
r &= "<"
|
||||
elsif s[i] = '>' then
|
||||
r &= ">"
|
||||
elsif s[i] = '&' then
|
||||
r &= "&"
|
||||
elsif s[i] = '"' then
|
||||
r &= """
|
||||
elsif s[i] = '\'' then
|
||||
r &= "'"
|
||||
else
|
||||
r &= s[i]
|
||||
end if
|
||||
end for
|
||||
return r
|
||||
end function
|
||||
|
||||
constant CharacterRemarks = {
|
||||
{"April", "Bubbly: I'm > Tam and <= Emily"},
|
||||
{"Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""},
|
||||
{"Emily", "Short & shrift"}
|
||||
}
|
||||
|
||||
puts(1,"<CharacterRemarks>\n")
|
||||
for i = 1 to length(CharacterRemarks) do
|
||||
printf(1," <CharacterName=\"%s\">",{xmlquote(CharacterRemarks[i][1])})
|
||||
puts(1,xmlquote(CharacterRemarks[i][2]))
|
||||
puts(1,"</Character>\n")
|
||||
end for
|
||||
puts(1,"</CharacterRemarks>\n")
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
Set objXMLDoc = CreateObject("msxml2.domdocument")
|
||||
|
||||
Set objRoot = objXMLDoc.createElement("CharacterRemarks")
|
||||
objXMLDoc.appendChild objRoot
|
||||
|
||||
Call CreateNode("April","Bubbly: I'm > Tam and <= Emily")
|
||||
Call CreateNode("Tam O'Shanter","Burns: ""When chapman billies leave the street ...""")
|
||||
Call CreateNode("Emily","Short & shrift")
|
||||
|
||||
objXMLDoc.save("C:\Temp\Test.xml")
|
||||
|
||||
Function CreateNode(attrib_value,node_value)
|
||||
Set objNode = objXMLDoc.createElement("Character")
|
||||
objNode.setAttribute "name", attrib_value
|
||||
objNode.text = node_value
|
||||
objRoot.appendChild objNode
|
||||
End Function
|
||||
Loading…
Add table
Add a link
Reference in a new issue