/[eiffelstudio]/trunk/eweasel/tests/dotnet059/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/dotnet059/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 68307 - (show annotations)
Mon May 14 23:13:15 2007 UTC (12 years, 4 months ago) by paulb
File size: 655 byte(s)
Added test to ensure .NET basic type names are correctly generated from the mapped Eiffel names.

1 class
2 TEST
3
4 create
5 make
6
7 feature -- Initialization
8
9 make is
10 -- Prints location of ANY
11 local
12 l_types: ARRAY [TYPE [ANY]]
13 l_count, i: INTEGER
14 l_type: SYSTEM_TYPE
15 do
16 l_types := <<
17 {INTEGER_8},
18 {INTEGER_16},
19 {INTEGER_32},
20 {INTEGER_64},
21 {NATURAL_8},
22 {NATURAL_16},
23 {NATURAL_32},
24 {NATURAL_64},
25 {REAL_32},
26 {REAL_64},
27 {POINTER},
28
29 -- Configured mappings
30
31 {INTEGER},
32 {NATURAL},
33 {REAL},
34 {DOUBLE}>>
35
36 l_count := l_types.count
37 from i := 1 until i > l_count loop
38 l_type := l_types [i]
39 print (l_type.full_name)
40 print ("%N")
41 i := i + 1
42 end
43 end
44
45 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date ID Revision

  ViewVC Help
Powered by ViewVC 1.1.23