with ada.strings.unbounded, ustrings, unchecked_deallocation;
use ada.strings.unbounded, ustrings;
package body dicc is

  procedure disponer is new unchecked_deallocation(unDato,ptDato);

  procedure vacio(d:out diccionario) is
  begin
    d:=null;
  end vacio;
  
  procedure busca(d:in diccionario; palabra:in ustring;
                  definicion:out ustring) is
    aux:ptDato;
  begin
    aux:=ptDato(d);
    while aux/=null and then aux.clave<palabra loop
      aux:=aux.sig;
    end loop;
    if aux=null then 
      definicion:=null_unbounded_string;
    else 
      if aux.clave=palabra then
        definicion:=aux.info;
      else
        definicion:=null_unbounded_string;
      end if;
    end if;
  end busca;
  
  procedure inserta(d:in out diccionario; palabra,definicion:in ustring) is
    aux,nuevo:ptDato; reg_aux:unDato;
  begin
    if d=null then --lista vacia
      d:=new unDato;
      d.clave:=palabra;
      d.info:=definicion;
      d.sig:=null;
    else
      if palabra<d.clave then --insercion al principio
        aux:=ptDato(d);
        d:=new unDato;
        d.clave:=palabra;
        d.info:=definicion;
        d.sig:=aux;
      else --buscar punto de insercion
        aux:=ptDato(d);
        while palabra>aux.clave and aux.sig/=null loop
          aux:=aux.sig;
        end loop;
        if palabra<aux.clave then --insercion entre dos registros
          reg_aux.clave:=palabra;
          reg_aux.info:=definicion;
          nuevo:=new unDato;
          nuevo.all:=aux.all;
          aux.all:=reg_aux;
          aux.sig:=nuevo;
        else
          if palabra=aux.clave then --actualizar definicion
            aux.info:=definicion;
          else --insercion al final
            aux.sig:=new unDato;
            aux:=aux.sig;
            aux.clave:=palabra;
            aux.info:=definicion;
            aux.sig:=null;
          end if;
        end if;
      end if;
    end if;
  end inserta;
  
  procedure borra(d:in out diccionario; palabra:in ustring) is
    aux1,aux2:ptDato; parar:boolean:=false;
  begin
    aux1:=ptDato(d);
    while aux1/=null and not parar loop
      if aux1.clave=palabra then --borrar el registro
        if aux1=ptDato(d) then -- es el primero
          d:=diccionario(d.sig);
          disponer(aux1);
          parar:=true;
        else --no es el primero
          aux2.sig:=aux1.sig;
          disponer(aux1);
          parar:=true;
        end if;
      else --avanzar
        aux2:=aux1;
        aux1:=aux1.sig;
      end if;
    end loop;
  end borra;
  
  --procedure asignar(dout:out diccionario; din:in diccionario) is
  --procedure liberar(d:in out diccionario) is
  --function "="(d1,d2:in diccionario) return boolean is
end dicc;