Tengo el siguiente codigo y necesito pasarlo a Java:
Código:
UNIT TDA_cola;
INTERFACE
const nulo = nil;
type
tinfo = char;
tPos = ^tNodo;
tNodo = record
Info: tinfo;
sig: tPos ;
end;
tCola = record
Ini, Fin: tPos;
end;
procedure Cola_Vacia (var Cola: tCola);
function Es_cola_vacia (Cola: tCola): boolean;
procedure Meter_Cola (x:tinfo; var Cola: tCola );
procedure Sacar_Cola (var x: tinfo; var Cola: tCola);
IMPLEMENTATION
Procedure Cola_Vacía (var Cola: tCola);
begin
with Cola do begin
Ini:=nulo;
Fin:=nulo;
end
end;
function Es_cola_vacia (Cola: tCola): boolean;
begin
Es_cola_vacia:= Cola.Ini = nulo;
end;
procedure Crear_nodo (x: tinfo; var nuevo: tPos );
{Precond: se supone memoria suficiente para crear la variable}
begin
new(nuevo);
nuevo ^.info:=x;
nuevo ^.sig:=nulo;
end;
procedure Meter_Cola (x:tinfo; var Cola: tCola );
var nuevo: tPos ;
begin
Crear_nodo (x, nuevo);
with Cola do begin
if Es_vacia(Cola)
then Ini:= nuevo
else Fin^.sig:= nuevo;
Fin:= nuevo;
end
end;
procedure Sacar_Cola (var x:tInfo; var Cola: tCola );
var auxt: tPos
begin
with Cola do begin
x:= Ini^.info;
aux:= Ini;
Ini:=Ini^.sig;
If Ini:=nulo then Fin:=nulo; {si la cola se queda vacia la inicializo}
dispose(aux);
end
end;
end.
He leido un poco sobre Pascal y su estructura, ya mas o menos como funciona. Pero al momento de pasarlo a Java no hallo muy bien como usar las variables del principio (tCola, tinfo, tPos, ^tNodo, record.... ) y la constante.
Espero me puedan ayudar.