= 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 * https://docs.adacore.com/gnat_rm-docs/html/gnat_rm/gnat_rm/the_gnat_library.html == 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; use ada.text_io; with gnat.calendar.time_io; use gnat.calendar.time_io; with ada.calendar; use ada.calendar; procedure HelloDate is datetime: string(1..26); -- has exactly 26 chars begin -- gets date to string with milliseconds datetime := image( clock, "[%Y-%m-%dT%H:%M:%S.%i] " ); -- concatenetas string and shows date put_line( datetime & "stuff " ); end HelloDate; }}} * gnat make hellodate.adb