Contar Lineas de Codigo Logicas y Fisicas

bustio · #1 14-11-2005

Creo que no entendi muy bien lo que me tratas de decir con lo de destruir mi instancia de Trash... y aprovecho para comentarte un poco mas mi algoritmo de antes.

Código Delphi [-]{Procedimiento que marca como malas las lineas que estan dentro de llaves,
pues son todas comentarios.}
procedure TLOCounter.DelMultipleComments;
var
  i, k:  Integer;
  Token: String;
  Line:  String;
  Trash: TTrashLine;//Clase para almacenar el numero de las lineas donde hay 
comentarios y el tipo de comentario que es.
begin
  TrimL;//Metodos de la clase TLOCounter que elimina los espacios en blanco a la derecha y a la izquierda de las lineas del codigo que se analiza.
  TrimR;

  for i := 0 to LinesOfCode.Count - 1 do
  begin
    Line := LinesOfCode.Strings[i];
    Token := Copy(Line,1,1);//token es el primer caracter de la linea a 
procesar.
    If Token = '{' then
    begin
      Trash := TTrashLine.Create;
      Trash.LineNumber := i;
      Trash.TrashType := 'MC';//MC = MultiComentario
      FTrashList.Add(Trash);
      //Si ya termine de utilizar la variable TRASH, por que al decirle 
TRASH.Destroy en la lista se almacenan valores distintos a los que le entre?
      if Line[length(Line)] <> '}' then
      begin
        k := i;
        repeat
        {si el primer caracter es "{" quiere decir que a partir de ahi lo que 
vienen son comentarios, por lo tanto, marco desde ese simbolo hasta que 
encuentre "}"}
          inc(k);//voy a la proxima linea para analizarla...
          Line := LinesOfCode.Strings[k];
          Token := Copy(Line,length(Line),1);
          if Token <> '}' then
          begin
            Trash := TTrashLine.Create;
            Trash.LineNumber := k;
            Trash.TrashType := 'MC';
            FTrashList.Add(Trash);//Lista con las lineas que no me interesa 
analizar.
          end;
        until (Token = '}') or (k = LinesOfCode.Count - 1);//repit hasta que el
ultimo carater de la linea analizada sea "}"
{pero como en ese momento termine el ciclo, no he almacenado la linea
ultima, y es por eso que fuera del ciclo la guardo.}
        Trash := TTrashLine.Create;
        Trash.LineNumber := k;
        Trash.TrashType := 'MC';
        FTrashList.Add(Trash);
      end;
    end;
  end;
end;

Hasta ahora eso es loq ue tengo hecho. Pero que sucede.. que una linea logica puede ser dividida en 2 o mas lineas fisicas cuando pasa esto:

1.- Se hace referencia a una instruccion muy larga(ejemplo antes citado, Por ejemplo esto:
TClase(MiObjeto.MiFuncion[6].Propiedad1).Elemento[3].Text := TObjeto.Propiedad1.Parametro[Objeto.Propiedad2.Index].Value;
)
2.- Sentencia IF con condiciones muy largas. La solucion que propongo es buscar la palabra THEN y contar todo lo anterior como una sola linea.

P.Ej:

If (TClase(OBjeto).propiedad1.parametro = valor) and (TClase(Objeto).propiedad2.valor = valor) and (Objeto.propiedad3 = 3) then....

3.- EN una linea hay parentesis o cualquiero otro signo que tiene igual uncion que el parentesis o "[" con muchos parametros dentro.

4.- un for, while o repeat... until con muchas condicionales y muy largo.

5. - declaracion de USes muy largas.

Estos son mi sproblemas!!!!

[Lepe] · #2 15-11-2005

En principio, lo que necesitas en un analizador léxico y un analizador
sintáctico. Esto se da en la asignatura de Compiladores.

El léxico se encarga de encontrar los tokens, y se los pasa al sintáctico para
que vea el orden en el que se ha detectado, en base a eso, y según las
expresiones regulares que se hayan proporcionado al sintáctico, se bifurca en
una ejecución u otra.

No sé que tal andas en estos temas, pero existe el Lex y Yacc para delphi
hecho en delphi; es open Source:

Cita:

Empezado por TP

TP Lex and Yacc { The Compiler Writer's Tools for Turbo Pascal
Version 4.1 User Manual
Albert Graf
Department of Musicinformatics
Johannes Gutenberg-University Mainz

http://www.musikwissenschaft.uni-mainz.de/~ag/tply
For information about the Free Pascal Compiler, please refer to:
http://www.freepascal.org

De hecho, es lo que se usa para estos casos.

Vamos con el tema del Trash.
No sé si ya has trabajado con punteros anteriormente, así que te digo las
bases.

En realidad Trash es una variable de 32 bits que es un puntero al objeto.
¿Que significa eso?, que Trash guarda la dirección de memoria donde ese
objeto reside, en este ejemplo el 100

Código:

 Trash                                              Memoria Ram
 -------                          Dirección    -----------------------------
|  100 |				0     |                            |
 -------				100   |aqui está el objeto Trash   |
					200   | y puede que ocupe mucha ram|
					300   |Otro objeto Trash empieza aq|
					      |y ocupa el mismo espacio |
					       -----------------------------

De hecho, al porner

Código Delphi [-]   var Trash :TTrash;

Simplemente se reservan 32 bits en la memoria ram ( lo que está en color
azul).
Cuando haces Trash := TTrash.Create;
es cuando se reserva el espacio en memoria ram y se crea el objeto (lo
puesto en rojo). y la variable trash, se le asigna la direccion de la ram donde
está ese objeto, en este caso 100.

Cuando por segunda vez haces Trash := TTrash.Create;
Se crea el objeto que he puesto en verde, y a la variable Trash, (el azul) se
le pone 300 en este caso.

Bien, como ves la variable Trash (en azul) ahora tiene la dirección 300, por
tanto, el primero que se creó (el rojo), ya no puedes acceder a él. De ahora
en adelante Trash, hace referencia al verde, el rojo se queda en Memoria
Ram:
- sin poder acceder a él
- Sin poder liberar la memoria

Es decir, el objeto rojo se queda en el limbo.

Esto es lo que te ocurre con los 2 primeros Trash que creas, y solo puedes
acceder al último Trash, en concreto:

Código Delphi [-]until (Token = '}') or (k = LinesOfCode.Count - 1);
        Trash := TTrashLine.Create;
        Trash.LineNumber := k;
        Trash.TrashType := 'MC';
        FTrashList.Add(Trash);

Los 2 Trash anteriores se quedan en el limbo.

Por eso decía que pongas 3 variables Trash.

Edito: Pon la implementación de FTrashList y como creas FTrashList y como la destruyes. Sin eso no puedo ayudarte.

Espero que se entienda.

[Lepe] · #3 15-11-2005

Aunque lo que te he comentado es bueno, realmente no es así, es decir, no
se quedan ninguno en el Limbo, ninguno de los tres. ¿Por qué?

Porque una linea de código se me escapó a la vista:

Código Delphi [-]   FTrashList.Add(Trash);

La variable Trash, si se queda apuntando al tercer Trash creado, pero los 2
anteriores, se añaden a FTrashList, realmente no se quedan en el limbo, pero
que conste, en esa rutina tienes 3 objetos Trash distintos. ¿hasta ahí de
acuerdo?

El error que tienes ahora, es que estas

Cita:

//Si ya termine de utilizar la variable TRASH, por que al decirle
TRASH.Destroy en la lista se almacenan valores distintos a los que le entre?

1º - No veo en ningún sitio que llames a Destroy.
2º- Como te dije, no debes usar Destroy, usa FreeAnnil(Trash).
3º- Has dejado de usar la variable Trash (el puntero de color azul), pero el
objeto realmente (color rojo o verde) sigue en memoria, y puedes acceder a
él a traves de FTrashList.
4º- No puedes ni debes usar Trash.Free, porque destruirías el objeto de la
memoria RAM. Si liberas el objeto con Trash.Free, y despues intentas acceder
desde FTrashList.Items[i] a ese mismo objeto, tendrás un Access Violation.

No conozco realmente la implementación de FTrashList; por el nombre parece
una lista de objetos, y si es así, en realidad es una lista de punteros.

Solo puedes destruir el Trash, desde un sólo sitio, yo lo haría al liberar el FTrashList.

Edito: Pon la implementación de FTrashList, cuando lo creas y como lo destruyes.

saludos

bustio · #4 15-11-2005

Hola Lepe! me has dejado sin palabras!!! Que demostracion de sabiduria!! jajajaja
Nada, que ya solucione casi todos los problemas.
Lo de analizar las lineas.. pues ya solucione los problemas uqe te plantee arriba con el For, If, USES y VAR... y sobre lo del destroy y demas.. pues es cmo dices... Muy buena tu explicacion!! Gracias

n3mohack · #5 15-11-2005

mirsh!..
suerte con tu proyecto, yo estoy haciendo algo parecido, de hecho mi aplicación debe analizar y reconocer el código fuente para VB, c, ProC, y Plsql.
Al principio tube unos problemitas como tú, pero ya va bastante avanzado y sin mayores complejidades. si quieres compartir experiencias.. escríbeme.
Salu2...

bustio · #6 15-11-2005

Cita:

Empezado por n3mohack

si quieres compartir experiencias.. escríbeme.
Salu2...

Pues claro que deseo compartir experiencias!!!! y tal vez hasta se pueda desarrolar una herramienta integrada qeu ademas delos codigos que tu analizas tambien analice el delphi!