annotate src/basic/Attribute.d @ 207:e0551773a005

Added the correct version.
author Anders Johnsen <skabet@gmail.com>
date Tue, 12 Aug 2008 18:19:34 +0200
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
207
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
1 module basic.Attribute;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
2
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
3 import tango.core.BitManip;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
4 import Integer = tango.text.convert.Integer;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
5
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
6 import tango.io.Stdout;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
7
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
8 enum Protection : uint
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
9 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
10 Private = 1<<0,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
11 Public = 1<<1,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
12 Package = 1<<2,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
13 Protected = 1<<3,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
14 Export = 1<<4,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
15 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
16
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
17 enum Extern : uint
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
18 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
19 C = 1<<12,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
20 CPlusPlus = 1<<13,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
21 D = 1<<14,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
22 Windows = 1<<15,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
23 Pascal = 1<<16,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
24 System = 1<<17,
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
25 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
26
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
27 struct Attribute
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
28 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
29
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
30 void setProtection(Protection p)
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
31 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
32 att &= 0xFFFFFFE0;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
33 att |= p;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
34 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
35
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
36 Protection getProtection()
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
37 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
38 Protection p = Protection.Public;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
39 switch(bsf(0xF0000000 | att))
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
40 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
41 case 0:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
42 p = Protection.Private;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
43 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
44 case 1:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
45 p = Protection.Public;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
46 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
47 case 2:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
48 p = Protection.Package;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
49 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
50 case 3:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
51 p = Protection.Protected;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
52 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
53 case 4:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
54 p = Protection.Export;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
55 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
56 default:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
57 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
58 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
59 return p;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
60 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
61
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
62 void setExtern(Extern e)
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
63 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
64 att &= 0xFF7C0FFF;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
65 att |= e;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
66 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
67
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
68 Extern getExtern()
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
69 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
70 Extern e = Extern.D;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
71 switch(bsf(0xF0000000 | att >> 12))
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
72 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
73 case 0:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
74 e = Extern.C;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
75 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
76 case 1:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
77 e = Extern.CPlusPlus;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
78 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
79 case 2:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
80 e = Extern.D;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
81 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
82 case 3:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
83 e = Extern.Windows;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
84 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
85 case 4:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
86 e = Extern.Pascal;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
87 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
88 case 5:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
89 e = Extern.System;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
90 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
91 default:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
92 break;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
93 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
94 return e;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
95 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
96
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
97 void setStatic() { att |= Static; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
98 bool getStatic() { return att & Static ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
99 void setFinal() { att |= Final; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
100 bool getFinal() { return att & Final ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
101 void setConst() { att |= Const; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
102 bool getConst() { return att & Const ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
103 void setAbstract() { att |= Abstract; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
104 bool getAbstract() { return att & Abstract ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
105 void setOverride() { att |= Override; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
106 bool getOverride() { return att & Override ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
107 void setDeprecated(){ att |= Deprecated; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
108 bool getDeprecated(){ return att & Deprecated ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
109 void setAuto() { att |= Auto; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
110 bool getAuto() { return att & Auto ? true : false; }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
111
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
112 char[] toString()
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
113 {
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
114 return Integer.toString(att);
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
115 }
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
116
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
117 private:
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
118 uint att;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
119
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
120
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
121 static const uint Static = 1<<5;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
122 static const uint Final = 1<<6;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
123 static const uint Const = 1<<7;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
124 static const uint Abstract = 1<<8;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
125 static const uint Override = 1<<9;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
126 static const uint Deprecated = 1<<10;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
127 static const uint Auto = 1<<11;
e0551773a005 Added the correct version.
Anders Johnsen <skabet@gmail.com>
parents:
diff changeset
128 }