|
1
|
1
|
|
|
2 // Compiler implementation of the D programming language
|
|
|
3 // Copyright (c) 1999-2007 by Digital Mars
|
|
|
4 // All Rights Reserved
|
|
|
5 // written by Walter Bright
|
|
|
6 // http://www.digitalmars.com
|
|
|
7 // License for redistribution is by either the Artistic License
|
|
|
8 // in artistic.txt, or the GNU General Public License in gnu.txt.
|
|
|
9 // See the included readme.txt for details.
|
|
|
10
|
|
|
11 #include <stdio.h>
|
|
|
12 #include <string.h>
|
|
|
13 #include <assert.h>
|
|
|
14
|
|
|
15 #include "mem.h"
|
|
|
16
|
|
|
17 #include "mars.h"
|
|
|
18 #include "dsymbol.h"
|
|
|
19 #include "aggregate.h"
|
|
|
20 #include "identifier.h"
|
|
|
21 #include "module.h"
|
|
|
22 #include "mtype.h"
|
|
|
23 #include "expression.h"
|
|
|
24 #include "statement.h"
|
|
|
25 #include "declaration.h"
|
|
|
26 #include "id.h"
|
|
|
27 #include "scope.h"
|
|
|
28 #include "init.h"
|
|
|
29 #include "import.h"
|
|
|
30 #include "template.h"
|
|
|
31
|
|
|
32 #include "../gen/enums.h"
|
|
|
33
|
|
|
34 /****************************** Dsymbol ******************************/
|
|
|
35
|
|
|
36 Dsymbol::Dsymbol()
|
|
|
37 {
|
|
|
38 //printf("Dsymbol::Dsymbol(%p)\n", this);
|
|
|
39 this->ident = NULL;
|
|
|
40 this->c_ident = NULL;
|
|
|
41 this->parent = NULL;
|
|
|
42 this->csym = NULL;
|
|
|
43 this->isym = NULL;
|
|
|
44 this->loc = 0;
|
|
|
45 this->comment = NULL;
|
|
|
46 this->llvmInternal = LLVMnone;
|
|
|
47 this->llvmInternal1 = NULL;
|
|
|
48 this->llvmInternal2 = NULL;
|
|
|
49 this->llvmValue = NULL;
|
|
|
50 }
|
|
|
51
|
|
|
52 Dsymbol::Dsymbol(Identifier *ident)
|
|
|
53 {
|
|
|
54 //printf("Dsymbol::Dsymbol(%p, ident)\n", this);
|
|
|
55 this->ident = ident;
|
|
|
56 this->c_ident = NULL;
|
|
|
57 this->parent = NULL;
|
|
|
58 this->csym = NULL;
|
|
|
59 this->isym = NULL;
|
|
|
60 this->loc = 0;
|
|
|
61 this->comment = NULL;
|
|
|
62 this->llvmInternal = LLVMnone;
|
|
|
63 this->llvmInternal1 = NULL;
|
|
|
64 this->llvmInternal2 = NULL;
|
|
|
65 this->llvmValue = NULL;
|
|
|
66 this->llvmDModule = NULL;
|
|
|
67 }
|
|
|
68
|
|
|
69 int Dsymbol::equals(Object *o)
|
|
|
70 { Dsymbol *s;
|
|
|
71
|
|
|
72 if (this == o)
|
|
|
73 return TRUE;
|
|
|
74 s = (Dsymbol *)(o);
|
|
|
75 if (s && ident->equals(s->ident))
|
|
|
76 return TRUE;
|
|
|
77 return FALSE;
|
|
|
78 }
|
|
|
79
|
|
|
80 /**************************************
|
|
|
81 * Copy the syntax.
|
|
|
82 * Used for template instantiations.
|
|
|
83 * If s is NULL, allocate the new object, otherwise fill it in.
|
|
|
84 */
|
|
|
85
|
|
|
86 Dsymbol *Dsymbol::syntaxCopy(Dsymbol *s)
|
|
|
87 {
|
|
|
88 print();
|
|
|
89 printf("%s %s\n", kind(), toChars());
|
|
|
90 assert(0);
|
|
|
91 return NULL;
|
|
|
92 }
|
|
|
93
|
|
|
94 /**************************************
|
|
|
95 * Determine if this symbol is only one.
|
|
|
96 * Returns:
|
|
|
97 * FALSE, *ps = NULL: There are 2 or more symbols
|
|
|
98 * TRUE, *ps = NULL: There are zero symbols
|
|
|
99 * TRUE, *ps = symbol: The one and only one symbol
|
|
|
100 */
|
|
|
101
|
|
|
102 int Dsymbol::oneMember(Dsymbol **ps)
|
|
|
103 {
|
|
|
104 //printf("Dsymbol::oneMember()\n");
|
|
|
105 *ps = this;
|
|
|
106 return TRUE;
|
|
|
107 }
|
|
|
108
|
|
|
109 /*****************************************
|
|
|
110 * Same as Dsymbol::oneMember(), but look at an array of Dsymbols.
|
|
|
111 */
|
|
|
112
|
|
|
113 int Dsymbol::oneMembers(Array *members, Dsymbol **ps)
|
|
|
114 {
|
|
|
115 //printf("Dsymbol::oneMembers() %d\n", members ? members->dim : 0);
|
|
|
116 Dsymbol *s = NULL;
|
|
|
117
|
|
|
118 if (members)
|
|
|
119 {
|
|
|
120 for (int i = 0; i < members->dim; i++)
|
|
|
121 { Dsymbol *sx = (Dsymbol *)members->data[i];
|
|
|
122
|
|
|
123 int x = sx->oneMember(ps);
|
|
|
124 //printf("\t[%d] kind %s = %d, s = %p\n", i, sx->kind(), x, *ps);
|
|
|
125 if (!x)
|
|
|
126 {
|
|
|
127 //printf("\tfalse 1\n");
|
|
|
128 assert(*ps == NULL);
|
|
|
129 return FALSE;
|
|
|
130 }
|
|
|
131 if (*ps)
|
|
|
132 {
|
|
|
133 if (s) // more than one symbol
|
|
|
134 { *ps = NULL;
|
|
|
135 //printf("\tfalse 2\n");
|
|
|
136 return FALSE;
|
|
|
137 }
|
|
|
138 s = *ps;
|
|
|
139 }
|
|
|
140 }
|
|
|
141 }
|
|
|
142 *ps = s; // s is the one symbol, NULL if none
|
|
|
143 //printf("\ttrue\n");
|
|
|
144 return TRUE;
|
|
|
145 }
|
|
|
146
|
|
|
147 /*****************************************
|
|
|
148 * Is Dsymbol a variable that contains pointers?
|
|
|
149 */
|
|
|
150
|
|
|
151 int Dsymbol::hasPointers()
|
|
|
152 {
|
|
|
153 //printf("Dsymbol::hasPointers() %s\n", toChars());
|
|
|
154 return 0;
|
|
|
155 }
|
|
|
156
|
|
|
157 char *Dsymbol::toChars()
|
|
|
158 {
|
|
|
159 return ident ? ident->toChars() : (char *)"__anonymous";
|
|
|
160 }
|
|
|
161
|
|
|
162 char *Dsymbol::toPrettyChars()
|
|
|
163 { Dsymbol *p;
|
|
|
164 char *s;
|
|
|
165 char *q;
|
|
|
166 size_t len;
|
|
|
167
|
|
|
168 //printf("Dsymbol::toPrettyChars() '%s'\n", toChars());
|
|
|
169 if (!parent)
|
|
|
170 return toChars();
|
|
|
171
|
|
|
172 len = 0;
|
|
|
173 for (p = this; p; p = p->parent)
|
|
|
174 len += strlen(p->toChars()) + 1;
|
|
|
175
|
|
|
176 s = (char *)mem.malloc(len);
|
|
|
177 q = s + len - 1;
|
|
|
178 *q = 0;
|
|
|
179 for (p = this; p; p = p->parent)
|
|
|
180 {
|
|
|
181 char *t = p->toChars();
|
|
|
182 len = strlen(t);
|
|
|
183 q -= len;
|
|
|
184 memcpy(q, t, len);
|
|
|
185 if (q == s)
|
|
|
186 break;
|
|
|
187 q--;
|
|
|
188 *q = '.';
|
|
|
189 }
|
|
|
190 return s;
|
|
|
191 }
|
|
|
192
|
|
|
193 char *Dsymbol::locToChars()
|
|
|
194 {
|
|
|
195 OutBuffer buf;
|
|
|
196 char *p;
|
|
|
197
|
|
|
198 Module *m = getModule();
|
|
|
199
|
|
|
200 if (m && m->srcfile)
|
|
|
201 loc.filename = m->srcfile->toChars();
|
|
|
202 return loc.toChars();
|
|
|
203 }
|
|
|
204
|
|
|
205 char *Dsymbol::kind()
|
|
|
206 {
|
|
|
207 return "symbol";
|
|
|
208 }
|
|
|
209
|
|
|
210 /*********************************
|
|
|
211 * If this symbol is really an alias for another,
|
|
|
212 * return that other.
|
|
|
213 */
|
|
|
214
|
|
|
215 Dsymbol *Dsymbol::toAlias()
|
|
|
216 {
|
|
|
217 return this;
|
|
|
218 }
|
|
|
219
|
|
|
220 Dsymbol *Dsymbol::toParent()
|
|
|
221 {
|
|
|
222 return parent ? parent->pastMixin() : NULL;
|
|
|
223 }
|
|
|
224
|
|
|
225 Dsymbol *Dsymbol::pastMixin()
|
|
|
226 {
|
|
|
227 Dsymbol *s = this;
|
|
|
228
|
|
|
229 //printf("Dsymbol::pastMixin() %s\n", toChars());
|
|
|
230 while (s && s->isTemplateMixin())
|
|
|
231 s = s->parent;
|
|
|
232 return s;
|
|
|
233 }
|
|
|
234
|
|
|
235 /**********************************
|
|
|
236 * Use this instead of toParent() when looking for the
|
|
|
237 * 'this' pointer of the enclosing function/class.
|
|
|
238 */
|
|
|
239
|
|
|
240 Dsymbol *Dsymbol::toParent2()
|
|
|
241 {
|
|
|
242 Dsymbol *s = parent;
|
|
|
243 while (s && s->isTemplateInstance())
|
|
|
244 s = s->parent;
|
|
|
245 return s;
|
|
|
246 }
|
|
|
247
|
|
|
248
|
|
|
249 int Dsymbol::isAnonymous()
|
|
|
250 {
|
|
|
251 return ident ? 0 : 1;
|
|
|
252 }
|
|
|
253
|
|
|
254 void Dsymbol::semantic(Scope *sc)
|
|
|
255 {
|
|
|
256 error("%p has no semantic routine", this);
|
|
|
257 }
|
|
|
258
|
|
|
259 void Dsymbol::semantic2(Scope *sc)
|
|
|
260 {
|
|
|
261 // Most Dsymbols have no further semantic analysis needed
|
|
|
262 }
|
|
|
263
|
|
|
264 void Dsymbol::semantic3(Scope *sc)
|
|
|
265 {
|
|
|
266 // Most Dsymbols have no further semantic analysis needed
|
|
|
267 }
|
|
|
268
|
|
|
269 void Dsymbol::inlineScan()
|
|
|
270 {
|
|
|
271 // Most Dsymbols have no further semantic analysis needed
|
|
|
272 }
|
|
|
273
|
|
|
274 Dsymbol *Dsymbol::search(Loc loc, Identifier *ident, int flags)
|
|
|
275 {
|
|
|
276 //printf("Dsymbol::search(this=%p,%s, ident='%s')\n", this, toChars(), ident->toChars());
|
|
|
277 return NULL;
|
|
|
278 }
|
|
|
279
|
|
|
280 /***************************************
|
|
|
281 * Search for identifier id as a member of 'this'.
|
|
|
282 * id may be a template instance.
|
|
|
283 * Returns:
|
|
|
284 * symbol found, NULL if not
|
|
|
285 */
|
|
|
286
|
|
|
287 Dsymbol *Dsymbol::searchX(Loc loc, Scope *sc, Identifier *id)
|
|
|
288 {
|
|
|
289 //printf("Dsymbol::searchX(this=%p,%s, ident='%s')\n", this, toChars(), ident->toChars());
|
|
|
290 Dsymbol *s = toAlias();
|
|
|
291 Dsymbol *sm;
|
|
|
292
|
|
|
293 switch (id->dyncast())
|
|
|
294 {
|
|
|
295 case DYNCAST_IDENTIFIER:
|
|
|
296 sm = s->search(loc, id, 0);
|
|
|
297 break;
|
|
|
298
|
|
|
299 case DYNCAST_DSYMBOL:
|
|
|
300 { // It's a template instance
|
|
|
301 //printf("\ttemplate instance id\n");
|
|
|
302 Dsymbol *st = (Dsymbol *)id;
|
|
|
303 TemplateInstance *ti = st->isTemplateInstance();
|
|
|
304 id = ti->name;
|
|
|
305 sm = s->search(loc, id, 0);
|
|
|
306 if (!sm)
|
|
|
307 { error("template identifier %s is not a member of %s %s",
|
|
|
308 id->toChars(), s->kind(), s->toChars());
|
|
|
309 return NULL;
|
|
|
310 }
|
|
|
311 sm = sm->toAlias();
|
|
|
312 TemplateDeclaration *td = sm->isTemplateDeclaration();
|
|
|
313 if (!td)
|
|
|
314 {
|
|
|
315 error("%s is not a template, it is a %s", id->toChars(), sm->kind());
|
|
|
316 return NULL;
|
|
|
317 }
|
|
|
318 ti->tempdecl = td;
|
|
|
319 if (!ti->semanticdone)
|
|
|
320 ti->semantic(sc);
|
|
|
321 sm = ti->toAlias();
|
|
|
322 break;
|
|
|
323 }
|
|
|
324
|
|
|
325 default:
|
|
|
326 assert(0);
|
|
|
327 }
|
|
|
328 return sm;
|
|
|
329 }
|
|
|
330
|
|
|
331 int Dsymbol::overloadInsert(Dsymbol *s)
|
|
|
332 {
|
|
|
333 //printf("Dsymbol::overloadInsert('%s')\n", s->toChars());
|
|
|
334 return FALSE;
|
|
|
335 }
|
|
|
336
|
|
|
337 void Dsymbol::toCBuffer(OutBuffer *buf, HdrGenState *hgs)
|
|
|
338 {
|
|
|
339 buf->writestring(toChars());
|
|
|
340 }
|
|
|
341
|
|
|
342 unsigned Dsymbol::size(Loc loc)
|
|
|
343 {
|
|
|
344 error("Dsymbol '%s' has no size\n", toChars());
|
|
|
345 return 0;
|
|
|
346 }
|
|
|
347
|
|
|
348 int Dsymbol::isforwardRef()
|
|
|
349 {
|
|
|
350 return FALSE;
|
|
|
351 }
|
|
|
352
|
|
|
353 AggregateDeclaration *Dsymbol::isThis()
|
|
|
354 {
|
|
|
355 return NULL;
|
|
|
356 }
|
|
|
357
|
|
|
358 ClassDeclaration *Dsymbol::isClassMember() // are we a member of a class?
|
|
|
359 {
|
|
|
360 Dsymbol *parent = toParent();
|
|
|
361 if (parent && parent->isClassDeclaration())
|
|
|
362 return (ClassDeclaration *)parent;
|
|
|
363 return NULL;
|
|
|
364 }
|
|
|
365
|
|
|
366 void Dsymbol::defineRef(Dsymbol *s)
|
|
|
367 {
|
|
|
368 assert(0);
|
|
|
369 }
|
|
|
370
|
|
|
371 int Dsymbol::isExport()
|
|
|
372 {
|
|
|
373 return FALSE;
|
|
|
374 }
|
|
|
375
|
|
|
376 int Dsymbol::isImportedSymbol()
|
|
|
377 {
|
|
|
378 return FALSE;
|
|
|
379 }
|
|
|
380
|
|
|
381 int Dsymbol::isDeprecated()
|
|
|
382 {
|
|
|
383 return FALSE;
|
|
|
384 }
|
|
|
385
|
|
|
386 LabelDsymbol *Dsymbol::isLabel() // is this a LabelDsymbol()?
|
|
|
387 {
|
|
|
388 return NULL;
|
|
|
389 }
|
|
|
390
|
|
|
391 AggregateDeclaration *Dsymbol::isMember() // is this a member of an AggregateDeclaration?
|
|
|
392 {
|
|
|
393 Dsymbol *parent = toParent();
|
|
|
394 return parent ? parent->isAggregateDeclaration() : NULL;
|
|
|
395 }
|
|
|
396
|
|
|
397 Type *Dsymbol::getType()
|
|
|
398 {
|
|
|
399 return NULL;
|
|
|
400 }
|
|
|
401
|
|
|
402 int Dsymbol::needThis()
|
|
|
403 {
|
|
|
404 return FALSE;
|
|
|
405 }
|
|
|
406
|
|
|
407 int Dsymbol::addMember(Scope *sc, ScopeDsymbol *sd, int memnum)
|
|
|
408 {
|
|
|
409 //printf("Dsymbol::addMember('%s')\n", toChars());
|
|
|
410 //printf("Dsymbol::addMember(this = %p, '%s' scopesym = '%s')\n", this, toChars(), sd->toChars());
|
|
|
411 //printf("Dsymbol::addMember(this = %p, '%s' sd = %p, sd->symtab = %p)\n", this, toChars(), sd, sd->symtab);
|
|
|
412 parent = sd;
|
|
|
413 if (!isAnonymous()) // no name, so can't add it to symbol table
|
|
|
414 {
|
|
|
415 if (!sd->symtab->insert(this)) // if name is already defined
|
|
|
416 {
|
|
|
417 Dsymbol *s2;
|
|
|
418
|
|
|
419 s2 = sd->symtab->lookup(ident);
|
|
|
420 if (!s2->overloadInsert(this))
|
|
|
421 {
|
|
|
422 sd->multiplyDefined(0, this, s2);
|
|
|
423 }
|
|
|
424 }
|
|
|
425 if (sd->isAggregateDeclaration() || sd->isEnumDeclaration())
|
|
|
426 {
|
|
|
427 if (ident == Id::__sizeof || ident == Id::alignof || ident == Id::mangleof)
|
|
|
428 error(".%s property cannot be redefined", ident->toChars());
|
|
|
429 }
|
|
|
430 return 1;
|
|
|
431 }
|
|
|
432 return 0;
|
|
|
433 }
|
|
|
434
|
|
|
435 void Dsymbol::error(const char *format, ...)
|
|
|
436 {
|
|
|
437 //printf("Dsymbol::error()\n");
|
|
|
438 if (!global.gag)
|
|
|
439 {
|
|
|
440 char *p = locToChars();
|
|
|
441
|
|
|
442 if (*p)
|
|
|
443 fprintf(stdmsg, "%s: ", p);
|
|
|
444 mem.free(p);
|
|
|
445
|
|
|
446 if (isAnonymous())
|
|
|
447 fprintf(stdmsg, "%s ", kind());
|
|
|
448 else
|
|
|
449 fprintf(stdmsg, "%s %s ", kind(), toPrettyChars());
|
|
|
450
|
|
|
451 va_list ap;
|
|
|
452 va_start(ap, format);
|
|
|
453 vfprintf(stdmsg, format, ap);
|
|
|
454 va_end(ap);
|
|
|
455
|
|
|
456 fprintf(stdmsg, "\n");
|
|
|
457 fflush(stdmsg);
|
|
|
458 }
|
|
|
459 global.errors++;
|
|
|
460
|
|
|
461 //fatal();
|
|
|
462 }
|
|
|
463
|
|
|
464 void Dsymbol::error(Loc loc, const char *format, ...)
|
|
|
465 {
|
|
|
466 if (!global.gag)
|
|
|
467 {
|
|
|
468 char *p = loc.toChars();
|
|
|
469 if (!*p)
|
|
|
470 p = locToChars();
|
|
|
471
|
|
|
472 if (*p)
|
|
|
473 fprintf(stdmsg, "%s: ", p);
|
|
|
474 mem.free(p);
|
|
|
475
|
|
|
476 fprintf(stdmsg, "%s %s ", kind(), toPrettyChars());
|
|
|
477
|
|
|
478 va_list ap;
|
|
|
479 va_start(ap, format);
|
|
|
480 vfprintf(stdmsg, format, ap);
|
|
|
481 va_end(ap);
|
|
|
482
|
|
|
483 fprintf(stdmsg, "\n");
|
|
|
484 fflush(stdmsg);
|
|
|
485 }
|
|
|
486
|
|
|
487 global.errors++;
|
|
|
488
|
|
|
489 //fatal();
|
|
|
490 }
|
|
|
491
|
|
|
492 void Dsymbol::checkDeprecated(Loc loc, Scope *sc)
|
|
|
493 {
|
|
|
494 if (!global.params.useDeprecated && isDeprecated())
|
|
|
495 {
|
|
|
496 // Don't complain if we're inside a deprecated symbol's scope
|
|
|
497 for (Dsymbol *sp = sc->parent; sp; sp = sp->parent)
|
|
|
498 { if (sp->isDeprecated())
|
|
|
499 return;
|
|
|
500 }
|
|
|
501
|
|
|
502 for (; sc; sc = sc->enclosing)
|
|
|
503 {
|
|
|
504 if (sc->scopesym && sc->scopesym->isDeprecated())
|
|
|
505 return;
|
|
|
506 }
|
|
|
507
|
|
|
508 error(loc, "is deprecated");
|
|
|
509 }
|
|
|
510 }
|
|
|
511
|
|
|
512 /**********************************
|
|
|
513 * Determine which Module a Dsymbol is in.
|
|
|
514 */
|
|
|
515
|
|
|
516 Module *Dsymbol::getModule()
|
|
|
517 {
|
|
|
518 Module *m;
|
|
|
519 Dsymbol *s;
|
|
|
520
|
|
|
521 //printf("Dsymbol::getModule()\n");
|
|
|
522 s = this;
|
|
|
523 while (s)
|
|
|
524 {
|
|
|
525 //printf("\ts = '%s'\n", s->toChars());
|
|
|
526 m = s->isModule();
|
|
|
527 if (m)
|
|
|
528 return m;
|
|
|
529 s = s->parent;
|
|
|
530 }
|
|
|
531 return NULL;
|
|
|
532 }
|
|
|
533
|
|
|
534 /*************************************
|
|
|
535 */
|
|
|
536
|
|
|
537 enum PROT Dsymbol::prot()
|
|
|
538 {
|
|
|
539 return PROTpublic;
|
|
|
540 }
|
|
|
541
|
|
|
542 /*************************************
|
|
|
543 * Do syntax copy of an array of Dsymbol's.
|
|
|
544 */
|
|
|
545
|
|
|
546
|
|
|
547 Array *Dsymbol::arraySyntaxCopy(Array *a)
|
|
|
548 {
|
|
|
549
|
|
|
550 Array *b = NULL;
|
|
|
551 if (a)
|
|
|
552 {
|
|
|
553 b = a->copy();
|
|
|
554 for (int i = 0; i < b->dim; i++)
|
|
|
555 {
|
|
|
556 Dsymbol *s = (Dsymbol *)b->data[i];
|
|
|
557
|
|
|
558 s = s->syntaxCopy(NULL);
|
|
|
559 b->data[i] = (void *)s;
|
|
|
560 }
|
|
|
561 }
|
|
|
562 return b;
|
|
|
563 }
|
|
|
564
|
|
|
565
|
|
|
566 /****************************************
|
|
|
567 * Add documentation comment to Dsymbol.
|
|
|
568 * Ignore NULL comments.
|
|
|
569 */
|
|
|
570
|
|
|
571 void Dsymbol::addComment(unsigned char *comment)
|
|
|
572 {
|
|
|
573 // if (comment)
|
|
|
574 // printf("adding comment '%s' to symbol %p '%s'\n", comment, this, toChars());
|
|
|
575
|
|
|
576 if (!this->comment)
|
|
|
577 this->comment = comment;
|
|
|
578 #if 1
|
|
|
579 else if (comment && strcmp((char *)comment, (char *)this->comment))
|
|
|
580 { // Concatenate the two
|
|
|
581 this->comment = Lexer::combineComments(this->comment, comment);
|
|
|
582 }
|
|
|
583 #endif
|
|
|
584 }
|
|
|
585
|
|
|
586
|
|
|
587 /********************************* ScopeDsymbol ****************************/
|
|
|
588
|
|
|
589 ScopeDsymbol::ScopeDsymbol()
|
|
|
590 : Dsymbol()
|
|
|
591 {
|
|
|
592 members = NULL;
|
|
|
593 symtab = NULL;
|
|
|
594 imports = NULL;
|
|
|
595 prots = NULL;
|
|
|
596 }
|
|
|
597
|
|
|
598 ScopeDsymbol::ScopeDsymbol(Identifier *id)
|
|
|
599 : Dsymbol(id)
|
|
|
600 {
|
|
|
601 members = NULL;
|
|
|
602 symtab = NULL;
|
|
|
603 imports = NULL;
|
|
|
604 prots = NULL;
|
|
|
605 }
|
|
|
606
|
|
|
607 Dsymbol *ScopeDsymbol::syntaxCopy(Dsymbol *s)
|
|
|
608 {
|
|
|
609 //printf("ScopeDsymbol::syntaxCopy('%s')\n", toChars());
|
|
|
610
|
|
|
611 ScopeDsymbol *sd;
|
|
|
612 if (s)
|
|
|
613 sd = (ScopeDsymbol *)s;
|
|
|
614 else
|
|
|
615 sd = new ScopeDsymbol(ident);
|
|
|
616 sd->members = arraySyntaxCopy(members);
|
|
|
617 return sd;
|
|
|
618 }
|
|
|
619
|
|
|
620 Dsymbol *ScopeDsymbol::search(Loc loc, Identifier *ident, int flags)
|
|
|
621 { Dsymbol *s;
|
|
|
622 int i;
|
|
|
623
|
|
|
624 //printf("%s->ScopeDsymbol::search(ident='%s', flags=x%x)\n", toChars(), ident->toChars(), flags);
|
|
|
625 // Look in symbols declared in this module
|
|
|
626 s = symtab ? symtab->lookup(ident) : NULL;
|
|
|
627 if (s)
|
|
|
628 {
|
|
|
629 //printf("\ts = '%s.%s'\n",toChars(),s->toChars());
|
|
|
630 }
|
|
|
631 else if (imports)
|
|
|
632 {
|
|
|
633 // Look in imported modules
|
|
|
634 for (i = 0; i < imports->dim; i++)
|
|
|
635 { ScopeDsymbol *ss = (ScopeDsymbol *)imports->data[i];
|
|
|
636 Dsymbol *s2;
|
|
|
637
|
|
|
638 // If private import, don't search it
|
|
|
639 if (flags & 1 && prots[i] == PROTprivate)
|
|
|
640 continue;
|
|
|
641
|
|
|
642 //printf("\tscanning import '%s', prots = %d, isModule = %p, isImport = %p\n", ss->toChars(), prots[i], ss->isModule(), ss->isImport());
|
|
|
643 s2 = ss->search(loc, ident, ss->isModule() ? 1 : 0);
|
|
|
644 if (!s)
|
|
|
645 s = s2;
|
|
|
646 else if (s2 && s != s2)
|
|
|
647 {
|
|
|
648 if (s->toAlias() == s2->toAlias())
|
|
|
649 {
|
|
|
650 if (s->isDeprecated())
|
|
|
651 s = s2;
|
|
|
652 }
|
|
|
653 else
|
|
|
654 {
|
|
|
655 /* Two imports of the same module should be regarded as
|
|
|
656 * the same.
|
|
|
657 */
|
|
|
658 Import *i1 = s->isImport();
|
|
|
659 Import *i2 = s2->isImport();
|
|
|
660 if (!(i1 && i2 &&
|
|
|
661 (i1->mod == i2->mod ||
|
|
|
662 (!i1->parent->isImport() && !i2->parent->isImport() &&
|
|
|
663 i1->ident->equals(i2->ident))
|
|
|
664 )
|
|
|
665 )
|
|
|
666 )
|
|
|
667 {
|
|
|
668 ss->multiplyDefined(loc, s, s2);
|
|
|
669 break;
|
|
|
670 }
|
|
|
671 }
|
|
|
672 }
|
|
|
673 }
|
|
|
674 if (s)
|
|
|
675 {
|
|
|
676 Declaration *d = s->isDeclaration();
|
|
|
677 if (d && d->protection == PROTprivate && !d->parent->isTemplateMixin())
|
|
|
678 error("%s is private", d->toPrettyChars());
|
|
|
679 }
|
|
|
680 }
|
|
|
681 return s;
|
|
|
682 }
|
|
|
683
|
|
|
684 void ScopeDsymbol::importScope(ScopeDsymbol *s, enum PROT protection)
|
|
|
685 {
|
|
|
686 //printf("%s->ScopeDsymbol::importScope(%s, %d)\n", toChars(), s->toChars(), protection);
|
|
|
687
|
|
|
688 // No circular or redundant import's
|
|
|
689 if (s != this)
|
|
|
690 {
|
|
|
691 if (!imports)
|
|
|
692 imports = new Array();
|
|
|
693 else
|
|
|
694 {
|
|
|
695 for (int i = 0; i < imports->dim; i++)
|
|
|
696 { ScopeDsymbol *ss;
|
|
|
697
|
|
|
698 ss = (ScopeDsymbol *) imports->data[i];
|
|
|
699 if (ss == s)
|
|
|
700 {
|
|
|
701 if (protection > prots[i])
|
|
|
702 prots[i] = protection; // upgrade access
|
|
|
703 return;
|
|
|
704 }
|
|
|
705 }
|
|
|
706 }
|
|
|
707 imports->push(s);
|
|
|
708 prots = (unsigned char *)mem.realloc(prots, imports->dim * sizeof(prots[0]));
|
|
|
709 prots[imports->dim - 1] = protection;
|
|
|
710 }
|
|
|
711 }
|
|
|
712
|
|
|
713 int ScopeDsymbol::isforwardRef()
|
|
|
714 {
|
|
|
715 return (members == NULL);
|
|
|
716 }
|
|
|
717
|
|
|
718 void ScopeDsymbol::defineRef(Dsymbol *s)
|
|
|
719 {
|
|
|
720 ScopeDsymbol *ss;
|
|
|
721
|
|
|
722 ss = s->isScopeDsymbol();
|
|
|
723 members = ss->members;
|
|
|
724 ss->members = NULL;
|
|
|
725 }
|
|
|
726
|
|
|
727 void ScopeDsymbol::multiplyDefined(Loc loc, Dsymbol *s1, Dsymbol *s2)
|
|
|
728 {
|
|
|
729 #if 0
|
|
|
730 printf("ScopeDsymbol::multiplyDefined()\n");
|
|
|
731 printf("s1 = %p, '%s' kind = '%s', parent = %s\n", s1, s1->toChars(), s1->kind(), s1->parent ? s1->parent->toChars() : "");
|
|
|
732 printf("s2 = %p, '%s' kind = '%s', parent = %s\n", s2, s2->toChars(), s2->kind(), s2->parent ? s2->parent->toChars() : "");
|
|
|
733 #endif
|
|
|
734 if (loc.filename)
|
|
|
735 { ::error(loc, "%s at %s conflicts with %s at %s",
|
|
|
736 s1->toPrettyChars(),
|
|
|
737 s1->locToChars(),
|
|
|
738 s2->toPrettyChars(),
|
|
|
739 s2->locToChars());
|
|
|
740 }
|
|
|
741 else
|
|
|
742 {
|
|
|
743 s1->error(loc, "conflicts with %s %s at %s",
|
|
|
744 s2->kind(),
|
|
|
745 s2->toPrettyChars(),
|
|
|
746 s2->locToChars());
|
|
|
747 }
|
|
|
748 }
|
|
|
749
|
|
|
750 Dsymbol *ScopeDsymbol::nameCollision(Dsymbol *s)
|
|
|
751 {
|
|
|
752 Dsymbol *sprev;
|
|
|
753
|
|
|
754 // Look to see if we are defining a forward referenced symbol
|
|
|
755
|
|
|
756 sprev = symtab->lookup(s->ident);
|
|
|
757 assert(sprev);
|
|
|
758 if (s->equals(sprev)) // if the same symbol
|
|
|
759 {
|
|
|
760 if (s->isforwardRef()) // if second declaration is a forward reference
|
|
|
761 return sprev;
|
|
|
762 if (sprev->isforwardRef())
|
|
|
763 {
|
|
|
764 sprev->defineRef(s); // copy data from s into sprev
|
|
|
765 return sprev;
|
|
|
766 }
|
|
|
767 }
|
|
|
768 multiplyDefined(0, s, sprev);
|
|
|
769 return sprev;
|
|
|
770 }
|
|
|
771
|
|
|
772 char *ScopeDsymbol::kind()
|
|
|
773 {
|
|
|
774 return "ScopeDsymbol";
|
|
|
775 }
|
|
|
776
|
|
|
777
|
|
19
|
778 /*******************************************
|
|
|
779 * Look for member of the form:
|
|
|
780 * const(MemberInfo)[] getMembers(string);
|
|
|
781 * Returns NULL if not found
|
|
|
782 */
|
|
|
783
|
|
|
784 #if V2
|
|
|
785 FuncDeclaration *ScopeDsymbol::findGetMembers()
|
|
|
786 {
|
|
|
787 Dsymbol *s = search_function(this, Id::getmembers);
|
|
|
788 FuncDeclaration *fdx = s ? s->isFuncDeclaration() : NULL;
|
|
|
789
|
|
|
790 #if 0 // Finish
|
|
|
791 static TypeFunction *tfgetmembers;
|
|
|
792
|
|
|
793 if (!tfgetmembers)
|
|
|
794 {
|
|
|
795 Scope sc;
|
|
|
796 Arguments *arguments = new Arguments;
|
|
|
797 Arguments *arg = new Argument(STCin, Type::tchar->constOf()->arrayOf(), NULL, NULL);
|
|
|
798 arguments->push(arg);
|
|
|
799
|
|
|
800 Type *tret = NULL;
|
|
|
801 tfgetmembers = new TypeFunction(arguments, tret, 0, LINKd);
|
|
|
802 tfgetmembers = (TypeFunction *)tfgetmembers->semantic(0, &sc);
|
|
|
803 }
|
|
|
804 if (fdx)
|
|
|
805 fdx = fdx->overloadExactMatch(tfgetmembers);
|
|
|
806 #endif
|
|
|
807 if (fdx && fdx->isVirtual())
|
|
|
808 fdx = NULL;
|
|
|
809
|
|
|
810 return fdx;
|
|
|
811 }
|
|
|
812 #endif
|
|
|
813
|
|
|
814
|
|
1
|
815 /****************************** WithScopeSymbol ******************************/
|
|
|
816
|
|
|
817 WithScopeSymbol::WithScopeSymbol(WithStatement *withstate)
|
|
|
818 : ScopeDsymbol()
|
|
|
819 {
|
|
|
820 this->withstate = withstate;
|
|
|
821 }
|
|
|
822
|
|
|
823 Dsymbol *WithScopeSymbol::search(Loc loc, Identifier *ident, int flags)
|
|
|
824 {
|
|
|
825 // Acts as proxy to the with class declaration
|
|
|
826 return withstate->exp->type->toDsymbol(NULL)->search(loc, ident, 0);
|
|
|
827 }
|
|
|
828
|
|
|
829 /****************************** ArrayScopeSymbol ******************************/
|
|
|
830
|
|
|
831 ArrayScopeSymbol::ArrayScopeSymbol(Expression *e)
|
|
|
832 : ScopeDsymbol()
|
|
|
833 {
|
|
|
834 assert(e->op == TOKindex || e->op == TOKslice);
|
|
|
835 exp = e;
|
|
|
836 type = NULL;
|
|
|
837 td = NULL;
|
|
|
838 }
|
|
|
839
|
|
|
840 ArrayScopeSymbol::ArrayScopeSymbol(TypeTuple *t)
|
|
|
841 : ScopeDsymbol()
|
|
|
842 {
|
|
|
843 exp = NULL;
|
|
|
844 type = t;
|
|
|
845 td = NULL;
|
|
|
846 }
|
|
|
847
|
|
|
848 ArrayScopeSymbol::ArrayScopeSymbol(TupleDeclaration *s)
|
|
|
849 : ScopeDsymbol()
|
|
|
850 {
|
|
|
851 exp = NULL;
|
|
|
852 type = NULL;
|
|
|
853 td = s;
|
|
|
854 }
|
|
|
855
|
|
|
856 Dsymbol *ArrayScopeSymbol::search(Loc loc, Identifier *ident, int flags)
|
|
|
857 {
|
|
|
858 //printf("ArrayScopeSymbol::search('%s', flags = %d)\n", ident->toChars(), flags);
|
|
|
859 if (ident == Id::length || ident == Id::dollar)
|
|
|
860 { VarDeclaration **pvar;
|
|
|
861 Expression *ce;
|
|
|
862
|
|
|
863 L1:
|
|
|
864
|
|
|
865 if (td)
|
|
|
866 {
|
|
|
867 VarDeclaration *v = new VarDeclaration(loc, Type::tsize_t, Id::dollar, NULL);
|
|
|
868 Expression *e = new IntegerExp(0, td->objects->dim, Type::tsize_t);
|
|
|
869 v->init = new ExpInitializer(0, e);
|
|
|
870 v->storage_class |= STCconst;
|
|
|
871 return v;
|
|
|
872 }
|
|
|
873
|
|
|
874 if (type)
|
|
|
875 {
|
|
|
876 VarDeclaration *v = new VarDeclaration(loc, Type::tsize_t, Id::dollar, NULL);
|
|
|
877 Expression *e = new IntegerExp(0, type->arguments->dim, Type::tsize_t);
|
|
|
878 v->init = new ExpInitializer(0, e);
|
|
|
879 v->storage_class |= STCconst;
|
|
|
880 return v;
|
|
|
881 }
|
|
|
882
|
|
|
883 if (exp->op == TOKindex)
|
|
|
884 {
|
|
|
885 IndexExp *ie = (IndexExp *)exp;
|
|
|
886
|
|
|
887 pvar = &ie->lengthVar;
|
|
|
888 ce = ie->e1;
|
|
|
889 }
|
|
|
890 else if (exp->op == TOKslice)
|
|
|
891 {
|
|
|
892 SliceExp *se = (SliceExp *)exp;
|
|
|
893
|
|
|
894 pvar = &se->lengthVar;
|
|
|
895 ce = se->e1;
|
|
|
896 }
|
|
|
897 else
|
|
|
898 return NULL;
|
|
|
899
|
|
|
900 if (ce->op == TOKtype)
|
|
|
901 {
|
|
|
902 Type *t = ((TypeExp *)ce)->type;
|
|
|
903 if (t->ty == Ttuple)
|
|
|
904 { type = (TypeTuple *)t;
|
|
|
905 goto L1;
|
|
|
906 }
|
|
|
907 }
|
|
|
908
|
|
|
909 if (!*pvar)
|
|
|
910 {
|
|
|
911 VarDeclaration *v = new VarDeclaration(loc, Type::tsize_t, Id::dollar, NULL);
|
|
|
912
|
|
|
913 if (ce->op == TOKstring)
|
|
|
914 { /* It is for a string literal, so the
|
|
|
915 * length will be a const.
|
|
|
916 */
|
|
|
917 Expression *e = new IntegerExp(0, ((StringExp *)ce)->len, Type::tsize_t);
|
|
|
918 v->init = new ExpInitializer(0, e);
|
|
|
919 v->storage_class |= STCconst;
|
|
|
920 }
|
|
|
921 else if (ce->op == TOKarrayliteral)
|
|
|
922 { /* It is for an array literal, so the
|
|
|
923 * length will be a const.
|
|
|
924 */
|
|
|
925 Expression *e = new IntegerExp(0, ((ArrayLiteralExp *)ce)->elements->dim, Type::tsize_t);
|
|
|
926 v->init = new ExpInitializer(0, e);
|
|
|
927 v->storage_class |= STCconst;
|
|
|
928 }
|
|
|
929 else if (ce->op == TOKtuple)
|
|
|
930 { /* It is for an expression tuple, so the
|
|
|
931 * length will be a const.
|
|
|
932 */
|
|
|
933 Expression *e = new IntegerExp(0, ((TupleExp *)ce)->exps->dim, Type::tsize_t);
|
|
|
934 v->init = new ExpInitializer(0, e);
|
|
|
935 v->storage_class |= STCconst;
|
|
|
936 }
|
|
|
937 *pvar = v;
|
|
|
938 }
|
|
|
939 return (*pvar);
|
|
|
940 }
|
|
|
941 return NULL;
|
|
|
942 }
|
|
|
943
|
|
|
944
|
|
|
945 /****************************** DsymbolTable ******************************/
|
|
|
946
|
|
|
947 DsymbolTable::DsymbolTable()
|
|
|
948 {
|
|
|
949 tab = new StringTable;
|
|
|
950 }
|
|
|
951
|
|
|
952 DsymbolTable::~DsymbolTable()
|
|
|
953 {
|
|
|
954 delete tab;
|
|
|
955 }
|
|
|
956
|
|
|
957 Dsymbol *DsymbolTable::lookup(Identifier *ident)
|
|
|
958 { StringValue *sv;
|
|
|
959
|
|
|
960 #ifdef DEBUG
|
|
|
961 assert(ident);
|
|
|
962 assert(tab);
|
|
|
963 #endif
|
|
|
964 sv = tab->lookup((char*)ident->string, ident->len);
|
|
|
965 return (Dsymbol *)(sv ? sv->ptrvalue : NULL);
|
|
|
966 }
|
|
|
967
|
|
|
968 Dsymbol *DsymbolTable::insert(Dsymbol *s)
|
|
|
969 { StringValue *sv;
|
|
|
970 Identifier *ident;
|
|
|
971
|
|
|
972 //printf("DsymbolTable::insert(this = %p, '%s')\n", this, s->ident->toChars());
|
|
|
973 ident = s->ident;
|
|
|
974 #ifdef DEBUG
|
|
|
975 assert(ident);
|
|
|
976 assert(tab);
|
|
|
977 #endif
|
|
|
978 sv = tab->insert(ident->toChars(), ident->len);
|
|
|
979 if (!sv)
|
|
|
980 return NULL; // already in table
|
|
|
981 sv->ptrvalue = s;
|
|
|
982 return s;
|
|
|
983 }
|
|
|
984
|
|
|
985 Dsymbol *DsymbolTable::insert(Identifier *ident, Dsymbol *s)
|
|
|
986 { StringValue *sv;
|
|
|
987
|
|
|
988 //printf("DsymbolTable::insert()\n");
|
|
|
989 sv = tab->insert(ident->toChars(), ident->len);
|
|
|
990 if (!sv)
|
|
|
991 return NULL; // already in table
|
|
|
992 sv->ptrvalue = s;
|
|
|
993 return s;
|
|
|
994 }
|
|
|
995
|
|
|
996 Dsymbol *DsymbolTable::update(Dsymbol *s)
|
|
|
997 { StringValue *sv;
|
|
|
998 Identifier *ident;
|
|
|
999
|
|
|
1000 ident = s->ident;
|
|
|
1001 sv = tab->update(ident->toChars(), ident->len);
|
|
|
1002 sv->ptrvalue = s;
|
|
|
1003 return s;
|
|
|
1004 }
|
|
|
1005
|
|
|
1006
|
|
|
1007
|
|
|
1008
|
