test/defaultall/test3.a4c

(* test file for 'default_all' automatic recursive model initialisation trick *)

REQUIRE "system.a4l";

(* this time, we check that the defaultself_visit_childatoms routine is
	doing its job. *)

ATOM var_default_to_three REFINES solver_var
    DIMENSIONLESS
    DEFAULT 3.0;
    nominal := 1.0;
    lower_bound := 0.0;
    upper_bound := 10.0;
END var_default_to_three;


MODEL sub1;
	v IS_A var_default_to_three
	a IS_A solver_var;
	b IS_A solver_var;
	v = 5;
METHODS
METHOD default_self;
	a := 4;
	b := 8;
END default_self;
END sub1;

MODEL sub2;
	s1a IS_A sub1;
	s1b IS_A sub1;
	v IS_A var_default_to_3;
END sub2;	

MODEL test2;
	s2 IS_A sub2;
	v IS_A var_default_to_3;
END test2;
1	(* test file for 'default_all' automatic recursive model initialisation trick *)
2
3	REQUIRE "system.a4l";
4
5	(* this time, we check that the defaultself_visit_childatoms routine is
6	doing its job. *)
7
8	ATOM var_default_to_three REFINES solver_var
9	DIMENSIONLESS
10	DEFAULT 3.0;
11	nominal := 1.0;
12	lower_bound := 0.0;
13	upper_bound := 10.0;
14	END var_default_to_three;
15
16
17	MODEL sub1;
18	v IS_A var_default_to_three
19	a IS_A solver_var;
20	b IS_A solver_var;
21	v = 5;
22	METHODS
23	METHOD default_self;
24	a := 4;
25	b := 8;
26	END default_self;
27	END sub1;
28
29	MODEL sub2;
30	s1a IS_A sub1;
31	s1b IS_A sub1;
32	v IS_A var_default_to_3;
33	END sub2;
34
35	MODEL test2;
36	s2 IS_A sub2;
37	v IS_A var_default_to_3;
38	END test2;