tests/melt025/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
inherit
        MEMORY;
creation
        make
feature
        make is
                local
                        b: BIT $BIT_LENGTH
                do
                        collection_off;
                        b := not b;
                        io.putbool (b.item (1));
                        io.new_line;
                        io.putbool (b.item ($BIT_LENGTH));
                        io.new_line;
                end;

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	inherit
9	MEMORY;
10	creation
11	make
12	feature
13	make is
14	local
15	b: BIT $BIT_LENGTH
16	do
17	collection_off;
18	b := not b;
19	io.putbool (b.item (1));
20	io.new_line;
21	io.putbool (b.item ($BIT_LENGTH));
22	io.new_line;
23	end;
24
25	end
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision