3.1. ¿Cómo se escriben las configuraciones?

En cualquier punto de la configuración es posible usar comentarios, que al igual que en Ada se comienzan con los caracteres '-- '.

Los ficheros de configuración han de contener un bloque "configuration", cuyo nombre ha de coincidir, al igual que en el caso de los paquetes, con el nombre del fichero en el que se encuentra. Es decir:

  
	configuration Ejemplo_Configuracion1 is
	     --
	     -- Código de la configuración
	     --
	end Ejemplo_Configuracion1;
      

CONTINUAR !!! .. no esta terminado

4.1. calculadora.ads

  
	package Calculadora is

	pragma Remote_Call_Interface;

	function Sumar (Operador1 : in Integer;
                      	Operador2 : in Integer)
                    	return Integer;

	function Restar (Operador1 : in Integer;
	                 Operador2 : in Integer)
                     	return Integer;

	end Calculadora;
      

En esta definición del paquete llama la atención la instrucción 'pragma'. Un pragma es simplemente una directiva para el compilador. En concreto, en este ejemplo, el pragma Remote_Call_Interface hace que se exporte la interfaz del paquete para que otras particiones puedan realizar llamadas a sus funciones, es decir, básicamente una llamada RPC.

4.2. calculadora.adb

  
        package body Calculadora is

            function Sumar (Operador1 : in Integer;
                            Operador2 : in Integer)
                            return Integer is
            begin
               return Operador1 + Operador2;
            end Sumar;


            function Restar (Operador1 : in Integer;
                             Operador2 : in Integer)
                             return Integer is
            begin
               return Operador1 - Operador2;
            end Restar;

    	end Calculadora;
      

Este fichero es únicamente la implementación de las funciones del paquete calculadora.

4.3. cliente.adb

  
        with Text_IO; use Text_IO;
        with Calculadora;

        procedure Cliente is
        begin

           Put_Line ("- Calculadora, ¿cuanto es 321+123? = " &
                     Integer'Image (Calculadora.Sumar (321,123)));

           Put_Line ("- Calculadora, ¿cuanto es 321-123? = " &
                     Integer'Image (Calculadora.Restar (321,123)));

        end Cliente;
      

Por último, el cliente. Este programa hace un par de llamadas a los funciones exportadas por el proceso de calculadora. Como se puede ver el código no tiene en cuenta si el proceso calculadora se encuentra corriendo en la misma máquina o en otra. Simplemente realiza llamadas a las funciones de la calculadora. De todo lo demás, que es mucho, ya se ha encargado gnatdist y se encarga ADA.

4.4. ejemplo.cfg

  
        configuration ejemplo is
	        pragma Starter (Ada);

        	Particion1: Partition := (Calculadora);
        	Particion2: Partition := (Cliente);

        	procedure Cliente is in Particion2;
        end ejemplo;
      

Este es el fichero de configuración/compilación de gnatdist.

El pragma Starter describe como queremos que gnatdist compile el proyecto. Existen tres posibilidades: Ada, Shell y None. En este caso es uno de los ejecutables el que lance todos los demás.

A continuación se definen las dos particiones que se han utilizado en este ejemplo: una para la calculadora y la segunda para el cliente que le realiza peticiones.

Por último se especifica cual es la parte principal (el main). Esta partición, lógicamente, ha de tener un body.

Cuidado con los nombres de los ficheros: han de coincidir con el nombre del paquete y además, han de estar en minúsculas. De no ser así gnatdist producirá un error.

4.5. Compilación y ejecución del programa

Para compilar la aplicacion, como ya hemos visto, simplemente hay que ejecutar gnatdist:

  
	$ gnatdist ejemplo.cfg
      

Si no ha habido ningún problema, se habrá producido una salida como esta:

 
        gnatdist: checking configuration consistency
         ------------------------------
         ---- Configuration report ----
         ------------------------------
        Configuration :
           Name        : ejemplo
           Main        : cliente
           Starter     : Ada code

        Partition particion1
           Units       : 
                     - calculadora (rci)

        Partition particion2
           Main        : cliente
           Units       : 
           Name        : ejemplo
           Main        : cliente
           Starter     : Ada code

        Partition particion1
           Units       : 
                     - calculadora (rci)

        Partition particion2
           Main        : cliente
           Units       : 
                     - cliente (normal)

         -------------------------------
        gnatdist: building calculadora caller stubs from calculadora.ads
        gnatdist: building calculadora receiver stubs from calculadora.adb
        gnatdist: building partition particion1
        gnatdist: building partition particion2
        gnatdist: generating starter cliente 
      

En este momento ya tenemos construidos todos los ejecutables:

lrwxrwxrwx    1 alo      alo            10 Oct  9 22:33 cliente -> particion2
-rwxr-xr-x    1 alo      alo       3663802 Oct  9 22:33 particion1
-rwxr-xr-x    1 alo      alo       3723193 Oct  9 22:33 particion2
      

Como podemos ver, al especificar el Pragma Starter (Ada) en el fichero de configuración, gnatdist ha generado un link simbólico al ejecutable que va a lanzar los demás.

En esta prueba vamos a ejecutar los dos programas en la misma máquina, más adelante se explicará como hacerlo en varias.

        $ ./cliente 
        Host for "particion1": localhost
        - Calculadora, ¿cuanto es 321+123? =  444
        - Calculadora, ¿cuanto es 321-123? =  198
      

Ahora bien.. ¿estamos seguros de que se ha ejecutado un programa paralelo? ¿estamos seguros de que en realizar no se la linkado el paquete Calculadora en los dos ejecutables?

Como podemos ver en los procesos, realmente se han ejecutado los dos programas:

        [..]

7701 pts/10   S      0:00  \_ bash
8753 pts/10   S      0:00  |   \_ ./cliente
8754 pts/10   S      0:00  |       \_ ./cliente
8755 pts/10   S      0:00  |           \_ ./cliente
8793 pts/10   S      0:00  |           \_ ./cliente

        [..]

8788 ?        S      0:00 /home/alo/prog/glade/1/particion1 --detach --boot_location tcp://localhost:35802
8790 ?        R      0:00  \_ /home/alo/prog/glade/1/particion1 --detach --boot_location tcp://localhost:35802
8791 ?        S      0:00      \_ /home/alo/prog/glade/1/particion1 --detach --boot_location tcp://localhost:35802
8792 ?        S      0:00      \_ /home/alo/prog/glade/1/particion1 --detach --boot_location tcp://localhost:35802
8794 ?        R      0:00      \_ /home/alo/prog/glade/1/particion1 --detach --boot_location tcp://localhost:35802
      

Es más, si examinamos los símbolos de los dos ejecutables podemos ver como la calculadora tiene linkadas las funciones de suma y resta:

08050500 g     F .text	00000011              calculadora__restar
080504f0 g     F .text	0000000d              calculadora__sumar
      

y el cliente, además, tiene las funciones que usa gnatdist para el acceso:

080502c0 l     F .text	00000018              calculadora__sumar___clean.0
080502e0 l     F .text	0000005a              calculadora__sumar___input27___read30.2
08050340 l     F .text	0000018a              calculadora__sumar___input27.1
080504d0 g     F .text	000002bf              calculadora__sumar
08050790 l     F .text	00000018              calculadora__restar___clean.3
080507b0 l     F .text	0000005a              calculadora__restar___input67___read70.5
08050810 l     F .text	0000018a              calculadora__restar___input67.4
080509a0 g     F .text	000002bf              calculadora__restar