src/semantic/dotnet/ghul_namespace_creator.ghul

1		namespace Semantic.DotNet is
2		use TYPE = System.Type;
3
4		use System.Reflection.Assembly;
5
6		use IO.Std;
7
8		use Collections.MAP;
9		use Collections.SET;
10		use Collections.LIST;
11		use Collections.Iterable;
12
13		use Logging.TIMERS;
14
15		class GHUL_NAMESPACE_CREATOR(
16		_timers: TIMERS,
17		_ghul_symbol_table: Semantic.SYMBOL_TABLE,
18		_namespaces: NAMESPACES,
19		_type_details_lookup: TYPE_DETAILS_LOOKUP
20		) is
21		_is_enabled: bool;
22		_is_started: bool;
23
24		init(..) is
25		_is_enabled = true;
26		si
27
28		disable() is
29		_is_enabled = false;
30		si
31
32		create_namespaces() is
33		if !_is_enabled then
34		return;
35		fi
36
37		let current mut = LIST[string]();
38
39		let namespaces = LIST[string]();
40
41		for ns in _type_details_lookup.ghul_namespaces do
42		namespaces.add(ns);
43		od
44
45		namespaces.sort();
46
47		for a in namespaces do
48		let to_create = LIST(a.split(['.']));
49
50		while current.count > to_create.count do
51		_namespaces.leave_namespace(null, null);
52		_ghul_symbol_table.leave_scope();
53		current.remove_at(current.count - 1);
54		od
55
56		let index mut = 0;
57
58		while index < current.count /\ current[index] =~ to_create[index] do
59		index = index + 1;
60		od
61
62		while current.count > index do
63		_namespaces.leave_namespace(null, null);
64		_ghul_symbol_table.leave_scope();
65		current.remove_at(current.count - 1);
66		od
67
68		for i in index..to_create.count do
69		let ns = _namespaces.declare_and_enter_namespace(Source.LOCATION.internal, to_create[i], null, false);
70		_ghul_symbol_table.enter_scope(ns);
71		od
72
73		current = to_create;
74		od
75
76		while current.count > 0 do
77		_namespaces.leave_namespace(null, null);
78		_ghul_symbol_table.leave_scope();
79		current.remove_at(current.count - 1);
80		od
81		si
82		si
83		si