Adicionado nome completo nos arquivos carregados

Author: humbertotecnologia

Analise.cs

@@ -830,6 +830,7 @@ private void nivelRaiz(ref Trechos trechos)
                     nomeImport += ".hcb";
                     if(File.Exists(nomeImport))
                     {
+                        nomeImport = Path.GetFullPath(nomeImport);
                         if(!Fontes.Any(f => f.NomeCompleto == nomeImport))
                             Processar(new Fonte(nomeImport));
                     }

Distro/Atual/hcbasic.dll

@@ -8,7 +8,7 @@ class Fonte
     public Fonte(string endereco)
     {
         _arq = new FileStream(endereco, FileMode.Open, FileAccess.Read);
-        NomeCompleto = Path.GetFullPath(endereco);
+        NomeCompleto = endereco;
         _leitor = new StreamReader(_arq);
     }
 

Distro/Atual/hcbasic.pdb

@@ -25,9 +25,7 @@ protected override void InicializaInterno(Ambiente amb)
     {
         InicializaLista(new List<No>(Campos), amb);
         Estrutura? cons = amb.PesquisaEstrutura(Nome);
-        if(cons != null && cons != this) throw Erro($"Estrutura {Nome} já existe.");
-        cons = amb.PesquisaModulo(Nome);
-        //if(cons != null) throw Erro($"Já existe um módulo com o nome {Nome}.");
+        if(cons != null && cons != this) throw Erro($"Estrutura {Nome} já existe em {cons.Trecho.Fonte.NomeCompleto}:{cons.Trecho.Linha}.");
         int posicao = 0;
         foreach (var item in Campos)
         {

Fonte.cs

@@ -51,9 +51,7 @@ protected override void InicializaInterno(Ambiente amb)
         }
         amb.Modulo = null;
         Estrutura? cons = amb.PesquisaModulo(Nome);
-        if(cons != null && cons != this) throw Erro($"Módulo {Nome} já existe.");
-        cons = amb.PesquisaEstrutura(Nome);
-        //if(cons != null) throw Erro($"Já existe uma estrutura com o nome {Nome}.");
+        if(cons != null && cons != this) throw Erro($"Módulo {Nome} já existe em {cons.Trecho.Fonte.NomeCompleto}:{cons.Trecho.Linha}.");
     }
 
     protected override No OtimizaInterno(Ambiente amb)