tests/melt065/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
create
        make
feature
        make (args: ARRAY [STRING]) is
                local
                        f: PLAIN_TEXT_FILE
                        arg: INTEGER
                do
                        arg := args.item (1).to_integer
                        print ("Weasels%N")
                        if arg = 1 then
                                create f.make (profinfo_name)
                                if not f.exists then
                                        print ("File " + profinfo_name + " not found%N")
                                end
                        end
                end

        profinfo_name: STRING is "$PROFINFO_NAME"

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	create
9	make
10	feature
11	make (args: ARRAY [STRING]) is
12	local
13	f: PLAIN_TEXT_FILE
14	arg: INTEGER
15	do
16	arg := args.item (1).to_integer
17	print ("Weasels%N")
18	if arg = 1 then
19	create f.make (profinfo_name)
20	if not f.exists then
21	print ("File " + profinfo_name + " not found%N")
22	end
23	end
24	end
25
26	profinfo_name: STRING is "$PROFINFO_NAME"
27
28	end
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision