ADA - Notificaciones Asincronas

Tengo un problema con la notificacion asincrona entre varios procesos.
Es el siguiente, cuando intento crear dos procesos de un tipo(A) y otro de otro tipo(B) solo consigo que se ejecute un proceso A y uno B, quedandose el otro proceso A esperando, mi codigo es mas o menos asi:

Task A
select
B1.Inicar;
then abort
-- Secuencias que se ejecutan en paralelo
end select
end A
A1:A;
A2:A;

Task B
accept Iniciar do
loop
-- Instrucciones
end loop
end Iniciar;

end B

B1: B;

La solución a tu problema podría ser utilizar el mecanismo de entrada/salida diferida en Ada para lograr una notificación asíncrona entre los procesos. Aquí tienes una posible solución utilizando entradas diferidas:


En este ejemplo, hemos utilizado las entradas `Start` e `Initiate` en los Tasks A y B respectivamente. El Task A espera tanto la entrada `Start` como la invocación de `B1.Initiate` para ejecutar las secuencias de código correspondientes. De esta manera, ambos procesos pueden ejecutarse de forma asíncrona.

Recuerda que esta es solo una posible solución y que los detalles específicos pueden depender de la implementación y configuración de tu entorno de desarrollo. Asegúrate de adaptar el código a tus necesidades particulares.

¡Espero que esta solución te sea útil!