projects/ddmd: dmd/Module.d comparison

comparison dmd/Module.d @ 79:43073c7c7769

updated to 2.035 also implemented a few missing functions still crashes in Import.importAll though

author	Trass3r
date	Mon, 30 Aug 2010 03:57:51 +0200
parents	ad4792a1cfd6
children	722df8e7509c

comparison

equal deleted inserted replaced

-:b98fa8a4bf04
+:43073c7c7769
 import dmd.Import;
 import dmd.ClassDeclaration;
 import dmd.ModuleDeclaration;
 import dmd.File;
 import dmd.Identifier;
+import dmd.Json;
 import dmd.Dsymbol;
 import dmd.ModuleInfoDeclaration;
 import dmd.FuncDeclaration;
 import dmd.Loc;
 import dmd.Macro;
 override void toCBuffer(OutBuffer buf, HdrGenState* hgs)
 	{
 		assert(false);
 	}
+override void toJsonBuffer(OutBuffer buf)
+{
+	buf.writestring("{\n");
+	JsonProperty(buf, Pname, md.toChars());
+	JsonProperty(buf, Pkind, kind());
+	JsonProperty(buf, Pfile, srcfile.toChars());
+	if (comment)
+		JsonProperty(buf, Pcomment, comment);
+	JsonString(buf, Pmembers);
+	buf.writestring(" : [\n");
+	size_t offset = buf.offset;
+	foreach (Dsymbol s; members)
+	{
+	    	if (offset != buf.offset)
+	    	{
+	    		buf.writestring(",");
+	    		offset = buf.offset;
+	    	}
+	    	s.toJsonBuffer(buf);
+	}
+	buf.writestring("]\n");
+	buf.writestring("}\n");
+}
 override string kind()
 	{
 		return "module";
 	}
 		/* If it starts with the string "Ddoc", then it's a documentation
 		 * source file.
 		 */
 		if (buflen >= 4 && memcmp(buf, "Ddoc".ptr, 4) == 0)
 		{
-		comment = buf + 4;
+		comment = cast(string) ((buf + 4)[0 .. buflen]);
 		isDocFile = 1;
 		if (!docfile)
 			setDocfile();
 		return;
 		}
 			///Html h = new Html(srcname, buf, buflen);
 			///h.extractCode(dbuf);
 			///buf = dbuf.data;
 			///buflen = dbuf.offset;
-version (IN_GCC) {
+version (IN_GCC)
+{
 			// dump extracted source
 			///if (dump_source)
 			///	d_gcc_dump_source(srcname, "d.utf-8", buf, buflen);
 }
 		}
 				amodules.push(cast(void*)this);
 			}
 		}
 	}
+	override void importAll(Scope prevsc)
+	{
+		//writef("+Module.importAll(this = %p, '%s'): parent = %p\n", this, toChars(), parent);
+		if (scope_ !is null)
+			return;			// already done
+		/* Note that modules get their own scope, from scratch.
+		 * This is so regardless of where in the syntax a module
+		 * gets imported, it is unaffected by context.
+		 * Ignore prevsc.
+		 */
+		Scope sc = Scope.createGlobal(this);	// create root scope
+		// Add import of "object" if this module isn't "object"
+		if (ident != Id.object)
+		{
+			if (members.dim == 0 || members[0].ident != Id.object)
+			{
+				Import im = new Import(Loc(), null, Id.object, null, 0);
+				members.shift(im);
+			}
+		}
+		if (!symtab)
+		{
+			// Add all symbols into module's symbol table
+			symtab = new DsymbolTable();
+			foreach (Dsymbol s; members)
+				s.addMember(null, sc.scopesym, 1);
+		}
+		// anything else should be run after addMember, so version/debug symbols are defined
+		/* Set scope for the symbols so that if we forward reference
+		 * a symbol, it can possibly be resolved on the spot.
+		 * If this works out well, it can be extended to all modules
+		 * before any semantic() on any of them.
+		 */
+		setScope(sc);		// remember module scope for semantic
+		foreach (Dsymbol s; members)
+			s.setScope(sc);
+		foreach (Dsymbol s; members)
+			s.importAll(sc);
+		sc = sc.pop();
+		sc.pop();		// 2 pops because Scope::createGlobal() created 2
+	}
 void semantic()	// semantic analysis
 	{
-		int i;
 		if (semanticstarted)
 			return;
 		//printf("+Module.semantic(this = %p, '%s'): parent = %p\n", this, toChars(), parent);
 		semanticstarted = 1;
 		// Note that modules get their own scope, from scratch.
 		// This is so regardless of where in the syntax a module
 		// gets imported, it is unaffected by context.
-		Scope sc = Scope.createGlobal(this);	// create root scope
+		Scope sc = scope_; // // see if already got one from importAll()
+		if (!sc)
-		//printf("Module = %p, linkage = %d\n", sc.scopesym, sc.linkage);
+	    {
+			writef("test2\n");
+			Scope.createGlobal(this);	// create root scope
+	    }
+		//writef("Module = %p, linkage = %d\n", sc.scopesym, sc.linkage);
+static if (false)
+{
 		// Add import of "object" if this module isn't "object"
 		if (ident !is Id.object)
 		{
 			auto im = new Import(Loc(0), null, Id.object, null, 0);
 			members.shift(im);
 		 * If this works out well, it can be extended to all modules
 		 * before any semantic() on any of them.
 		 */
 		foreach(Dsymbol s; members)
 			s.setScope(sc);
+}
 		// Pass 1 semantic routines: do public side of the definition
 		foreach (Dsymbol s; members)
 		{
 			//writef("\tModule('%s'): '%s'.semantic()\n", toChars(), s.toChars());
 			s.semantic(sc);
 			runDeferredSemantic();
 		}
-		sc = sc.pop();
+		if (!scope_)
-		sc.pop();		// 2 pops because Scope.createGlobal() created 2
+	    {
+			sc = sc.pop();
+			sc.pop();		// 2 pops because Scope.createGlobal() created 2
+	    }
 		semanticRun = semanticstarted;
 		//printf("-Module.semantic(this = %p, '%s'): parent = %p\n", this, toChars(), parent);
 	}
 void semantic2()	// pass 2 semantic analysis
 		semanticRun = semanticstarted;
 	}
 override void inlineScan()	// scan for functions to inline
 	{
-		int i;
 		if (semanticstarted >= 4)
 			return;
 		assert(semanticstarted == 3);
 		semanticstarted = 4;
 override Dsymbol search(Loc loc, Identifier ident, int flags)
 	{
 		/* Since modules can be circularly referenced,
 		 * need to stop infinite recursive searches.
+		 * This is done with the cache.
 		 */
 		//printf("%s Module.search('%s', flags = %d) insearch = %d\n", toChars(), ident.toChars(), flags, insearch);
 		Dsymbol s;
 		if (insearch)
 			s = null;
-	    else if (searchCacheIdent == ident && searchCacheFlags == flags && searchCacheSymbol)
+	    else if (searchCacheIdent == ident && searchCacheFlags == flags)
 		{
 			s = searchCacheSymbol;
 			//printf("%s Module.search('%s', flags = %d) insearch = %d searchCacheSymbol = %s\n", toChars(), ident.toChars(), flags, insearch, searchCacheSymbol ? searchCacheSymbol.toChars() : "null");
 		}
 		else
 			objfile.remove();
 		if (docfile)
 			docfile.remove();
 	}
+	override Dsymbol symtabInsert(Dsymbol s)
+	{
+		searchCacheIdent = null;	// symbol is inserted, so invalidate cache
+		return Package.symtabInsert(s);
+	}
 	/*******************************************
 	 * Can't run semantic on s now, try again later.
 	 */
 	void addDeferredSemantic(Dsymbol s)
 	{
 		if (sd == s)
 		    return;
 	    }
-	    //printf("Module::addDeferredSemantic('%s')\n", s->toChars());
+	    //printf("Module::addDeferredSemantic('%s')\n", s.toChars());
 	    deferred.push(cast(void*)s);
 	}
 	/******************************************
 	 * Run semantic() on deferred symbols.

Mercurial > projects > ddmd

comparison dmd/Module.d @ 79:43073c7c7769