tests/melt040/test.e


--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

class TEST
creation
        make
feature
        
        make is
                local
                        a: TEST1 [DOUBLE];
                        b: TEST1 [INTEGER];
                        c: TEST1 [REAL];
                        d: TEST1 [BOOLEAN];
                        e: TEST1 [CHARACTER];
                        f: TEST1 [POINTER];
                        g: TEST1 [STRING];
                        p: POINTER;
                do
                        !!a;
                        print (a # 13.47); io.new_line;
                        print (a # 13); io.new_line;
                        print (a # Double_const); io.new_line;
                        print (a # Real_const); io.new_line;
                        print (a # Integer_const); io.new_line;
                        !!b;
                        print (b # 13); io.new_line;
                        print (b # Integer_const); io.new_line;
                        !!c;
                        print (c # 13.47); io.new_line;
                        print (c # 13); io.new_line;
                        print (c # Real_const); io.new_line;
                        print (c # Integer_const); io.new_line;
                        !!d;
                        print (d # True); io.new_line;
                        !!e;
                        print (e # 'Z'); io.new_line;
                        !!f;
                        print (f # p); io.new_line;
                        !!g;
                        io.putstring (g # "weasel"); io.new_line;
                        $INSTRUCTION;
                end

        Double_const: DOUBLE is 29.47;
        Real_const: REAL is 29.47;
        Integer_const: INTEGER is 13;
        
end
1
2	--\| Copyright (c) 1993-2006 University of Southern California and contributors.
3	--\| All rights reserved.
4	--\| Your use of this work is governed under the terms of the GNU General
5	--\| Public License version 2.
6
7	class TEST
8	creation
9	make
10	feature
11
12	make is
13	local
14	a: TEST1 [DOUBLE];
15	b: TEST1 [INTEGER];
16	c: TEST1 [REAL];
17	d: TEST1 [BOOLEAN];
18	e: TEST1 [CHARACTER];
19	f: TEST1 [POINTER];
20	g: TEST1 [STRING];
21	p: POINTER;
22	do
23	!!a;
24	print (a # 13.47); io.new_line;
25	print (a # 13); io.new_line;
26	print (a # Double_const); io.new_line;
27	print (a # Real_const); io.new_line;
28	print (a # Integer_const); io.new_line;
29	!!b;
30	print (b # 13); io.new_line;
31	print (b # Integer_const); io.new_line;
32	!!c;
33	print (c # 13.47); io.new_line;
34	print (c # 13); io.new_line;
35	print (c # Real_const); io.new_line;
36	print (c # Integer_const); io.new_line;
37	!!d;
38	print (d # True); io.new_line;
39	!!e;
40	print (e # 'Z'); io.new_line;
41	!!f;
42	print (f # p); io.new_line;
43	!!g;
44	io.putstring (g # "weasel"); io.new_line;
45	$INSTRUCTION;
46	end
47
48	Double_const: DOUBLE is 29.47;
49	Real_const: REAL is 29.47;
50	Integer_const: INTEGER is 13;
51
52	end
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision