projects/ldc: dmd/identifier.c annotate

annotate dmd/identifier.c @ 650:aa6a0b7968f7

Added test case for bug #100 Removed dubious check for not emitting static private global in other modules without access. This should be handled properly somewhere else, it's causing unresolved global errors for stuff that should work (in MiniD)

author	Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date	Sun, 05 Oct 2008 17:28:15 +0200
parents	6aee82889553
children	f5d5bc9295b1

rev	line source
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2 // Compiler implementation of the D programming language
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3 // Copyright (c) 1999-2006 by Digital Mars
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	4 // All Rights Reserved
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	5 // written by Walter Bright
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	6 // http://www.digitalmars.com
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	7 // License for redistribution is by either the Artistic License
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	8 // in artistic.txt, or the GNU General Public License in gnu.txt.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	9 // See the included readme.txt for details.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	10
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	11 #include <stdio.h>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	12 #include <string.h>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	13
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	14 #include "root.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	15 #include "identifier.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	16 #include "mars.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	17 #include "lexer.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	18 #include "id.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	19
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	20 Identifier::Identifier(const char *string, int value)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	21 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	22 //printf("Identifier('%s', %d)\n", string, value);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	23 this->string = string;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	24 this->value = value;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	25 this->len = strlen(string);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	26 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	27
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	28 hash_t Identifier::hashCode()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	29 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	30 return String::calcHash(string);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	31 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	32
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	33 int Identifier::equals(Object *o)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	34 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	35 return this == o \|\| memcmp(string,o->toChars(),len+1) == 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	36 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	37
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	38 int Identifier::compare(Object *o)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	39 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	40 return memcmp(string, o->toChars(), len + 1);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	41 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	42
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	43 char *Identifier::toChars()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	44 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	45 return (char *)string;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	46 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	47
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	48 char *Identifier::toHChars2()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	49 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	50 char *p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	51
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	52 if (this == Id::ctor) p = "this";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	53 else if (this == Id::dtor) p = "~this";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	54 else if (this == Id::classInvariant) p = "invariant";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	55 else if (this == Id::unitTest) p = "unittest";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	56 else if (this == Id::dollar) p = "$";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	57 else if (this == Id::withSym) p = "with";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	58 else if (this == Id::result) p = "result";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	59 else if (this == Id::returnLabel) p = "return";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	60 else
19 788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	61 { p = toChars();
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	62 if (*p == '_')
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	63 {
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	64 if (memcmp(p, "_staticCtor", 11) == 0)
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	65 p = "static this";
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	66 else if (memcmp(p, "_staticDtor", 11) == 0)
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	67 p = "static ~this";
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	68 }
788401029ecf [svn r23] * Updated to DMD 1.021 lindquist parents: 1 diff changeset	69 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	70
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	71 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	72 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	73
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	74 void Identifier::print()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	75 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	76 fprintf(stdmsg, "%s",string);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	77 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	78
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	79 int Identifier::dyncast()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	80 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	81 return DYNCAST_IDENTIFIER;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	82 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	83
510 6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	84
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	85 Identifier Identifier::generateId(const char prefix)
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	86 {
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	87 static size_t i;
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	88
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	89 return generateId(prefix, ++i);
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	90 }
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	91
6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	92 Identifier Identifier::generateId(const char prefix, size_t i)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	93 { OutBuffer buf;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	94
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	95 buf.writestring(prefix);
510 6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	96 buf.printf("%zu", i);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	97
510 6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	98 char *id = buf.toChars();
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	99 buf.data = NULL;
510 6aee82889553 Merged DMD 1.034, array operations are not yet implemented ;) Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 19 diff changeset	100 return Lexer::idPool(id);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	101 }

Mercurial > projects > ldc

annotate dmd/identifier.c @ 650:aa6a0b7968f7