trunk/models/z-addmethod.a4c

PROVIDE "z-addmethod.a4c";
(*
 * This file is part of the ASCEND Modeling Library and is released
 * under the GNU Public License as described at the end of this file.
 *)
(* method add/replace/inherit testing *)

MODEL g0;
NOTES 'pass-test' SELF {
should END up with methods:
METHOD m1;
        xprime := 0;
END m1;
} END NOTES;
METHODS
METHOD m1;
x := 0;
END m1;
END g0;

MODEL g1 REFINES g0;
NOTES 'pass-test' SELF {
        should END up with
        METHOD m1;
                xprime := 0;
        END m1;
        METHOD m2;
                y := 1;
        END m2;
} END NOTES;
END g1;

MODEL g2 REFINES g1;
NOTES 'pass-test' SELF {
        should END up with its original methods.
} END NOTES;
METHODS
METHOD m2;
y := 2;
END m2;
METHOD m1;
x := 2;
END m1;
END g2;

MODEL g3 REFINES g2;
NOTES 'pass-test' SELF {
        should END up with it original methods of g2 by inheritance.
} END NOTES;
END g3;

ADD METHODS IN g1;
METHOD m2;
        y := 1;
END m2;
END METHODS;

REPLACE METHODS IN g0;
METHOD m1;
        xprime := 0;
END m1;
END METHODS;

MODEL b1;
METHODS
METHOD m1;
        x:= 1;
END m1;
END b1;

ADD METHODS IN b1;
METHOD m1;
        x:= 2;
END m1;
(* rejected we hope*)
END METHODS;

REPLACE METHODS IN b1;
METHOD m2;
        y := 1;
END m2;
(* rejected we hope *)
END METHODS;

MODEL backstop;
(* this does nothing important, and should parse ok *)
END backstop;


(*
 *  z-addmethod.a4c
 *  by Benjamin A Allan
 *  Part of the ASCEND Library
 *  $Date: 1998/06/17 19:39:30 $
 *  $Revision: 1.3 $
 *  $Author: mthomas $
 *  $Source: /afs/cs.cmu.edu/project/ascend/Repository/models/z-addmethod.a4c,v $
 *
 *  This file is part of the ASCEND Modeling Library.
 *
 *  Copyright (C) 1998 Carnegie Mellon University
 *  Copyright (C) 1997 Benjamin A Allan
 *
 *  The ASCEND Modeling Library is free software; you can redistribute
 *  it and/or modify it under the terms of the GNU General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  The ASCEND Modeling Library is distributed in hope that it
 *  will be useful, but WITHOUT ANY WARRANTY; without even the implied
 *  warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *  See the GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with the program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA.
 *)
1	PROVIDE "z-addmethod.a4c";
2	(*
3	* This file is part of the ASCEND Modeling Library and is released
4	* under the GNU Public License as described at the end of this file.
5	*)
6	(* method add/replace/inherit testing *)
7
8	MODEL g0;
9	NOTES 'pass-test' SELF {
10	should END up with methods:
11	METHOD m1;
12	xprime := 0;
13	END m1;
14	} END NOTES;
15	METHODS
16	METHOD m1;
17	x := 0;
18	END m1;
19	END g0;
20
21	MODEL g1 REFINES g0;
22	NOTES 'pass-test' SELF {
23	should END up with
24	METHOD m1;
25	xprime := 0;
26	END m1;
27	METHOD m2;
28	y := 1;
29	END m2;
30	} END NOTES;
31	END g1;
32
33	MODEL g2 REFINES g1;
34	NOTES 'pass-test' SELF {
35	should END up with its original methods.
36	} END NOTES;
37	METHODS
38	METHOD m2;
39	y := 2;
40	END m2;
41	METHOD m1;
42	x := 2;
43	END m1;
44	END g2;
45
46	MODEL g3 REFINES g2;
47	NOTES 'pass-test' SELF {
48	should END up with it original methods of g2 by inheritance.
49	} END NOTES;
50	END g3;
51
52	ADD METHODS IN g1;
53	METHOD m2;
54	y := 1;
55	END m2;
56	END METHODS;
57
58	REPLACE METHODS IN g0;
59	METHOD m1;
60	xprime := 0;
61	END m1;
62	END METHODS;
63
64	MODEL b1;
65	METHODS
66	METHOD m1;
67	x:= 1;
68	END m1;
69	END b1;
70
71	ADD METHODS IN b1;
72	METHOD m1;
73	x:= 2;
74	END m1;
75	(* rejected we hope*)
76	END METHODS;
77
78	REPLACE METHODS IN b1;
79	METHOD m2;
80	y := 1;
81	END m2;
82	(* rejected we hope *)
83	END METHODS;
84
85	MODEL backstop;
86	(* this does nothing important, and should parse ok *)
87	END backstop;
88
89
90	(*
91	* z-addmethod.a4c
92	* by Benjamin A Allan
93	* Part of the ASCEND Library
94	* $Date: 1998/06/17 19:39:30 $
95	* $Revision: 1.3 $
96	* $Author: mthomas $
97	* $Source: /afs/cs.cmu.edu/project/ascend/Repository/models/z-addmethod.a4c,v $
98	*
99	* This file is part of the ASCEND Modeling Library.
100	*
101	* Copyright (C) 1998 Carnegie Mellon University
102	* Copyright (C) 1997 Benjamin A Allan
103	*
104	* The ASCEND Modeling Library is free software; you can redistribute
105	* it and/or modify it under the terms of the GNU General Public
106	* License as published by the Free Software Foundation; either
107	* version 2 of the License, or (at your option) any later version.
108	*
109	* The ASCEND Modeling Library is distributed in hope that it
110	* will be useful, but WITHOUT ANY WARRANTY; without even the implied
111	* warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
112	* See the GNU General Public License for more details.
113	*
114	* You should have received a copy of the GNU General Public License
115	* along with the program; if not, write to the Free Software
116	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA.
117	*)