Gambas2: Implementacion de FIFO y LiFO

ola amigos, hoy hemos estado viendo en el curso de Analista Funcional un ejercicio de Java, sobre implementar FIFO y LIFO:

Según la wiki: http://es.wikipedia.org/wiki/FIFO_y_LIFO_%28contabilidad%29

FIFO y LIFO son métodos contables diseñados para valorar inventarios y asuntos financieros que involucran dinero que una compañía asocia con inventario de bienes producidos, materia prima, partes o componentes.

Esto es lo que me piden en el ejercicio:

Citar:
Desarrollar la implementación de una lista del tipo pila o LIFO (Last Input First Output) y de una lista del tipo cola o FIFO (First Input First Output). Las implementaciones deben ser genéricas, es decir, deben aceptar cualquier tipo de objeto.


Además, definir un tipo genérico Pila que imponga el API genérico de una lista (añadir y extraer elementos).


La clase Actividad4 tiene un método main en el que se crearán los dos tipos de lista, se les añadirá los mismos elementos y en el mismo orden. Se comprobará el orden en el que se extraen los elementos en cada lista.


En la siguiente pagina web viene la solucion para Java

https://docs.google.com/document/pub?id=1TdCH71pyhdKELmwVo4IwQnqUtVErn85KMfOaO4ZZEAk&pli=1

La ventaja de esta solución es que no usa las colecciones "prefabricadas" que ya incorpora Java, con lo cual el código puede ser implementado a  Gambas "facilmente".

Aquí podeis ver el diagrama de clases de UML, de esta solución:

Bien lo he implementado a Gambas, (gambas2: en vez de Objeto lo he implementado a Variant).

Clase ApiLista:
Código:

PUBLIC SUB anadir(Obj AS Variant)

END

PUBLIC FUNCTION extraer() AS Variant

END

PUBLIC FUNCTION getlongitud() AS Integer

END

Clase colaFifo:
Código:

' Gambas class file

INHERITS ApiLista

PRIVATE primero AS Nodo

PRIVATE ultimo AS Nodo

PRIVATE longitud AS Integer

PUBLIC SUB anadir(obj AS Variant)

DIM aux AS NEW Nodo

aux.objeto = obj

IF longitud = 0 THEN

primero = aux

ELSE

ultimo.siguiente = aux

ENDIF

ultimo = aux

longitud += 1

END

PUBLIC FUNCTION extraer() AS Variant

DIM obj AS Variant

IF longitud = 0 THEN

RETURN -111 'cola vacia

ELSE

obj = primero.objeto

primero = primero.siguiente

longitud -= 1

RETURN obj

ENDIF

END

PUBLIC FUNCTION getlongitud() AS Integer

RETURN longitud

END

Clase pilaLiFo:
Código:

' Gambas class file

INHERITS ApiLista

PRIVATE top AS Nodo

PRIVATE longitud AS Integer

PUBLIC SUB anadir(obj AS Variant)

DIM aux AS NEW Nodo

aux.objeto = obj

aux.siguiente = top

top = aux

longitud += 1

END

PUBLIC FUNCTION extraer() AS Variant

DIM obj AS Variant

IF top = NULL THEN

RETURN NULL ' lista vacia

ENDIF

obj = top.objeto

top = top.siguiente

longitud -= 1

RETURN obj

END

PUBLIC FUNCTION getlongitud() AS Integer

RETURN longitud

END

Clase Nodo:
Código:

PUBLIC objeto AS Variant

PUBLIC siguiente AS Nodo

En el Formulario FMain: (añadimos un textarea, para ver el resultado)
Código:

PUBLIC SUB Form_Open()

' obtenido de:

'https://docs.google.com/document/pub?id=1TdCH71pyhdKELmwVo4IwQnqUtVErn85KMfOaO4ZZEAk&pli=1

'java-FIFO-LIFO

DIM i AS Integer

DIM elementos AS Integer

DIM pila AS NEW pilaLiFO[]

DIM cola AS NEW colaFifo[]

' Añadimos los mismos elementos a la pila y la cola.

FOR i = 0 TO 9

pila.anadir("AB" & Str$(I))

cola.anadir("AC" & Str$(I))

NEXT

' Extraer Pila

TextArea1.text = "Orden de Extraccion de la pila LIFO:\n"

elementos = pila.getlongitud()

FOR i = 0 TO elementos - 1

TextArea1.text &= " [" & pila.extraer() & "] "

NEXT

TextArea1.text &= "\n-------\n"

'Extraer en Cola

TextArea1.text &= "Orden de Extraccion de la cola FIFO:\n"

elementos = cola.getlongitud()

FOR i = 0 TO elementos - 1

TextArea1.text &= " [" & cola.extraer() & "] "

NEXT

END

Aqui podeis ver la salida generada por el programa: