public static Dictionary <syntax_tree_node, compiler_directive> BuildLinks(SyntaxTree.compilation_unit unit, List <Errors.Error> ErrorsList)
{
Dictionary <syntax_tree_node, compiler_directive> links = new Dictionary <syntax_tree_node, compiler_directive>();
SyntaxTreeNodeFinder finder = new SyntaxTreeNodeFinder();
if (unit.compiler_directives != null)
{
foreach (compiler_directive cd in unit.compiler_directives)
{
if (IsKnownDirectivee(cd))
{
syntax_tree_node sn = finder.Find(unit, cd.source_context);
if (sn != null)
{
if (!links.ContainsKey(sn))
{
links.Add(sn, cd);
}
else
{
ErrorsList.Add(new PascalABCCompiler.Errors.CommonCompilerError("Повторное объявление директивы", unit.file_name, sn.source_context.begin_position.line_num, sn.source_context.begin_position.column_num));
}
}
}
}
}
return(links);
}
public syntax_tree_node Find(SyntaxTree.compilation_unit unit, SourceContext findContext)
{
_findContext = findContext;
_findResult = null;
//unit.visit(this);
ProcessNode(unit);
return(_findResult);
}
//TODO: Исправить коллекцию модулей.
public PascalABCCompiler.TreeRealization.common_unit_node CompileInterface(SyntaxTree.compilation_unit SyntaxUnit,
PascalABCCompiler.TreeRealization.unit_node_list UsedUnits, List <Errors.Error> ErrorsList, List <Errors.CompilerWarning> WarningsList, PascalABCCompiler.Errors.SyntaxError parser_error,
System.Collections.Hashtable bad_nodes, TreeRealization.using_namespace_list namespaces, Dictionary <SyntaxTree.syntax_tree_node, string> docs, bool debug, bool debugging)
{
//convertion_data_and_alghoritms.__i = 0;
stv.parser_error = parser_error;
stv.bad_nodes_in_syntax_tree = bad_nodes;
stv.referenced_units = UsedUnits;
//stv.comp_units=UsedUnits;
//stv.visit(SyntaxUnit
//stv.interface_using_list = namespaces;
stv.using_list.clear();
stv.interface_using_list.clear();
stv.using_list.AddRange(namespaces);
stv.current_document = new TreeRealization.document(SyntaxUnit.file_name);
stv.ErrorsList = ErrorsList;
stv.WarningsList = WarningsList;
stv.SymbolTable.CaseSensitive = SemanticRules.SymbolTableCaseSensitive;
stv.docs = docs;
stv.debug = debug;
stv.debugging = debugging;
SystemLibrary.SystemLibrary.syn_visitor = stv;
SetSemanticRules(SyntaxUnit);
foreach (SyntaxTree.compiler_directive cd in SyntaxUnit.compiler_directives)
{
cd.visit(stv);
}
stv.DirectivesToNodesLinks = CompilerDirectivesToSyntaxTreeNodesLinker.BuildLinks(SyntaxUnit, ErrorsList); //MikhailoMMX добавил передачу списка ошибок (02.10.10)
SyntaxUnit.visit(stv);
/*SyntaxTree.program_module pmod=SyntaxUnit as SyntaxTree.program_module;
* if (pmod!=null)
* {
* stv.visit(pmod);
* }
* else
* {
* SyntaxTree.unit_module umod=SyntaxUnit as SyntaxTree.unit_module;
* if (umod==null)
* {
* throw new PascalABCCompiler.TreeConverter.CompilerInternalError("Undefined module type (not program and not unit)");
* }
* stv.visit(umod);
* }*/
//stv.visit(SyntaxUnit);
//if (ErrorsList.Count>0) throw ErrorsList[0];
return(stv.compiled_unit);
}
public void CompileImplementation(PascalABCCompiler.TreeRealization.common_unit_node SemanticUnit,
SyntaxTree.compilation_unit SyntaxUnit, PascalABCCompiler.TreeRealization.unit_node_list UsedUnits, List <Errors.Error> ErrorsList, List <Errors.CompilerWarning> WarningsList,
PascalABCCompiler.Errors.SyntaxError parser_error, System.Collections.Hashtable bad_nodes, TreeRealization.using_namespace_list interface_namespaces, TreeRealization.using_namespace_list imlementation_namespaces,
Dictionary <SyntaxTree.syntax_tree_node, string> docs, bool debug, bool debugging)
{
//if (ErrorsList.Count>0) throw ErrorsList[0];
stv.parser_error = parser_error;
stv.bad_nodes_in_syntax_tree = bad_nodes;
stv.referenced_units = UsedUnits;
stv.using_list.clear();
stv.using_list.AddRange(interface_namespaces);
stv.interface_using_list.AddRange(interface_namespaces);
stv.using_list.AddRange(imlementation_namespaces);
stv.ErrorsList = ErrorsList;
stv.WarningsList = WarningsList;
stv.SymbolTable.CaseSensitive = SemanticRules.SymbolTableCaseSensitive;
if (docs != null)
{
stv.docs = docs;
}
stv.debug = debug;
stv.debugging = debugging;
SystemLibrary.SystemLibrary.syn_visitor = stv;
SetSemanticRules(SyntaxUnit);
SyntaxTree.unit_module umod = SyntaxUnit as SyntaxTree.unit_module;
if (umod == null)
{
throw new PascalABCCompiler.TreeConverter.CompilerInternalError("Program has not implementation part");
}
//TODO: Переделать, чтобы Сашин код работал с common_unit_node.
stv.compiled_unit = (PascalABCCompiler.TreeRealization.common_unit_node)SemanticUnit;
stv.current_document = new TreeRealization.document(SyntaxUnit.file_name);
foreach (SyntaxTree.compiler_directive cd in umod.compiler_directives)
{
cd.visit(stv);
}
stv.visit_implementation(umod);
//stv.visit(SyntaxUnit);
//return stv.compiled_unit;
}
void SetSemanticRules(SyntaxTree.compilation_unit SyntaxUnit)
{
SemanticRules.ClassBaseType = SystemLibrary.SystemLibrary.object_type;
SemanticRules.StructBaseType = SystemLibrary.SystemLibrary.value_type;
switch (SyntaxUnit.Language)
{
case PascalABCCompiler.SyntaxTree.LanguageId.PascalABCNET:
SemanticRules.AddResultVariable = true;
SemanticRules.NullBasedStrings = false;
SemanticRules.FastStrings = false;
SemanticRules.InitStringAsEmptyString = true;
SemanticRules.UseDivisionAssignmentOperatorsForIntegerTypes = false;
SemanticRules.ManyVariablesOneInitializator = false;
SemanticRules.OrderIndependedMethodNames = true;
SemanticRules.OrderIndependedFunctionNames = false;
SemanticRules.OrderIndependedTypeNames = false;
SemanticRules.EnableExitProcedure = true;
SemanticRules.StrongPointersTypeCheckForDotNet = true;
SemanticRules.AllowChangeLoopVariable = false;
SemanticRules.AllowGlobalVisibilityForPABCDll = true;
break;
case PascalABCCompiler.SyntaxTree.LanguageId.C:
SemanticRules.AddResultVariable = false;
SemanticRules.NullBasedStrings = true;
SemanticRules.InitStringAsEmptyString = false;
SemanticRules.UseDivisionAssignmentOperatorsForIntegerTypes = true;
SemanticRules.ManyVariablesOneInitializator = false;
SemanticRules.OrderIndependedMethodNames = false;
SemanticRules.OrderIndependedFunctionNames = false;
SemanticRules.OrderIndependedTypeNames = false;
SemanticRules.EnableExitProcedure = false;
SemanticRules.StrongPointersTypeCheckForDotNet = false;
SemanticRules.AllowGlobalVisibilityForPABCDll = false;
break;
}
}
