135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
1 module dmd.PowAssignExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
3 import dmd.BinExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
4 import dmd.Scope;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
5 import dmd.Loc;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
6 import dmd.Identifier;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
7 import dmd.Expression;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
8 import dmd.TOK;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
9 import dmd.STC;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
10 import dmd.PowExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
11 import dmd.AssignExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
12 import dmd.Lexer;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
13 import dmd.VarDeclaration;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
14 import dmd.ExpInitializer;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
15 import dmd.DeclarationExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
16 import dmd.VarExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
17 import dmd.CommaExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
18 import dmd.ErrorExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
19 import dmd.Id;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
20
|
187
b0d41ff5e0df
Added expandability scheme outlined in http://www.dsource.org/forums/viewtopic.php?t=5659&sid=6f2150ff5b0bffcd47512a6a7608d218
Abscissa
diff
changeset
|
21 import dmd.DDMDExtensions;
|
b0d41ff5e0df
Added expandability scheme outlined in http://www.dsource.org/forums/viewtopic.php?t=5659&sid=6f2150ff5b0bffcd47512a6a7608d218
Abscissa
diff
changeset
|
22
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
23 // Only a reduced subset of operations for now.
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
24 class PowAssignExp : BinExp
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
25 {
|
187
b0d41ff5e0df
Added expandability scheme outlined in http://www.dsource.org/forums/viewtopic.php?t=5659&sid=6f2150ff5b0bffcd47512a6a7608d218
Abscissa
diff
changeset
|
26 mixin insertMemberExtension!(typeof(this));
|
b0d41ff5e0df
Added expandability scheme outlined in http://www.dsource.org/forums/viewtopic.php?t=5659&sid=6f2150ff5b0bffcd47512a6a7608d218
Abscissa
diff
changeset
|
27
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
28 this(Loc loc, Expression e1, Expression e2)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
29 {
|
178
|
30 register();
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
31 super(loc, TOK.TOKpowass, PowAssignExp.sizeof, e1, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
32 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
33
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
34 override Expression semantic(Scope sc)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
35 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
36 Expression e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
37
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
38 if (type)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
39 return this;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
40
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
41 BinExp.semantic(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
42 e2 = resolveProperties(sc, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
43
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
44 e = op_overload(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
45 if (e)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
46 return e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
47
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
48 e1 = e1.modifiableLvalue(sc, e1);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
49 assert(e1.type && e2.type);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
50
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
51 if ( (e1.type.isintegral() || e1.type.isfloating()) &&
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
52 (e2.type.isintegral() || e2.type.isfloating()))
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
53 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
54 if (e1.op == TOKvar)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
55 { // Rewrite: e1 = e1 ^^ e2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
56 e = new PowExp(loc, e1.syntaxCopy(), e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
57 e = new AssignExp(loc, e1, e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
58 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
59 else
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
60 { // Rewrite: ref tmp = e1; tmp = tmp ^^ e2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
61 Identifier id = Lexer.uniqueId("__powtmp");
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
62 auto v = new VarDeclaration(e1.loc, e1.type, id, new ExpInitializer(loc, e1));
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
63 v.storage_class |= STC.STCref | STC.STCforeach;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
64 Expression de = new DeclarationExp(e1.loc, v);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
65 VarExp ve = new VarExp(e1.loc, v);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
66 e = new PowExp(loc, ve, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
67 e = new AssignExp(loc, new VarExp(e1.loc, v), e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
68 e = new CommaExp(loc, de, e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
69 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
70 e = e.semantic(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
71 return e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
72 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
73 error("%s ^^= %s is not supported", e1.type.toChars(), e2.type.toChars() );
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
74 return new ErrorExp();
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
75 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
76
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
77 // For operator overloading
|
154
|
78 override Identifier opId()
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
79 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
80 return Id.powass;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
81 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
82 }; |