├── schema ├── obj │ └── .cvsignore ├── lib │ ├── static │ │ └── .cvsignore │ ├── relocatable │ │ └── .cvsignore │ └── .cvsignore ├── xmlada_schema.gpr └── schema-validators-xsd_grammar.ads ├── dom ├── lib │ ├── static │ │ └── .cvsignore │ ├── .cvsignore │ └── relocatable │ │ └── .cvsignore ├── obj │ ├── static │ │ └── .cvsignore │ ├── relocatable │ │ └── .cvsignore │ └── .cvsignore ├── dom-core-comments.ads ├── dom-core-cdata_sections.ads ├── dom-core-entity_references.ads ├── dom-core-processing_instructions.ads ├── dom-core-document_fragments.ads ├── dom-core-texts.ads ├── dom-core-document_types.ads ├── dom-core-notations.ads ├── dom-core-document_types.adb ├── dom.ads ├── xmlada_dom.gpr ├── dom-core-notations.adb ├── dom-core-texts.adb ├── dom-core-attrs.adb └── dom-core-attrs.ads ├── tests ├── results │ └── .gitignore ├── sax │ ├── teststate.expected │ ├── t4.xml │ ├── schaefer.xml │ ├── t2.xml │ ├── sax_test.gpr │ └── testsax.adb ├── schema │ ├── testnumbers.expected │ ├── test_date_time.expected │ ├── multiple_xsd │ │ ├── test2.xml │ │ ├── test1.xml │ │ ├── default.gpr │ │ ├── algo2.xsd │ │ └── algo1.xsd │ ├── schema_test.gpr │ ├── disable │ └── test.xml ├── unicode │ ├── test_unicode.expected │ └── unicode_test.gpr ├── examples │ ├── domexample2.expected │ └── saxexample_main.expected ├── dom │ ├── default.gpr.in │ ├── sanity.gpr │ ├── conformance │ │ ├── run.sh │ │ ├── conformance.gpr │ │ └── driver.ads │ ├── dom_test.gpr │ ├── ea03_006.adb │ ├── testxml_support.ads │ ├── test.xml │ ├── test_chardata.adb │ ├── test_node.adb │ ├── testxml_support.adb │ ├── tostring.adb │ └── string_stream.ads └── base64 │ ├── test_base64.expected │ ├── base64_test.gpr │ └── test_base64.adb ├── unicode ├── lib │ ├── static │ │ └── .cvsignore │ ├── .cvsignore │ └── relocatable │ │ └── .cvsignore ├── obj │ ├── static │ │ └── .cvsignore │ ├── relocatable │ │ └── .cvsignore │ └── .cvsignore ├── unicode-names-lao.ads ├── unicode-names-mro.ads ├── unicode-names-nko.ads ├── unicode-names-vai.ads ├── unicode-names-ahom.ads ├── unicode-names-bamum.ads ├── unicode-names-batak.ads ├── unicode-names-buhid.ads ├── unicode-names-cham.ads ├── unicode-names-khmer.ads ├── unicode-names-limbu.ads ├── unicode-names-lisu.ads ├── unicode-names-miao.ads ├── unicode-names-modi.ads ├── unicode-names-ogham.ads ├── unicode-names-oriya.ads ├── unicode-names-runic.ads ├── unicode-names-tags.ads ├── unicode-names-takri.ads ├── unicode-names-tamil.ads ├── unicode-names-thai.ads ├── unicode-names-arabic.ads ├── unicode-names-armenian.ads ├── unicode-names-arrows.ads ├── unicode-names-avestan.ads ├── unicode-names-balinese.ads ├── unicode-names-bengali.ads ├── unicode-names-bopomofo.ads ├── unicode-names-brahmi.ads ├── unicode-names-buginese.ads ├── unicode-names-carian.ads ├── unicode-names-chakma.ads ├── unicode-names-cherokee.ads ├── unicode-names-coptic.ads ├── unicode-names-cyrillic.ads ├── unicode-names-deseret.ads ├── unicode-names-dingbats.ads ├── unicode-names-duployan.ads ├── unicode-names-elbasan.ads ├── unicode-names-ethiopic.ads ├── unicode-names-georgian.ads ├── unicode-names-gothic.ads ├── unicode-names-grantha.ads ├── unicode-names-gujarati.ads ├── unicode-names-gurmukhi.ads ├── unicode-names-hanunoo.ads ├── unicode-names-hatran.ads ├── unicode-names-hebrew.ads ├── unicode-names-hiragana.ads ├── unicode-names-javanese.ads ├── unicode-names-kaithi.ads ├── unicode-names-kanbun.ads ├── unicode-names-kannada.ads ├── unicode-names-katakana.ads ├── unicode-names-kayah_li.ads ├── unicode-names-khojki.ads ├── unicode-names-lepcha.ads ├── unicode-names-linear_a.ads ├── unicode-names-lycian.ads ├── unicode-names-lydian.ads ├── unicode-names-mahajani.ads ├── unicode-names-mandaic.ads ├── unicode-names-multani.ads ├── unicode-names-myanmar.ads ├── unicode-names-ol_chiki.ads ├── unicode-names-osmanya.ads ├── unicode-names-phags_pa.ads ├── unicode-names-rejang.ads ├── unicode-names-sharada.ads ├── unicode-names-shavian.ads ├── unicode-names-siddham.ads ├── unicode-names-sinhala.ads ├── unicode-names-specials.ads ├── unicode-names-syriac.ads ├── unicode-names-tagalog.ads ├── unicode-names-tagbanwa.ads ├── unicode-names-tai_le.ads ├── unicode-names-tai_tham.ads ├── unicode-names-tai_viet.ads ├── unicode-names-telugu.ads ├── unicode-names-thaana.ads ├── unicode-names-tibetan.ads ├── unicode-names-tifinagh.ads ├── unicode-names-tirhuta.ads ├── unicode-names-ugaritic.ads ├── unicode-names-bassa_vah.ads ├── unicode-names-cuneiform.ads ├── unicode-names-devanagari.ads ├── unicode-names-emoticons.ads ├── unicode-names-glagolitic.ads ├── unicode-names-kharoshthi.ads ├── unicode-names-khudawadi.ads ├── unicode-names-malayalam.ads ├── unicode-names-manichaean.ads ├── unicode-names-mongolian.ads ├── unicode-names-nabataean.ads ├── unicode-names-old_italic.ads ├── unicode-names-old_permic.ads ├── unicode-names-old_turkic.ads ├── unicode-names-palmyrene.ads ├── unicode-names-phoenician.ads ├── unicode-names-samaritan.ads ├── unicode-names-saurashtra.ads ├── unicode-names-sundanese.ads ├── unicode-names-basic_latin.ads ├── unicode-names-box_drawing.ads ├── unicode-names-cjk_strokes.ads ├── unicode-names-domino_tiles.ads ├── unicode-names-hangul_jamo.ads ├── unicode-names-khmer_symbols.ads ├── unicode-names-mahjong_tiles.ads ├── unicode-names-meetei_mayek.ads ├── unicode-names-mende_kikakui.ads ├── unicode-names-new_tai_lue.ads ├── unicode-names-number_forms.ads ├── unicode-names-old_hungarian.ads ├── unicode-names-old_persian.ads ├── unicode-names-pahawh_hmong.ads ├── unicode-names-pau_cin_hau.ads ├── unicode-names-phaistos_disc.ads ├── unicode-names-playing_cards.ads ├── unicode-names-sora_sompeng.ads ├── unicode-names-syloti_nagri.ads ├── unicode-names-warang_citi.ads ├── unicode-names-yi_radicals.ads ├── unicode-names-yi_syllables.ads ├── unicode-names-aegean_numbers.ads ├── unicode-names-ancient_symbols.ads ├── unicode-names-block_elements.ads ├── unicode-names-greek_extended.ads ├── unicode-names-ipa_extensions.ads ├── unicode-names-kana_supplement.ads ├── unicode-names-kangxi_radicals.ads ├── unicode-names-musical_symbols.ads ├── unicode-names-psalter_pahlavi.ads ├── unicode-names-vertical_forms.ads ├── unicode-names-alchemical_symbols.ads ├── unicode-names-arabic_extended_a.ads ├── unicode-names-arabic_supplement.ads ├── unicode-names-bamum_supplement.ads ├── unicode-names-bopomofo_extended.ads ├── unicode-names-braille_patterns.ads ├── unicode-names-caucasian_albanian.ads ├── unicode-names-cjk_compatibility.ads ├── unicode-names-cjk_letters_months.ads ├── unicode-names-control_pictures.ads ├── unicode-names-currency_symbols.ads ├── unicode-names-cypriot_syllabary.ads ├── unicode-names-ethiopic_extended.ads ├── unicode-names-geometric_shapes.ads ├── unicode-names-greek_and_coptic.ads ├── unicode-names-imperial_aramaic.ads ├── unicode-names-latin_1_supplement.ads ├── unicode-names-latin_extended_a.ads ├── unicode-names-latin_extended_b.ads ├── unicode-names-latin_extended_c.ads ├── unicode-names-latin_extended_d.ads ├── unicode-names-latin_extended_e.ads ├── unicode-names-letterlike_symbols.ads ├── unicode-names-linear_b_ideograms.ads ├── unicode-names-linear_b_syllabary.ads ├── unicode-names-meroitic_cursive.ads ├── unicode-names-myanmar_extended_a.ads ├── unicode-names-myanmar_extended_b.ads ├── unicode-names-old_north_arabian.ads ├── unicode-names-old_south_arabian.ads ├── unicode-names-phonetic_ext_sup.ads ├── unicode-names-sup_math_operators.ads ├── unicode-names-sutton_signwriting.ads ├── unicode-names-vedic_extensions.ads ├── unicode-names-ancient_greek_music.ads ├── unicode-names-canadian_aboriginal.ads ├── unicode-names-cherokee_supplement.ads ├── unicode-names-cjk_compat_ideo_sup.ads ├── unicode-names-combining_half_marks.ads ├── unicode-names-coptic_epact_numbers.ads ├── unicode-names-cyrillic_extended_a.ads ├── unicode-names-cyrillic_extended_b.ads ├── unicode-names-cyrillic_supplement.ads ├── unicode-names-devanagari_extended.ads ├── unicode-names-egyptian_hieroglyphs.ads ├── unicode-names-ethiopic_extended_a.ads ├── unicode-names-ethiopic_supplement.ads ├── unicode-names-general_punctuation.ads ├── unicode-names-georgian_supplement.ads ├── unicode-names-meroitic_hieroglyphs.ads ├── unicode-names-misc_math_symbols_a.ads ├── unicode-names-misc_math_symbols_b.ads ├── unicode-names-ornamental_dingbats.ads ├── unicode-names-phonetic_extensions.ads ├── unicode-names-rumi_numeral_symbols.ads ├── unicode-names-small_form_variants.ads ├── unicode-names-sundanese_supplement.ads ├── unicode-names-variation_selectors.ads ├── unicode-names-anatolian_hieroglyphs.ads ├── unicode-names-ancient_greek_numbers.ads ├── unicode-names-arabic_math_alpha_symb.ads ├── unicode-names-arabic_present_formsa.ads ├── unicode-names-arabic_present_formsb.ads ├── unicode-names-canadian_aboriginal_ext.ads ├── unicode-names-cjk_compat_ideographs.ads ├── unicode-names-cjk_compatibility_forms.ads ├── unicode-names-cjk_radicals_supplement.ads ├── unicode-names-cjk_symbols_and_punct.ads ├── unicode-names-combining_diacritical.ads ├── unicode-names-counting_rod_numerals.ads ├── unicode-names-enclosed_alphanum_sup.ads ├── unicode-names-enclosed_alphanumerics.ads ├── unicode-names-half_full_width_forms.ads ├── unicode-names-hangul_jamo_extended_a.ads ├── unicode-names-hangul_jamo_extended_b.ads ├── unicode-names-ideograph_descr_chars.ads ├── unicode-names-inscriptional_pahlavi.ads ├── unicode-names-inscriptional_parthian.ads ├── unicode-names-katakana_phonetic_ext.ads ├── unicode-names-math_alphanumeric_symb.ads ├── unicode-names-mathematical_operators.ads ├── unicode-names-meetei_mayek_extensions.ads ├── unicode-names-misc_symbols_and_arrows.ads ├── unicode-names-miscellaneous_symbols.ads ├── unicode-names-miscellaneous_technical.ads ├── unicode-names-modifier_tone_letters.ads ├── unicode-names-sinhala_archaic_numbers.ads ├── unicode-names-sup_symbols_pictographs.ads ├── unicode-names-super_and_sub_scripts.ads ├── unicode-names-supplemental_arrows_a.ads ├── unicode-names-supplemental_arrows_b.ads ├── unicode-names-supplemental_arrows_c.ads ├── unicode-names-tai_xuan_jing_symbols.ads ├── unicode-names-variation_selectors_sup.ads ├── unicode-names-yijing_hexagram_symbols.ads ├── unicode-names-alpha_presentation_forms.ads ├── unicode-names-byzantine_musical_symbols.ads ├── unicode-names-combining_diacritical_ext.ads ├── unicode-names-combining_diacritical_sup.ads ├── unicode-names-combining_diacritical_sym.ads ├── unicode-names-common_indic_number_forms.ads ├── unicode-names-cuneiform_num_punctuation.ads ├── unicode-names-early_dynastic_cuneiform.ads ├── unicode-names-enclosed_ideographic_sup.ads ├── unicode-names-geometric_shapes_extended.ads ├── unicode-names-hangul_compatibility_jamo.ads ├── unicode-names-latin_extended_additional.ads ├── unicode-names-misc_symbols_pictographs.ads ├── unicode-names-optical_chars_recognition.ads ├── unicode-names-shorthand_format_controls.ads ├── unicode-names-spacing_modifier_letters.ads ├── unicode-names-supplemental_punctuation.ads ├── unicode-names-transport_and_map_symbols.ads ├── importer │ ├── convert.gpr │ ├── Makefile │ ├── translators-block.ads │ ├── translators-alias.ads │ └── license.txt ├── unicode-names.ads ├── unicode-ccs.adb ├── unicode-ccs-windows_1252.ads ├── unicode-ccs-windows_1251.ads ├── unicode-ccs-iso_8859_3.ads ├── unicode-ccs-iso_8859_15.ads ├── xmlada_unicode.gpr ├── unicode-ccs-iso_8859_4.ads ├── unicode-ccs-iso_8859_1.adb ├── unicode-ccs-iso_8859_2.ads ├── unicode-ccs-iso_8859_1.ads └── unicode-encodings.ads ├── input_sources ├── lib │ ├── static │ │ └── .cvsignore │ ├── .cvsignore │ └── relocatable │ │ └── .cvsignore └── obj │ ├── static │ └── .cvsignore │ ├── .cvsignore │ └── relocatable │ └── .cvsignore ├── gnat_debug.adc ├── gnat_optimize.adc ├── docs ├── favicon.ico ├── dom │ ├── convert.adb │ ├── pref.xml │ ├── default.gpr │ ├── pref_with_xsd.xml │ ├── pref.xsd │ ├── dom_with_location.ads │ ├── domschemaexample.adb │ ├── domexample.adb │ ├── dom_with_location.adb │ └── domexample2.adb ├── adacore-logo-white.png ├── cross │ ├── dom │ │ ├── default.gpr │ │ └── domexample.adb │ ├── sax │ │ ├── default.gpr │ │ ├── saxexample_main.adb │ │ ├── saxexample.ads │ │ └── saxexample.adb │ ├── schema │ │ ├── default.gpr │ │ └── schemaexample.adb │ └── README ├── sax │ ├── default.gpr │ ├── pref.xml │ ├── saxexample_main.adb │ ├── saxexample.ads │ └── saxexample.adb ├── schema │ ├── default.gpr │ ├── pref.xml │ ├── pref.xsd │ └── schemaexample.adb ├── index.rst └── intro.rst ├── .cvsignore ├── .gitreview ├── .gitlab-ci.plan ├── AUTHORS ├── xmlada-roadmap.txt ├── distrib └── xmlada.gpr ├── .gitattributes ├── .gitlab-ci.yml ├── configure.in ├── gnat.adc ├── .gitignore ├── TODO ├── sax ├── sax.ads └── xmlada_sax.gpr └── xmlada.gpr /schema/obj/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /dom/lib/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /dom/obj/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /schema/lib/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /tests/results/.gitignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /tests/sax/teststate.expected: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /dom/lib/.cvsignore: -------------------------------------------------------------------------------- 1 | libxmlada* 2 | -------------------------------------------------------------------------------- /dom/lib/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /dom/obj/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /schema/lib/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /tests/schema/testnumbers.expected: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /unicode/lib/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /unicode/obj/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /input_sources/lib/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /input_sources/obj/static/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /tests/schema/test_date_time.expected: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /unicode/lib/.cvsignore: -------------------------------------------------------------------------------- 1 | libxmlada* 2 | -------------------------------------------------------------------------------- /unicode/lib/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /unicode/obj/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /input_sources/lib/.cvsignore: -------------------------------------------------------------------------------- 1 | libxmlada* 2 | -------------------------------------------------------------------------------- /input_sources/lib/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /input_sources/obj/.cvsignore: -------------------------------------------------------------------------------- 1 | gnat.adc 2 | -------------------------------------------------------------------------------- /input_sources/obj/relocatable/.cvsignore: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /schema/lib/.cvsignore: -------------------------------------------------------------------------------- 1 | libxmlada_schema* 2 | -------------------------------------------------------------------------------- /gnat_debug.adc: -------------------------------------------------------------------------------- 1 | pragma Initialize_Scalars; 2 | -------------------------------------------------------------------------------- /tests/unicode/test_unicode.expected: -------------------------------------------------------------------------------- 1 | test_unicode : SUCCESS 2 | -------------------------------------------------------------------------------- /unicode/obj/.cvsignore: -------------------------------------------------------------------------------- 1 | gnat.adc 2 | b~* 3 | test_unicode 4 | -------------------------------------------------------------------------------- /gnat_optimize.adc: -------------------------------------------------------------------------------- 1 | -- pragma Restrictions (No_Initialize_Scalars); 2 | -------------------------------------------------------------------------------- /docs/favicon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/docs/favicon.ico -------------------------------------------------------------------------------- /dom/dom-core-comments.ads: -------------------------------------------------------------------------------- 1 | 2 | package DOM.Core.Comments is 3 | end DOM.Core.Comments; 4 | -------------------------------------------------------------------------------- /docs/dom/convert.adb: -------------------------------------------------------------------------------- 1 | Set_Attribute (N, Convert ("å", From => Get_By_Name ("iso-8859-15"))); 2 | -------------------------------------------------------------------------------- /tests/examples/domexample2.expected: -------------------------------------------------------------------------------- 1 | Value of "pref1" is Value1 2 | Value of "pref2" is Value2 3 | -------------------------------------------------------------------------------- /dom/obj/.cvsignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.ali 3 | gnat.adc 4 | b~* 5 | test_node 6 | testxml 7 | test_chardata 8 | -------------------------------------------------------------------------------- /tests/examples/saxexample_main.expected: -------------------------------------------------------------------------------- 1 | Value for "pref1" is Value1 2 | Value for "pref2" is Value2 3 | -------------------------------------------------------------------------------- /docs/adacore-logo-white.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/docs/adacore-logo-white.png -------------------------------------------------------------------------------- /unicode/unicode-names-lao.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-lao.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mro.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mro.ads -------------------------------------------------------------------------------- /unicode/unicode-names-nko.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-nko.ads -------------------------------------------------------------------------------- /unicode/unicode-names-vai.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-vai.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ahom.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ahom.ads -------------------------------------------------------------------------------- /unicode/unicode-names-bamum.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-bamum.ads -------------------------------------------------------------------------------- /unicode/unicode-names-batak.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-batak.ads -------------------------------------------------------------------------------- /unicode/unicode-names-buhid.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-buhid.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cham.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cham.ads -------------------------------------------------------------------------------- /unicode/unicode-names-khmer.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-khmer.ads -------------------------------------------------------------------------------- /unicode/unicode-names-limbu.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-limbu.ads -------------------------------------------------------------------------------- /unicode/unicode-names-lisu.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-lisu.ads -------------------------------------------------------------------------------- /unicode/unicode-names-miao.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-miao.ads -------------------------------------------------------------------------------- /unicode/unicode-names-modi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-modi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ogham.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ogham.ads -------------------------------------------------------------------------------- /unicode/unicode-names-oriya.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-oriya.ads -------------------------------------------------------------------------------- /unicode/unicode-names-runic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-runic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tags.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tags.ads -------------------------------------------------------------------------------- /unicode/unicode-names-takri.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-takri.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tamil.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tamil.ads -------------------------------------------------------------------------------- /unicode/unicode-names-thai.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-thai.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arabic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arabic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-armenian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-armenian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arrows.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arrows.ads -------------------------------------------------------------------------------- /unicode/unicode-names-avestan.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-avestan.ads -------------------------------------------------------------------------------- /unicode/unicode-names-balinese.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-balinese.ads -------------------------------------------------------------------------------- /unicode/unicode-names-bengali.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-bengali.ads -------------------------------------------------------------------------------- /unicode/unicode-names-bopomofo.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-bopomofo.ads -------------------------------------------------------------------------------- /unicode/unicode-names-brahmi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-brahmi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-buginese.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-buginese.ads -------------------------------------------------------------------------------- /unicode/unicode-names-carian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-carian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-chakma.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-chakma.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cherokee.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cherokee.ads -------------------------------------------------------------------------------- /unicode/unicode-names-coptic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-coptic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cyrillic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cyrillic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-deseret.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-deseret.ads -------------------------------------------------------------------------------- /unicode/unicode-names-dingbats.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-dingbats.ads -------------------------------------------------------------------------------- /unicode/unicode-names-duployan.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-duployan.ads -------------------------------------------------------------------------------- /unicode/unicode-names-elbasan.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-elbasan.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ethiopic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ethiopic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-georgian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-georgian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-gothic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-gothic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-grantha.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-grantha.ads -------------------------------------------------------------------------------- /unicode/unicode-names-gujarati.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-gujarati.ads -------------------------------------------------------------------------------- /unicode/unicode-names-gurmukhi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-gurmukhi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hanunoo.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hanunoo.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hatran.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hatran.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hebrew.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hebrew.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hiragana.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hiragana.ads -------------------------------------------------------------------------------- /unicode/unicode-names-javanese.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-javanese.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kaithi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kaithi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kanbun.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kanbun.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kannada.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kannada.ads -------------------------------------------------------------------------------- /unicode/unicode-names-katakana.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-katakana.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kayah_li.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kayah_li.ads -------------------------------------------------------------------------------- /unicode/unicode-names-khojki.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-khojki.ads -------------------------------------------------------------------------------- /unicode/unicode-names-lepcha.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-lepcha.ads -------------------------------------------------------------------------------- /unicode/unicode-names-linear_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-linear_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-lycian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-lycian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-lydian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-lydian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mahajani.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mahajani.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mandaic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mandaic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-multani.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-multani.ads -------------------------------------------------------------------------------- /unicode/unicode-names-myanmar.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-myanmar.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ol_chiki.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ol_chiki.ads -------------------------------------------------------------------------------- /unicode/unicode-names-osmanya.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-osmanya.ads -------------------------------------------------------------------------------- /unicode/unicode-names-phags_pa.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-phags_pa.ads -------------------------------------------------------------------------------- /unicode/unicode-names-rejang.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-rejang.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sharada.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sharada.ads -------------------------------------------------------------------------------- /unicode/unicode-names-shavian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-shavian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-siddham.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-siddham.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sinhala.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sinhala.ads -------------------------------------------------------------------------------- /unicode/unicode-names-specials.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-specials.ads -------------------------------------------------------------------------------- /unicode/unicode-names-syriac.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-syriac.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tagalog.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tagalog.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tagbanwa.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tagbanwa.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tai_le.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tai_le.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tai_tham.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tai_tham.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tai_viet.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tai_viet.ads -------------------------------------------------------------------------------- /unicode/unicode-names-telugu.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-telugu.ads -------------------------------------------------------------------------------- /unicode/unicode-names-thaana.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-thaana.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tibetan.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tibetan.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tifinagh.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tifinagh.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tirhuta.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tirhuta.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ugaritic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ugaritic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-bassa_vah.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-bassa_vah.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cuneiform.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cuneiform.ads -------------------------------------------------------------------------------- /unicode/unicode-names-devanagari.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-devanagari.ads -------------------------------------------------------------------------------- /unicode/unicode-names-emoticons.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-emoticons.ads -------------------------------------------------------------------------------- /unicode/unicode-names-glagolitic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-glagolitic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kharoshthi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kharoshthi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-khudawadi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-khudawadi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-malayalam.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-malayalam.ads -------------------------------------------------------------------------------- /unicode/unicode-names-manichaean.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-manichaean.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mongolian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mongolian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-nabataean.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-nabataean.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_italic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_italic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_permic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_permic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_turkic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_turkic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-palmyrene.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-palmyrene.ads -------------------------------------------------------------------------------- /unicode/unicode-names-phoenician.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-phoenician.ads -------------------------------------------------------------------------------- /unicode/unicode-names-samaritan.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-samaritan.ads -------------------------------------------------------------------------------- /unicode/unicode-names-saurashtra.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-saurashtra.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sundanese.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sundanese.ads -------------------------------------------------------------------------------- /docs/cross/dom/default.gpr: -------------------------------------------------------------------------------- 1 | with "xmlada"; 2 | project Default is 3 | for Main use ("domexample.adb"); 4 | end Default; 5 | -------------------------------------------------------------------------------- /unicode/unicode-names-basic_latin.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-basic_latin.ads -------------------------------------------------------------------------------- /unicode/unicode-names-box_drawing.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-box_drawing.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_strokes.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_strokes.ads -------------------------------------------------------------------------------- /unicode/unicode-names-domino_tiles.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-domino_tiles.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hangul_jamo.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hangul_jamo.ads -------------------------------------------------------------------------------- /unicode/unicode-names-khmer_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-khmer_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mahjong_tiles.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mahjong_tiles.ads -------------------------------------------------------------------------------- /unicode/unicode-names-meetei_mayek.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-meetei_mayek.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mende_kikakui.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mende_kikakui.ads -------------------------------------------------------------------------------- /unicode/unicode-names-new_tai_lue.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-new_tai_lue.ads -------------------------------------------------------------------------------- /unicode/unicode-names-number_forms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-number_forms.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_hungarian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_hungarian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_persian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_persian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-pahawh_hmong.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-pahawh_hmong.ads -------------------------------------------------------------------------------- /unicode/unicode-names-pau_cin_hau.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-pau_cin_hau.ads -------------------------------------------------------------------------------- /unicode/unicode-names-phaistos_disc.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-phaistos_disc.ads -------------------------------------------------------------------------------- /unicode/unicode-names-playing_cards.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-playing_cards.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sora_sompeng.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sora_sompeng.ads -------------------------------------------------------------------------------- /unicode/unicode-names-syloti_nagri.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-syloti_nagri.ads -------------------------------------------------------------------------------- /unicode/unicode-names-warang_citi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-warang_citi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-yi_radicals.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-yi_radicals.ads -------------------------------------------------------------------------------- /unicode/unicode-names-yi_syllables.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-yi_syllables.ads -------------------------------------------------------------------------------- /docs/cross/sax/default.gpr: -------------------------------------------------------------------------------- 1 | with "xmlada"; 2 | project Default is 3 | for Main use ("saxexample_main.adb"); 4 | end Default; 5 | -------------------------------------------------------------------------------- /docs/cross/schema/default.gpr: -------------------------------------------------------------------------------- 1 | with "xmlada"; 2 | project Default is 3 | for Main use ("schemaexample.adb"); 4 | end Default; 5 | -------------------------------------------------------------------------------- /tests/sax/t4.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | "> 5 | ] > 6 | &e; 7 | 8 | 9 | -------------------------------------------------------------------------------- /unicode/unicode-names-aegean_numbers.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-aegean_numbers.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ancient_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ancient_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-block_elements.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-block_elements.ads -------------------------------------------------------------------------------- /unicode/unicode-names-greek_extended.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-greek_extended.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ipa_extensions.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ipa_extensions.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kana_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kana_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-kangxi_radicals.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-kangxi_radicals.ads -------------------------------------------------------------------------------- /unicode/unicode-names-musical_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-musical_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-psalter_pahlavi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-psalter_pahlavi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-vertical_forms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-vertical_forms.ads -------------------------------------------------------------------------------- /.cvsignore: -------------------------------------------------------------------------------- 1 | config.log 2 | gnat.adc 3 | config.cache 4 | config.status 5 | Makefile 6 | shared.gpr 7 | xmlada-config 8 | Makefile.314 9 | -------------------------------------------------------------------------------- /docs/sax/default.gpr: -------------------------------------------------------------------------------- 1 | with "../../sax/xmlada_sax"; 2 | project Default is 3 | for Main use ("saxexample_main.adb"); 4 | end Default; 5 | -------------------------------------------------------------------------------- /tests/dom/default.gpr.in: -------------------------------------------------------------------------------- 1 | with "@exec_prefix@/xmlada.gpr"; 2 | project Default is 3 | for Main use ("testxml.adb"); 4 | end Default; 5 | -------------------------------------------------------------------------------- /unicode/unicode-names-alchemical_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-alchemical_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arabic_extended_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arabic_extended_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arabic_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arabic_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-bamum_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-bamum_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-bopomofo_extended.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-bopomofo_extended.ads -------------------------------------------------------------------------------- /unicode/unicode-names-braille_patterns.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-braille_patterns.ads -------------------------------------------------------------------------------- /unicode/unicode-names-caucasian_albanian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-caucasian_albanian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_compatibility.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_compatibility.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_letters_months.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_letters_months.ads -------------------------------------------------------------------------------- /unicode/unicode-names-control_pictures.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-control_pictures.ads -------------------------------------------------------------------------------- /unicode/unicode-names-currency_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-currency_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cypriot_syllabary.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cypriot_syllabary.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ethiopic_extended.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ethiopic_extended.ads -------------------------------------------------------------------------------- /unicode/unicode-names-geometric_shapes.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-geometric_shapes.ads -------------------------------------------------------------------------------- /unicode/unicode-names-greek_and_coptic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-greek_and_coptic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-imperial_aramaic.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-imperial_aramaic.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_1_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_1_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_extended_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_extended_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_extended_b.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_extended_b.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_extended_c.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_extended_c.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_extended_d.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_extended_d.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_extended_e.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_extended_e.ads -------------------------------------------------------------------------------- /unicode/unicode-names-letterlike_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-letterlike_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-linear_b_ideograms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-linear_b_ideograms.ads -------------------------------------------------------------------------------- /unicode/unicode-names-linear_b_syllabary.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-linear_b_syllabary.ads -------------------------------------------------------------------------------- /unicode/unicode-names-meroitic_cursive.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-meroitic_cursive.ads -------------------------------------------------------------------------------- /unicode/unicode-names-myanmar_extended_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-myanmar_extended_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-myanmar_extended_b.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-myanmar_extended_b.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_north_arabian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_north_arabian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-old_south_arabian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-old_south_arabian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-phonetic_ext_sup.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-phonetic_ext_sup.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sup_math_operators.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sup_math_operators.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sutton_signwriting.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sutton_signwriting.ads -------------------------------------------------------------------------------- /unicode/unicode-names-vedic_extensions.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-vedic_extensions.ads -------------------------------------------------------------------------------- /.gitreview: -------------------------------------------------------------------------------- 1 | [gerrit] 2 | host = git.adacore.com 3 | port = 29418 4 | project = xmlada 5 | defaultbranch = master 6 | defaultremote = origin 7 | -------------------------------------------------------------------------------- /unicode/unicode-names-ancient_greek_music.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ancient_greek_music.ads -------------------------------------------------------------------------------- /unicode/unicode-names-canadian_aboriginal.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-canadian_aboriginal.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cherokee_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cherokee_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_compat_ideo_sup.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_compat_ideo_sup.ads -------------------------------------------------------------------------------- /unicode/unicode-names-combining_half_marks.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-combining_half_marks.ads -------------------------------------------------------------------------------- /unicode/unicode-names-coptic_epact_numbers.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-coptic_epact_numbers.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cyrillic_extended_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cyrillic_extended_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cyrillic_extended_b.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cyrillic_extended_b.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cyrillic_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cyrillic_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-devanagari_extended.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-devanagari_extended.ads -------------------------------------------------------------------------------- /unicode/unicode-names-egyptian_hieroglyphs.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-egyptian_hieroglyphs.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ethiopic_extended_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ethiopic_extended_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ethiopic_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ethiopic_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-general_punctuation.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-general_punctuation.ads -------------------------------------------------------------------------------- /unicode/unicode-names-georgian_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-georgian_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-meroitic_hieroglyphs.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-meroitic_hieroglyphs.ads -------------------------------------------------------------------------------- /unicode/unicode-names-misc_math_symbols_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-misc_math_symbols_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-misc_math_symbols_b.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-misc_math_symbols_b.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ornamental_dingbats.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ornamental_dingbats.ads -------------------------------------------------------------------------------- /unicode/unicode-names-phonetic_extensions.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-phonetic_extensions.ads -------------------------------------------------------------------------------- /unicode/unicode-names-rumi_numeral_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-rumi_numeral_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-small_form_variants.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-small_form_variants.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sundanese_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sundanese_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-variation_selectors.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-variation_selectors.ads -------------------------------------------------------------------------------- /.gitlab-ci.plan: -------------------------------------------------------------------------------- 1 | 2 | def build(): 3 | anod_build("xmlada") 4 | 5 | def test(): 6 | anod_install("xmlada") 7 | anod_test("xmlada") 8 | -------------------------------------------------------------------------------- /docs/schema/default.gpr: -------------------------------------------------------------------------------- 1 | with "../../schema/xmlada_schema"; 2 | project Default is 3 | for Main use ("schemaexample.adb"); 4 | end Default; 5 | -------------------------------------------------------------------------------- /unicode/unicode-names-anatolian_hieroglyphs.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-anatolian_hieroglyphs.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ancient_greek_numbers.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ancient_greek_numbers.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arabic_math_alpha_symb.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arabic_math_alpha_symb.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arabic_present_formsa.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arabic_present_formsa.ads -------------------------------------------------------------------------------- /unicode/unicode-names-arabic_present_formsb.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-arabic_present_formsb.ads -------------------------------------------------------------------------------- /unicode/unicode-names-canadian_aboriginal_ext.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-canadian_aboriginal_ext.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_compat_ideographs.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_compat_ideographs.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_compatibility_forms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_compatibility_forms.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_radicals_supplement.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_radicals_supplement.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cjk_symbols_and_punct.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cjk_symbols_and_punct.ads -------------------------------------------------------------------------------- /unicode/unicode-names-combining_diacritical.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-combining_diacritical.ads -------------------------------------------------------------------------------- /unicode/unicode-names-counting_rod_numerals.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-counting_rod_numerals.ads -------------------------------------------------------------------------------- /unicode/unicode-names-enclosed_alphanum_sup.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-enclosed_alphanum_sup.ads -------------------------------------------------------------------------------- /unicode/unicode-names-enclosed_alphanumerics.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-enclosed_alphanumerics.ads -------------------------------------------------------------------------------- /unicode/unicode-names-half_full_width_forms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-half_full_width_forms.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hangul_jamo_extended_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hangul_jamo_extended_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hangul_jamo_extended_b.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hangul_jamo_extended_b.ads -------------------------------------------------------------------------------- /unicode/unicode-names-ideograph_descr_chars.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-ideograph_descr_chars.ads -------------------------------------------------------------------------------- /unicode/unicode-names-inscriptional_pahlavi.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-inscriptional_pahlavi.ads -------------------------------------------------------------------------------- /unicode/unicode-names-inscriptional_parthian.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-inscriptional_parthian.ads -------------------------------------------------------------------------------- /unicode/unicode-names-katakana_phonetic_ext.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-katakana_phonetic_ext.ads -------------------------------------------------------------------------------- /unicode/unicode-names-math_alphanumeric_symb.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-math_alphanumeric_symb.ads -------------------------------------------------------------------------------- /unicode/unicode-names-mathematical_operators.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-mathematical_operators.ads -------------------------------------------------------------------------------- /unicode/unicode-names-meetei_mayek_extensions.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-meetei_mayek_extensions.ads -------------------------------------------------------------------------------- /unicode/unicode-names-misc_symbols_and_arrows.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-misc_symbols_and_arrows.ads -------------------------------------------------------------------------------- /unicode/unicode-names-miscellaneous_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-miscellaneous_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-miscellaneous_technical.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-miscellaneous_technical.ads -------------------------------------------------------------------------------- /unicode/unicode-names-modifier_tone_letters.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-modifier_tone_letters.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sinhala_archaic_numbers.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sinhala_archaic_numbers.ads -------------------------------------------------------------------------------- /unicode/unicode-names-sup_symbols_pictographs.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-sup_symbols_pictographs.ads -------------------------------------------------------------------------------- /unicode/unicode-names-super_and_sub_scripts.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-super_and_sub_scripts.ads -------------------------------------------------------------------------------- /unicode/unicode-names-supplemental_arrows_a.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-supplemental_arrows_a.ads -------------------------------------------------------------------------------- /unicode/unicode-names-supplemental_arrows_b.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-supplemental_arrows_b.ads -------------------------------------------------------------------------------- /unicode/unicode-names-supplemental_arrows_c.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-supplemental_arrows_c.ads -------------------------------------------------------------------------------- /unicode/unicode-names-tai_xuan_jing_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-tai_xuan_jing_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-variation_selectors_sup.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-variation_selectors_sup.ads -------------------------------------------------------------------------------- /unicode/unicode-names-yijing_hexagram_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-yijing_hexagram_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-alpha_presentation_forms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-alpha_presentation_forms.ads -------------------------------------------------------------------------------- /unicode/unicode-names-byzantine_musical_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-byzantine_musical_symbols.ads -------------------------------------------------------------------------------- /unicode/unicode-names-combining_diacritical_ext.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-combining_diacritical_ext.ads -------------------------------------------------------------------------------- /unicode/unicode-names-combining_diacritical_sup.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-combining_diacritical_sup.ads -------------------------------------------------------------------------------- /unicode/unicode-names-combining_diacritical_sym.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-combining_diacritical_sym.ads -------------------------------------------------------------------------------- /unicode/unicode-names-common_indic_number_forms.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-common_indic_number_forms.ads -------------------------------------------------------------------------------- /unicode/unicode-names-cuneiform_num_punctuation.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-cuneiform_num_punctuation.ads -------------------------------------------------------------------------------- /unicode/unicode-names-early_dynastic_cuneiform.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-early_dynastic_cuneiform.ads -------------------------------------------------------------------------------- /unicode/unicode-names-enclosed_ideographic_sup.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-enclosed_ideographic_sup.ads -------------------------------------------------------------------------------- /unicode/unicode-names-geometric_shapes_extended.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-geometric_shapes_extended.ads -------------------------------------------------------------------------------- /unicode/unicode-names-hangul_compatibility_jamo.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-hangul_compatibility_jamo.ads -------------------------------------------------------------------------------- /unicode/unicode-names-latin_extended_additional.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-latin_extended_additional.ads -------------------------------------------------------------------------------- /unicode/unicode-names-misc_symbols_pictographs.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-misc_symbols_pictographs.ads -------------------------------------------------------------------------------- /unicode/unicode-names-optical_chars_recognition.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-optical_chars_recognition.ads -------------------------------------------------------------------------------- /unicode/unicode-names-shorthand_format_controls.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-shorthand_format_controls.ads -------------------------------------------------------------------------------- /unicode/unicode-names-spacing_modifier_letters.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-spacing_modifier_letters.ads -------------------------------------------------------------------------------- /unicode/unicode-names-supplemental_punctuation.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-supplemental_punctuation.ads -------------------------------------------------------------------------------- /unicode/unicode-names-transport_and_map_symbols.ads: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/AdaCore/xmlada/HEAD/unicode/unicode-names-transport_and_map_symbols.ads -------------------------------------------------------------------------------- /docs/dom/pref.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | Value1 4 | Value2 5 | 6 | 7 | -------------------------------------------------------------------------------- /docs/sax/pref.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | Value1 4 | Value2 5 | 6 | 7 | -------------------------------------------------------------------------------- /tests/base64/test_base64.expected: -------------------------------------------------------------------------------- 1 | RIGHT: "MzMzZGQK" 2 | RIGHT: "MQo=" 3 | RIGHT: "MTIK" 4 | RIGHT: "MTIzCg==" 5 | RIGHT: "" 6 | RIGHT: "VVVV" 7 | WRONG: "VAV=" 8 | WRONG: "VV==" 9 | -------------------------------------------------------------------------------- /tests/schema/multiple_xsd/test2.xml: -------------------------------------------------------------------------------- 1 | 2 | 92 4 | -------------------------------------------------------------------------------- /docs/dom/default.gpr: -------------------------------------------------------------------------------- 1 | with "../../dom/xmlada_dom"; 2 | with "../../schema/xmlada_schema"; 3 | project Default is 4 | for Main use ("domexample.adb", "domexample2.adb", "domschemaexample.adb"); 5 | end Default; 6 | -------------------------------------------------------------------------------- /tests/dom/sanity.gpr: -------------------------------------------------------------------------------- 1 | -- This project file is used for the sanity checking of XML/Ada. 2 | 3 | with "xmlada"; 4 | project Sanity is 5 | for Object_Dir use "obj"; 6 | for Main use ("testxml.adb"); 7 | end Sanity; 8 | -------------------------------------------------------------------------------- /tests/schema/multiple_xsd/test1.xml: -------------------------------------------------------------------------------- 1 | 2 | 102 4 | -------------------------------------------------------------------------------- /docs/cross/README: -------------------------------------------------------------------------------- 1 | This directory contains examples that are suitable for cross-compilation. 2 | They repeat the functionality of main examples, but have XML and XSD 3 | sources embebbed into ada code, since external file access may be 4 | a problem on a number of cross-platforms. -------------------------------------------------------------------------------- /docs/schema/pref.xml: -------------------------------------------------------------------------------- 1 | 2 | 4 | Value1 5 | Value2 6 | 7 | 8 | -------------------------------------------------------------------------------- /docs/dom/pref_with_xsd.xml: -------------------------------------------------------------------------------- 1 | 2 | 4 | Value1 5 | Value2 6 | 7 | 8 | -------------------------------------------------------------------------------- /tests/sax/schaefer.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 5 | 6 | ]> 7 | 8 | 9 | ho ho ho 10 | 11 | 12 | -------------------------------------------------------------------------------- /unicode/importer/convert.gpr: -------------------------------------------------------------------------------- 1 | project Convert is 2 | for Main use ("convert.adb"); 3 | for Object_Dir use "obj"; 4 | for Exec_Dir use "."; 5 | package Compiler is 6 | for Switches ("Ada") use ("-gnata", "-gnatwa", "-gnatyaI"); 7 | end Compiler; 8 | end Convert; 9 | -------------------------------------------------------------------------------- /tests/sax/t2.xml: -------------------------------------------------------------------------------- 1 | 2 | 4 | 5 | "> 6 | 7 | 8 | ] > 9 | 10 | &b; 11 | &e;b;> 12 | &f; 13 | & 14 | 15 | -------------------------------------------------------------------------------- /tests/schema/multiple_xsd/default.gpr: -------------------------------------------------------------------------------- 1 | with "xmlada"; 2 | project Default is 3 | for Main use ("validate.adb"); 4 | package Binder is 5 | for Switches ("Ada") use ("-E", "-g"); 6 | end Binder; 7 | package Compiler is 8 | for Switches ("Ada") use ("-g"); 9 | end Compiler; 10 | end Default; 11 | -------------------------------------------------------------------------------- /AUTHORS: -------------------------------------------------------------------------------- 1 | Unicode, SAX, DOM implementations: 2 | Emmanuel Briot 3 | 4 | Initial Http input: 5 | Christophe Baillon (ITRIS) 6 | 7 | ISO 8859-15 support: 8 | Martin Krischik 9 | 10 | Initial Incomplete_Encoding support: 11 | Input_Sources.Socket contribution: 12 | Jehan Pages 13 | -------------------------------------------------------------------------------- /unicode/unicode-names.ads: -------------------------------------------------------------------------------- 1 | 2 | -- This is the root of the hierarchy that provides named characters 3 | -- The standard Unicode names have been kept wherever possible. The only 4 | -- exception is the NULL character, which has been spelled NUL 5 | 6 | package Unicode.Names is 7 | pragma Preelaborate (Unicode.Names); 8 | end Unicode.Names; 9 | -------------------------------------------------------------------------------- /xmlada-roadmap.txt: -------------------------------------------------------------------------------- 1 | This is a tentative roadmap for XML/Ada. 2 | None of the dates and/or tentative contents for the releases should 3 | be taken as firm. 4 | 5 | [XML/Ada 4.3] 6 | 7 | - Improve memory usage in the validation of elements 8 | - Initial support for XInclude 9 | 10 | [GNAT Pro 7.1.1] 11 | 12 | - Precompile and package XML/Ada with native ports. 13 | -------------------------------------------------------------------------------- /tests/dom/conformance/run.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | ## Get the tests from the anonymous CVS at 4 | ## http://dev.w3.org/cvsweb/2001/DOM-Test-Suite/ 5 | 6 | dir="2001/DOM-Test-Suite/tests/level1/core/" 7 | test="$1" 8 | 9 | gprbuild -q -m -P conformance.gpr dom_conformance 10 | if [ $? != 0 ]; then 11 | exit 1 12 | fi 13 | 14 | ./dom_conformance "$dir" $test 15 | 16 | -------------------------------------------------------------------------------- /distrib/xmlada.gpr: -------------------------------------------------------------------------------- 1 | -- Project file for use of XML/Ada. 2 | -- Put the directory that contains xmlada.gpr in your ADA_PROJECT_PATH 3 | -- variable. Then, in our own project file, add a "with" dependency on 4 | -- "xmlada.gpr". 5 | 6 | with "xmlada_unicode", "xmlada_sax", "xmlada_input", "xmlada_dom"; 7 | with "xmlada_schema"; 8 | 9 | project Xmlada is 10 | for Source_Dirs use (); 11 | end Xmlada; 12 | -------------------------------------------------------------------------------- /.gitattributes: -------------------------------------------------------------------------------- 1 | # This file lists all files that do not require style checks 2 | docs/dom/* no-precommit-check 3 | dom/tests/* no-precommit-check 4 | dom/test/act_testsuite/*/* no-precommit-check 5 | tests/schema/multiple_xsd/* no-precommit-check 6 | unicode/unicode-names-*.ads no-precommit-check 7 | 8 | # Lines too long in these files 9 | COPYING.RUNTIME no-precommit-check 10 | README.md no-precommit-check 11 | -------------------------------------------------------------------------------- /tests/base64/base64_test.gpr: -------------------------------------------------------------------------------- 1 | with "../../xmlada_shared"; 2 | with "xmlada_sax"; 3 | 4 | project Base64_Test is 5 | for Main use ("test_base64"); 6 | for Object_Dir use "obj"; 7 | package Builder renames XmlAda_Shared.Builder; 8 | package Compiler renames XmlAda_Shared.Compiler; 9 | package Binder renames XmlAda_Shared.Binder; 10 | package Linker renames XmlAda_Shared.Linker; 11 | end Base64_Test; 12 | -------------------------------------------------------------------------------- /tests/sax/sax_test.gpr: -------------------------------------------------------------------------------- 1 | with "../../xmlada_shared"; 2 | with "xmlada_sax"; 3 | project Sax_Test is 4 | for Main use ("testsax.adb", "teststate.adb"); 5 | for Object_Dir use "obj"; 6 | package Builder renames XmlAda_Shared.Builder; 7 | package Compiler renames XmlAda_Shared.Compiler; 8 | package Binder renames XmlAda_Shared.Binder; 9 | package Linker renames XmlAda_Shared.Linker; 10 | end Sax_Test; 11 | -------------------------------------------------------------------------------- /tests/unicode/unicode_test.gpr: -------------------------------------------------------------------------------- 1 | with "../../xmlada_shared"; 2 | with "xmlada_unicode"; 3 | 4 | project Unicode_Test is 5 | for Main use ("test_unicode"); 6 | for Object_Dir use "obj"; 7 | package Builder renames XmlAda_Shared.Builder; 8 | package Compiler renames XmlAda_Shared.Compiler; 9 | package Binder renames XmlAda_Shared.Binder; 10 | package Linker renames XmlAda_Shared.Linker; 11 | end Unicode_Test; 12 | -------------------------------------------------------------------------------- /tests/dom/dom_test.gpr: -------------------------------------------------------------------------------- 1 | with "../../xmlada_shared"; 2 | with "xmlada_dom"; 3 | with "conformance/conformance"; 4 | 5 | project Dom_Test is 6 | for Main use ("testxml.adb", "ea03_006.adb", "tostring.adb"); 7 | for Object_Dir use "obj"; 8 | package Builder renames XmlAda_Shared.Builder; 9 | package Compiler renames XmlAda_Shared.Compiler; 10 | package Binder renames XmlAda_Shared.Binder; 11 | package Linker renames XmlAda_Shared.Linker; 12 | end Dom_Test; 13 | -------------------------------------------------------------------------------- /.gitlab-ci.yml: -------------------------------------------------------------------------------- 1 | stages: 2 | - build 3 | - test 4 | - check 5 | 6 | include: 7 | # Issue check 8 | - component: $CI_SERVER_FQDN/eng/gitlab-templates/check-issue@~latest 9 | 10 | # Build & test 11 | - component: $CI_SERVER_FQDN/eng/gitlab-templates/build@~latest 12 | inputs: 13 | anod-args: run build --latest 14 | save-component: true 15 | 16 | - component: $CI_SERVER_FQDN/eng/gitlab-templates/test@~latest 17 | inputs: 18 | anod-args: run test 19 | 20 | -------------------------------------------------------------------------------- /tests/dom/conformance/conformance.gpr: -------------------------------------------------------------------------------- 1 | 2 | with "../../../xmlada_shared"; 3 | with "xmlada_dom"; 4 | 5 | project Conformance is 6 | for Main use ("dom_conformance"); 7 | package Binder is 8 | for Switches ("Ada") use XmlAda_Shared.Binder'Switches("Ada") & ("-E"); 9 | end Binder; 10 | package Compiler is 11 | for Switches ("Ada") use XmlAda_Shared.Binder'Switches("Ada") & ("-g"); 12 | end Compiler; 13 | package Linker renames XmlAda_Shared.Linker; 14 | end Conformance; 15 | -------------------------------------------------------------------------------- /unicode/importer/Makefile: -------------------------------------------------------------------------------- 1 | MAIN := convert 2 | UNICODE_VERSION := 14.0.0 3 | UNICODE_URL := ftp://ftp.unicode.org/Public/$(UNICODE_VERSION)/ucd 4 | UNICODE_FILES := Blocks.txt NameAliases.txt UnicodeData.txt 5 | 6 | .PHONY: all clean ${MAIN} 7 | 8 | all: $(MAIN) $(UNICODE_FILES) 9 | mkdir -p generated 10 | ./$^ 11 | 12 | $(MAIN): 13 | gprbuild -p -Pconvert 14 | 15 | $(UNICODE_FILES): 16 | wget $(UNICODE_URL)/$@ 17 | 18 | clean: 19 | rm -f $(UNICODE_FILES) 20 | gprclean -Pconvert 21 | rm -rf generated/ 22 | -------------------------------------------------------------------------------- /tests/schema/multiple_xsd/algo2.xsd: -------------------------------------------------------------------------------- 1 | 2 | 3 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | -------------------------------------------------------------------------------- /docs/dom/pref.xsd: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /docs/schema/pref.xsd: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /tests/dom/ea03_006.adb: -------------------------------------------------------------------------------- 1 | with DOM.Core; use DOM.Core; 2 | with DOM.Core.Documents; use DOM.Core.Documents; 3 | with DOM.Core.Elements; use DOM.Core.Elements; 4 | with DOM.Core.Nodes; use DOM.Core.Nodes; 5 | 6 | procedure EA03_006 is 7 | Impl : DOM_Implementation; 8 | Doc : Document; 9 | Child, Element : Node; 10 | pragma Unreferenced (Child); 11 | begin 12 | Doc := Create_Document (Impl); 13 | 14 | Element := Create_Element (Doc, "myelem"); 15 | Set_Attribute (Element, "id", "42"); 16 | Child := Append_Child (Doc, Element); 17 | 18 | Print (Element); 19 | end EA03_006; 20 | -------------------------------------------------------------------------------- /docs/index.rst: -------------------------------------------------------------------------------- 1 | XML/Ada: The Unicode and XML Library for Ada 2 | ============================================ 3 | 4 | .. toctree:: 5 | :numbered: 6 | :maxdepth: 3 7 | 8 | intro 9 | unicode 10 | input 11 | sax 12 | dom 13 | schema 14 | using 15 | 16 | Copyright (C) 2000-2002, Emmanuel Briot 17 | 18 | Copyright (C) 2003-2011, AdaCore 19 | 20 | This document may be copied, in whole or in part, in any form or by any 21 | means, as is or with alterations, provided that (1) alterations are clearly 22 | marked as alterations and (2) this copyright notice is included 23 | unmodified in any copy. 24 | 25 | -------------------------------------------------------------------------------- /docs/dom/dom_with_location.ads: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with DOM.Readers; use DOM.Readers; 6 | with Sax.Utils; use Sax.Utils; 7 | with Sax.Readers; use Sax.Readers; 8 | with Sax.Symbols; use Sax.Symbols; 9 | 10 | package DOM_With_Location is 11 | 12 | type Tree_Reader_With_Location is new Tree_Reader with null record; 13 | overriding procedure Start_Element 14 | (Handler : in out Tree_Reader_With_Location; 15 | NS : Sax.Utils.XML_NS; 16 | Local_Name : Sax.Symbols.Symbol; 17 | Atts : Sax.Readers.Sax_Attribute_List); 18 | 19 | end DOM_With_Location; 20 | -------------------------------------------------------------------------------- /tests/schema/multiple_xsd/algo1.xsd: -------------------------------------------------------------------------------- 1 | 2 | 3 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /configure.in: -------------------------------------------------------------------------------- 1 | AC_INIT(XML/Ada,18.0w,support@adacore.com,xmlada) 2 | AC_CANONICAL_SYSTEM 3 | 4 | # Also update in AC_INIT above 5 | XMLADA_VERSION=AC_PACKAGE_VERSION() 6 | 7 | AM_GNAT_BUILDS_SHARED 8 | CHECK_BUILD_TYPE 9 | AM_SO_SUFFIX 10 | 11 | # Defaults 12 | AC_PROG_INSTALL 13 | AC_PROG_LN_S 14 | MKDIR="mkdir -p" 15 | 16 | # Overrides 17 | case "${host_os}" in 18 | lynxos*) 19 | CP="cp -p" 20 | MKDIR="mkdir -p -f" 21 | ;; 22 | 23 | cygwin*|mingw32*) 24 | LN="cp -p -f" 25 | ;; 26 | esac 27 | 28 | AC_SUBST(MKDIR) 29 | AC_SUBST(CC) 30 | 31 | LIB=`basename $libdir` 32 | AC_SUBST(LIB) 33 | 34 | AC_OUTPUT(xmlada_shared.gpr Makefile tests/dom/default.gpr) 35 | -------------------------------------------------------------------------------- /tests/schema/schema_test.gpr: -------------------------------------------------------------------------------- 1 | with "../../xmlada_shared"; 2 | with "xmlada_schema"; 3 | with "xmlada_input"; 4 | 5 | project Schema_Test is 6 | 7 | for Main use 8 | ("testschema.adb", "test_date_time.adb", 9 | "testnumbers.adb", "testdomschema.adb", "schematest.adb", 10 | "cleanup_schema.adb"); 11 | 12 | for Object_Dir use "obj"; 13 | package Builder renames XmlAda_Shared.Builder; 14 | 15 | package Compiler is 16 | for Switches ("Ada") use 17 | XmlAda_Shared.Compiler'Switches ("Ada") & ("-gnat05"); 18 | end Compiler; 19 | package Binder renames XmlAda_Shared.Binder; 20 | package Linker renames XmlAda_Shared.Linker; 21 | 22 | end Schema_Test; 23 | -------------------------------------------------------------------------------- /tests/dom/testxml_support.ads: -------------------------------------------------------------------------------- 1 | 2 | with DOM.Readers; 3 | with GNAT.OS_Lib; 4 | with Sax.Exceptions; 5 | 6 | package Testxml_Support is 7 | 8 | type My_Tree_Reader is new DOM.Readers.Tree_Reader with record 9 | Had_Error : Boolean := False; 10 | -- Whether any recoverable error was seen 11 | 12 | Error_Msg : GNAT.OS_Lib.String_Access; 13 | -- The whole cumulative error messages 14 | end record; 15 | procedure Error 16 | (Handler : in out My_Tree_Reader; 17 | Except : Sax.Exceptions.Sax_Parse_Exception'Class); 18 | -- Override Error so as to make sure recoverable errors are reported as 19 | -- such. It raises XML_Error 20 | 21 | end Testxml_Support; 22 | -------------------------------------------------------------------------------- /gnat.adc: -------------------------------------------------------------------------------- 1 | -- Only set these while in debug mode, since these need to be true partition-wide 2 | pragma Profile (Ravenscar); 3 | 4 | -- pragma Restrictions (No_Tasking); 5 | -- pragma Restrictions (No_Asynchronous_Control); 6 | -- pragma Restrictions (Max_Asynchronous_Select_Nesting => 0); 7 | -- pragma Restrictions (No_Abort_Statements); 8 | -- pragma Initialize_Scalars; 9 | -- pragma Restrictions (No_Dynamic_Interrupts); 10 | -- pragma Restrictions (No_Implicit_Dynamic_Code); 11 | -- pragma Restrictions (No_Initialize_Scalars); 12 | -- pragma Restrictions (No_Wide_Characters); 13 | -- pragma Restricted_Run_Time; 14 | -- pragma Restrictions (No_Secondary_Stack); 15 | -- pragma Restrictions (No_Streams); 16 | 17 | 18 | -------------------------------------------------------------------------------- /docs/dom/domschemaexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Input_Sources.File; use Input_Sources.File; 6 | with Sax.Readers; use Sax.Readers; 7 | with DOM.Core; use DOM.Core; 8 | with Schema.Dom_Readers; use Schema.Dom_Readers; 9 | 10 | procedure DomSchemaExample is 11 | Input : File_Input; 12 | Reader : Schema.Dom_Readers.Tree_Reader; 13 | Doc : Document; 14 | begin 15 | Set_Public_Id (Input, "Preferences file"); 16 | Open ("pref_with_xsd.xml", Input); 17 | 18 | Set_Feature (Reader, Validation_Feature, False); 19 | 20 | Parse (Reader, Input); 21 | Close (Input); 22 | 23 | Doc := Get_Tree (Reader); 24 | 25 | Free (Reader); 26 | end DomSchemaExample; 27 | -------------------------------------------------------------------------------- /docs/dom/domexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Input_Sources.File; use Input_Sources.File; 6 | with Sax.Readers; use Sax.Readers; 7 | with DOM.Readers; use DOM.Readers; 8 | with DOM.Core; use DOM.Core; 9 | 10 | procedure DomExample is 11 | Input : File_Input; 12 | Reader : Tree_Reader; 13 | Doc : Document; 14 | begin 15 | Set_Public_Id (Input, "Preferences file"); 16 | Open ("pref.xml", Input); 17 | 18 | Set_Feature (Reader, Validation_Feature, False); 19 | Set_Feature (Reader, Namespace_Feature, False); 20 | 21 | Parse (Reader, Input); 22 | Close (Input); 23 | 24 | Doc := Get_Tree (Reader); 25 | 26 | Free (Reader); 27 | end DomExample; 28 | -------------------------------------------------------------------------------- /docs/sax/saxexample_main.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Sax.Readers; use Sax.Readers; 6 | with Input_Sources.File; use Input_Sources.File; 7 | with SaxExample; use SaxExample; 8 | 9 | procedure SaxExample_Main is 10 | My_Reader : SaxExample.Reader; 11 | Input : File_Input; 12 | begin 13 | Set_Public_Id (Input, "Preferences file"); 14 | Set_System_Id (Input, "pref.xml"); 15 | Open ("pref.xml", Input); 16 | 17 | Set_Feature (My_Reader, Namespace_Prefixes_Feature, False); 18 | Set_Feature (My_Reader, Namespace_Feature, False); 19 | Set_Feature (My_Reader, Validation_Feature, False); 20 | 21 | Parse (My_Reader, Input); 22 | 23 | Close (Input); 24 | end SaxExample_Main; 25 | -------------------------------------------------------------------------------- /docs/schema/schemaexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Ada.Text_IO; use Ada.Text_IO; 6 | with Sax.Readers; use Sax.Readers; 7 | with Schema.Readers; use Schema.Readers; 8 | with Schema.Validators; 9 | with Input_Sources.File; use Input_Sources.File; 10 | 11 | procedure SchemaExample is 12 | Input : File_Input; 13 | My_Reader : Validating_Reader; 14 | begin 15 | Set_Public_Id (Input, "Preferences file"); 16 | Open ("pref.xml", Input); 17 | 18 | Set_Feature (My_Reader, Schema_Validation_Feature, True); 19 | Parse (My_Reader, Input); 20 | 21 | Close (Input); 22 | 23 | exception 24 | when Schema.Validators.XML_Validation_Error => 25 | Put_Line ("ERROR: " & Get_Error_Message (My_Reader)); 26 | end SchemaExample; 27 | -------------------------------------------------------------------------------- /tests/dom/test.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Big & A A header 6 | 8 | 9 | 10 | 11 | full 12 | 13 | 14 | Test 17 | 18 | 19 | 23 | -------------------------------------------------------------------------------- /docs/intro.rst: -------------------------------------------------------------------------------- 1 | ************ 2 | Introduction 3 | ************ 4 | 5 | The Extensible Markup Language (XML) is a subset of SGML. Its goal is to enable 6 | generic SGML to be served, received, and processed on the Web in the way that 7 | is now possible with HTML. XML has been designed for ease of implementation and 8 | for interoperability with both SGML and HTML. 9 | 10 | This library includes a set of Ada95 packages to manipulate XML input. It 11 | implements the XML 1.0 standard (see the references at the end of this 12 | document), as well as support for namespaces and a number of other optional 13 | standards related to XML. 14 | 15 | We have tried to follow as closely as possible the XML standard, so that you 16 | can easily analyze and reuse languages produced for other languages. 17 | 18 | This document isn't a tutorial on what XML is, nor on the various standards 19 | like DOM and SAX. Although we will try and give a few examples, we refer the 20 | reader to the standards themselves, which are all easily readable. 21 | -------------------------------------------------------------------------------- /docs/cross/sax/saxexample_main.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Input_Sources.Strings; use Input_Sources.Strings; 6 | with Unicode.CES; use Unicode.CES; 7 | with Unicode.CES.Utf8; 8 | 9 | with Sax.Readers; use Sax.Readers; 10 | with SaxExample; use SaxExample; 11 | 12 | procedure SaxExample_Main is 13 | My_Reader : SaxExample.Reader; 14 | Input : String_Input; 15 | 16 | XML_Source_String : constant Unicode.CES.Byte_Sequence := 17 | "" 18 | & "" 19 | & "Value1" 20 | & "Value2" 21 | & " "; 22 | begin 23 | Set_Public_Id (Input, "Preferences file"); 24 | Set_System_Id (Input, "pref.xml"); 25 | Open (XML_Source_String, Unicode.CES.Utf8.Utf8_Encoding, Input); 26 | 27 | Set_Feature (My_Reader, Namespace_Prefixes_Feature, False); 28 | Set_Feature (My_Reader, Namespace_Feature, False); 29 | Set_Feature (My_Reader, Validation_Feature, False); 30 | 31 | Parse (My_Reader, Input); 32 | 33 | Close (Input); 34 | end SaxExample_Main; 35 | -------------------------------------------------------------------------------- /docs/sax/saxexample.ads: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Sax.Readers; 6 | with Unicode.CES; 7 | with Sax.Attributes; 8 | with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; 9 | 10 | package SaxExample is 11 | 12 | type String_Access is access String; 13 | 14 | type Reader is new Sax.Readers.Reader with record 15 | Current_Pref : Unbounded_String; 16 | Current_Value : Unbounded_String; 17 | end record; 18 | 19 | procedure Start_Element 20 | (Handler : in out Reader; 21 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 22 | Local_Name : Unicode.CES.Byte_Sequence := ""; 23 | Qname : Unicode.CES.Byte_Sequence := ""; 24 | Atts : Sax.Attributes.Attributes'Class); 25 | 26 | procedure End_Element 27 | (Handler : in out Reader; 28 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 29 | Local_Name : Unicode.CES.Byte_Sequence := ""; 30 | Qname : Unicode.CES.Byte_Sequence := ""); 31 | 32 | procedure Characters 33 | (Handler : in out Reader; 34 | Ch : Unicode.CES.Byte_Sequence); 35 | 36 | end SaxExample; 37 | -------------------------------------------------------------------------------- /docs/cross/sax/saxexample.ads: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Sax.Readers; 6 | with Unicode.CES; 7 | with Sax.Attributes; 8 | with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; 9 | 10 | package SaxExample is 11 | 12 | type String_Access is access String; 13 | 14 | type Reader is new Sax.Readers.Reader with record 15 | Current_Pref : Unbounded_String; 16 | Current_Value : Unbounded_String; 17 | end record; 18 | 19 | procedure Start_Element 20 | (Handler : in out Reader; 21 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 22 | Local_Name : Unicode.CES.Byte_Sequence := ""; 23 | Qname : Unicode.CES.Byte_Sequence := ""; 24 | Atts : Sax.Attributes.Attributes'Class); 25 | 26 | procedure End_Element 27 | (Handler : in out Reader; 28 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 29 | Local_Name : Unicode.CES.Byte_Sequence := ""; 30 | Qname : Unicode.CES.Byte_Sequence := ""); 31 | 32 | procedure Characters 33 | (Handler : in out Reader; 34 | Ch : Unicode.CES.Byte_Sequence); 35 | 36 | end SaxExample; 37 | -------------------------------------------------------------------------------- /docs/dom/dom_with_location.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with DOM.Core; use DOM.Core; 6 | with DOM.Core.Attrs; use DOM.Core.Attrs; 7 | with DOM.Core.Documents; use DOM.Core.Documents; 8 | with DOM.Core.Elements; use DOM.Core.Elements; 9 | with Sax.Locators; use Sax.Locators; 10 | 11 | package body DOM_With_Location is 12 | 13 | overriding procedure Start_Element 14 | (Handler : in out Tree_Reader_With_Location; 15 | NS : Sax.Utils.XML_NS; 16 | Local_Name : Sax.Symbols.Symbol; 17 | Atts : Sax_Attribute_List) 18 | is 19 | Att, Att2 : Attr; 20 | begin 21 | -- First create the node as usual 22 | Start_Element (Tree_Reader (Handler), NS, Local_Name, Atts); 23 | 24 | -- Then add the new attribute 25 | Att := Create_Attribute_NS 26 | (Get_Tree (Handler), 27 | Namespace_URI => "http://mydomain.com", 28 | Qualified_Name => "mydomain:location"); 29 | Set_Value (Att, To_String (Current_Location (Handler))); 30 | 31 | Att2 := Set_Attribute_Node (Handler.Current_Node, Att); 32 | end Start_Element; 33 | 34 | end DOM_With_Location; 35 | -------------------------------------------------------------------------------- /tests/dom/conformance/driver.ads: -------------------------------------------------------------------------------- 1 | with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; 2 | with DOM.Core; use DOM.Core; 3 | 4 | package Driver is 5 | procedure Assert_Equals 6 | (Expected : DOM_String; 7 | Actual : DOM_String; 8 | Ignore_Case : Boolean; 9 | File : String; 10 | Id : String); 11 | procedure Assert_Equals 12 | (Expected : DOM_String; 13 | Actual : Unbounded_String; 14 | Ignore_Case : Boolean; 15 | File : String; 16 | Id : String); 17 | procedure Assert_Null 18 | (Actual : Node; 19 | File : String; 20 | Id : String); 21 | procedure Assert_Not_Null 22 | (Actual : Node; 23 | File : String; 24 | Id : String); 25 | procedure Assert_Not_Null 26 | (Actual : Named_Node_Map; 27 | File : String; 28 | Id : String); 29 | procedure Assert_False 30 | (Actual : Boolean; 31 | File : String; 32 | Id : String); 33 | procedure Assert_True 34 | (Actual : Boolean; 35 | File : String; 36 | Id : String); 37 | 38 | end Driver; 39 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | .DS_Store 2 | /Makefile 3 | autom4te.cache/ 4 | Makefile.314 5 | config.log 6 | config.status 7 | distrib/xmlada_shared.gpr 8 | 9 | docs/schema/schemaexample 10 | docs/dom/domexample 11 | docs/dom/domexample2 12 | docs/dom/domschemaexample 13 | docs/_build 14 | 15 | tests/sax/obj 16 | tests/dom/default.gpr 17 | tests/dom/tests 18 | tests/dom/obj 19 | tests/dom/testxml_tmp* 20 | tests/dom/xmlconf-* 21 | tests/dom/xmlts20080827* 22 | tests/adacore/dom/test_act.out 23 | tests/adacore/dom/CC01-006/my_test 24 | tests/adacore/dom/EA03-006/reproducer 25 | tests/adacore/dom/N910-017/obj 26 | tests/adacore/dom/N411-012/merge 27 | tests/adacore/schema/tasking/concurrent 28 | tests/adacore/schema/M325-034/read_xml 29 | tests/schema/obj 30 | tests/schema/tests 31 | tests/schema/xmltests 32 | tests/schema/xmlschema2006-11-06 33 | tests/schema/xmltests.2002-01-16 34 | tests/schema/test_date_time 35 | tests/schema/multiple_xsd/validate 36 | test/*/*.diff 37 | test/*/*.out 38 | test/*/*.tmp_out 39 | tests/unicode/obj 40 | tests/results/*out 41 | tests/results/*diff 42 | 43 | xmlada_shared.gpr 44 | auto.cgpr 45 | tmp.out 46 | *tmp_out 47 | *.o 48 | *.ali 49 | *.std* 50 | b~*.ad* 51 | b__*.ad* 52 | *.bexch 53 | *.a 54 | *.so.* 55 | *.so 56 | *.gcda 57 | *.gcno 58 | *.gcov 59 | *.lexch 60 | *.bexch 61 | *.dll 62 | *dylib* 63 | gnatinspect.db 64 | xmlada-loc.xml 65 | -------------------------------------------------------------------------------- /docs/dom/domexample2.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Input_Sources.File; use Input_Sources.File; 6 | with Sax.Readers; use Sax.Readers; 7 | with DOM.Readers; use DOM.Readers; 8 | with DOM.Core; use DOM.Core; 9 | with DOM.Core.Documents; use DOM.Core.Documents; 10 | with DOM.Core.Nodes; use DOM.Core.Nodes; 11 | with DOM.Core.Attrs; use DOM.Core.Attrs; 12 | with Ada.Text_IO; use Ada.Text_IO; 13 | 14 | procedure DomExample2 is 15 | Input : File_Input; 16 | Reader : Tree_Reader; 17 | Doc : Document; 18 | List : Node_List; 19 | N : Node; 20 | A : Attr; 21 | begin 22 | Set_Public_Id (Input, "Preferences file"); 23 | Open ("pref.xml", Input); 24 | 25 | Set_Feature (Reader, Validation_Feature, False); 26 | Set_Feature (Reader, Namespace_Feature, False); 27 | 28 | Parse (Reader, Input); 29 | Close (Input); 30 | 31 | Doc := Get_Tree (Reader); 32 | 33 | List := Get_Elements_By_Tag_Name (Doc, "pref"); 34 | 35 | for Index in 1 .. Length (List) loop 36 | N := Item (List, Index - 1); 37 | A := Get_Named_Item (Attributes (N), "name"); 38 | Put_Line ("Value of """ & Value (A) & """ is " 39 | & Node_Value (First_Child (N))); 40 | end loop; 41 | 42 | Free (List); 43 | 44 | Free (Reader); 45 | end DomExample2; 46 | -------------------------------------------------------------------------------- /tests/schema/disable: -------------------------------------------------------------------------------- 1 | MS-Schema2006-07-15 / schZ012_a 2 | MS-Schema2006-07-15 / schZ012_b 3 | MS-Schema2006-07-15 / schZ012_c 4 | -- test: msData/schema/schZ012_a.xsd 5 | -- Disable because it relies on case-sensitive file systems to work 6 | -- properly. It fails on Darwin (lena) with HFS and on Windows, since 7 | -- the included file schZ012_A.xsd is found on those systems. 8 | -- See discussion at http://www.w3.org/Bugs/Public/show_bug.cgi?id=4137 9 | 10 | MS-SimpleType2006-07-15 / stE054 / stE054.i 11 | -- Disabled because "1.0" and "1" are both the same xsd:double value. 12 | -- Seems the test should validate. According to 4.2.1 in the datatypes 13 | -- standard, equality is checked in terms of value space, not strings. 14 | -- Xerces also accepts this test 15 | 16 | MS-Particles2006-07-15 / particlesZ001 17 | -- xmllint also says this test is OK. Qt complains that the type derivation 18 | -- is incorrect (so an error on the schema), but the test is supposed to 19 | -- have a correct schema, but an incorrect XML file, so that seems like a 20 | -- bug in Qt. Xerces also reports an incorrect schema. 21 | 22 | MS-Additional2006-07-15 / addB064 23 | -- This test parses the metaschema definition. Since this is already 24 | -- known to XML/Ada, the latter complains that we are redefining the 25 | -- location for a namespace that we have already used. Since we know we 26 | -- can parse the metaschema anyway, the test has been disabled 27 | 28 | MS-Particles2006-07-15 / particlesZ031 29 | -- XSD is marked as invalid in recent CVS versions of the testsuite 30 | -------------------------------------------------------------------------------- /tests/schema/test.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 7 | 8 | 10 9 | ManuManuMa 10 | 11 | 12 | 13 | 1723 14 | Manu 15 | 16 | 17 | 18 | 1723 19 | 20 | Manu 21 | 22 | 23 | 24 | 1723 25 | 26 | 27 | 28 | 1723 29 | 30 | 31 | 32 | a 33 | b 34 | c 35 | 36 | 37 | 38 | a 39 | b 40 | c 41 | 42 | 43 | 44 | a 45 | b 46 | c 47 | 48 | 49 | 56 | 57 | 58 | Emmanuel 59 | Briot 60 | 61 | 62 | Briot 63 | Emmanuel 64 | 65 | 66 | Emmanuel 67 | 68 | 69 | 70 | 71 | 72 | 73 | -------------------------------------------------------------------------------- /docs/cross/sax/saxexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Unicode.CES; use Unicode.CES; 6 | with Sax.Attributes; use Sax.Attributes; 7 | with GNAT.IO; use GNAT.IO; 8 | 9 | package body SaxExample is 10 | 11 | procedure Start_Element 12 | (Handler : in out Reader; 13 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 14 | Local_Name : Unicode.CES.Byte_Sequence := ""; 15 | Qname : Unicode.CES.Byte_Sequence := ""; 16 | Atts : Sax.Attributes.Attributes'Class) 17 | is 18 | begin 19 | Handler.Current_Pref := Null_Unbounded_String; 20 | Handler.Current_Value := Null_Unbounded_String; 21 | 22 | if Local_Name = "pref" then 23 | Handler.Current_Pref := 24 | To_Unbounded_String (Get_Value (Atts, "name")); 25 | end if; 26 | end Start_Element; 27 | 28 | procedure Characters 29 | (Handler : in out Reader; 30 | Ch : Unicode.CES.Byte_Sequence) is 31 | begin 32 | if Handler.Current_Pref /= Null_Unbounded_String then 33 | Handler.Current_Value := Handler.Current_Value & Ch; 34 | end if; 35 | end Characters; 36 | 37 | procedure End_Element 38 | (Handler : in out Reader; 39 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 40 | Local_Name : Unicode.CES.Byte_Sequence := ""; 41 | Qname : Unicode.CES.Byte_Sequence := "") 42 | is 43 | begin 44 | if Local_Name = "pref" then 45 | Put_Line ("Value for """ & To_String (Handler.Current_Pref) 46 | & """ is " & To_String (Handler.Current_Value)); 47 | end if; 48 | end End_Element; 49 | 50 | end SaxExample; 51 | -------------------------------------------------------------------------------- /docs/sax/saxexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Unicode.CES; use Unicode.CES; 6 | with Sax.Attributes; use Sax.Attributes; 7 | with Ada.Text_IO; use Ada.Text_IO; 8 | 9 | package body SaxExample is 10 | 11 | procedure Start_Element 12 | (Handler : in out Reader; 13 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 14 | Local_Name : Unicode.CES.Byte_Sequence := ""; 15 | Qname : Unicode.CES.Byte_Sequence := ""; 16 | Atts : Sax.Attributes.Attributes'Class) 17 | is 18 | begin 19 | Handler.Current_Pref := Null_Unbounded_String; 20 | Handler.Current_Value := Null_Unbounded_String; 21 | 22 | if Local_Name = "pref" then 23 | Handler.Current_Pref := 24 | To_Unbounded_String (Get_Value (Atts, "name")); 25 | end if; 26 | end Start_Element; 27 | 28 | procedure Characters 29 | (Handler : in out Reader; 30 | Ch : Unicode.CES.Byte_Sequence) is 31 | begin 32 | if Handler.Current_Pref /= Null_Unbounded_String then 33 | Handler.Current_Value := Handler.Current_Value & Ch; 34 | end if; 35 | end Characters; 36 | 37 | procedure End_Element 38 | (Handler : in out Reader; 39 | Namespace_URI : Unicode.CES.Byte_Sequence := ""; 40 | Local_Name : Unicode.CES.Byte_Sequence := ""; 41 | Qname : Unicode.CES.Byte_Sequence := "") 42 | is 43 | begin 44 | if Local_Name = "pref" then 45 | Put_Line ("Value for """ & To_String (Handler.Current_Pref) 46 | & """ is " & To_String (Handler.Current_Value)); 47 | end if; 48 | end End_Element; 49 | 50 | end SaxExample; 51 | -------------------------------------------------------------------------------- /tests/sax/testsax.adb: -------------------------------------------------------------------------------- 1 | with GNAT.Command_Line; use GNAT.Command_Line; 2 | with Ada.Text_IO; use Ada.Text_IO; 3 | with Debug_Readers; use Debug_Readers; 4 | with Input_Sources.File; use Input_Sources.File; 5 | with Sax.Readers; use Sax.Readers; 6 | 7 | procedure TestSAX is 8 | Read : File_Input; 9 | My_Reader : Debug_Reader; 10 | Name_Start : Natural; 11 | Silent : Boolean := False; 12 | Color : Boolean := True; 13 | 14 | begin 15 | loop 16 | case Getopt ("silent nocolor") is 17 | when 's' => Silent := True; 18 | when 'n' => Color := False; 19 | when others => exit; 20 | end case; 21 | end loop; 22 | 23 | Set_Silent (My_Reader, Silent); 24 | Set_Color (My_Reader, Color); 25 | 26 | declare 27 | S : constant String := Get_Argument; 28 | begin 29 | if S'Length > 0 then 30 | -- Base file name should be used as the public Id 31 | Name_Start := S'Last; 32 | while Name_Start >= S'First and then S (Name_Start) /= '/' loop 33 | Name_Start := Name_Start - 1; 34 | end loop; 35 | Set_Public_Id (Read, S (Name_Start + 1 .. S'Last)); 36 | Open (S, Read); 37 | 38 | else 39 | Put_Line ("First argument should be xml_file_name"); 40 | raise Invalid_Parameter; 41 | end if; 42 | end; 43 | 44 | -- If True, xmlns:* attributes will be reported in Start_Element 45 | Set_Feature (My_Reader, Namespace_Prefixes_Feature, False); 46 | Set_Feature (My_Reader, Validation_Feature, False); 47 | 48 | Parse (My_Reader, Read); 49 | Close (Read); 50 | 51 | exception 52 | when XML_Fatal_Error => 53 | Close (Read); 54 | end TestSAX; 55 | -------------------------------------------------------------------------------- /docs/cross/dom/domexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Input_Sources.Strings; use Input_Sources.Strings; 6 | with Unicode.CES; use Unicode.CES; 7 | with Unicode.CES.Utf8; 8 | 9 | with Sax.Readers; use Sax.Readers; 10 | with DOM.Readers; use DOM.Readers; 11 | with DOM.Core; use DOM.Core; 12 | with DOM.Core.Documents; use DOM.Core.Documents; 13 | with DOM.Core.Nodes; use DOM.Core.Nodes; 14 | with DOM.Core.Attrs; use DOM.Core.Attrs; 15 | with GNAT.IO; use GNAT.IO; 16 | 17 | procedure DomExample is 18 | Input : String_Input; 19 | Reader : Tree_Reader; 20 | Doc : Document; 21 | List : Node_List; 22 | N : Node; 23 | A : Attr; 24 | 25 | XML_Source_String : constant Unicode.CES.Byte_Sequence := 26 | "" 27 | & "" 28 | & "Value1" 29 | & "Value2" 30 | & " "; 31 | begin 32 | Set_Public_Id (Input, "Preferences file"); 33 | Open (XML_Source_String, Unicode.CES.Utf8.Utf8_Encoding, Input); 34 | 35 | Set_Feature (Reader, Validation_Feature, False); 36 | Set_Feature (Reader, Namespace_Feature, False); 37 | 38 | Parse (Reader, Input); 39 | Close (Input); 40 | 41 | Doc := Get_Tree (Reader); 42 | 43 | List := Get_Elements_By_Tag_Name (Doc, "pref"); 44 | 45 | for Index in 1 .. Length (List) loop 46 | N := Item (List, Index - 1); 47 | A := Get_Named_Item (Attributes (N), "name"); 48 | Put_Line ("Value of """ & Value (A) & """ is " 49 | & Node_Value (First_Child (N))); 50 | end loop; 51 | 52 | Free (List); 53 | 54 | Free (Reader); 55 | end DomExample; 56 | -------------------------------------------------------------------------------- /tests/dom/test_chardata.adb: -------------------------------------------------------------------------------- 1 | with DOM.Core; use DOM.Core; 2 | with DOM.Core.Documents; use DOM.Core.Documents; 3 | with DOM.Core.Nodes; use DOM.Core.Nodes; 4 | with Sax.Encodings; use Sax.Encodings; 5 | with Unicode.CES; use Unicode.CES; 6 | with Unicode.CES.Basic_8bit; use Unicode.CES.Basic_8bit; 7 | with DOM.Core.Character_Datas; use DOM.Core.Character_Datas; 8 | 9 | with Ada.Text_IO; use Ada.Text_IO; 10 | 11 | procedure Test_Chardata is 12 | 13 | function "-" (Str : String) return Byte_Sequence; 14 | procedure Expect (Got, Expected : DOM_String); 15 | 16 | --------- 17 | -- Str -- 18 | --------- 19 | 20 | function "-" (Str : String) return Byte_Sequence is 21 | begin 22 | return Sax.Encodings.From_Utf32 (Unicode.CES.Basic_8bit.To_Utf32 (Str)); 23 | end "-"; 24 | 25 | ------------ 26 | -- Expect -- 27 | ------------ 28 | 29 | procedure Expect (Got, Expected : DOM_String) is 30 | begin 31 | if Got /= Expected then 32 | Put_Line ("Expected: --" & Expected & "--"); 33 | Put_Line ("Got : --" & Got & "--"); 34 | end if; 35 | end Expect; 36 | 37 | Implementation : DOM_Implementation; 38 | Doc : Node; 39 | Elem : Node; 40 | begin 41 | Doc := Create_Document (Implementation); 42 | Elem := Append_Child (Doc, Create_Element (Doc, -"elem")); 43 | Elem := Append_Child (Elem, Create_Text_Node (Doc, -"Dummy text")); 44 | 45 | Append_Data (Elem, -"appended"); 46 | Expect (Data (Elem), -"Dummy textappended"); 47 | 48 | Delete_Data (Elem, 3, 3); 49 | Expect (Data (Elem), -"Dumtextappended"); 50 | 51 | Replace_Data (Elem, 3, 3, -"replaced"); 52 | Expect (Data (Elem), -"Dumreplacedtappended"); 53 | Free (Doc); 54 | end Test_Chardata; 55 | -------------------------------------------------------------------------------- /TODO: -------------------------------------------------------------------------------- 1 | 2 | 3 | Put the contents of the README into the documentation. 4 | First, we need to distribute a pre-compiled documentation 5 | 6 | xml module: 7 | ============ 8 | 9 | * DOM requires Utf16-encoding for strings. 10 | Can we make all the packages generic, so that the user can decide whether 11 | to use Utf16 or Utf8 ? 12 | 13 | * Unicode: Add conversion to Wide_Char and Wide_String 14 | 15 | * Support for xml:* attributes (space, ...) 16 | Note that xml:space means that we must use the Ignorable_Whitespace callback 17 | in SAX. 18 | 19 | * Should Encoding_Scheme include support for From_Utf32 and To_Utf32 20 | 21 | * Unicode: http://www.unicode.org/unicode/standard/versions/Unicode3.0.html 22 | 23 | * DOM: Finish implementation for the few remaining cases 24 | 25 | * SAX: Should have a feature to specify whether entity refs in attribute 26 | values should be expanded or not 27 | 28 | * Parser: Checking of self-contained entities could be cleaner (ie done at 29 | a more general level). For instance, directly at the end of Next_Token, 30 | but we must exclude Text from the tests. 31 | 32 | * Can we implement the lexical parser as a state machine (Next_Char called 33 | at a single place). This might make it shorter (but probably not more 34 | efficient) 35 | 36 | Release 0.7 37 | =========== 38 | * Parse_Element_Model_From_Entity should use Next_Token (for entitites) 39 | * File_Input shouldn't store the whole file in memory (have a buffer of 64k 40 | instead). 41 | * No need to return Id in Next_Token, should be stored directly in 42 | Parser.Id. This would be more efficient. This allows for a simplification 43 | in Parse_Element_Model. 44 | * For efficiency, Sax.Attributes should be an array 45 | * We must normalize PublicID (see 4.2.2) 46 | * Group all DTD-related field into a separate record (Entities, Default_Atts) 47 | -------------------------------------------------------------------------------- /tests/dom/test_node.adb: -------------------------------------------------------------------------------- 1 | with DOM.Core; use DOM.Core; 2 | with DOM.Core.Documents; use DOM.Core.Documents; 3 | with DOM.Core.Nodes; use DOM.Core.Nodes; 4 | with Sax.Encodings; use Sax.Encodings; 5 | with Unicode.CES; use Unicode.CES; 6 | with Unicode.CES.Basic_8bit; use Unicode.CES.Basic_8bit; 7 | -- with DOM.Core.Character_Datas; use DOM.Core.Character_Datas; 8 | with DOM.Core.Texts; use DOM.Core.Texts; 9 | 10 | with Ada.Text_IO; use Ada.Text_IO; 11 | 12 | procedure Test_Node is 13 | 14 | function "-" (Str : String) return Byte_Sequence; 15 | --------- 16 | -- Str -- 17 | --------- 18 | 19 | function "-" (Str : String) return Byte_Sequence is 20 | begin 21 | return Sax.Encodings.From_Utf32 (Unicode.CES.Basic_8bit.To_Utf32 (Str)); 22 | end "-"; 23 | 24 | Implementation : DOM_Implementation; 25 | Doc : Document; 26 | Elem1, Elem2, Elem : Node; 27 | begin 28 | Doc := Create_Document (Implementation); 29 | Elem := Append_Child (Doc, Create_Element_NS (Doc, -"", -"foo")); 30 | Elem := Append_Child (Elem, Create_Element (Doc, -"toto")); 31 | Elem1 := Append_Child (Elem, Create_Text_Node (Doc, -"Dummy text")); 32 | Elem2 := Append_Child (Elem, Create_Element (Doc, -"toto")); 33 | Elem2 := Append_Child (Elem2, Create_Text_Node (Doc, -"Dummy text2")); 34 | 35 | Put_Line ("------ Tree ------"); 36 | Print (Doc); 37 | New_Line; 38 | 39 | Put_Line ("------ Find toto -----"); 40 | Print (Get_Elements_By_Tag_Name (Doc, -"toto")); 41 | New_Line; 42 | 43 | Put_Line ("------ Split_Text 3 ----"); 44 | Elem2 := Split_Text (Elem2, 3); 45 | Print (Doc); 46 | New_Line; 47 | 48 | Put_Line ("------ Normalize -----"); 49 | Normalize (Doc); 50 | Print (Doc); 51 | New_Line; 52 | 53 | Free (Doc); 54 | end Test_Node; 55 | -------------------------------------------------------------------------------- /dom/dom-core-cdata_sections.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package DOM.Core.Cdata_Sections is 25 | end DOM.Core.Cdata_Sections; 26 | -------------------------------------------------------------------------------- /dom/dom-core-entity_references.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package DOM.Core.Entity_References is 25 | end DOM.Core.Entity_References; 26 | -------------------------------------------------------------------------------- /dom/dom-core-processing_instructions.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package DOM.Core.Processing_Instructions is 25 | 26 | end DOM.Core.Processing_Instructions; 27 | -------------------------------------------------------------------------------- /dom/dom-core-document_fragments.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- Minimal document object. This is not necessarily a well formed document, 25 | -- in that it can have several children. 26 | 27 | package DOM.Core.Document_Fragments is 28 | 29 | end DOM.Core.Document_Fragments; 30 | -------------------------------------------------------------------------------- /unicode/unicode-ccs.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package body Unicode.CCS is 25 | 26 | -------------- 27 | -- Identity -- 28 | -------------- 29 | 30 | function Identity (Char : Unicode_Char) return Unicode_Char is 31 | begin 32 | return Char; 33 | end Identity; 34 | 35 | end Unicode.CCS; 36 | -------------------------------------------------------------------------------- /dom/dom-core-texts.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package DOM.Core.Texts is 25 | 26 | -- See the functions in DOM.Core.Character_Datas in addition 27 | 28 | function Split_Text (Te : Text; Offset : Natural) return Text; 29 | -- Break this node into two nodes at offset, keeping both in the tree 30 | -- as siblings. 31 | -- Index_Size_Err raised if Offset is invalid. 32 | 33 | end DOM.Core.Texts; 34 | -------------------------------------------------------------------------------- /sax/sax.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- Root package for the Sax hierarchy. 25 | -- 26 | -- This hierarchy provides a set of tagged types that can be inherited from 27 | -- so as to implement your own callback functions for parsing a XML document. 28 | -- 29 | -- The interfaces in this package are as close as possible from the ones 30 | -- defined in SAX2 (minus the obsolete ones, which have been omitted). 31 | -- See http://www.megginson.com/SAX/ for more information 32 | 33 | package Sax is 34 | 35 | end Sax; 36 | -------------------------------------------------------------------------------- /dom/dom-core-document_types.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package DOM.Core.Document_Types is 25 | function Create_Document_Type 26 | (Implementation : DOM_Implementation; 27 | Qualified_Name : DOM_String; 28 | Public_Id : DOM_String; 29 | System_Id : DOM_String; 30 | Internal_Subset : DOM_String) return Document_Type; 31 | -- Return an empty DTD, that can be associated later with a document. 32 | -- Internal_Subset should be valid. 33 | 34 | -- ??? Not implemented yet 35 | end DOM.Core.Document_Types; 36 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-windows_1252.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2005-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the Windows 1252 encoding 25 | 26 | package Unicode.CCS.Windows_1252 is 27 | 28 | Name1 : aliased constant String := "Windows-1252"; 29 | 30 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 31 | function To_Windows_1252 (Char : Unicode_Char) return Unicode_Char; 32 | 33 | Windows_1252_Character_Set : constant Character_Set := 34 | (To_Unicode => To_Unicode'Access, 35 | To_CS => To_Windows_1252'Access); 36 | end Unicode.CCS.Windows_1252; 37 | -------------------------------------------------------------------------------- /dom/dom-core-notations.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package DOM.Core.Notations is 25 | 26 | -- Represents a tag in a DTD declaration. 27 | -- See 4.7 in XML specifications 28 | 29 | function Public_Id (N : Notation) return DOM_String; 30 | -- The public identifier for this notation. 31 | -- "" is returned if there was no such specification. 32 | 33 | function System_Id (N : Notation) return DOM_String; 34 | -- The system identifier for this notation 35 | -- "" is returned if there was no such specification. 36 | 37 | end DOM.Core.Notations; 38 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-windows_1251.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2008-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the Windows 1251 encoding 25 | 26 | package Unicode.CCS.Windows_1251 is 27 | 28 | Name1 : aliased constant String := "Windows-1251"; 29 | 30 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 31 | function To_Windows_1251 (Char : Unicode_Char) return Unicode_Char; 32 | 33 | Windows_1251_Character_Set : constant Character_Set := 34 | (To_Unicode => To_Unicode'Access, 35 | To_CS => To_Windows_1251'Access); 36 | 37 | end Unicode.CCS.Windows_1251; 38 | -------------------------------------------------------------------------------- /unicode/importer/translators-block.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2016, Nicolas Boulenguez -- 5 | -- Copyright (C) 2016-2022, AdaCore -- 6 | -- -- 7 | -- This library is free software; you can redistribute it and/or modify it -- 8 | -- under terms of the GNU General Public License as published by the Free -- 9 | -- Software Foundation; either version 3, or (at your option) any later -- 10 | -- version. This library is distributed in the hope that it will be useful, -- 11 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 12 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 13 | -- -- 14 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 15 | -- additional permissions described in the GCC Runtime Library Exception, -- 16 | -- version 3.1, as published by the Free Software Foundation. -- 17 | -- -- 18 | -- You should have received a copy of the GNU General Public License and -- 19 | -- a copy of the GCC Runtime Library Exception along with this program; -- 20 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 21 | -- . -- 22 | -- -- 23 | ------------------------------------------------------------------------------ 24 | 25 | package Translators.Block is 26 | 27 | type A_Block_Translator is new A_Translator with private; 28 | 29 | private 30 | 31 | type A_Block_Translator is new A_Translator with null record; 32 | overriding procedure Set_Exceptions 33 | (Translator : in out A_Block_Translator); 34 | overriding function Default_Translation 35 | (Translator : A_Block_Translator; 36 | Original : String) return String; 37 | 38 | end Translators.Block; 39 | -------------------------------------------------------------------------------- /unicode/importer/translators-alias.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2016, Nicolas Boulenguez -- 5 | -- Copyright (C) 2016-2022, AdaCore -- 6 | -- -- 7 | -- This library is free software; you can redistribute it and/or modify it -- 8 | -- under terms of the GNU General Public License as published by the Free -- 9 | -- Software Foundation; either version 3, or (at your option) any later -- 10 | -- version. This library is distributed in the hope that it will be useful, -- 11 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 12 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 13 | -- -- 14 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 15 | -- additional permissions described in the GCC Runtime Library Exception, -- 16 | -- version 3.1, as published by the Free Software Foundation. -- 17 | -- -- 18 | -- You should have received a copy of the GNU General Public License and -- 19 | -- a copy of the GCC Runtime Library Exception along with this program; -- 20 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 21 | -- . -- 22 | -- -- 23 | ------------------------------------------------------------------------------ 24 | 25 | package Translators.Alias is 26 | 27 | type An_Alias_Translator is new A_Translator with private; 28 | 29 | private 30 | 31 | type An_Alias_Translator is new A_Translator with null record; 32 | 33 | overriding procedure Set_Exceptions 34 | (Translator : in out An_Alias_Translator); 35 | overriding function Default_Translation 36 | (Translator : An_Alias_Translator; 37 | Original : String) return String; 38 | 39 | end Translators.Alias; 40 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-iso_8859_3.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the ISO/8859-3 encoding. 25 | -- This character set is used for Esperanto, Galician, Maltese and Turkish. 26 | 27 | package Unicode.CCS.Iso_8859_3 is 28 | 29 | Name1 : aliased constant String := "ISO-8859-3"; 30 | 31 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 32 | function To_Iso_8859_3 (Char : Unicode_Char) return Unicode_Char; 33 | 34 | Iso_8859_3_Character_Set : constant Character_Set := 35 | (To_Unicode => To_Unicode'Access, 36 | To_CS => To_Iso_8859_3'Access); 37 | end Unicode.CCS.Iso_8859_3; 38 | -------------------------------------------------------------------------------- /docs/cross/schema/schemaexample.adb: -------------------------------------------------------------------------------- 1 | -- 2 | -- Copyright (C) 2017, AdaCore 3 | -- 4 | 5 | with Input_Sources.Strings; use Input_Sources.Strings; 6 | with Unicode.CES; use Unicode.CES; 7 | with Unicode.CES.Utf8; 8 | 9 | with GNAT.IO; use GNAT.IO; 10 | with Sax.Readers; use Sax.Readers; 11 | with Schema.Readers; use Schema.Readers; 12 | with Schema.Schema_Readers; use Schema.Schema_Readers; 13 | with Schema.Validators; use Schema.Validators; 14 | 15 | procedure SchemaExample is 16 | Input, Schema_Input : String_Input; 17 | My_Reader : Validating_Reader; 18 | 19 | Grammar : XML_Grammar; 20 | Schema_From_String : Schema_Reader; 21 | 22 | XML_Source_String : constant Unicode.CES.Byte_Sequence := 23 | "" 24 | & "" 25 | & "Value1" 26 | & "Value2" 27 | & " "; 28 | 29 | XSD_Source_String : constant Unicode.CES.Byte_Sequence := 30 | "" 31 | & "" 32 | & " " 33 | & " " 34 | & " " 35 | & " " 37 | & " " 38 | & " " 39 | & " " 40 | & " " 41 | & " " 42 | & " " 44 | & " " 45 | & " " 46 | & ""; 47 | begin 48 | Open (XSD_Source_String, Unicode.CES.Utf8.Utf8_Encoding, Schema_Input); 49 | Parse (Schema_From_String, Schema_Input); 50 | Close (Schema_Input); 51 | 52 | Grammar := Get_Grammar (Schema_From_String); 53 | 54 | Set_Public_Id (Input, "Preferences file"); 55 | Open (XML_Source_String, Unicode.CES.Utf8.Utf8_Encoding, Input); 56 | 57 | Set_Feature (My_Reader, Schema_Validation_Feature, True); 58 | My_Reader.Set_Grammar (Grammar); 59 | 60 | Parse (My_Reader, Input); 61 | 62 | Close (Input); 63 | 64 | Put_Line ("OK"); 65 | 66 | exception 67 | when Schema.Validators.XML_Validation_Error => 68 | Put_Line ("ERROR: " & Get_Error_Message (My_Reader)); 69 | end SchemaExample; 70 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-iso_8859_15.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2004-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the ISO/8859-15 (aka Latin-15) 25 | -- encoding. 26 | -- This is a superset of ISO/8859-1, but also includes the Euro symbol 27 | 28 | package Unicode.CCS.Iso_8859_15 is 29 | 30 | Name1 : aliased constant String := "ISO-8859-15"; 31 | 32 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 33 | function To_Iso_8859_15 (Char : Unicode_Char) return Unicode_Char; 34 | 35 | Iso_8859_15_Character_Set : constant Character_Set := 36 | (To_Unicode => To_Unicode'Access, 37 | To_CS => To_Iso_8859_15'Access); 38 | 39 | end Unicode.CCS.Iso_8859_15; 40 | -------------------------------------------------------------------------------- /unicode/xmlada_unicode.gpr: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2014, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with "../xmlada_shared.gpr"; 25 | 26 | project XmlAda_Unicode is 27 | 28 | for Library_Name use "xmlada_unicode"; 29 | for Library_Kind use XmlAda_Shared.Library_Type; 30 | for Object_Dir use "obj/" & Project'Library_Kind; 31 | for Library_Dir use "lib/" & Project'Library_Kind; 32 | for Library_Version use "lib" & Project'Library_Name 33 | & XmlAda_Shared.So_Ext & "." & XmlAda_Shared.Version; 34 | 35 | package Builder renames XmlAda_Shared.Builder; 36 | package Compiler renames XmlAda_Shared.Compiler; 37 | package Binder renames XmlAda_Shared.Binder; 38 | package Ide renames XmlAda_Shared.Ide; 39 | 40 | end XmlAda_Unicode; 41 | -------------------------------------------------------------------------------- /dom/dom-core-document_types.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package body DOM.Core.Document_Types is 25 | 26 | function Create_Document_Type 27 | (Implementation : DOM_Implementation; 28 | Qualified_Name : DOM_String; 29 | Public_Id : DOM_String; 30 | System_Id : DOM_String; 31 | Internal_Subset : DOM_String) return Document_Type 32 | is 33 | pragma Warnings (Off, Implementation); 34 | pragma Warnings (Off, Qualified_Name); 35 | pragma Warnings (Off, Public_Id); 36 | pragma Warnings (Off, System_Id); 37 | pragma Warnings (Off, Internal_Subset); 38 | begin 39 | return null; 40 | end Create_Document_Type; 41 | end DOM.Core.Document_Types; 42 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-iso_8859_4.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the ISO/8859-4 encoding. 25 | -- Some letters were added to the ISO-8859-4 to support languages such as 26 | -- Estonian, Latvian and Lithuanian. It is an incomplete precursor of the 27 | -- Latin 6 set. 28 | 29 | package Unicode.CCS.Iso_8859_4 is 30 | 31 | Name1 : aliased constant String := "ISO-8859-4"; 32 | 33 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 34 | function To_Iso_8859_4 (Char : Unicode_Char) return Unicode_Char; 35 | 36 | Iso_8859_4_Character_Set : constant Character_Set := 37 | (To_Unicode => To_Unicode'Access, 38 | To_CS => To_Iso_8859_4'Access); 39 | end Unicode.CCS.Iso_8859_4; 40 | -------------------------------------------------------------------------------- /dom/dom.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This is the root hierarchy of the DOM packages. 25 | -- DOM is a standard API to interface to XML trees. It is divided into 26 | -- several main parts (Core, Events, ...). 27 | -- Note that to be fully compliant, strings must be UTF-16 encoded. However, 28 | -- you still have the choice in this implementation, so that you can use 29 | -- UTF-8 encoding for documents that only have ASCII characters (and thus save 30 | -- some space in memory). 31 | -- This encoding is in the file xml/encodings.ads 32 | -- 33 | -- The comments in these packages are not meant as a tutorial, or even a 34 | -- reference documentation for DOM. Please see the official XML 35 | -- documentation. 36 | 37 | package DOM is 38 | 39 | end DOM; 40 | -------------------------------------------------------------------------------- /tests/base64/test_base64.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2021, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with Ada.Text_IO; use Ada.Text_IO; 25 | with Sax.Utils; use Sax.Utils; 26 | 27 | procedure Test_Base64 is 28 | 29 | procedure Check (Value : String); 30 | 31 | procedure Check (Value : String) is 32 | begin 33 | if Is_Valid_Base64Binary (Value) then 34 | Put ("RIGHT: "); 35 | else 36 | Put ("WRONG: "); 37 | end if; 38 | 39 | Put_Line ('"' & Value & '"'); 40 | end Check; 41 | 42 | begin 43 | Check ("MzMzZGQK"); 44 | Check ("MQo="); 45 | Check ("MTIK"); 46 | Check ("MTIzCg=="); 47 | Check (""); 48 | Check ("VVVV"); 49 | Check ("VAV="); -- Wrong, was incorrectly OK before S823-015 fix. 50 | Check ("VV=="); -- Wrong 51 | end Test_Base64; 52 | -------------------------------------------------------------------------------- /dom/xmlada_dom.gpr: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2014, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with "../xmlada_shared.gpr"; 25 | with "../sax/xmlada_sax.gpr"; 26 | with "../unicode/xmlada_unicode.gpr"; 27 | 28 | project XmlAda_Dom is 29 | 30 | for Library_Name use "xmlada_dom"; 31 | for Library_Kind use XmlAda_Shared.Library_Type; 32 | for Object_Dir use "obj/" & Project'Library_Kind; 33 | for Library_Dir use "lib/" & Project'Library_Kind; 34 | for Library_Version use "lib" & Project'Library_Name 35 | & XmlAda_Shared.So_Ext & "." & XmlAda_Shared.Version; 36 | 37 | package Builder renames XmlAda_Shared.Builder; 38 | package Compiler renames XmlAda_Shared.Compiler; 39 | package Binder renames XmlAda_Shared.Binder; 40 | package Ide renames XmlAda_Shared.Ide; 41 | 42 | end XmlAda_Dom; 43 | -------------------------------------------------------------------------------- /sax/xmlada_sax.gpr: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2014, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with "../xmlada_shared.gpr"; 25 | with "../unicode/xmlada_unicode.gpr"; 26 | with "../input_sources/xmlada_input.gpr"; 27 | 28 | project XmlAda_Sax is 29 | 30 | for Library_Name use "xmlada_sax"; 31 | for Library_Kind use XmlAda_Shared.Library_Type; 32 | for Object_Dir use "obj/" & Project'Library_Kind; 33 | for Library_Dir use "lib/" & Project'Library_Kind; 34 | for Library_Version use "lib" & Project'Library_Name 35 | & XmlAda_Shared.So_Ext & "." & XmlAda_Shared.Version; 36 | 37 | package Builder renames XmlAda_Shared.Builder; 38 | package Compiler renames XmlAda_Shared.Compiler; 39 | package Binder renames XmlAda_Shared.Binder; 40 | package Ide renames XmlAda_Shared.Ide; 41 | 42 | end XmlAda_Sax; 43 | -------------------------------------------------------------------------------- /dom/dom-core-notations.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with Unicode.CES; use Unicode.CES; 25 | 26 | package body DOM.Core.Notations is 27 | 28 | --------------- 29 | -- Public_Id -- 30 | --------------- 31 | 32 | function Public_Id (N : Notation) return DOM_String is 33 | begin 34 | if N.Public_ID = null then 35 | return ""; 36 | else 37 | return N.Public_ID.all; 38 | end if; 39 | end Public_Id; 40 | 41 | --------------- 42 | -- System_Id -- 43 | --------------- 44 | 45 | function System_Id (N : Notation) return DOM_String is 46 | begin 47 | if N.System_ID = null then 48 | return ""; 49 | else 50 | return N.System_ID.all; 51 | end if; 52 | end System_Id; 53 | end DOM.Core.Notations; 54 | -------------------------------------------------------------------------------- /tests/dom/testxml_support.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2021, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with GNAT.OS_Lib; use GNAT.OS_Lib; 25 | with Sax.Exceptions; use Sax.Exceptions; 26 | 27 | package body Testxml_Support is 28 | 29 | ----------- 30 | -- Error -- 31 | ----------- 32 | 33 | procedure Error 34 | (Handler : in out My_Tree_Reader; 35 | Except : Sax.Exceptions.Sax_Parse_Exception'Class) 36 | is 37 | Tmp : String_Access := Handler.Error_Msg; 38 | begin 39 | if Tmp = null then 40 | Handler.Error_Msg := new String'(Get_Message (Except)); 41 | else 42 | Handler.Error_Msg := new String' 43 | (Tmp.all & ASCII.LF & Get_Message (Except)); 44 | Free (Tmp); 45 | end if; 46 | Handler.Had_Error := True; 47 | end Error; 48 | 49 | end Testxml_Support; 50 | -------------------------------------------------------------------------------- /schema/xmlada_schema.gpr: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2014, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with "../xmlada_shared.gpr"; 25 | with "../sax/xmlada_sax.gpr"; 26 | with "../unicode/xmlada_unicode.gpr"; 27 | with "../dom/xmlada_dom.gpr"; 28 | 29 | project XmlAda_Schema is 30 | 31 | for Library_Name use "xmlada_schema"; 32 | for Library_Kind use XmlAda_Shared.Library_Type; 33 | for Object_Dir use "obj/" & Project'Library_Kind; 34 | for Library_Dir use "lib/" & Project'Library_Kind; 35 | for Library_Version use "lib" & Project'Library_Name 36 | & XmlAda_Shared.So_Ext & "." & XmlAda_Shared.Version; 37 | 38 | package Builder renames XmlAda_Shared.Builder; 39 | package Compiler renames XmlAda_Shared.Compiler; 40 | package Binder renames XmlAda_Shared.Binder; 41 | package Ide renames XmlAda_Shared.Ide; 42 | 43 | end XmlAda_Schema; 44 | -------------------------------------------------------------------------------- /schema/schema-validators-xsd_grammar.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2004-2021, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This file contains a function that manually creates a schema-for-schema 25 | -- grammar, ie a grammar that is used to validate a schema file. 26 | -- 27 | -- This is intended both as an example on how to manually write grammars, 28 | -- and as a way to check schema.xsd. 29 | 30 | private package Schema.Validators.XSD_Grammar is 31 | 32 | procedure Add_Schema_For_Schema 33 | (R : in out Schema.Validators.Abstract_Validation_Reader'Class); 34 | -- Adds the definition for the standard XML namespaces (schemas,...) to 35 | -- Grammar. The resulting grammar can thus be used, among other things, to 36 | -- validate schema files. This doesn't add the predefined types, which 37 | -- must be added separately. 38 | 39 | end Schema.Validators.XSD_Grammar; 40 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-iso_8859_1.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with Ada.Exceptions; use Ada.Exceptions; 25 | 26 | package body Unicode.CCS.Iso_8859_1 is 27 | 28 | ---------------- 29 | -- To_Unicode -- 30 | ---------------- 31 | 32 | function To_Unicode (Char : Unicode_Char) return Unicode_Char is 33 | begin 34 | if Char > 16#00FF# then 35 | Raise_Exception 36 | (Invalid_Code'Identity, 37 | "code " & Unicode_Char'Image (Char) 38 | & " is not available in Iso/8859-1"); 39 | else 40 | return Char; 41 | end if; 42 | end To_Unicode; 43 | 44 | ------------------- 45 | -- To_Iso_8859_1 -- 46 | ------------------- 47 | 48 | function To_Iso_8859_1 (Char : Unicode_Char) return Unicode_Char 49 | renames To_Unicode; 50 | 51 | end Unicode.CCS.Iso_8859_1; 52 | -------------------------------------------------------------------------------- /unicode/importer/license.txt: -------------------------------------------------------------------------------- 1 | -- 2 | -- UNICODE, INC. LICENSE AGREEMENT - DATA FILES AND SOFTWARE 3 | -- See Terms of Use for definitions of Unicode Inc.'s 4 | -- Data Files and Software. 5 | -- 6 | -- NOTICE TO USER: Carefully read the following legal agreement. 7 | -- BY DOWNLOADING, INSTALLING, COPYING OR OTHERWISE USING UNICODE INC.'S 8 | -- DATA FILES ("DATA FILES"), AND/OR SOFTWARE ("SOFTWARE"), 9 | -- YOU UNEQUIVOCALLY ACCEPT, AND AGREE TO BE BOUND BY, ALL OF THE 10 | -- TERMS AND CONDITIONS OF THIS AGREEMENT. 11 | -- IF YOU DO NOT AGREE, DO NOT DOWNLOAD, INSTALL, COPY, DISTRIBUTE OR USE 12 | -- THE DATA FILES OR SOFTWARE. 13 | -- 14 | -- COPYRIGHT AND PERMISSION NOTICE 15 | -- 16 | -- Copyright © 1991-2021 Unicode, Inc. All rights reserved. 17 | -- Distributed under the Terms of Use 18 | -- in https://www.unicode.org/copyright.html. 19 | -- 20 | -- Permission is hereby granted, free of charge, to any person obtaining 21 | -- a copy of the Unicode data files and any associated documentation 22 | -- (the "Data Files") or Unicode software and any associated documentation 23 | -- (the "Software") to deal in the Data Files or Software 24 | -- without restriction, including without limitation the rights to use, 25 | -- copy, modify, merge, publish, distribute, and/or sell copies of 26 | -- the Data Files or Software, and to permit persons to whom the Data Files 27 | -- or Software are furnished to do so, provided that either 28 | -- (a) this copyright and permission notice appear with all copies 29 | -- of the Data Files or Software, or 30 | -- (b) this copyright and permission notice appear in associated 31 | -- Documentation. 32 | -- 33 | -- THE DATA FILES AND SOFTWARE ARE PROVIDED "AS IS", WITHOUT WARRANTY OF 34 | -- ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE 35 | -- WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 36 | -- NONINFRINGEMENT OF THIRD PARTY RIGHTS. 37 | -- IN NO EVENT SHALL THE COPYRIGHT HOLDER OR HOLDERS INCLUDED IN THIS 38 | -- NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL INDIRECT OR CONSEQUENTIAL 39 | -- DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, 40 | -- DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 41 | -- TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR 42 | -- PERFORMANCE OF THE DATA FILES OR SOFTWARE. 43 | -- 44 | -- Except as contained in this notice, the name of a copyright holder 45 | -- shall not be used in advertising or otherwise to promote the sale, 46 | -- use or other dealings in these Data Files or Software without prior 47 | -- written authorization of the copyright holder. 48 | -------------------------------------------------------------------------------- /tests/dom/tostring.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This example shows how an XML tree can be converted to a string 25 | -- in memory, without going through a temporary file on the disk 26 | 27 | with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; 28 | with Ada.Text_IO; use Ada.Text_IO; 29 | with DOM.Core.Nodes; use DOM.Core.Nodes; 30 | with DOM.Readers; use DOM.Readers; 31 | with Input_Sources.File; use Input_Sources.File; 32 | with String_Stream; use String_Stream; 33 | 34 | procedure ToString is 35 | Input : File_Input; 36 | Reader : Tree_Reader; 37 | Output : aliased String_Stream_Type; 38 | begin 39 | Open ("test.xml", Input); 40 | Parse (Reader, Input); 41 | Close (Input); 42 | 43 | Open (Output, ""); 44 | Write (Output'Access, Get_Tree (Reader)); 45 | Put_Line (To_String (Output.Str)); 46 | end ToString; 47 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-iso_8859_2.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the ISO/8859-2 (aka Latin-2) 25 | -- encoding. 26 | -- The Latin 2 character set supports the Slavic languages of Central Europe 27 | -- which use the Latin alphabet. The ISO-8859-2 set is used for the following 28 | -- languages: Czech, Croat, German, Hungarian, Polish, Romanian, Slovak and 29 | -- Slovenian. 30 | 31 | package Unicode.CCS.Iso_8859_2 is 32 | 33 | Name1 : aliased constant String := "ISO-8859-2"; 34 | Name2 : aliased constant String := "Latin2"; 35 | 36 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 37 | function To_Iso_8859_2 (Char : Unicode_Char) return Unicode_Char; 38 | 39 | Iso_8859_2_Character_Set : constant Character_Set := 40 | (To_Unicode => To_Unicode'Access, 41 | To_CS => To_Iso_8859_2'Access); 42 | end Unicode.CCS.Iso_8859_2; 43 | -------------------------------------------------------------------------------- /unicode/unicode-ccs-iso_8859_1.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides support for the ISO/8859-1 (aka Latin-1) 25 | -- encoding. 26 | -- The ISO-8859-1 character set, often simply referred to as Latin 1, can 27 | -- represent most Western European languages including: Albanian, Catalan, 28 | -- Danish, Dutch, English, Faroese, Finnish, French, Galician, German, Irish, 29 | -- Icelandic, Italian, Norwegian, Portuguese, Spanish and Swedish. 30 | 31 | package Unicode.CCS.Iso_8859_1 is 32 | 33 | Name1 : aliased constant String := "ISO-8859-1"; 34 | Name2 : aliased constant String := "Latin1"; 35 | 36 | function To_Unicode (Char : Unicode_Char) return Unicode_Char; 37 | function To_Iso_8859_1 (Char : Unicode_Char) return Unicode_Char; 38 | 39 | Iso_8859_1_Character_Set : constant Character_Set := 40 | (To_Unicode => To_Unicode'Access, 41 | To_CS => To_Iso_8859_1'Access); 42 | end Unicode.CCS.Iso_8859_1; 43 | -------------------------------------------------------------------------------- /dom/dom-core-texts.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with Sax.Encodings; use Sax.Encodings; 25 | with Unicode.CES; use Unicode.CES; 26 | with DOM.Core.Documents; use DOM.Core.Documents; 27 | with DOM.Core.Nodes; use DOM.Core.Nodes; 28 | 29 | package body DOM.Core.Texts is 30 | 31 | ---------------- 32 | -- Split_Text -- 33 | ---------------- 34 | 35 | function Split_Text (Te : Text; Offset : Natural) return Text is 36 | Index : constant Integer := Index_From_Offset 37 | (Te.Text.all, Offset, Encoding); 38 | N : Node; 39 | begin 40 | if Index < 0 then 41 | raise Index_Size_Err; 42 | end if; 43 | 44 | N := Insert_Before 45 | (Parent_Node (Te), 46 | Create_Text_Node 47 | (Owner_Document (Te), Te.Text.all (Index .. Te.Text'Last)), 48 | Next_Sibling (Te)); 49 | Set_Node_Value (Te, Te.Text (Te.Text'First .. Index - 1)); 50 | return N; 51 | end Split_Text; 52 | 53 | end DOM.Core.Texts; 54 | -------------------------------------------------------------------------------- /tests/dom/string_stream.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2007-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | -- This package provides an example of an Ada stream that reads or 25 | -- writes to an in-memory string. This can be used when printing a 26 | -- DOM tree for instance (see tostring.adb) 27 | 28 | with Ada.Streams; use Ada.Streams; 29 | with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; 30 | 31 | package String_Stream is 32 | 33 | type String_Stream_Type is new Root_Stream_Type with record 34 | Str : Unbounded_String; 35 | Read_Index : Natural := 1; 36 | end record; 37 | procedure Read 38 | (Stream : in out String_Stream_Type; 39 | Item : out Stream_Element_Array; 40 | Last : out Stream_Element_Offset); 41 | procedure Write 42 | (Stream : in out String_Stream_Type; 43 | Item : Stream_Element_Array); 44 | procedure Open 45 | (Stream : in out String_Stream_Type'Class; 46 | Str : String); 47 | -- Declare a new stream type to write strings in memory 48 | 49 | end String_Stream; 50 | -------------------------------------------------------------------------------- /xmlada.gpr: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2014, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with "xmlada_shared"; 25 | 26 | aggregate project XmlAda is 27 | 28 | type Build_Tests is ("Yes", "Only", "No"); 29 | 30 | Tests_Status : Build_Tests := external ("TESTS_ACTIVATED", "No"); 31 | 32 | case Tests_Status is 33 | when "Yes" | "No" => 34 | for Project_Files use 35 | ("input_sources/xmlada_input.gpr", 36 | "unicode/xmlada_unicode.gpr", 37 | "sax/xmlada_sax.gpr", 38 | "dom/xmlada_dom.gpr", 39 | "schema/xmlada_schema.gpr"); 40 | when "Only" => 41 | null; 42 | end case; 43 | 44 | case Tests_Status is 45 | when "Yes" | "Only" => 46 | for Project_Files use Project'Project_Files & 47 | ("tests/unicode/unicode_test.gpr", 48 | "tests/sax/sax_test.gpr", 49 | "tests/dom/dom_test.gpr", 50 | "tests/schema/schema_test.gpr", 51 | "tests/base64/base64_test.gpr"); 52 | when "No" => 53 | null; 54 | end case; 55 | 56 | end XmlAda; 57 | -------------------------------------------------------------------------------- /dom/dom-core-attrs.adb: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | package body DOM.Core.Attrs is 25 | 26 | --------------- 27 | -- Specified -- 28 | --------------- 29 | 30 | function Specified (Att : Attr) return Boolean is 31 | begin 32 | return Att.Specified; 33 | end Specified; 34 | 35 | ------------------- 36 | -- Owner_Element -- 37 | ------------------- 38 | 39 | function Owner_Element (Att : Attr) return Element is 40 | begin 41 | if Att.Owner_Element.Node_Type = Element_Node then 42 | return Att.Owner_Element; 43 | else 44 | return null; 45 | end if; 46 | end Owner_Element; 47 | 48 | ----------- 49 | -- Is_Id -- 50 | ----------- 51 | 52 | function Is_Id (Att : Attr) return Boolean is 53 | begin 54 | return Att.Is_Id; 55 | end Is_Id; 56 | 57 | --------------- 58 | -- Set_Value -- 59 | --------------- 60 | 61 | procedure Set_Value (Att : Attr; Value : Sax.Symbols.Symbol) is 62 | begin 63 | Att.Attr_Value := Value; 64 | Att.Specified := True; 65 | end Set_Value; 66 | 67 | end DOM.Core.Attrs; 68 | -------------------------------------------------------------------------------- /dom/dom-core-attrs.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2001-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with DOM.Core.Nodes; use DOM.Core.Nodes; 25 | 26 | package DOM.Core.Attrs is 27 | function Name (Att : Attr) return DOM_String 28 | renames DOM.Core.Nodes.Node_Name; 29 | -- Return the name of the node 30 | 31 | function Specified (Att : Attr) return Boolean; 32 | -- Return True if the attribute was set explicitly in the XML file, 33 | -- or False if this is the default value for the node 34 | 35 | function Value (Att : Attr) return DOM_String 36 | renames DOM.Core.Nodes.Node_Value; 37 | -- Return the value of the attribute 38 | 39 | procedure Set_Value (Att : Attr; Value : DOM_String) 40 | renames DOM.Core.Nodes.Set_Node_Value; 41 | procedure Set_Value (Att : Attr; Value : Sax.Symbols.Symbol); 42 | -- Set the value of the attribute 43 | 44 | function Owner_Element (Att : Attr) return Element; 45 | -- return the node to which Att belongs 46 | 47 | function Is_Id (Att : Attr) return Boolean; 48 | -- Returns whether this attribute is known to be of type ID (i.e. to 49 | -- contain an identifier for its owner element) 50 | -- 51 | -- Introduced in DOM 3.0 52 | 53 | end DOM.Core.Attrs; 54 | -------------------------------------------------------------------------------- /unicode/unicode-encodings.ads: -------------------------------------------------------------------------------- 1 | ------------------------------------------------------------------------------ 2 | -- XML/Ada - An XML suite for Ada95 -- 3 | -- -- 4 | -- Copyright (C) 2004-2017, AdaCore -- 5 | -- -- 6 | -- This library is free software; you can redistribute it and/or modify it -- 7 | -- under terms of the GNU General Public License as published by the Free -- 8 | -- Software Foundation; either version 3, or (at your option) any later -- 9 | -- version. This library is distributed in the hope that it will be useful, -- 10 | -- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 11 | -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- 12 | -- -- 13 | -- As a special exception under Section 7 of GPL version 3, you are granted -- 14 | -- additional permissions described in the GCC Runtime Library Exception, -- 15 | -- version 3.1, as published by the Free Software Foundation. -- 16 | -- -- 17 | -- You should have received a copy of the GNU General Public License and -- 18 | -- a copy of the GCC Runtime Library Exception along with this program; -- 19 | -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 20 | -- . -- 21 | -- -- 22 | ------------------------------------------------------------------------------ 23 | 24 | with Unicode.CCS; 25 | with Unicode.CES; 26 | 27 | -- This package groups a character set and an encoding scheme under names 28 | -- assigned by the Internet Assigned Numbers Authority. 29 | -- See http://www.iana.org/assignments/character-sets 30 | -- These names are used in the part of XML 31 | -- documents. 32 | 33 | package Unicode.Encodings is 34 | 35 | type Cst_String_Access is access constant String; 36 | 37 | type Unicode_Encoding is record 38 | Name : Cst_String_Access; 39 | Character_Set : Unicode.CCS.Character_Set; 40 | Encoding_Scheme : Unicode.CES.Encoding_Scheme; 41 | end record; 42 | 43 | function Get_By_Name (Name : String) return Unicode_Encoding; 44 | -- Return the unicode encoding from its name. 45 | -- Name is case insensitive 46 | 47 | function Convert 48 | (Str : Unicode.CES.Byte_Sequence; 49 | From : Unicode_Encoding := Get_By_Name ("iso-8859-15"); 50 | To : Unicode_Encoding := Get_By_Name ("utf-8")) 51 | return Unicode.CES.Byte_Sequence; 52 | -- Convert a string between two encodings. 53 | 54 | end Unicode.Encodings; 55 | --------------------------------------------------------------------------------