//---------------------------------------------------------------------
// example of importing a complicated structure with initial conditions
//---------------------------------------------------------------------
Main Module IMPORTER

	use TEXTIO
	Use EXPORTER
//	import B_type from EXPORTSTR	// this wont work

	Declare
		C_dyn		: Big_structure_type	
		C_static	: static Big_structure_Type	
	EndDeclare

    procedure T ( A : in ref Big_structure_type)
	out_string (TTY, A . string)

	out_string (TTY, " . B_1 . A_1 = ")
	out_integer (TTY, A . B_1 . A_1)
	out_string (TTY, " . B_1 . A_2 = ")
	out_integer (TTY, A . B_1 . A_2)
	out_record (TTY) 

	out_string (TTY, " . B_2 . A_1 = ")
	out_integer (TTY, A . B_2 . A_1)
	out_string (TTY, " . B_2 . A_2 = ")
	out_integer (TTY, A . B_2 . A_2)
	out_record (TTY) 

	out_string (TTY, " . array_1 [100] = ")
	out_integer(TTY, A . array_1 [100])
	out_string (TTY, " . array_1 [200] = ")
	out_integer(TTY, A . array_1 [200])
	out_record (TTY)
    endprocedure

    T (C_static)
    T (C_dyn)
EndModule