tests/melt040/test_rev1.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;
                        io.putdouble (a # 13.47); io.new_line;
                        io.putdouble (a # 13); io.new_line;
                        io.putdouble (a # Double_const); io.new_line;
                        io.putdouble (a # Real_const); io.new_line;
                        io.putdouble (a # Integer_const); io.new_line;
                        !!b;
                        io.putint (b # 13); io.new_line;
                        io.putint (b # Integer_const); io.new_line;
                        !!c;
                        io.putreal (c # {REAL_32} 13.47); io.new_line;
                        io.putreal (c # 13); io.new_line;
                        io.putreal (c # Real_const); io.new_line;
                        io.putreal (c # Integer_const); io.new_line;
                        !!d;
                        io.putbool (d # True); io.new_line;
                        !!e;
                        io.putchar (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	manus	65296
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			io.putdouble (a # 13.47); io.new_line;
25			io.putdouble (a # 13); io.new_line;
26			io.putdouble (a # Double_const); io.new_line;
27			io.putdouble (a # Real_const); io.new_line;
28			io.putdouble (a # Integer_const); io.new_line;
29			!!b;
30			io.putint (b # 13); io.new_line;
31			io.putint (b # Integer_const); io.new_line;
32			!!c;
33	manus	80391	io.putreal (c # {REAL_32} 13.47); io.new_line;
34	manus	65296	io.putreal (c # 13); io.new_line;
35			io.putreal (c # Real_const); io.new_line;
36			io.putreal (c # Integer_const); io.new_line;
37			!!d;
38			io.putbool (d # True); io.new_line;
39			!!e;
40			io.putchar (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