= Ada = * https://en.wikibooks.org/wiki/Ada_Programming * https://en.wikibooks.org/wiki/Ada_Programming/Basic * https://craftofcoding.files.wordpress.com/2013/07/ada_strings.pdf * https://www.adaic.org/resources/add_content/standards/05rm/html/RM-TOC.html * https://ada-util.readthedocs.io/en/latest/Util_Dates/ * https://en.wikibooks.org/wiki/Ada_Programming/Libraries/GNAT.Calendar.Time_IO * https://www.tutorialspoint.com/compile_ada_online.php == Hello world == '''hello.adb''' {{{#!highlight ada with Ada.Text_IO; -- comment procedure Hello is begin Ada.Text_IO.Put_Line("Hello, world!"); end Hello; }}} * gnat make hello.adb == Hello date == '''hellodate.adb''' {{{#!highlight ada with ada.text_io; with gnat.calendar.time_io; with ada.calendar; procedure HelloDate is datetime: string(1..26); -- has exactly 22 chars begin -- gets date to string with milliseconds datetime := gnat.calendar.time_io.image( ada.calendar.clock, "[%Y-%m-%dT%H:%M:%S.%i] " ); -- concatenetas string and shows date ada.text_io.put_line( datetime & "stuff " ); end HelloDate; }}} * gnat make hellodate.adb