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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 68414 - (show annotations)
Thu May 17 22:58:46 2007 UTC (12 years, 4 months ago) by paulb
File size: 664 byte(s)
Added tests related to .NET property generation

1 class
2 TEST
3
4 inherit
5 BASE
6
7 create
8 make
9
10 feature {NONE} -- Creation
11
12 make is
13 -- Run test.
14 do
15 print_properties ({BASE})
16 end
17
18 feature {NONE} -- Implementation
19
20 print_properties (a_type: SYSTEM_TYPE) is
21 -- Prints properties
22 require
23 a_type_attached: a_type /= Void
24 local
25 l_props: NATIVE_ARRAY [PROPERTY_INFO]
26 l_count, i: INTEGER
27 do
28 l_props := a_type.get_properties ({BINDING_FLAGS}.declared_only | {BINDING_FLAGS}.instance | {BINDING_FLAGS}.public)
29 l_count := l_props.count
30 from until i = l_count loop
31 print (a_type.name)
32 print ('.')
33 print (l_props.item (i).name)
34 print ("%N")
35 i := i + 1
36 end
37 end
38
39 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23