Add initial prototype.

2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
--- a/1-base/xml/applet/demo/write/launch_write.adb
+++ b/1-base/xml/applet/demo/write/launch_write.adb
@@ -0,0 +1,18 @@
+with
+     ada.Text_IO,
+     xml.Writer;
+
+
+procedure launch_Write
+is
+   use ada.Text_IO, xml.Writer;
+
+begin
+   start_Document (Standard_Output);
+
+   start  (standard_Output, "foo",  "bar" + "bing");
+   empty  (standard_Output, "frodo", MkAtt ("hobbit" + "true", "ring" + "1") & ("purpose" + "To rule them all."));
+   finish (standard_Output, "foo");
+
+   end_Document (Standard_Output);
+end launch_Write;