1*eeb7e5b3SAdam Hornáček-- 2*eeb7e5b3SAdam Hornáček-- CDDL HEADER START 3*eeb7e5b3SAdam Hornáček-- 4*eeb7e5b3SAdam Hornáček-- The contents of this file are subject to the terms of the 5*eeb7e5b3SAdam Hornáček-- Common Development and Distribution License (the "License"). 6*eeb7e5b3SAdam Hornáček-- You may not use this file except in compliance with the License. 7*eeb7e5b3SAdam Hornáček-- 8*eeb7e5b3SAdam Hornáček-- See LICENSE.txt included in this distribution for the specific 9*eeb7e5b3SAdam Hornáček-- language governing permissions and limitations under the License. 10*eeb7e5b3SAdam Hornáček-- 11*eeb7e5b3SAdam Hornáček-- When distributing Covered Code, include this CDDL HEADER in each 12*eeb7e5b3SAdam Hornáček-- file and include the License file at LICENSE.txt. 13*eeb7e5b3SAdam Hornáček-- If applicable, add the following below this CDDL HEADER, with the 14*eeb7e5b3SAdam Hornáček-- fields enclosed by brackets "[]" replaced with your own identifying 15*eeb7e5b3SAdam Hornáček-- information: Portions Copyright [yyyy] [name of copyright owner] 16*eeb7e5b3SAdam Hornáček-- 17*eeb7e5b3SAdam Hornáček-- CDDL HEADER END 18*eeb7e5b3SAdam Hornáček-- 19*eeb7e5b3SAdam Hornáček 20*eeb7e5b3SAdam Hornáček-- 21*eeb7e5b3SAdam Hornáček-- Copyright (c) 2017, Chris Fraire <cfraire@me.com>. 22*eeb7e5b3SAdam Hornáček-- 23*eeb7e5b3SAdam Hornáček 24*eeb7e5b3SAdam Hornáčekwith Ada.Text_IO; use Ada.Text_IO; 25*eeb7e5b3SAdam Hornáčekprocedure Hello is 26*eeb7e5b3SAdam Hornáčekbegin 27*eeb7e5b3SAdam Hornáček Put_Line("Hello, world!"); 28*eeb7e5b3SAdam Hornáček Put_Line(""" 29*eeb7e5b3SAdam Hornáček Hello?"""); 30*eeb7e5b3SAdam Hornáček Put_Line('?'); 31*eeb7e5b3SAdam Hornáček Put_Line(' 32*eeb7e5b3SAdam Hornáček'); 33*eeb7e5b3SAdam Hornáček Put(0); 34*eeb7e5b3SAdam Hornáček Put(12); 35*eeb7e5b3SAdam Hornáček Put(123_456); 36*eeb7e5b3SAdam Hornáček Put(3.14159_26); 37*eeb7e5b3SAdam Hornáček Put(2#1111_1111#); 38*eeb7e5b3SAdam Hornáček Put(16#E#E1); 39*eeb7e5b3SAdam Hornáček Put(16#F.FF#E+2); 40*eeb7e5b3SAdam Hornáček Put_Line(); 41*eeb7e5b3SAdam Hornáček Put_Line("Archimedes said ""Εύρηκα"""); 42*eeb7e5b3SAdam Hornáčekend Hello; 43*eeb7e5b3SAdam Hornáček 44*eeb7e5b3SAdam Hornáček-- Test a URL that is not matched fully by a rule using just {URIChar} and 45*eeb7e5b3SAdam Hornáček-- {FnameChar}: 46*eeb7e5b3SAdam Hornáček-- https://msdn.microsoft.com/en-us/library/windows/desktop/ms633591(v=vs.85).aspx 47