DEFINITION MODULE ColaP;
FROM TadItem IMPORT ITEM;

TYPE COLAP;

PROCEDURE Crear():COLAP;
PROCEDURE Destruir(VAR cp:COLAP);

PROCEDURE Longitud(cp:COLAP):CARDINAL;

PROCEDURE Insertar(VAR cp:COLAP; x:ITEM);
(* Pre: Longitud(cp)<>0 *)
PROCEDURE Extraer(VAR cp:COLAP);

(* Pre: Longitud(cp)<>0 *)
PROCEDURE Frente(cp:COLAP):ITEM;

PROCEDURE Copiar(VAR cp1:COLAP; cp2:COLAP);

TYPE TIPO_ERROR = <<a definir>>;

PROCEDURE Error():TIPO_ERROR;

END ColaP.
