summaryrefslogtreecommitdiffstats
path: root/eiffel-fragen/nachbedingung
diff options
context:
space:
mode:
Diffstat (limited to 'eiffel-fragen/nachbedingung')
-rw-r--r--eiffel-fragen/nachbedingung/application.e37
-rw-r--r--eiffel-fragen/nachbedingung/child.e25
-rw-r--r--eiffel-fragen/nachbedingung/counter.e30
-rw-r--r--eiffel-fragen/nachbedingung/nachbedingung.ecf21
4 files changed, 0 insertions, 113 deletions
diff --git a/eiffel-fragen/nachbedingung/application.e b/eiffel-fragen/nachbedingung/application.e
deleted file mode 100644
index 6babd0c..0000000
--- a/eiffel-fragen/nachbedingung/application.e
+++ /dev/null
@@ -1,37 +0,0 @@
1indexing
2 description : "nachbedingung application root class"
3 date : "$Date: 2008-12-29 15:41:59 -0800 (Mon, 29 Dec 2008) $"
4 revision : "$Revision: 76432 $"
5
6class
7 APPLICATION
8
9inherit
10 ARGUMENTS
11
12create
13 make
14
15feature {NONE} -- Implementation
16 ct: COUNTER
17 ch: CHILD
18
19feature {NONE} -- Initialization
20
21 make
22 -- Run application.
23 do
24 print ("nachbedingung%N")
25
26 create ct
27 ct.set(3)
28 print ("ct " + ct.get().out + "%N")
29
30 create ch
31 ch.set(-2)
32 print ("ch " + ch.get().out + "%N")
33
34 print ("done%N")
35 end
36
37end
diff --git a/eiffel-fragen/nachbedingung/child.e b/eiffel-fragen/nachbedingung/child.e
deleted file mode 100644
index fcbe8c3..0000000
--- a/eiffel-fragen/nachbedingung/child.e
+++ /dev/null
@@ -1,25 +0,0 @@
1class
2 CHILD
3inherit
4 COUNTER
5 redefine
6 set,
7 checkval
8 end
9
10feature -- Element change
11
12 set (some_value: INTEGER) is
13 -- Set value of counter to some_value.
14 do
15 item := some_value - 10
16 ensure then
17 checkval > 0
18 end
19
20 checkval: INTEGER is
21 -- Get value of counter
22 do
23 Result := item + 20
24 end
25end
diff --git a/eiffel-fragen/nachbedingung/counter.e b/eiffel-fragen/nachbedingung/counter.e
deleted file mode 100644
index db93ce7..0000000
--- a/eiffel-fragen/nachbedingung/counter.e
+++ /dev/null
@@ -1,30 +0,0 @@
1class
2 COUNTER
3
4feature -- Access
5
6 item: INTEGER
7 -- Counter's value.
8
9feature -- Element change
10
11 set (some_value: INTEGER) is
12 -- Set value of counter to some_value.
13 do
14 item := some_value
15 ensure
16 checkval > 0
17 end
18
19 get: INTEGER is
20 -- Get value of counter
21 do
22 Result := item
23 end
24
25 checkval: INTEGER is
26 -- Get value of counter
27 do
28 Result := item
29 end
30end
diff --git a/eiffel-fragen/nachbedingung/nachbedingung.ecf b/eiffel-fragen/nachbedingung/nachbedingung.ecf
deleted file mode 100644
index d55b076..0000000
--- a/eiffel-fragen/nachbedingung/nachbedingung.ecf
+++ /dev/null
@@ -1,21 +0,0 @@
1<?xml version="1.0" encoding="ISO-8859-1"?>
2<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-5-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-5-0 http://www.eiffel.com/developers/xml/configuration-1-5-0.xsd" name="nachbedingung" uuid="9ECF2BF2-5CA9-4126-B34E-978C47241CCD">
3 <target name="nachbedingung">
4 <root feature="make" class="APPLICATION"/>
5 <option warning="true">
6 <assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
7 </option>
8 <precompile name="base_pre" location="$ISE_PRECOMP/base.ecf"/>
9 <library name="base" location="$ISE_LIBRARY/library/base/base.ecf"/>
10 <cluster name="nachbedingung" location=".\" recursive="true">
11 <file_rule>
12 <exclude>/EIFGENs$</exclude>
13 <exclude>/.svn$</exclude>
14 <exclude>/CVS$</exclude>
15 </file_rule>
16 </cluster>
17 </target>
18 <target name="nachbedingung_dotnet" extends="nachbedingung">
19 <setting name="msil_generation" value="true"/>
20 </target>
21</system>