Ada 83 examples - Revision history

Vmo at 15:57, 29 March 2025

2025-03-29T15:57:09Z

← Older revision		Revision as of 17:57, 29 March 2025
Line 15:		Line 15:
	A simple ASCII JSON reader/writer program :		A simple ASCII JSON reader/writer program :
	[[JSON package]]		[[JSON package]]

			'''Micro-controller programming'''

			'''Ada 83''' is a very convenient tool for micro-controller programming. The famous Arduino boards equipped with AVR chips can be programmed in '''Ada 83'''. Some examples [[Ada_83_on AVR_chips\|here]].

Administrateur at 22:09, 3 March 2025

2025-03-03T22:09:06Z

← Older revision		Revision as of 00:09, 4 March 2025
Line 3:		Line 3:
	The simplest program :		The simplest program :

	<syntaxhighlight>		<syntaxhighlight lang="ada">
	with TEXT_IO;		with TEXT_IO;
	-----------		-----------

Administrateur at 07:52, 3 March 2025

2025-03-03T07:52:44Z

← Older revision		Revision as of 09:52, 3 March 2025
Line 3:		Line 3:
	The simplest program :		The simplest program :

	<~~pre style="font-family:'Noto Mono';background:black;color:lime"~~>		<syntaxhighlight>
	with TEXT_IO;		with TEXT_IO;
	-----------		-----------
Line 11:		Line 11:
	TEXT_IO.PUT_LINE( "Hello_world !" );		TEXT_IO.PUT_LINE( "Hello_world !" );
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	A simple ASCII JSON reader/writer program :		A simple ASCII JSON reader/writer program :
	[[JSON package]]		[[JSON package]]

Vmo at 07:39, 3 March 2025

2025-03-03T07:39:50Z

← Older revision		Revision as of 09:39, 3 March 2025
Line 13:		Line 13:
	</pre>		</pre>

	A simple ASCII JSON reader program :		A simple ASCII JSON reader/writer program :
	[[JSON package]]		[[JSON package]]

Vmo: Replaced content with "== Examples == The simplest program :

 with TEXT_IO;           ----------- procedure HELLO_WORLD is        ----------- begin   TEXT_IO.PUT_LINE( "Hello_world !" ); end;

A simple ASCII JSON reader program : JSON package"

2025-03-01T19:59:52Z

Replaced content with "== Examples == The simplest program : <pre style="font-family:'Noto Mono';background:black;color:lime"> with TEXT_IO; ----------- procedure HELLO_WORLD is ----------- begin TEXT_IO.PUT_LINE( "Hello_world !" ); end; </pre> A simple ASCII JSON reader program : JSON package"

← Older revision		Revision as of 21:59, 1 March 2025
Line 14:		Line 14:

	A simple ASCII JSON reader program :		A simple ASCII JSON reader program :
	~~<pre style="font-family:'Noto Mono';background:black;color:lime;tab-size:10;">--~~ JSON~~.ADS VINCENT MORIN 25/2/2025 UNIVERSITE DE BRETAGNE OCCIDENTALE (UBO)~~		[[JSON package]]
	~~-------------------------------------------------------------------------------------------------------------------------~~
	~~-- 1 2 3 4 5 6 7 8 9 0 1 2~~


	~~with TEXT_IO;~~
	~~----~~
	package ~~JSON~~
	~~----~~
	is

	~~type ITEM is private;~~

	~~type ITEM_TYPE is ( OBJECT_ITEM, ARRAY_ITEM,~~
	~~STRING_ITEM, INTEGER_ITEM, FLOAT_ITEM, BOOLEAN_ITEM, NULL_ITEM );~~

	~~subtype TERMINAL_TYPE is ITEM_TYPE range STRING_ITEM .. NULL_ITEM;~~

	~~subtype FILE_TYPE is TEXT_IO.FILE_TYPE;~~

	~~MAX_STRING_LENGTH :constant NATURAL := 2**15-1;~~
	~~subtype STRING_LENGTH is NATURAL range 0 .. MAX_STRING_LENGTH;~~

	~~type VALUE_DATA (KIND :TERMINAL_TYPE := NULL_ITEM; LENGTH :STRING_LENGTH := 0)~~
	~~is record~~
	~~case KIND~~
	is
	~~when STRING_ITEM => STRING_VAL :STRING( 1 .. LENGTH );~~
	~~when INTEGER_ITEM => INT_VAL :INTEGER;~~
	~~when FLOAT_ITEM => FLOAT_VAL :LONG_FLOAT;~~
	~~when BOOLEAN_ITEM => BOOL_VAL :BOOLEAN;~~
	~~when NULL_ITEM => null;~~
	~~end case;~~
	~~end record;~~


	~~-- J S O N I T E M I / O~~


	~~procedure GET ( FILE :in JSON.FILE_TYPE; THE_ITEM :out ITEM );~~
	~~procedure PUT ( FILE :in out JSON.FILE_TYPE; THE_ITEM :ITEM );~~
	~~function STRING_OF ( THE_ITEM :ITEM) return STRING;~~
	~~function ITEM_OF ( THE_STRING :STRING) return ITEM;~~


	~~-- J S O N I T E M I N T E R A C T I O N~~


	~~function KIND ( OF_ITEM :ITEM ) return ITEM_TYPE;~~
	~~function IS_PRESENT ( KEY :STRING; IN_OBJECT :ITEM ) return BOOLEAN;~~
	~~function ITEM_BY_KEY ( KEY :STRING; IN_OBJECT :ITEM ) return ITEM;~~
	~~function ITEM_VALUE ( OF_ITEM :ITEM ) return VALUE_DATA;~~
	~~function NUMBER_OF_SUB_ITEMS ( IN_ITEM :ITEM ) return NATURAL;~~
	~~procedure FREE ( THE_ITEM :in out ITEM );~~

	~~generic~~
	~~with procedure APPLY_PROCESS ( ON_ITEM :in out ITEM; LAST_ONE :in BOOLEAN; STOP_PROCESS :out BOOLEAN );~~
	~~procedure FOR_EACH_JSON_ITEM ( OF_ARRAY :ITEM );~~

	~~generic~~
	~~with procedure APPLY_PROCESS ( KEY :STRING; ON_ITEM :in out ITEM; LAST_ONE :in BOOLEAN; STOP_PROCESS :out BOOLEAN );~~
	~~procedure FOR_EACH_JSON_FIELD ( OF_OBJECT :ITEM );~~


	~~SYNTAX_ERROR, BAD_ITEM_TYPE, VALUE_NOT_FOUND : exception;~~


	~~-- 1 2 3 4 5 6 7 8 9 0 1 2~~
	~~-------------------------------------------------------------------------------------------------------------------------~~

	~~pragma PAGE;~~
	~~private~~

	~~type ITEM_DEFINITION (KIND :JSON.ITEM_TYPE);~~
	~~type ITEM is access ITEM_DEFINITION;~~

	~~type OBJECT_FIELD;~~
	~~type OBJECT_FIELD_ACCESS is access OBJECT_FIELD;~~

	~~type ITEM_LIST_ELEMENT;~~
	~~type LIST_OF_ITEMS is access ITEM_LIST_ELEMENT;~~

	~~type STRING_ACCESS is access STRING;~~


	~~type ITEM_DEFINITION (KIND :ITEM_TYPE) is record~~
	~~case KIND is~~
	~~when OBJECT_ITEM => FIELDS_LIST : OBJECT_FIELD_ACCESS;~~
	~~when ARRAY_ITEM => ITEMS_LIST : LIST_OF_ITEMS;~~
	~~when STRING_ITEM => STR_ACCESS : STRING_ACCESS;~~
	~~when INTEGER_ITEM => INT_VAL : INTEGER;~~
	~~when FLOAT_ITEM => FLOAT_VAL : LONG_FLOAT;~~
	~~when BOOLEAN_ITEM => BOOL_VAL : BOOLEAN;~~
	~~when NULL_ITEM => null;~~
	~~end case;~~
	~~end record;~~


	~~type OBJECT_FIELD is record~~
	~~FIELD_KEY : STRING_ACCESS;~~
	~~FIELD_ITEM : ITEM;~~
	~~NEXT : OBJECT_FIELD_ACCESS;~~
	~~end record;~~


	~~type ITEM_LIST_ELEMENT is record~~
	~~LIST_ITEM : ITEM;~~
	~~NEXT : LIST_OF_ITEMS;~~
	~~end record;~~

	~~----~~
	~~end JSON;~~
	~~----~~

	~~-- 1 2 3 4 5 6 7 8 9 0 1 2~~
	~~-------------------------------------------------------------------------------------------------------------------------~~



	~~</pre>~~

Vmo at 19:54, 1 March 2025

2025-03-01T19:54:31Z

← Older revision		Revision as of 21:54, 1 March 2025
Line 14:		Line 14:

	A simple ASCII JSON reader program :		A simple ASCII JSON reader program :
	<pre style="font-family:'Noto Mono';background:black;color:lime">-- JSON.ADS VINCENT MORIN 25/2/2025 UNIVERSITE DE BRETAGNE OCCIDENTALE (UBO)		<pre style="font-family:'Noto Mono';background:black;color:lime;tab-size:10;">-- JSON.ADS VINCENT MORIN 25/2/2025 UNIVERSITE DE BRETAGNE OCCIDENTALE (UBO)
	-------------------------------------------------------------------------------------------------------------------------		-------------------------------------------------------------------------------------------------------------------------
	-- 1 2 3 4 5 6 7 8 9 0 1 2		-- 1 2 3 4 5 6 7 8 9 0 1 2

Vmo at 19:50, 1 March 2025

2025-03-01T19:50:56Z

@@ Line 11: / Line 11: @@
    TEXT_IO.PUT_LINE( "Hello_world !" );
 end;
 </pre>

Vmo: /* Examples */

2025-02-22T11:16:07Z

Examples

← Older revision		Revision as of 13:16, 22 February 2025
Line 4:		Line 4:

	<pre style="font-family:'Noto Mono';background:black;color:lime">		<pre style="font-family:'Noto Mono';background:black;color:lime">
			with TEXT_IO;
	-----------		-----------
	procedure HELLO_WORLD		procedure HELLO_WORLD
	is -----------		is -----------
	begin		begin
	PUT_LINE( "Hello_world !" );		TEXT_IO.PUT_LINE( "Hello_world !" );
	end;		end;
	</pre>		</pre>

Vmo at 18:45, 21 February 2025

2025-02-21T18:45:57Z

← Older revision		Revision as of 20:45, 21 February 2025
Line 3:		Line 3:
	The simplest program :		The simplest program :

	<pre style="background:black;color:lime">		<pre style="font-family:'Noto Mono';background:black;color:lime">
	-----------		-----------
	procedure HELLO_WORLD		procedure HELLO_WORLD
Line 9:		Line 9:
	begin		begin
	PUT_LINE( "Hello_world !" );		PUT_LINE( "Hello_world !" );
	end ~~HELLO_WORLD~~;		end;
	</pre>		</pre>

Vmo at 17:59, 21 February 2025

2025-02-21T17:59:38Z

← Older revision		Revision as of 19:59, 21 February 2025
Line 3:		Line 3:
	The simplest program :		The simplest program :

	<~~source lang~~="~~php">~~		<pre style="background:black;color:lime">
	~~<?php~~
	~~v = "string~~"~~; // sample initialization~~
	?>
	~~html text~~
	~~<?php~~
	~~echo v; // end of php code~~
	?>
	~~</source~~>


	-----------		-----------
	procedure HELLO_WORLD		procedure HELLO_WORLD
Line 20:		Line 10:
	PUT_LINE( "Hello_world !" );		PUT_LINE( "Hello_world !" );
	end HELLO_WORLD;		end HELLO_WORLD;
	‎		</pre>
	~~using "syntaxhighlight".~~