# Programación en Ada/Texto completo

* Si imprimes esta página, o eliges la opción de Vista preliminar de impresión de tu navegador, verás que desaparecen este cuadro y los elementos de navegación de arriba y de la izquierda, pues no son útiles en una versión impresa.
* Pulsando antes en Refrescar esta página te asegurarás de obtener los últimos cambios del libro antes de imprimirlo.
* Para más información, puedes ver Wikilibros:Versión para imprimir.

# Programación en Ada
## Prólogo

El objetivo de este libro es aprender a programar en el lenguaje Ada, desde sus características más sencillas hasta las más avanzadas. Ada es un lenguaje potente, pero no por ello es más complicado que Pascal, por poner un ejemplo.
Los prerrequisitos son: nociones generales de programación y experiencia en otro lenguaje. Aunque si aún no se sabe programar se puede complementar con la lectura de otro manual destinado a ello.
Hay dos maneras de leer este libro. Una es desde el principio hasta el final, siguiendo el orden establecido en el índice y en los encabezados de cada sección. Otra es utilizar los enlaces libremente para saltar a los temas de interés elegidos por el lector.

### Acerca de este libro

Este manual que se está editando ahora en Wikilibros, deriva del libro escrito por José Alfonso Malo Romero. Esa versión ya estaba licenciada según la GFDL, la misma licencia que usamos en Wikilibros.
El estado actual de desarrollo es: , lo que indica que aún hay trabajo por hacer. Recuerda que esto es un wiki: estás invitado a colaborar en la escritura de este libro. Es fácil, lee la bienvenida a los nuevos autores.
Si no quieres o no puedes contribuir pero quieres hacer sugerencias, como qué capítulos te gustaría ver más desarrollados o qué tema echas de menos, puedes hacerlo en la página de discusión.

## Créditos y licencia

Los autores de «Programación en Ada» son:
* José Alfonso Malo Romero, por la versión 1.0.1 (2001 - 2002)
* Por la actual versión de es.wikibooks.org (2004-2005):
** Manuel Gómez (Contribuciones)
** Andrés Soliño (Contribuciones)
** Varios autores de «Ada Programming», por ciertos capítulos que han sido traducidos de ese libro (sus historiales así lo indican).
* Alvaro López Ortega, por la versión inicial de Programación en Ada/GLADE (2001).
Si quieres colaborar, sigue los consejos de «Cómo colaborar». Cuando hayas contribuido a la escritura del libro, añade tu nombre a la lista de autores.

# Introducción

La programación de computadores, esto es, la creación de software para ellos, es un proceso de escritura. Así como los escritores de libros y artículos de revistas, los programadores (escritores de programas) deben expresar sus ideas por medio de una lengua escrita. Sin embargo, a diferencia de los escritores de novelas, los programadores deben expresar sus textos en lenguajes de propósito especial, basados en las matemáticas, conocidos como lenguajes de programación.
Ada, es uno de entre muchos posibles lenguajes de programación. Fue diseñado con un claro propósito en mente: la calidad del producto. Entendiéndose por calidad, la confianza que los usuarios van a poder depositar en el programa.
Si bien es posible escribir cualquier programa en Ada, éste ha sido utilizado principalmente, en el desarrollo de software de control, de tiempo real y de misión crítica. Típicamente, estos sistemas son responsables de procesos industriales y militares, muy costosos, y en los cuales incluso vidas humanas dependen del buen funcionamiento del software. Es vital en tales sistemas, utilizar un lenguaje que como Ada, ayuda en la creación de software de alta calidad.
Por otro lado, Ada, como lenguaje que promueve las buenas prácticas en ingeniería del software, es muy usado en la enseñanza de la programación en muchas universidades de todo el mundo.
Veamos cuáles son las características más destacables del lenguaje.

## Características principales
### Legibilidad

    Los programas profesionales se leen muchas más veces de las que se escriben, por tanto, conviene evitar una notación que permita escribir el programa fácilmente, pero que sea difícil leerlo excepto, quizás, por el autor original y no mucho tiempo después de escribirlo.

### Tipado fuerte

    Esto asegura que todo objeto tenga un conjunto de valores que esté claramente definido e impide la confusión entre conceptos lógicamente distintos. Como consecuencia, el compilador detecta más errores que en otros lenguajes.

### Construcción de grandes programas

    Se necesitan mecanismos de encapsulado para compilar separadamente y para gestionar bibliotecas de cara a crear programas transportables y mantenibles de cualquier tamaño.

### Manejo de excepciones

    Los programas reales raramente son totalmente correctos. Es necesario proporcionar medios para que el programa se pueda construir en capas y por partes, de tal forma que se puedan limitar las consecuencias de los errores que se presenten en cualquiera de las partes.

### Abstracción de datos

    Se puede obtener mayor transportabilidad y mejor mantenimiento si se pueden separar los detalles de la representación de los datos y las especificaciones de las operaciones lógicas sobre los mismos.

### Procesamiento paralelo

    Para muchas aplicaciones es importante que el programa se pueda implementar como una serie de actividades paralelas. Dotando al lenguaje de estos mecanismos, se evita tener que añadirlos por medio de llamadas al sistema operativo, con lo que se consigue mayor transportabilidad y fiabilidad.

### Unidades genéricas

    En muchos casos, la lógica de parte de un programa es independiente de los tipos de los valores que estén siendo manipulados. Para ello, se necesita un mecanismo que permita la creación de piezas de programa similares a partir de un único original. Esto es especialmente útil para la creación de bibliotecas.

# Historia

La historia de Ada comienza en 1974 cuando el Ministerio de Defensa de los Estados Unidos llevó a cabo un estudio de los lenguajes de programación utilizados en sus proyectos y concluyó que COBOL era un estándar para procesado de datos y FORTRAN para cálculo científico. Sin embargo, la situación con respecto a los sistemas empotrados era diferente: el número de lenguajes en uso era enorme. Ante esta falta de estandarización que provocaba gastos inútiles, se propuso el uso de un único lenguaje para estos sistemas.
El primer paso del desarrollo fue la redacción en 1975 de un documento que perfilaba los requisitos que debía satisfacer el lenguaje. Después de varias modificaciones, en 1976 se produjo una versión de estos requisitos sobre la que se evaluaron varios lenguajes. El resultado fue que ninguno de los lenguajes existentes cumplía todos los requisitos. Así pues, el paso siguiente fue la aceptación de propuestas de diversos contratistas para el diseño de un nuevo lenguaje, de los que se eligieron cuatro de ellos. El siguiente paso fue el refinamiento de las propuestas elegidas y se revisaron las especificaciones para dar la versión definitiva conocida como Steelman.
La elección final del lenguaje se hizo en 1979 cuando se declaró vencedor el desarrollo de CII Honeywell Bull. Se decidió que se llamaría Ada en honor a Augusta Ada Byron, condesa de Lovelace (1815-1852), hija de Lord Byron, quien fue ayudante y patrocinadora de Charles Babbage trabajando en su máquina analítica mecánica, de hecho, está considerada por muchos como el primer programador de la historia.
En 1983 se publicó el primer estándar ISO de Ada, el conocido Manual de referencia de Ada o ARM.
La primera revisión del lenguaje vino en 1995, marcando las dos versiones históricas que existen hasta el momento: Ada 83 y Ada 95. La última revisión ha sido aprobada recientemente por ISO y popularmente recibe el nombre de Ada 2005.

## Enlaces externos

Más sobre la historia de Ada en:
* Artículo de Wikipedia
* Steelman language requirements
* Steelman On-Line, incluye el artículo "Ada, C, C++, and Java vs. the Steelman"

# Manual de referencia

A menudo abreviado ARM o RM, el manual de referencia de Ada (nombre completo: Ada Reference Manual, ISO/IEC 8652:1995(E)), es el estándar oficial que define el lenguaje. A diferencia de otros documentos oficiales de ISO, el manual de Ada se puede reproducir libremente, lo cual es una gran ventaja para su difusión.
En este libro encontrarás enlaces al manual de referencia en cada sección acabada, en relación con el tema tratado. El ARM es el lugar donde todas las preguntas sobre Ada tienen respuesta, aunque puede ser un texto un tanto árido por su carácter de estándar oficial. En cualquier caso es la fuente más completa y exacta de información.
Otros documentos de cabecera de Ada son los Ada Rationale, documentos que acompañan al estándar y explican las justificaciones en el diseño de cada revisión del lenguaje.
Enlaces externos al Manual de Referencia y Rationale
* Ada 2005:
** Reference Manual y Rationale
* Ada 95
** Ada 95 Reference Manual
** Ada 95 Rationale
* Ada 83:
** Ada 83 Reference Manual
** Ada 83 Rationale

# Instalación de un compilador

En esta sección explicaremos cómo instalar un compilador de Ada. Existen dos opciones gratuitas:
* GNAT, compilador libre y gratuito.
* Versión demo de ObjectAda.

## GNAT

GNAT es el único compilador de Ada gratuito completamente funcional. De hecho es parte del GNU Compiler Collection y por tanto es software libre. Sin embargo, la empresa que lo mantiene AdaCore, ofrece contratos de mantenimiento de las últimas versiones, antes de hacerlas públicas.
GNAT es también el único compilador que implementa todos los anexos (capítulos opcionales) del estándar de Ada.

### GNAT GPL Edition: Ada 2005

Esta es la versión pública más reciente de AdaCore. Ten en cuenta que esta versión sólo permite distribuir binarios bajo la licencia GPL (la misma que usa Linux). Como ventaja decir que esta versión tiene soporte de las nuevas características de Ada 2005. Esta es la versión recomendable para estudiantes y profesionales que no necesitan soporte y licencian bajo GPL.
Para profesionales que quieren soporte o vender software bajo su propia licencia, AdaCore vende la edición llamada GNAT Pro.
GNAT GPL Edition se puede descargar de libre.adacore.com.

### GNAT 3.15p precompilado

Para los que quieren distribuir binarios bajo una licencia distinta a la GPL y no pueden permitirse comprar una licencia de GNAT Pro lo más recomendable es descargar el paquete precompilado de la versión 3.15p, la última publicada por AdaCore bajo licencia GMGPL. Existen versiones para Windows, GNU/Linux y Solaris.
Aunque la versión precompilada no se ha actualizado recientemente, aún es suficiente para la mayoría de usuarios. Esta versión ha pasado el Ada Conformity Assessment Test Suite.
El Libre Site también proporciona el IDE para GNAT: GPS.
Se recomienda descargar estos paquetes adicionalmente:
* Linux
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/gnat-3.15p-i686-pc-redhat71-gnu-bin.tar.gz
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/florist-3.15p-src.tgz
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/asis/asis-3.15p-src.tgz
** http://web.archive.org/web/20070820033755/http://libre.adacore.com/gps/gps-2.1.0-academic-x86-linux.tgz
* Windows
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/winnt/gnat-3.15p-nt.exe
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/winnt/gnatwin-3.15p.exe
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/asis/asis-3.15p-src.tgz
** http://libre.adacore.com/gps/gps-2.1.0-academic-x86-windows.exe
* OS/2
** ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/mirrors/gnu-ada/3.15p/contrib/os2/gnat-3.15p-os2-bin-20021124.zip

### Paquetes precompilados formando parte de distribuciones

Existen varias distribuciones que contienen una copia del compilador GNAT, pero como consejo deberías comprobar la vesión de GCC:
Versiones que comiencen con 3.3. tienen muchos problemas por lo que deberías actualizarla a una vesión 3.4..

#### Mac OS X

GNAT for Macintosh proporciona una versión de GNAT, integración con Xcode y varios bindings.

#### GNU

La mayoría de las versiones de GNU vienen con paquetes de GNAT como parte de la distribución de GCC. Estas versiones se pueden usar perfectamente en vez de la versión de Libre Site.

##### SuSE

Todas las versiones tienen un compilador GNAT incluído. La versión SuSE 9.2 y superiores contienen también paquetes de ASIS, Florist y GLADE.
Se necesitan estos paquetes:

##### Debian GNU/Linux

En Debian, GNAT se puede instalar con esta orden:
Otros paquetes interesantes para el desarrollo en Ada bajo Debian 3.1 Sarge son:
* gnat - The GNU Ada 95 compiler
* ada-mode - Ada mode for GNU Emacs and XEmacs
* ada-reference-manual - The standard describing the Ada 95 language
* adabrowse - HTML generator for Ada 95 library unit specifications
* adacgi - Ada CGI interface
* asis-programs - Ada Semantic Interface Specification (ASIS) example programs
* gch - Ada quality & style checker
* gnade-dev - Develoment files for the GNat Ada Database Environment
* gnat-3.3 - The GNU Ada compiler
* gnat-3.4 - The GNU Ada compiler
* gnat-doc - Documentation for the GNU Ada compiler
* gnat-gdb - Ada-aware version of GDB
* gnat-glade - Distributed Systems Annex for GNAT (GNU Ada 95 compiler)
* gnat-gps - The GNAT Programming System - advanced IDE for C and Ada
* libadabindx-dev - Ada binding to the X Window System and *tif
* libadasockets0-dev - bindings for socket services in Ada
* libasis-3.15p-1-dev - Ada Semantic Interface Specification (ASIS) headers and li braries
* libaunit-dev - AUnit, a unit testing framework for Ada
* libaws-dev - Ada Web Server development files
* libflorist-3.15p-1-dev - POSIX.5 Ada interface to operating system services
* libgnomeada-2.4 - Ada binding for the Gnome Library
* libgtkada-2.4 - Ada binding for the GTK library
* libopentoken-dev - OpenToken lexical analysis library for Ada
* libtexttools-dev - Ada and C++ library for writing console applications
* libxmlada1-dev - XML/Ada, a full XML suite for Ada programmers
* libasis-3.14p-1 - Ada Semantic Interface Specification (ASIS) runtime library
* libcharles0-dev - Data structure library for Ada95 modelled on the C++ STL

##### Gentoo GNU/Linux

Bajo Gentoo la instalación de GNAT es muy sencilla gracias al emerge:

##### Mandrake

En Mandrake, GNAT se puede instalar con esta orden:

#### Windows

Tanto MinGW para Windows como Cygwin contienen un paquete de GNAT.

##### MinGW

MinGW - Minimalist GNU for Windows.
Esta lista puede ayudarte a instalarlo:
* Instalar MinGW-3.1.0-1.exe.
** extraer binutils-2.15.91-20040904-1.tar.gz.
** extraer mingw-runtime-3.5.tar.gz.
** extraer gcc-core-3.4.2-20040916-1.tar.gz.
** extraer gcc-ada-3.4.2-20040916-1.tar.gz.
** extraer gcc-g++-3.4.2-20040916-1.tar.gz (opcional).
** extraer gcc-g77-3.4.2-20040916-1.tar.gz (opcional).
** extraer gcc-java-3.4.2-20040916-1.tar.gz (opcional).
** extraer gcc-objc-3.4.2-20040916-1.tar.gz (opcional).
** extraer w32api-3.1.tar.gz.
* Instalar mingw32-make-3.80.0-3.exe (opcional).
* Instalar gdb-5.2.1-1.exe (opcional).
* Instalar MSYS-1.0.10.exe (opcional).
* Instalar msysDTK-1.0.1.exe (opcional).
** extraer msys-automake-1.8.2.tar.bz2 (opcional).
** extraer msys-autoconf-2.59.tar.bz2 (opcional).
** extraer msys-libtool-1.5.tar.bz2 (opcional).
Se recomienda usar D:\MinGW como directorio de instalación.
Es de notar que la versión para Windows del Libre Site también se basa en MinGW.

##### Cygwin

Cygwin, el entorno GNU para Windows, también contiene una versión de GNAT, aunque más antigua que la de MinGW, y no soporta DLLs ni multi-tarea (al 11/2004).

#### MS-DOS

DJGPP es un porte a MS-DOS de una selección de herramientas GNU con extensiones de 32 bits, que está mantenido activamente. Incluye la colección completa de compiladores de GCC, lo cual ahora incluye Ada. Véase el sitio de DJGPP para instrucciones de instalación.
Los programas de DJGPP, a parte de en modo nativo MS-DOS, se pueden ejecutar en ventanas de DOS en Windows.

#### Solaris 8, 9, 10 sobre SPARC y x86

Descarga GCC de blastwave.org. Es la suite completa con el compilador de GNAT.

### Compilarlo uno mismo

Si quieres las últimas características, incluyendo el soporte experimental de Ada 2005, tendrás que compilar tú mismo el GNAT.
Instrucciones:
* Linux o Cygwin: véase ada.krischik.com.
* Windows: pendiente

## Aonix ObjectAda

Aonix ObjectAda es un compilador comercial que proporciona una versión gratuita de evaluación, con limitaciones en el número y tamaño de archivos y en el número de controles que se pueden colocar en una ventana.
El IDE de ObjectAda es muy similar al de MS Visual C++ y al de Delphi e incluye un GUI builder.

### Enlaces

* Aonix ObjectAda
* Versión demo

# Un ejemplo básico: Hola Mundo

Un ejemplo común de la sintaxis de un lenguaje es el programa Hola mundo. He aquí una implementación en Ada con la intención de ser un primer contacto.
Por ahora puede ser suficiente con aprender a compilar y enlazar un programa escrito en Ada, pero si tienes curiosidad aquí va una explicación del programa.
La cláusula with establece una dependencia con el paquete Ada.Text_IO y hace disponible toda la funcionalidad relacionada con la Entrada/Salida de textos.
Después se define un procedimiento como programa principal. Nótese que en Ada no tiene que tener un nombre especial como main, simplemente ha de estar fuera de cualquier paquete. Al compilar se indica cuál es el programa principal.
Ada.Text_IO.Put_Line llama al procedimiento Put_Line definido en el paquete Ada.Text_IO para imprimir la cadena "¡Hola, mundo!".

## Abreviando

Si no deseamos tener sentencias largas, como Ada.Text_IO.Put_Line, se pueden usar dos métodos para abreviar:
* Usar una cláusula use para hacer directamente visible todas las entidades definidas en Ada.Text_IO. No es recomendable abusar de esta cláusula por las razones explicadas aquí.
* Usar una cláusula renames, para renombrar Ada.Text_IO con un nombre más corto.

## Compilación

Como ejemplo, con el compilador GNAT este programa se debe escribir en un archivo llamado hola_mundo.adb (el nombre del procedimiento que contiene, más .adb) y se compilaría así:
Naturalmente si usas un entorno integrado de desarrollo la compilación será una opción de menú o un botón de la barra de herramientas.
El resultado es un archivo ejecutable llamado hola_mundo que imprime ¡Hola, mundo! por su salida estándar (normalmente en una ventana en modo texto).

# Elementos del lenguaje
## Alfabeto

El alfabeto de Ada consta de:
* Letras mayúsculas: A, ..., Z y minúsculas: a, ..., z.
* Dígitos: 0, ..., 9.
* Caracteres especiales.
Es de destacar que en Ada 95 se admiten caracteres como 'Ñ', 'Ç' y vocales acentuadas ya que se permiten los 256 caracteres comprendidos en ISO Latin-1.
El alfabeto de minúsculas puede usarse en vez de o junto con el alfabeto de mayúsculas, pero se considera que los dos son idénticos (a excepción de las cadenas de caracteres y literales tipo carácter).

## Componentes léxicos

Se pueden encontrar en Ada los siguientes componentes léxicos:
* Identificadores
* Literales numéricos
* Literales de tipo carácter
* Cadenas de caracteres
* Delimitadores
* Comentarios
* Palabras reservadas
Hacer constar, que el espacio no constituye nada más que un separador de elementos léxicos, pero es muy importante utilizarlos para una mayor legibilidad, tanto dentro de las sentencias, como elemento de sangrado para ayudar a diferenciar los bloques.
Ejemplo:
Esta línea contiene 5 elementos léxicos:
* El identificador Temperatura_Sala
* El delimitador compuesto :=
* El número 25
* El delimitador simple ;
* El comentario -- Temperatura que debe tener la sala.

### Identificadores

Definición en BNF:
Aunque dentro de esta definición entrarían las palabras reservadas que tienen un significado propio en el lenguaje y, por tanto, no pueden ser utilizadas como identificadores.
Nota: en la versión Ada 95 se incorporan los caracteres de Latin-1, con lo que se pueden escribir identificadores como Año o Diámetro.
No hay límite en el número de caracteres de un identificador, aunque todo identificador deberá caber en una única línea.
_Hora_Del_Día: no, porque comienza por guión bajo. Inicio_: no, porque termina por guión bajo. Mañana: sí. Hora_Del_Día: sí. Jabalí: sí. contador: sí. 2a_vuelta: no, porque comienza por número. ALARMA: sí. Access: no, es una palabra reservada de Ada. Precio_en_$: no, contiene un carácter ($) que no es letra, cifra ni guión bajo. alarma__general: no, porque contiene dos guiones bajos seguidos. HoraDelDía: sí.

### Números

Los literales numéricos constan de:
* dígitos 0 .. 9
* el separador de decimales .
* el símbolo de exponenciación e o E
* el símbolo de negativo -
* el separador _
Como ejemplo, el número real 98,4 se puede representar como: 9.84E1, 98.4e0, 984.0e-1 ó 0.984E+2. No estaría permitido 984e-1.
Para representación de número enteros, por ejemplo 1.900, se puede utilizar 19E2, 190e+1 ó 1_900E+0. Sirviendo el carácter _ como mero separador para una mejor visualización.
Una última característica es la posibilidad de expresar un literal numérico en una base distinta de 10 encerrando el número entre caracteres #, precedido por la base: un número entre 2 y 16. Por ejemplo, 2#101# equivale a 101 en base binaria, es decir, al número 5 en decimal. Otro ejemplo con exponente sería 16#B#E2 que es igual a 11 × 16² = 2.816 (nótese que es 16² y no 10² porque la base en este caso es 16).

### Literales de tipo carácter

Contienen un único carácter, por ejemplo: A. Aquí sí se diferencian mayúsculas de minúsculas. Se delimitan por un apóstrofe.
Ejemplos:

### Cadenas de caracteres

Contienen uno o varios caracteres y se delimitan por el carácter de dobles comillas: ", por ejemplo: "ABC". En este caso se diferencian mayúsculas de minúsculas.

### Delimitadores

Los delimitadores pueden ser uno de los siguientes caracteres especiales:
O ser uno de los delimitadores compuestos por dos caracteres especiales:

### Comentarios

Los comentarios se utilizan para ayudar a comprender los programas y lo constituye toda parte de texto precedida de dos guiones (--) hasta el fin de línea. No existe la posibilidad de insertar otro elemento léxico en la misma línea a partir de los dos guiones, es decir, el resto de la línea se interpreta como comentario en su totalidad.

### Palabras reservadas

Como el resto de los elementos léxicos, las palabras reservadas de Ada son equivalentes tanto en mayúsculas como en minúsculas. El estilo más extendido es escribirlas completamente en minúsculas.
En Ada las palabras reservadas pueden tener un uso distinto dependiendo del contexto, los distintos usos de cada una se puede consultar en el capítulo Palabras reservadas.
| abort | else | new | return |
| abs | elsif | not | reverse |
| abstract | end | null | |
| accept | entry | | select |
| access | exception | of | separate |
| aliased | exit | or | subtype |
| all | | others | |
| and | for | out | tagged |
| array | function | | task |
| at | | package | terminate |
| | generic | pragma | then |
| begin | goto | private | type |
| body | | procedure | |
| | if | protected | until |
| case | in | | use |
| constant | is | raise | |
| | | range | when |
| declare | limited | record | while |
| delay | loop | rem | with |
| delta | | renames | |
| digits | mod | requeue | xor |
| do | | | |

## Manual de referencia de Ada

* Section 2: Lexical Elements

# Tipos
## Clasificación de tipos

Los tipos de Ada se pueden clasificar en:
* Escalar:
** Discreto:
*** Enteros: Integer, Natural, Positive.
*** Enumeraciones: Boolean, Character.
** Real:
*** Coma flotante.
*** Coma fija.
* Compuesto:
** Vector: Arrays, Strings.
** Registros: record.
* Puntero: access.
** Punteros a objetos
** Punteros a subprogramas
* Privados: private.
* Tareas: task.

## Declaración de tipos

Para definir un tipo no estándar, se puede emplear el siguiente esquema:
Sirvan como ejemplos las siguientes definiciones de tipos:

## Algunos atributos aplicables a tipos

Los atributos son operaciones predefinidas que se pueden aplicar a tipos, objetos y otras entidades. Por ejemplo estos son algunos atributos aplicables a tipos:
* Last: Integer'Last es el máximo valor que puede tomar la variable de tipo Integer. También es el último valor de un tipo enumerado o del índice de un vector.
* First: Integer'First es el mínimo valor que puede tomar la variable de tipo Integer. También es el primer valor de un tipo enumerado o del índice de un vector.
* Range: Vector'Range indica el rango que ocupa la variable Vector, es decir, equivale a Vector'First..Vector'Last. En el caso de más de una dimensión, el valor Matriz'Range(1) indica el rango de la primera dimensión.
* Succ: TColor'Succ(ROJO) indica el siguiente valor a ROJO que toma el tipo TColor, si no existe, se eleva la excepción Constraint_Error.
* Pred: TDía'Pred(VIERNES) indica el anterior valor a VIERNES que toma el tipo TDía, si no existe, se eleva la excepción Constraint_Error.
* Pos: El atributo Pos indica la posición ocupada por un determinado valor en un tipo enumeración. Por ejemplo: TColor'Pos(ROJO). La primera posición se considera 0.
* Val: El atributo Val indica el valor que ocupa una determinada posición en un tipo enumeración. Por ejemplo: COLOR'Val(1).
* Para identificar unívocamente un valor de un tipo enumeración se emplea TColor' (ROJO) y TIndicador'(ROJO) para distinguir el valor ROJO del tipo TColor o TIndicador.

## Subtipos

Los subtipos definen un subconjunto de los valores de un tipo determinado, pero no son un tipo distinto de su tipo base.

## Superar una ambigüedad

En el supuesto caso de que se quiera superar una ambigüedad en el tipo de una variable (debería evitarse) en un determinado instante, se puede optar por convertirlo (no recomendable) o cualificarlo:
* Convertir el tipo, por ejemplo: Integer(I) convierte el número I a entero.
* Cualificar el tipo, por ejemplo: Integer'(I) interpreta I como entero.
En ambos casos, el resultado es I como entero.
La cualificación sirve para cuando un literal no se sabe a qué tipo pertenece y se le indica de ese modo. Por ejemplo:

## Tipos avanzados

Hay otros tipos más avanzados en Ada. Puedes optar por leer estos tipos ahora o por continuar el libro por la siguiente lección Objetos (variables y constantes).
* Registros discriminados
* Registros variantes
* Punteros a objetos
* Punteros a subprogramas
* Tipos derivados
* Tipos etiquetados

## Manual de referencia de Ada

* 3.2 Types and Subtypes
* 3.2.1 Type Declarations

# Enteros
## Tipos enteros con signo

Un tipo entero con signo se define declarando un rango, por ejemplo:
Los extremos del rango se pueden consultar con los atributos 'First y el 'Last del tipo.
Cuando se asigna un valor a una variable de este tipo, se chequea en tiempo de ejecución si pertenece al rango. En caso negativo se levanta la excepción Constraint_Error.
El compilador puede definir el tamaño más eficiente para el tipo a no ser que se defina una cláusula de representación.

### Ejemplo

El siguiente ejemplo, tomado del wikilibro en inglés sobre Ada, define un nuevo rango de -5 a 10 e imprime el rango completo.

### Tipos enteros con signo predefinidos

En el paquete Standard se predefinen varios tipos enteros con signo, como Integer (y sus subtipos Natural y Positive), Short_Integer, Long_Integer y posiblemente otros (dependiendo del compilador). Estos tipos tienen los tamaños más adecuados para la arquitectura del computador. Si no tienes razones para definir nuevos tipos enteros, considera usar estos tipos o un subtipo de ellos.
Esta sería una posible representación gráfica de los subtipos de Integer:

## Enteros modulares

Los enteros modulares no tienen signo y son cíclicos, es decir no se produce desbordamiento (overflow) sino wrap-around. Para estos tipos están predefinidos los operadores lógicos (and, or, xor) para realizar operaciones a nivel de bits.
Se definen así:
Donde el 'First es 0 y 'Last es Módulo - 1. Como los tipos modulares son cíclicos $last+1\equiv first$ y $first-1\equiv last$.
Se puede definir un subtipo de un tipo modular:
Pero, cuidado porque el módulo de Medio_Byte sigue siendo 256.

## Manual de referencia de Ada

* 3.5.4 Integer Types

# Enumeraciones

Un tipo enumeración es una lista definida de los posibles valores que puede adoptar un objeto de ese tipo. La declaración:
establece que a un objeto del tipo Color_Primario se le puede asignar cualquiera de los tres valores indicados, y ningún otro valor. Como los tipos numéricos, donde por ejemplo 1 es un literal entero, Rojo, Verde y Azul son los llamados literales del tipo.
Las enumeraciones son uno de los tipos discretos, los otros son los tipos enteros.

## Operadores y atributos predefinidos

Aparte del operador de igualdad ("="), los tipos enumeración tienen predefinidos todos los operadores de orden: "<", "<=", "=", "/=", ">=", ">"; donde la relación de orden viene dada implicitamente por la secuencia de los literales: cada literal tiene una posición, empezando por 0 para el primero, que se incrementa en uno para cada sucesor. Esta posición se puede obtener mediante el atributo 'Pos; el inverso es 'Val, que devuelve el valor correspondiente a una posición. En nuestro ejemplo:
Los literales pueden sobrecargarse, es decir, puede haber otro tipo con los mismos literales.
Normalmente se puede determinar por el contexto a qué tipo pertenece el literal Rojo. Cuando es imposible, el programador ha de usar una expresión de desambiguación: Tipo'(Valor).

## Literales carácter

Una característica bastante única de Ada es la posibilidad de usar literales caracter como literales de una enumeración.
El literal 'A' no tiene mucho que ver con el literal 'A' del tipo predefinido Character (o Wide_Character).
Todo tipo que tiene al menos un literal carácter es un tipo carácter. Para todo tipo carácter, existen literales de cadena y el operador de concatenación predefinido "&".
En este ejemplo, S y T contienen el mismo valor.
El tipo predefinido Character se define de este modo en el paquete Standard.

## Tipo boolean

El tipo predefinido boolean es una enumeración definida en el paquete Standard de este modo:
Por esta razón el tipo boolean tiene todos los atributos definidos para cualquier otra enumeración.

## Subtipos de enumeración

Se puede usar un rango para definir un subtipo sobre una enumeración:

## Manual de referencia de Ada

* 3.5.1 Enumeration Types

# Coma flotante

Para definir un tipo de coma flotante es suficiente con definir cuantos dígitos se necesitan de este modo:
Si se desea también se puede definir el rango mínimo:
Esta capacidad es uno de los grandes beneficios de Ada sobre la mayoría de los lenguajes de programación en este respecto. Otros lenguajes, sólo proporcionan un tipo float y otro long float, y lo que la mayoría de los programadores hacen es:
* elegir float si no están interesados en la precisión
* de lo contrario, eligen long float, puesto que es lo mejor que pueden obtener.
En cualquiera de los dos casos, el programador no sabe cual es la precisión que obtiene.
En Ada, uno especifica la precisión necesitada y el compilador elige el tipo de coma flotante que cumple al menos esa precisión. De este modo el requisito se cumple. Además, si la máquina tiene más de dos tipos de coma flotante, el compilador puede hacer uso de todos ellos.
Por supuesto, el programador también puede hacer uso de los tipos de coma flotante predefinidos que son Float y posiblemente (si el compilador lo implementa) Short_Float, Short_Short_Float, Long_Float y Long_Long_Float.

## Manual de referencia de Ada

* 3.5.7 Floating Point Types

# Coma fija
## Coma fija decimal

Es posible definir un tipo de coma fija decimal declarando el delta (el error absoluto) y la cantidad de dígitos en base decimal necesitados (incluyendo la parte real):
Delta ha de ser una potencia de 10, si no, el tipo no será de coma fija decimal.
También podemos definir el rango mínimo necesitado:
Ejemplo:

## Coma fija ordinaria

Para un tipo de coma fija ordinaria (binaria) se especifica simplemente el delta con un rango.
Ejemplo:

## Manual de referencia Ada

* 3.5.9 Fixed Point Types

# Arrays

Un array es una colección de elementos a los que se puede acceder por su índice. En Ada todo tipo definitivo (aquel del que se conoce su tamaño) se permite como elemento y cualquier tipo discreto, (es decir, enteros con signo y modulares, o enumeraciones) puede usarse como índice.

## Declaración de arrays

Los arrays de Ada son de alto nivel, comparados, por ejemplo, con los de C/C++. Esto se traduce en varias posibilidades sintácticas que se presentan a continuación.

### Sintáxis básica

La declaración básica de un array es la siguiente:
Este array consiste en un elemento de tipo Tipo_Elemento por cada posible valor de Tipo_Índice. Por ejemplo, si quisieramos contar las ocurrencias de cada letra en un texto nos definiríamos un array de este tipo:
    Nota: usamos Natural como tipo de elemento puesto que los valores negativos de Integer no tienen sentido en una cuenta. Es conveniente usar el subtipo entero más adecuado en cada caso, puesto que así nos beneficiamos de la comprobación de rango y podemos descubrir errores fácilmente.

### Con subrango conocido

A menudo no necesitamos un array con todos los valores posibles del tipo del índice. En este caso definimos un subtipo del tipo índice con el rango necesitado.
Para lo que hay una forma más abreviada si no deseamos definir el subtipo con nombre, se puede hacer anónimamente:
Puesto que Primero y Último son expresiones del tipo Tipo_Índice, una forma más simple es la siguiente:
Ten en cuenta que si First y Last son literales numéricos, esto implica que el tipo índice base es el Integer.
Si en el ejemplo anterior, sólo deseásemos contar letras mayúsculas desechando otros caracteres, podríamos definir el tipo array de este modo:

### Con un subrango desconocido

A menudo el rango necesitado no se conoce hasta tiempo de ejecución o necesitamos objetos array de varias longitudes. En lenguajes de más bajo nivel como C necesitaríamos hacer uso de la memoria dinámica (del heap). Pero no es el caso de Ada, puesto que la caja <> nos permite declarar arrays de tamaño no restringido:
Cuando declaramos objetos de este tipo, los extremos (bounds) del array deben conocerse, bien como resultado de una función o por una inicialización mediante un agregado. Desde su declaración hasta su finalización, el objeto no puede cambiar de tamaño.

### Con elementos aliased

Los programadores de C/C++ dan por hecho que todo elemento de un array tiene una dirección propia en memoria (de hecho el nombre del array es un puntero sobre el que se puede operar).
En Ada, esto no es siempre así. Veamos este ejemplo:
Puesto que hemos empaquetado el array, el compilador usará el mínimo espacio de almacenamiento posible. En la mayoría de los casos esto implica que los 8 valores booleanos cabrán en un byte.
Pero este no es el único caso en el que el compilador de Ada puede empaquetar un array puesto que tiene libertad en los casos en que sea más optimo.
Si queremos acceder con un puntero a cada elemento tenemos que expresarlo explícitamente.

## Uso de arrays

Para acceder a los elementos de un array se usan el nombre del objeto array seguido del índice entre paréntesis.
Se puede acceder a una rodaja (slice) de un array usando (x .. y).
El operador "&" permite concatenar arrays:
Si se intenta acceder a un elemento más alla de los límites del array o se asigna a un array (completo o slice) un array de distinto tamaño se levanta la excepción Constraint_Error (a menos que los chequeos estén deshabilitados).

### Ejemplo de uso
## Manual de referencia de Ada

* 3.6 Array Types

# Strings

En Ada los strings son un tipo especial de array que está implicitamente definido en el paquete Standard como:
Que el rango se defina sobre el subtipo Positive implica que ningún string de Ada puede empezar en 0. Esta es una diferencia con los strings de C/C++, la otra es que un string de Ada no tiene por qué terminar en NUL (carácter de código 0), de hecho puede tener caracteres NUL intercalados. Esto es así porque los arrays de Ada siempre llevan asociados los límites (atributos 'First y 'Last).
Los literales de tipo String se encierran entre comillas.
Al ser String un array no restringido no podemos definir variables de ese tipo sin definir explícitamente o implícitamente los límites del array.
El operador & está definido para concatenar strings entre sí y caracteres con strings.
Puesto que hay dos tipos de caracteres, hay también dos tipos de strings: String y Wide_String que es un array de Wide_Character. En Ada 2005 aparece también el tipo Wide_Wide_String cuyos elementos son Wide_Wide_Character.
Para facilitar el uso de los strings hay varios paquetes predefinidos para su manejo:
* Ada.Strings.Fixed: para strings de tamaño fijo.
* Ada.Strings.Bounded: para strings con longitud variable y un limite superior definido.
* Ada.Strings.Unbounded: para strings con longitud variable y sin límites de tamaño.
Para manejo de Wide_Strings existen otros tres paquetes predefinidos que se nombran anteponiendo Wide_ a cada uno.

## Manual de refencia de Ada

* 2.6 String Literals
* 3.6.3 String Types
* A.4.3 Fixed-Length String Handling
* A.4.4 Bounded-Length String Handling
* A.4.5 Unbounded-Length String Handling

# Registros

Un registro es un tipo que almacena varios campos de tipos distintos y que se identifican por su nombre. En C/C++ se llaman struct y en Pascal y Ada record.

## Acceso a los campos

Para acceder a los campos de un registro se usa la clásica notación registro.componente:
Para asignar valores a todos los componentes se puede utilizar un agregado, lo cual es útil para asegurarnos de que no dejamos ninguno sin darle un valor:
También es posible dar un valor inicial a algunos o todos los componentes de un registro de modo que todos los objetos de ese tipo se inicialicen automáticamente con esos valores:

## Registro nulo

El registro nulo se puede usar cuando se necesita un tipo que no almacene ningún dato (aunque parezca raro hay casos en los que es útil, como instanciar un genérico que pide un tipo, para el cual no tenemos ningún dato que pasarle). Hay dos maneras de declarar un registro nulo:
Ambas definiciones son semánticamente idénticas, la segunda es simplemente una sintaxis abreviada.
La declaración de una variable o constante de este tipo sería:

## Tipos especiales de registros

* Registros con discriminante
* Registros con parte variante
* Registros etiquetados, dan soporte de la programación orientada a objetos en Ada 95.

## Manual de referencia de Ada

* 3.8 Record Types

# Registros discriminados

En un tipo registro discriminado, a algunos de los componentes se los conoce como discriminantes y el resto pueden depender de ellos. Los discriminantes tienen que ser de tipo discreto o puntero. Por ejemplo:
De esta forma, se asegura que la matriz utilizada sea cuadrada. El primer componente (Orden) es el discriminante del subtipo discreto Positive, mientras que el segundo componente (Matriz) es una matriz siempre cuadrada y cuyos límites dependen del valor de Orden. Ahora se utilizaría de la siguiente manera:
Una vez que se declara la variable ya no se puede cambiar su restricción. Sin embargo, si se declara lo siguiente:
Ahora, se pueden declarar variables que no tengan restricciones:
El valor inicial de sus discriminantes sería cero (el valor por defecto de N). Así, se podría cambiar el discriminante posteriormente de esta manera:

## Manual de referencia Ada

* 3.7 Discriminants

# Registros variantes

Puede interesar que un registro contenga partes de su estructura que puedan variar en función de otras. Para ello se definen los registros variantes que son un tipo especial de registros discriminados en los que la existencia de algunos campos depende del valor del discriminante.
Por ejemplo:
Sería ilegal la asignación Vuelo1.NivelAmenaza := 1; pues dicho campo sólo es válido para DESCONOCIDO o ENEMIGO.
Si el discriminante lleva un valor por defecto entonces el registro es variante durante su ciclo de vida (es mutable). Si no, el valor del discriminante se fija en su declaración y no varía durante la vida del objeto.
Los registros variantes en cierto modo están sobrepasados por la extensión de los tipos etiquetados, sin embargo aún son útiles en casos simples como aquellos en los que se conocen todas las posibilidades y no se desea que alguien añada una derivación a posteriori.

## Véase también

* Registros
* Registros discriminados
* Registros etiquetados

## Manual de referencia de Ada

* 3.8.1 Variant Parts and Discrete Choices

# Punteros a objetos

Un nombre está ligado a un objeto desde su declaración hasta que el flujo del programa deja la unidad que contenía su declaración. Sin embargo, los punteros o apuntadores (access) proporcionan acceso a otros objetos, que se pueden crear y destruir dinámicamente.
El nombre de access en vez del habitual pointer se debe a que al diseñar Ada se quería huir de la mala fama que los punteros habían creado gracias a lenguajes como C, en los que se puede usar los punteros de manera muy insegura. Los tipos acceso de Ada son más seguros entre otras cosas porque no existe la aritmética de punteros, especialmente peligrosa. Además el uso de punteros en Ada es prescindible en muchas más situaciones que en C.
Las variables de tipo puntero en Ada se inicializan implícitamente a null.

## Ejemplos

Por ejemplo, se puede definir un puntero a un tipo entero de esta manera:
En un ejemplo con registros:
Es útil para implementar listas, colas, árboles y grafos. Por ejemplo:

## Liberación de memoria

Cuando se quiera liberar la memoria dinámicamente, hay que hacer uso del procedimiento genérico Ada.Unchecked_Deallocation , el cual se instancia con los tipos de objeto y de puntero, y se le llama pasándole punteros. Por ejemplo:
El nombre de Unchecked_Deallocation viene del hecho de que no hay comprobación de que no queden punteros colgantes (dangling pointers), es decir que si se ha copiado el puntero en otra variable, después de llamar a Liberar_Vector el puntero copia está apuntando a una dirección de memoria no reservada y los efectos son imprevisibles, puesto que se puede haber reservado y se pude escribir o leer memoria que ya no pertenece a ese objeto.
Este sistema es similar al de C++ con new y delete. Un sistema de recolección de basura similar al de Java está previsto en el estándar, pero ningún compilador de Ada hasta el momento lo proporciona. Esto es debido a que aunque es un mecanismo más seguro, es menos eficiente y puede ser un problema para los sistemas de tiempo real por su impredictibilidad.
En Ada 95 existen métodos de gestión de memoria más seguros que el uso directo de Unchecked_Deallocation basados en los tipos controlados, algo semejante a lo que se consigue en C++ con constructores y destructores que manejan memoria dinámica.

## Manual de referencia de Ada

* 3.10 Access Types

# Punteros a subprogramas

Un puntero a subprograma nos permite llamar a un subprograma sin conocer su nombre ni dónde está declarado. Este tipo de punteros se suele utilizar en los conocidos callbacks.
Para obtener el valor del puntero se usa el atributo 'Access aplicado a un subprograma con el prototipo adecuado, es decir, han de coincidir orden y tipo de los parámetros, y en el caso de las funciones, el tipo de retorno.
Los punteros a subprograma fueron una de las extensiones de Ada 95.

## Manual de referencia de Ada

* 3.10 Access Types

# Tipos derivados

Hay ocasiones en las que es útil introducir un tipo nuevo que es similar en la mayoría de los aspectos a uno ya existente, pero que es un tipo distinto. Con la siguiente sentencia, se dice que S es un tipo derivado de T:

## Características

Los aspectos que definen a un tipo son su conjunto de valores y su conjunto de operaciones. El conjunto de valores de un tipo derivado es una copia del conjunto de valores del progenitor y, al ser copia, no pueden asignarse entre ambos. El conjunto de operaciones aplicables a un tipo derivado son:
* Los atributos son los mismos.
* A no ser que el tipo progenitor sea limitado, posee la asignación, igualdad y desigualdad predefinidas.
* El tipo derivado heredará los subprogramas primitivos del tipo progenitor, es decir, los subprogramas que tengan algún parámetro o un resultado de dicho tipo, y bien sean predefinidos o estén definidos en el mismo paquete que el tipo progenitor.
Estas operaciones heredadas, a efectos de uso, es como si estuvieran definidas en la misma región declarativa que el tipo derivado.

## Ejemplo

Por ejemplo, si se tiene type TEnteroNuevo is new Integer, entonces el tipo derivado TEnteroNuevo heredará los subprogramas predefinidos como "+", "-", "abs", etc. y los atributos como First o Last.
Así, por ejemplo, se puede escribir:
Como puede observarse, se hace uso del operador "+" predefinido para el tipo Integer.

## Tipos derivados frente a subtipos

¿Cuándo crear un tipo derivado en vez de un subtipo? Cuando queremos tener un nuevo tipo cuyos valores no deseamos que se confundan con los del tipo original pero queremos que posea las mismas operaciones y la misma representación que el tipo base. Por ejemplo:
Nota para programadores de C/C++: typedef realmente no define un tipo, sino que define un nuevo nombre para un mismo tipo, algo parecido al subtype, pero nada que ver con el type S is new T.

## Manual de referencia de Ada

* 3.2.3 Classification of Operations
* 3.4 Derived Types and Classes

# Tipos etiquetados

Ada 83 fue diseñado para dar soporte a desarrollos de sistemas empotrados, de tiempo real y misión crítica. Para este tipo de trabajos, las características de Ada, como el tipado fuerte y la división en paquetes, permitían el uso de una serie de metodologías de desarrollo, con un razonable grado de comodidad. Sin embargo, en los años 90, el advenimiento de la programación orientada a objectos, hizo necesario que Ada se extendiera para dar cabida a esta nueva metodología. Esto debido, a que la programación orientada a objeto necesitaba de un soporte en el manejo de tipos y en la visibilidad de los métodos, que Ada 83 hubiera considerado como no permitido.
Los cambios necesarios, fueron incorporados al siguiente estándar: Ada 95.
Básicamente, los cambios se centraron alrededor del uso de los tipos etiquetados, una construcción software que añade flexibilidad al tipado fuerte, justo en grado necesario para permitir representar en Ada un diagrama de objectos, por ejemplo, en UML.
Los tipos etiquetados de Ada 95 son los que permiten realizar el polimorfismo. A menudo se asimila la combinación de un tipo etiquetado y el paquete que lo contiene a una clase en otros lenguajes de programación también orientados a objetos. Sin embargo hay algunas diferencias de sintaxis, que no de filosofía general, que veremos en este apartado.
Un tipo etiquetado puede ser un registro de modo que su estructura es pública, o puede ser un tipo privado, aunque en la parte privada siempre se termina definiendo como un registro.
Un tipo etiquetado se puede extender.
El nuevo tipo hereda todos las operaciones primitivas del tipo base y las puede redefinir.
Todo objeto de un tipo etiquetado contiene una etiqueta (tag) que permite reconocer su tipo en tiempo de ejecución.

## Tipos polimórficos (class-wide type)

En Ada el polimorfismo se consigue con un tipo especial que puede contener objetos de cualquier tipo derivado de uno dado. Estos tipos especiales se indican con el atributo Class, es decir, T_Base'Class puede almacenar cualquier objeto derivado del tipo T_Base.
Este tipo de la clase es un tipo irrestringido, es decir, para declarar un objeto de este tipo tenemos que inicializarlo llamando a una función, asignándole otro objeto o con un new (si es un puntero a tipo polimórfico, es decir, access all T_Base'Class).

## Llamadas que despachan

La ventaja del polimorfismo es poder escribir algoritmos que no dependen del tipo concreto de los objetos que se manejan.
El polimorfismo dinámico que proporciona la programación orientada a objetos permite que una operación sobre un objeto polimórfico se realice de distinto modo dependiendo del tipo concreto del objeto de que se trate en la ejecución. Otras formas de polimorfismo son el polimorfismo paramétrico que se implementa en Ada con las unidades genéricas y el polimorfismo por sobrecarga.
En Ada este polimorfismo se consigue llamando a una operación primitiva de un objeto polimórfico. Cuando el objeto sobre el que se realiza la operación es polimórfico y el parámetro formal del subprograma llamado es concreto, el subprograma realmente llamado puede ser uno redefinido para el tipo concreto si se ha redefinido para él una implementación distinta de la del tipo base.
Nota para programadores de C++: esto quiere decir que en Ada todos los "métodos" son virtuales, pero no todas las llamadas son virtuales, sólo las que llaman a un método de un objeto polimórfico (semejante a un puntero a clase base).

## Manual de referencia de Ada

* 3.9 Tagged Types and Type Extensions
* 3.9.1 Type Extensions
* 3.9.2 Dispatching Operations of Tagged Types

# Subtipos

Los subtipos se emplean para definir un subconjunto de un tipo determinado definido por una restricción.
Esta restricción puede ser un rango para un tipo escalar:
O una restricción en un array irrestringido:
O una restricción en el valor de un registro discriminado:
Los subtipos de un mismo tipo base son totalmente compatibles entre sí, es decir, no es necesaria una conversión de tipos para asignar objetos de subtipos distintos. Sin embargo, si en tiempo de ejecución se asigna un objeto a una variable y no se cumplen las restricciones del subtipo, se levantará la excepción Constraint_Error.

## Manual de referencia de Ada

* 3.2 Types and Subtypes
* 3.2.2 Subtype Declarations

# Objetos

Los objetos son entidades que se crean en tiempo de ejecución y contienen un valor de un determinado tipo. En Ada los objetos se clasifican en variables y constantes.
Nótese que el concepto de objeto no implica necesariamente el uso del paradigma de la orientación a objetos. Para programar orientado a objetos en Ada se utilizan los objetos de tipo etiquetado.

## Variables

Una variable se introduce en el programa mediante una declaración, que se podría denotar así:
Por ejemplo:

## Constantes

Una constante es un objeto que se inicializa a un valor cuando se declara y posteriormente no puede cambiar.
Una constante se declara igual que una variable, pero añadiendo la palabra reservada constant:
Por ejemplo:
Un tipo especial de constante es el número nombrado para el cual no es necesario especificar un tipo y que es equivalente a usar el literal correspondiente.

## Manual de referencia de Ada

* 3.3 Objects and Named Numbers

# Atributos

Los atributos son operaciones predefinidas que se pueden aplicar a tipos, objetos y otras entidades. Tienen la siguiente sintaxis:
o bien

## Atributos aplicables a tipos

Por ejemplo estos son algunos atributos aplicables a tipos (por orden alfabético):
* Ceiling. Se usa con la forma X'Ceiling(Y), siendo X cualquier tipo flotante e Y una variable de ese tipo. Devuelve el "techo" de Y, es decir el valor entero más pequeño que es mayor o igual que Y.
* Digits. Representa el número de decimales de la mantisa de un tipo flotante.
* First. Indica el mínimo valor que puede tomar una variable de un tipo discreto, sea entero o enumeración. Se usa con la forma T'First, siendo T un tipo discreto (entero o enumeración).
* Image. Se usa con la forma X'Image(Y), siendo X cualquier tipo discreto e Y una variable de ese tipo. Devuelve una cadena (String) con la representación del valor de la variable Y.
* Last. Indica el máximo valor que puede tomar una variable de un tipo discreto, sea entero o enumeración.
* Pos. Indica la posición ocupada por un determinado valor en un tipo enumeración. Por ejemplo: TColor'Pos(ROJO). La primera posición se considera 0.
* Pred. TDía'Pred(VIERNES) indica el anterior valor a VIERNES que toma el tipo TDía, si no existe, se eleva la excepción Constraint_Error.
* Rounding. Se usa con la forma X'Rounding(Y), siendo X cualquier tipo flotante e Y una variable de ese tipo. Devuelve el valor de Y redondeado al entero más cercano. Si Y está exactamente entre dos valores enteros, toma el valor del mayor entero (p.e, Float'rounding(1.5)=2.0).
* Size. Indica el mínimo espacio en bits en que se pueden almacenar objetos de este tipo. Técnicamente se define como lo que ocuparía un componente de un registro de este tipo cuando el registro está empaquetado (pragma Pack).
* Succ. TColor'Succ(ROJO) indica el siguiente valor a ROJO que toma el tipo TColor, si no existe, se eleva la excepción Constraint_Error.
* Truncation. Se usa con la forma X'Truncation(Y), siendo X cualquier tipo flotante e Y una variable de ese tipo. Devuelve el valor truncado de Y a un valor entero.
* Val. Indica el valor que ocupa una determinada posición en un tipo enumeración. Por ejemplo: COLOR'Val(1).

## Atributos aplicables a objetos

Por ejemplo estos son algunos atributos aplicables a objetos:
* Size: tamaño en bits de un objeto.
* Valid: si tiene una representación válida para su tipo. Útil cuando se obtienen valores desde el «mundo exterior» mediante Unchecked_Conversion u otro mecanismo.
* First, Last: aplicados a arrays dan el primer y el último índices del array.
* Range: Vector'Range indica el rango que ocupa la variable Vector, es decir, equivale a Vector'First..Vector'Last. En el caso de más de una dimensión, el valor Matriz'Range(1) indica el rango de la primera dimensión.

## Manual de referencia de Ada

* 4.1.4 Attributes
* Annex K: Language-Defined Attributes

# Expresiones

Una expresión es una parte de un programa que calcula u obtiene un valor. Toda expresión tiene un tipo asociado que es el del valor calculado/obtenido. Una expresión está formada por una combinación de valores, objetos, operadores, atributos y funciones.

## Notación

Una expresión en Ada se puede construir de la siguiente manera simplificada:

## Manual de referencia de Ada

* 4.4 Expressions

# Operadores
## Clasificación

Ésta es la lista de operadores de Ada de menor a mayor precedencia.
Clasificación de operadores :
| Clase | Nombre | Fórmula | Sintáxis Ada |
| Lógicos | Conjunción | $x\land y$ | and |
| | Disyunción inclusiva | $x\lor y$ | or |
| | Disyunción exclusiva | $(x\land {\bar {y}})\lor ({\bar {x}}\land y)$ | xor |
| Relacionales | Igualdad | $x=y$ | = |
| | Desigualdad | $x\neq y$ | /= |
| | Menor que | $x<y$ | < |
| | Menor o igual que | $x\leq y$ | <= |
| | Mayor que | $x>y$ | > |
| | Mayor o igual que | $x\geq y$ | >= |
| Aditivo unario | Identidad | $+x$ | + |
| | Negación | $-x$ | - |
| Aditivo binario | Suma | $x+y$ | + |
| | Resta | $x-y$ | - |
| Concatenación | Concatenación | | & |
| Multiplicativo | Multiplicación | $x\times y$ | * |
| | División | ${\begin{matrix}{\frac {x}{y}}\end{matrix}}$ | / |
| | Módulo | $x{\bmod {y}}$ | mod |
| | Resto | | rem |
| De máxima precedencia | Exponenciación | $x^{y}$ | ** |
| | Negación | $\lnot x$ | not |
| | Valor absoluto | $|x|$ | abs |

## Propiedades

En todos los casos, excepto para la exponenciación, los dos operandos deben ser del mismo tipo.
Los operadores se pueden sobrecargar.

## Comprobación de pertenencia (in, not in)

Además existe la comprobación de pertenencia ($x\in T$, in; $x\notin T$, not in) que técnicamente no es un operador y no se puede sobrecargar. Su precedencia es la misma que la de los operadores relacionales. Se puede utilizar con rangos o con subtipos.

## Operadores lógicos de cortocircuito

Para los operadores lógicos existen versiones para minimizar las evaluaciones (short-circuit evaluation). Es decir, se evalúa primero el operando de la izquierda y después, sólo si es necesario para determinar el resultado, el de la derecha:
* Conjunción and then: no se evalúa la segunda expresión si la primera es falsa porque ya sabemos que el resultado será falso.
* Disyunción inclusiva or else: no se evalúa la segunda expresión si la primera es verdadera porque ya sabemos que el resultado será verdadero.

## Manual de referencia de Ada

* 4.5 Operators and Expression Evaluation

# Sentencias y estructuras de control
## Clasificación de sentencias

* Simple:
** Secuencial:
*** Nula (null).
*** Asignación (X := Y;)
*** Llamada a procedimiento.
*** Código.
*** Llamada a punto de entrada (entry). En procesamiento paralelo.
*** Espera (delay).
*** Terminación abrupta (abort). En procesamiento paralelo.
** Control:
*** Terminación de bucle (exit).
*** Salto a etiquetas (goto). No recomendable.
*** Elevación de excepción (raise).
*** Retorno de subprograma (return).
* Compuesta:
** Secuencial:
*** Bloque.
*** Sentencia if.
*** Sentencia case.
*** Bucle (loop).
** Paralela:
*** Sentencia accept.
*** Sentencia select.

## Bloques

Ada distingue entre declaraciones, que introducen identificadores nuevos, y sentencias, que no lo hacen. El fragmento de texto más simple que incluye declaraciones y sentencias es un bloque.

### Ejemplo

Destacar que un bloque es una sentencia y cuando se ejecuta se elaboran las declaraciones contenidas en su parte declarativa (entre declare y begin) y después se ejecutan las sentencias del cuerpo (entre begin y end).
El ámbito de las variables declaradas en un bloque finaliza cuando termina dicho bloque.

## Bucles
### Sentencia de bucle simple (loop)
#### Ejemplo

Este bucle sólo se puede abandonar si alguno de los procedimientos levanta una excepción.
El bucle simple a menudo se acompaña de una sentencia exit para abandonar el bucle cuando se cumple una condición.

### Sentencia de bucle iterativo (for)
#### Ejemplo 2

Se desea desplegar los números del 10 al 1 de forma descendente

#### Ejemplo 3

Si bien Ada no acepta rangos en el for, estos se puede hacer mediante cálculos. Se desea mostrar los números pares comprendidos entre 1 y 10.

### Sentencia de bucle condicional (while)
#### Ejemplo
## Otras sentencias de control (goto, exit, return, abort)
### Sentencia goto

Antes de nada, decir que la utilización de sentencias goto se desaconseja totalmente. Ada posee estructuras de control adecuadas para evitar su uso. Si se soporta su utilización es por si se quiere traducir de otro lenguaje a Ada automáticamente.
Se especifica una etiqueta entre los símbolos << y >>, por ejemplo, <<Salto>>.
Se realiza el salto a dicha etiqueta con la sentencia goto Salto; que transferiría el control a la siguiente sentencia después de la etiqueta.
No puede usarse para transferir control fuera de un subprograma.

### Sentencia exit

Termina el bucle nombrado en la sentencia o, si no aparece, el bucle más próximo que la contiene. Su notación sintáctica es:

### Sentencia return

Termina la ejecución del subprograma más próximo que la contiene, tanto en procedimientos como en funciones donde, además, se utiliza para devolver el resultado de dicha función. Su notación sintáctica es:

### Sentencia abort

Se utiliza solo para tareas. Implica la terminación incondicional de las tareas que se especifiquen. Su notación sintáctica es:

## Manual de referencia de Ada

* Section 5: Statements

# Subprogramas

En Ada, los subprogramas se dividen en dos categorías: procedimientos y funciones. Los procedimientos son llamados como sentencias y no devuelven resultado, mientras que las funciones son llamadas como componentes de expresiones y devuelven un resultado.

## Procedimientos

La llamada a un procedimiento en Ada constituye por sí misma una sentencia. Su especificación se puede describir de la siguiente manera:
El cuerpo del procedimiento sería:
Los parámetros que se le pueden pasar a un procedimiento pueden ser de tres modos diferentes:
* in: el parámetro formal es una constante y permite sólo la lectura del valor del parámetro real asociado.
* in out: el parámetro formal es una variable y permite la lectura y modificación del valor del parámetro real asociado.
* out: el parámetro formal es una variable y permite únicamente la modificación del valor del parámetro real asociado.
Ninguno de estos modos implica el uso de un paso de parámetro por valor o por referencia. El compilador es libre de elegir el paso más adecuado de acuerdo al tamaño del parámetro y otras consideraciones. Como excepción, los objetos de tipos etiquetados se pasan siempre por referencia.
Por ejemplo:
Cuando se llame al procedimiento con la sentencia Una_Prueba (5 + P, 48, Q); se evalúan las expresiones 5 + P y 48 (sólo se permiten expresiones en el modo in), después se asignan a los parámetros formales A y B, que se comportan como constantes. A continuación, se asigna el valor A + B a la variable formal C. Obsérvese que especificando el modo out no se puede conocer el valor del parámetro real (Q). En este caso, el parámetro formal C es una nueva variable cuyo valor se asignará al parámetro real (Q) cuando finalice el procedimiento. Si se hubiera querido obtener el valor de Q, además de poder modificarlo, se debería haber empleado C: in out Integer.
Indicar también que dentro de un procedimiento, se puede hacer uso de la sentencia return sin argumentos que finalizaría la ejecución del procedimiento y pasaría el control a la sentencia desde la que se llamó a dicho procedimiento. Por ejemplo, para resolver una ecuación del tipo $ax^{2}+bx+c=0$:
Siendo SQRT la función de Ada.Numerics.Elementary_Functions que calcula la raíz cuadrada del parámetro pasado. Si las raíces son reales, se devuelven en R1 y R2, pero si son complejas o la ecuación degenera (A = 0), finaliza la ejecución del procedimiento después de asignar a la variable Válida el valor False, para que se controle después de la llamada al procedimiento. Nótese que los parámetros out tienen que modificarse, al menos, una vez y que si no se especifica un modo, se sobreentiende que es in.

## Funciones

Una función es una forma de subprograma a la que se puede invocar como parte de una expresión. Su especificación se puede describir de la siguiente manera:
Nótese que, al contrario que los procedimientos, no se pueden pasar parámetros a la función de otro modo que no sea de entrada (in) ya que no se puede especificar otro modo (el de entrada es por defecto y obligatorio). En este sentido las funciones de Ada se parecen más a las funciones matemáticas que las funciones de otros lenguajes.
La especificación de la función es necesaria para mostrar al exterior toda la información necesaria para poder invocarla.
El cuerpo de la función sería:
Un ejemplo de cuerpo de función puede ser:
Los parámetros formales de una función se comportan como constantes locales cuyos valores son proporcionados por los parámetros reales correspondientes.
La sentencia return se utiliza para indicar el valor devuelto por la llamada a la función y para devolver el control a la expresión que llamó a la función. La expresión de la sentencia return es de complejidad arbitraria y debe ser del mismo tipo que se declara en la especificación de la función. Si se utiliza un tipo incompatible, el compilador da error. Si no se cumplen las restricciónes de un subtipo, como un rango, se eleva la excepción Constraint_Error.
El cuerpo de la función puede contener varias sentencias return y la ejecución de cualquiera de ellas terminará la función devolviendo el control a la sentencia que la había invocado. Si el flujo del programa sigue varios caminos dentro de la función hay que asegurarse de que se termine siempre con una sentencia return en cada uno de ellos. Si en tiempo de ejecución se llega al final de una función sin haber salido por un return, se levanta la excepción Program_Error. Así pues, el cuerpo de una función deberá tener al menos una sentencia return obligatoriamente.
Toda llamada a una función produce una nueva copia de cualquier objeto declarado dentro de ella, incluyendo los parámetros. Cuando la función finaliza, desaparecen sus objetos. Por tanto, es posible utilizar llamadas recursivas a una misma función, como ejemplo, se muestra una posible implementación de la función factorial:
Si se intenta evaluar la expresión Factorial (4); se llamará a la función con el parámetro 4 y dentro de la función se intentará evaluar la expresión N * Factorial (3) con lo que se volvería a llamar a la función, pero en este caso el parámetro N sería 3 (por cada llamada se realiza una copia de los parámetros) y así sucesivamente hasta que se evalúe N con valor 1 que finalizará la función y se empezarán a completarse las expresiones en sentido inverso.
Un parámetro formal de una función puede ser de cualquier tipo, incluyendo vectores o registros. Sin embargo, no puede ser un tipo anónimo, es decir, debe declararse antes, por ejemplo:
En este ejemplo, se puede utilizar la misma función para cualquier vector de una dimensión, no importa el número de componentes del vector. Así pues, no hay límites estáticos en los parámetros pasados a las funciones. Por ejemplo, se puede utilizar de la siguiente forma:
De igual manera, una función también puede devolver un tipo del que no se conocen a priori sus límites. Por ejemplo:
La variable Resultado tiene los mismo límites que V, con lo que siempre se devuelve un vector de la misma dimensión que el pasado como parámetro.
Indicar también que una función devuelve un valor que puede utilizarse sin necesidad de realizar una asignación a una variable, con lo que se puede hacer referencia directamente, por ejemplo, a Invierte_Componentes(V4)(1), con lo que se obtendría el primer componente del vector devuelto por la función (en este caso 7.8).

## Parámetros nombrados

Destacar, que tanto en procedimientos como en funciones, se puede alterar el orden de los parámetros en la llamada utilizando la notación nombrada, es decir, se especifica en la llamada el nombre del parámetro real seguido del símbolo => y después el parámetro formal. Por ejemplo:
Esto implica conocer el nombre de los parámetros formales que, en principio, bastaría con mirar la especificación del paquete. Como se asigna uno a uno el parámetro formal al real, no hay ningún problema de ambigüedad. Conviene recordar que el parámetro formal va a la izquierda del símbolo =>, por si se da la situación de que la variable utilizada como parámetro real se llame de igual manera que el formal (no habría ambigüedad ya que están en distinto ámbito).

## Parámetros por defecto

Por otra parte, se pueden establecer parámetros formales, tanto en procedimientos como en funciones, que tengan valores por defecto y, por tanto, se pueden obviar en la llamada al subprograma. Por ejemplo:
Se puede llamar de estas formas:
En la primera sentencia, se utiliza una llamada "normal" (con notación posicional); en la segunda, se utiliza posicional y por defecto; la tercera utiliza todos los parámetros por defecto; en la cuarta nombrada y por defecto; y, por último, la quinta utiliza notación posicional y nombrada.

## Manual de referencia de Ada

* Section 6: Subprograms

# Sobrecarga

En Ada se puede utilizar un identificador con más de un significado. Esto es lo que se conoce como sobrecarga. Los identificadores que se pueden sobrecargar son:
* Literales enumeración.
* Operadores.
* Subprogramas.

## Sobrecarga de literales de enumeración

Se pueden emplear identificadores iguales en distintos tipos enumeración, por ejemplo:

## Sobrecarga de operadores

También se puede utilizar una función para definir una operación y sobrecargar cualquiera de los operadores ya establecidos excepto /= (que toma su valor a partir del operador =, pero que puede redefinirse si el valor de retorno no es de tipo Boolean). Por ejemplo, se puede hacer una función "*" que multiplique escalarmente dos vectores:
Las reglas a cumplir a la hora de sobrecargar un operador son:
* No cambiar la sintaxis.
* No cambiar el número de parámetros de un operador (recuérdese que + y - pueden ser unarios o binarios).
* La precedencia se mantiene.
Por otro lado, una recomendación muy importante es no definir un operador para un nuevo tipo dándole un significado distinto al del operador predefinido. Es decir, + siempre ha de representar conceptos relacionados con la adición; *, multiplicación; and, conjunción, etc.

## Sobrecarga de subprogramas

Un subprograma sobrecargará un significado ya existente siempre que su especificación sea suficientemente diferente, es decir, pueden existir dos subprogramas con el mismo identificador siempre que se distingan por el número o tipo de sus parámetros. Por ejemplo:

## Manual de referencia de Ada

* 6.6 Overloading of Operators
* 8.6 The Context of Overload Resolution

# Entrada/salida

Ada tiene cinco bibliotecas predefinidas independientes para operaciones de entrada/salida. Por tanto, la lección más importante a aprender es elegir la más adecuada en cada caso.

## Direct I/O

Direct I/O se usa para acceso directo a archivos que contienen únicamente elementos del mismo tipo. Con Direct_IO el cursor del archivo se puede situar en cualquier elemento de ese tipo (el concepto conocido en inglés como random access). El tipo de los elementos ha de ser un subtipo definitivo (definite subtype), es decir, un subtipo cuyos objetos tienen un tamaño definido.

## Sequential I/O

Sequential I/O se usa para el acceso secuencial a archivos que únicamente contienen elementos de un tipo especificado.
Con Sequential I/O es posible elegir entre tipos definitivos y no definitivos, pero los elementos se han de leer uno tras otro.

## Storage I/O

Storage I/O nos permite almacenar un único elemento en un buffer de memoria. El elemento ha de ser de un subtipo definitivo. Storage I/O se usa en la programación concurrente para trasladar elementos de una tarea a otra.

## Stream I/O

Stream I/O es el paquete de entrada/salida más potente de Ada. Stream I/O permite mezclar objetos de diferentes tipos en un archivo secuencial. Para leer/escribir de/en un stream (un flujo de datos) cada tipo provee un atributo 'Read y otro 'Write. Estos atributos están definidos por el compilador para cada tipo que declaremos.
Estos atributos tratan los elementos como datos sin interpretar. Son ideales tanto para entrada/salida de bajo nivel como para interoperar con otros lenguajes de programación.
Los atributos 'Input y 'Output añaden información de control adicional al archivo, tal como el atributo 'First y el 'Last de un array.
En programación orientada a objetos es posible usar los atributos 'Class'Input y 'Class'Output para almacenar y recuperar correctamente un tipo concreto de la misma clase.
Stream I/O es también el paquete de entrada/salida más flexible. Todos los atributos de E/S pueden sobrescribirse con subprogramas definidos por el usuario y es posible definir nuestros propios tipos de Stream I/O usando técnicas avanzadas de orientación a objetos.

## Text I/O

Text I/O probablemente sea el tipo de entrada/salida más usada. Todos los datos del archivo se representan en formato de texto legible. Text I/O provee la posibilidad de definir el layout de líneas y páginas, pero el estándar es texto de forma libre.

## Biblioteca predefinida

Existen varios paquetes predefinidos para la entrada/salida en Ada:
* Paquete Ada.Direct_IO
* Paquete Ada.Sequential_IO
* Paquete Ada.Storage_IO
* Paquete Ada.Streams
** Paquete Ada.Streams.Stream_IO
* Paquete Ada.Text_IO, con sus paquetes genéricos anidados: Complex_IO, Decimal_IO, Enumeration_IO, Fixed_IO, Float_IO, Integer_IO y Modular_IO.
** Paquete Ada.Text_IO.Editing
* Paquete Ada.Float_Text_IO
* Paquete Ada.Integer_Text_IO

## Manual de referencia de Ada

* 13.13 Streams
* A.8.1 The Generic Package Sequential_IO
* A.8.4 The Generic Package Direct_IO
* A.10.1 The Package Text_IO
* A.12.1 The Package Streams.Stream_IO

# Interfaz con otros lenguajes

En el mercado existen miles de bibliotecas de programación escritas en C ó C++. También es bastante común tener que reutilizar una parte de nuestros programas escritos en otro lenguaje. Para este propósito existen en Ada los pragmas (directivas de compilación) de interfaz con otros lenguajes, definidos en el Annex B: Interface to Other Languages. El estándar define interfaces con los lenguajes C, COBOL y Fortran, y también con ensamblador. Las implementaciones pueden definir interfaces con otros lenguajes siguiendo el mismo esquema. Así, por ejemplo, GNAT proporciona interfaz con C++ (aunque el name mangling suele dificultar esta tarea).
Para importar desde nuestro programa Ada una función definida en otro lenguaje se utiliza el pragma Import. Ésta es la base de los conocidos bindings que nos permiten utilizar una librería escrita en otro lenguaje desde Ada. Para hacer que un subprograma escrito en Ada pueda ser llamado desde otro lenguaje, se utiliza el pragma Export.
También se pueden importar y exportar variables o constantes.
A la hora de enlazar (link) el programa completo tenemos que especificar a nuestro compilador con qué bibliotecas externas ha de enlazar para encontrar los subprogramas u objetos importados. Para esto también puede ser de ayuda el pragma Linker_Options, con el cual se pueden especificar los argumentos para el linker.
La biblioteca predefinida tiene varios paquetes, todos ellos hijos de Interfaces destinados a facilitar la interfaz con otros lenguajes, definiendo tipos y subprogramas para ello:
* Paquete Interfaces
** Paquete Interfaces.C
** Paquete Interfaces.Cobol
** Paquete Interfaces.Fortran

## Ejemplo de importación desde C

Este ejemplo compilaría perfectamente usando GNAT con:
Sin embargo si en vez de importar funciones de las librerías estándar de C tenemos que importar nuestras propias funciones, primero tendríamos que definirlas en su correspondiente archivo .c, compilarlas y luego pasárselas al compilador de Ada.
Por ejemplo si nuestras funciones están definidas en el archivo mis_funciones.c y si usamos el compilador gcc:
Con esto se obtiene un mis_funciones.o que se ha de pasar al gnatmake para que enlace con las funciones:
Si no lo hacemos así fallará la fase de enlace del programa porque existen referencias a funciones externas no encontradas.

## Manual de Referencia de Ada

* Annex B: Interface to Other Languages

# Cláusulas de representación

Una de las características de Ada que facilitan la programación de bajo nivel es la posibilidad de definir a nivel de bit la representación de nuestros tipos. Es posible definir el tamaño y los valores internos de los tipos enumerados, por ejemplo:
También es posible definir la estructura en memoria de los registros:
Otra manera de controlar la representación es con el pragma Pack, que indica al compilador que use la mínima representación para los componentes de un array o de un registro, sin dejar espacios vacíos entre los elementos.

## Manual de Referencia de Ada

* Section 13: Representation Issues

# Diseño y programación de sistemas grandes

Los sistemas empotrados suelen ser grandes y complejos, formados por subsistemas relacionados, pero relativamente independientes. Algunos lenguajes ignoran el hecho de que los programas se construyen por partes, cada una de ellas compilada por separado y todas ellas enlazadas en una aplicación final. El resultado se convierte en aplicaciones monolíticas difíciles de mantener. Otros lenguajes, en contraste, parten del concepto de módulo y proporcionan mecanismos de encapsulamiento y abstracción que ayudan a programar sistemas grandes, ya que el trabajo del equipo de programación y posterior mantenimiento del sistema se ve facilitado. Uno de estos lenguajes es Ada, que está fuertemente fundamentado en la disciplina de la ingeniería del software por lo que es el lenguaje más apropiado en la programación de sistemas empotrados industriales grandes.
Ada asume la necesidad de la compilación separada y proporciona dos mecanismos para realizarla, uno ascendente y otro descendente:
* El mecanismo descendente (descomposición): consiste en dividir un sistema complejo en componentes más sencillos. Es apropiado para el desarrollo de grandes programas coherentes que, son divididos en varias subunidades que pueden compilarse por separado. Las subunidades se compilan después que la unidad de la que forman parte.
* El mecanismo ascendente (abstracción): consiste en la especificación de los aspectos esenciales de un componente, posponiendo su diseño detallado. Es apropiado para la creación de bibliotecas de programa en las que las unidades se escriben para uso general y, consecuentemente, se escriben antes que los programas que las vayan a utilizar.
El diseño de sistemas mediante módulos permite encapsular partes del sistema mediante interfaces bien definidas y permiten utilizar técnicas que facilitan el desarrollo de sistemas grandes como:
* Ocultación de información.
* Tipos abstractos de datos.
* Compilación separada.
Las unidades de programa en Ada son las siguientes:
* Subprograma: que define los algoritmos ejecutables. Los procedimientos y las funciones son subprogramas.
* Paquete: define una colección de entidades. Los paquetes son el principal mecanismo de agrupación de Ada.
* Tarea: define una computación que puede llevarse a cabo en paralelo con otras computaciones.
* Unidades genéricas: ayudan a realizar código reutilizable. Pueden ser subprogramas o paquetes.
* Unidad protegida: puede coordinar el acceso a datos compartidos en el procesamiento paralelo. Aparece en el estándar Ada 95.
En Ada, las unidades de compilación pueden ser:
* Especificaciones de subprogramas
* Especificaciones de paquetes
* Cuerpos de subprogramas o paquetes
Algunos compiladores pueden establecer ciertos requisitos para las unidades de compilación. Por ejemplo, GNAT en su configuración predefinida exige que cada unidad esté definida en un fichero, con el nombre de la unidad y la extensión .ads para especificaciones y .adb para cuerpos. El guión "-" se ha de utilizar en sustitución del punto "." para unidades hijas y subunidades.

# Paquetes

Los paquetes exportan mediante una interfaz bien definida tipos, objetos y operaciones y permiten ocultar su implementación, lo que proporciona al programador tipos abstractos de datos y subprogramas de manera transparente.
Los paquetes de Ada proporcionan:
* Abstracción de datos.
* Encapsulamiento.
* Compilación separada y dependiente.

## Especificación y cuerpo

El paquete consta de especificación (parte visible) y cuerpo (implementación que se oculta) y pueden compilarse por separado.
La sintaxis de su especificación es la siguiente:
La sintaxis del cuerpo de un paquete es la siguiente:
Un paquete permite agrupar declaraciones y subprogramas relacionados.

## Ejemplos

Por ejemplo, para implementar una pila de enteros:
En este caso, se tiene una interfaz que proporciona acceso a dos subprogramas para manejar la pila, aunque también se podrían haber exportado tanto tipos como objetos, constantes, tareas e incluso otros paquetes. Por ejemplo:
En este caso, el paquete no necesitaría cuerpo. Todos los elementos definidos en el paquete son accesibles, por lo que podríamos utilizar Sobre_Dias.TDia, Sobre_Dias.SAB, Sobre_Dias.JUE o Sobre_Dias.TDiaLaborable.

## Dependencia entre especificación y cuerpo

La especificación del paquete y el cuerpo pueden compilarse por separado. Mediante este encapsulamiento, ahora no es posible desde fuera modificar, por ejemplo, el valor de la cima de la pila, pues este objeto no es visible. Así se evita un mal empleo de la pila por alguien que pueda no conocer su implementación.
Si la especificación de un paquete contiene la especificación de un subprograma, entonces, el cuerpo del paquete debe contener el correspondiente cuerpo del subprograma. Sin embargo, pueden existir subprogramas dentro del cuerpo del paquete que no se declaren en su especificación, serían, por tanto, internos.
Destacar que dentro del cuerpo del paquete se inicializa el valor de la cima de la pila (después de begin). Esto sucede cuando se elabora el paquete. Si no necesita ninguna sentencia, se puede omitir el begin.

## Declaración y visibilidad

Los paquetes se pueden declarar en cualquier parte declarativa, es decir, en un bloque, subprograma o dentro de otro paquete. En el caso del ejemplo, para utilizar la pila de números enteros, se podría hacer así:
Dentro del paquete se puede llamar a Poner o a Pila_Enteros.Poner, pero fuera del paquete únicamente se puede llamar a dicho procedimiento de la forma Pila_Enteros.Poner. Además, las variables Max, Pila y Cima no son visibles.

## Importación de paquetes

Para la utilización de los paquetes desde otras unidades de compilación, se definen estas dos cláusulas:
* Cláusula use
* Cláusula with

## Manual de referencia de Ada

* Section 7: Packages

# Cláusula use
## Definición

Si no se desea tener que escribir siempre Pila_Enteros.Poner para llamar a dicho procedimiento desde fuera del paquete, se puede utilizar la cláusula use, cuya sintaxis es la siguiente:
Así pues, siguiendo con el ejemplo de la sección anterior, se podría escribir:
Dicha cláusula use es semejante a una declaración y su ámbito llega al final del bloque. Incluso podría existir otra cláusula use más interna que se refiera al mismo paquete.
En el caso de existir varios paquetes anidados, se puede utilizar la notación punto para distinguirlos, por ejemplo:
Para utilizar el paquete Standard, que contiene todas las entidades predefinidas, no se necesita cláusula use.

## Desventajas

Muchos proyectos prohíben el uso de esta cláusula porque dificulta la comprensión del código y la localización de los tipos o subprogramas importados. Si deseas usarla lo más recomendable es usar un único use por cada unidad y haciéndolo sólo de los paquetes más conocidos o de los predefinidos.

## Véase también

* Cláusula with

# Cláusula with

Si una unidad se compila aparte (método usual si se va a utilizar en más programas), se puede hacer referencia a dicha unidad (cuya especificación y cuerpo pueden estar en ficheros distintos) mediante la cláusula with, cuya sintaxis es la siguiente:
Así, se podría utilizar el paquete Pila_Enteros del ejemplo anterior de esta manera:
La cláusula with tiene que ir antes de la unidad (no puede ir dentro de un ámbito más interno), de este modo, se ve claramente la dependencia entre las unidades.
Si la cláusula use se coloca inmediatamente después de la cláusula with correspondiente, se podrá utilizar los nombres de las entidades de los paquetes sin hacer referencia cada vez al nombre del paquete, en toda la unidad.
Si el paquete P usa los servicios del paquete Q y éste a su vez utiliza los servicios de R, a no ser que P utilice directamente los servicios de R, se debería utilizar únicamente la cláusula with Q; dentro de P. El programador de Q no tiene porqué conocer el paquete R.
Destacar que las especificaciones de unidades utilizadas con with deben compilarse antes que la unidad que contiene dichas cláusulas with, aunque de esto se suelen encargar automáticamente los compiladores.
También hay que tener en cuenta, que las dependencias que sean únicamente del cuerpo no deben darse en la especificación a no ser que se exporte algo que necesite de dicho paquete.
Hay un paquete que no es necesario que se mencione en la cláusula with, el paquete Standard.

## Manual de referencia de Ada

* 10.1.2 Context Clauses - With Clauses

# Declaraciones

Una declaración es una construcción del lenguaje que asocia un nombre con una entidad. Ada distingue cuidadosamente entre declaraciones (que introducen nuevos identificadores) y sentencias (que utilizan dichos identificadores). Hay dos clases de declaraciones:
* Implícitas: que ocurren como consecuencia de la semántica de otra construcción.
* Explícitas: aparecen en el texto del programa y pueden ser:
** Declaraciones de tipo, subtipos, variables y constantes (objetos), excepciones, especificaciones de subprogramas o paquetes, cláusulas de representación o cláusulas use.
** Los cuerpos de los subprogramas, paquetes y tareas.

## Declaraciones de subprogramas

En ocasiones es necesario utilizar declaraciones de subprogramas, por ejemplo, si se va a utilizar la recursividad entre dos procedimientos:
También puede resultar útil declarar las especificaciones de los subprogramas en el comienzo del programa a modo de índice, sobre todo si hay muchos cuerpos.

## Vista de una entidad

Todas las declaraciones contienen una definición de vista de una entidad. Una vista consiste en:
* Un identificador de la identidad.
* Características específicas de la vista que afectan al uso de la entidad a través de dicha vista.
En la mayoría de los casos, una declaración contiene la definición de la vista y de la entidad misma, pero una declaración de renombrado, sin embargo, no define una entidad nueva, sino que define una nueva vista de una entidad.

## Parte declarativa

Una secuencia de declaraciones constituye una parte declarativa. Las siguientes construcciones de Ada tienen asociada una parte declarativa:
* Bloque.
* Cuerpo de un subprograma.
* Cuerpo de un paquete.
* Cuerpo de una tarea.
* Cuerpo de una entrada a un objeto protegido.
Por ejemplo, en un procedimiento, la parte declarativa comprendería las sentencias entre procedure y begin. El cuerpo de un procedimiento puede contener en su parte declarativa el cuerpo de otro procedimiento. Por tanto, los procedimientos pueden ser declarados sin límite de niveles de anidamiento sucesivos.
En ocasiones, las declaraciones requieren una segunda parte (se dice que requieren una terminación). La declaración y su terminación deben tener el mismo nombre y deben ocurrir en la misma región declarativa. Por ejemplo, un paquete necesita un cuerpo (que sería la terminación) si en su parte declarativa contiene alguna declaración que requiere una terminación que no se encuentre en dicha declaración.

## Región declarativa de una declaración

Hay que distinguir entre región declarativa de una declaración y parte declarativa. En el supuesto de una declaración de una variable (por ejemplo I: Integer := 0;) se extiende por una región de texto que abarca sólo una línea, sin embargo, otras declaraciones más complejas como procedimientos y paquetes constituyen muchas más líneas de texto. En Ada, existen las siguientes construcciones que tienen asociada una región declarativa:
* Cualquier declaración que no sea terminación de otra.
* Bloque
* Bucle
* Construcción accept.
* Manejador de excepción.
La región declarativa de cada una de estas construcciones comprende:
* El texto de la construcción misma.
* Texto adicional, determinado de esta manera:
** Si una declaración está incluida en la región, también lo está su terminación.
** Si una unidad de biblioteca está incluida en la región, también lo están sus unidades hijas.
** Si está incluido el requerimiento de compilación separada, también lo está su subunidad correspondiente.
Así, se pueden extraer las siguientes conclusiones:
* La especificación de un paquete y su cuerpo forman parte de la misma región declarativa porque el cuerpo es la terminación de la especificación, por lo que no se puede declarar la misma variable en la especificación y en el cuerpo.
* Ya que la declaración y el cuerpo de un paquete pueden estar en compilaciones distintas, la región declarativa de una declaración de paquete puede abarcar porciones de texto en varias unidades de compilación distintas.
* Todas las unidades de biblioteca son hijas de Standard, luego toda unidad de biblioteca pertenece a su región declarativa.

## Manual de referencia de Ada

* 3.1 Declarations

# Ámbito

Cada declaración tiene asociada una porción del texto del programa que se denomina ámbito de la declaración. En dicha porción es el único lugar donde se puede hacer referencia a dicha declaración. El ámbito de una declaración consiste en:
* Si la declaración es una unidad de biblioteca, todos sus dependientes semánticos.
* Si la declaración no es una unidad de biblioteca, una porción de la región declarativa que la encierra inmediatamente. Dicha porción se extiende desde el comienzo de la declaración hasta el final de su región declarativa.
Resumiendo, como ejemplo:
Para la cláusula with también se define un ámbito, que consiste en la región declarativa de su declaración si aparece delante de la declaración de una unidad de biblioteca y en el cuerpo si aparece delante de un cuerpo.
Para la cláusula use: si actúa como una declaración, su ámbito es la porción de la región declarativa que empieza justo después de la cláusula y finaliza junto con dicha región declarativa; si actúa como cláusula de contexto, su ámbito es el mismo que el de la cláusula with.

## Manual de referencia de Ada

* 8.2 Scope of Declarations

# Visibilidad

Una entidad es visible en un punto dado si se puede utilizar su identificador para referirse a ella en dicho punto. La diferencia con el ámbito es que éste es la región de texto donde una determinada entidad es visible.
En el caso de una declaración de una variable, no se puede utilizar el identificador hasta que no se haya terminado su declaración (por ejemplo, sería ilegal la declaración I: Integer := I +1;) ya que no es visible hasta que no se haya terminado de declarar.
Como ejemplo, en el caso de un bloque:
En este caso, la visibilidad de la I externa se ve ocultada cuando se hace visible a la I interna. Sin embargo, si se dota de nombre al bloque, se puede hacer referencia a una variable supuestamente ocultada con la notación punto:
Igualmente se puede hacer con bucles y, por supuesto, con subprogramas y paquetes, pues deben poseer un identificador.
En el caso de una entidad declarada en la parte no privada de la especificación de un paquete, se aplican las mismas reglas dentro del paquete pero, fuera del mismo, la entidad no es visible a menos que se escriba el nombre del paquete mediante la notación punto o, alternativamente, se escriba una cláusula use.

## Reglas de visibilidad

Una declaración es directamente visible en un lugar determinado cuando su nombre, sin notación punto, es suficiente para referenciarla. La visibilidad puede ser inmediata o mediante una cláusula use.
Los identificadores visibles en un punto son aquellos visibles antes de considerar ninguna cláusula use más aquellos que se hacen visibles debido a las cláusulas use.
La regla básica es que un identificador de un paquete se hace visible mediante una cláusula use si el mismo identificador no está también en otro paquete con otra cláusula use, por supuesto, siempre que el identificador no sea ya visible. Si no se cumple, hay que recurrir a la notación punto.
Se aplica una regla ligeramente diferente cuando todos los identificadores son subprogramas o literales enumeración. En este caso, un identificador que se hace visible mediante una cláusula use no puede ocultar nunca otro identificador, aunque sí puede sobrecargarlo.

## Manual de referencia de Ada

* 8.3 Visibility

# Renombrado

El renombrado o redenominación se utiliza para dar a una entidad un identificador más conveniente en una determinada porción del programa. Se suele emplear para resolver ambigüedades y para evitar el uso de la notación punto. Para ello se emplea la palabra reservada renames. Por ejemplo:
Con ello se consigue utilizar indistintamente tanto "*" como ProductoEscalar (definido con anterioridad) para referirse a la misma función.
También se puede evitar la notación punto sin tener que importar todos los identificadores con la cláusula use:
El renombrado se puede utilizar con objetos (variables y constantes), excepciones, subprogramas, y paquetes. No se aplica a tipos, aunque un subtipo que no añade restricciones es equivalente a un renombrado.
Reseñar que el renombrado no corresponde a una sustitución de texto. La identidad del objeto se determina cuando se realiza el renombrado.

## Manual de referencia de Ada

* 8.5 Renaming Declarations

# La biblioteca
## La biblioteca Ada (unidades y subunidades)

La biblioteca Ada es la piedra angular de este lenguaje en la construcción de sistemas grandes, pero fiables.
Los programas grandes deben ser descompuestos en subsistemas, cada uno de ellos con su propia estructura interna. La respuesta a este requerimiento en Ada es la biblioteca Ada y tiene las siguientes características:
* Integrado en el lenguaje.
* Facilita la creación y mantenimiento de un subsistema, actuando como repositorio estructurado de todos sus componentes.
* Ofrece a los programas que hacen uso de un subsistema un interfaz fácil de utilizar y que es selectivo a componentes internos.
Los compiladores de Ada toman el código fuente y la biblioteca referenciada y producen un código objeto y, además, una biblioteca actualizada con dicho código objeto. Es como si la biblioteca Ada "recordara" las compilaciones que se realizan en el sistema. A diferencia de los compiladores de otros lenguajes, que únicamente generan el código objeto sin incorporarlo a ninguna biblioteca.
El concepto de incorporación a la biblioteca no está definido por el lenguaje Ada, sino por el propio compilador. Por ejemplo, en la implementación de Ada de GNU denominada GNAT, la biblioteca se implementa sobre un sistema de ficheros. La compilación de un fichero que contiene, por ejemplo, un procedimiento, produce un fichero objeto y una colección de enlaces al resto de la biblioteca (fichero con la extensión .ali de Ada Library Information), dentro del mismo directorio. El compilador puede tener ahora dos "vistas" diferentes de la biblioteca Ada, una con el procedimiento incorporado y otra sin él.
La estructura formal de un programa Ada es la siguiente:
* Un programa es un conjunto de compilaciones. El concepto de compilación no está especificado por el lenguaje Ada, pero suele ser un fichero fuente.
* Una compilación es una secuencia de unidades de compilación. Por ejemplo, una compilación con seis unidades de compilación puede ser un fichero con cuatro procedimientos y dos paquetes. El número de unidades de compilación en una compilación puede estar limitado por la implementación. Por ejemplo, el compilador GNAT únicamente permite una unidad de compilación por cada compilación.
* Una unidad de compilación puede ser bien una unidad de biblioteca o bien una subunidad.
* Una unidad de biblioteca es la declaración o cuerpo de un procedimiento o de un paquete.
* Una subunidad es una parte de una unidad de biblioteca que se desea separar y compilar por separado.
La biblioteca se alimenta de los programas, que no son más que un conjunto de unidades de compilación que se suman a la biblioteca cuando se compila el programa. Cuando un programa está correctamente construido, se incorpora a la biblioteca. Los programas nuevos utilizan el material compilado ya disponible en la propia biblioteca.
Hay que tener presente que los programas se escriben por partes que son compiladas por separado y luego se enlazan para dar el resultado final. Ada proporciona dos mecanismos para ello:
* Unidades de biblioteca: mecanismo ascendente.
* Subunidades: mecanismo descendente.

### Subsecciones

* Unidades de biblioteca
* Unidades hijas
* Subunidades
* Compilación separada y dependiente

# Unidades de biblioteca

Una unidad de biblioteca puede ser una especificación de subprograma o una especificación de paquete; a los cuerpos correspondientes se les denomina unidades secundarias. Se puede compilar especificación y cuerpo juntos, pero es conveniente hacerlo separadamente con el fin de mejorar la accesibilidad y el mantenimiento de los programas.
Cuando se compila una unidad, ésta se almacena dentro de la biblioteca de programas. Una vez que se incluye en la biblioteca, una unidad puede ser usada por cualquier otra unidad que se compile a continuación, esta dependencia se indica con la cláusula with.
Si el cuerpo de un subprograma es por sí mismo suficiente para definir un subprograma completo. Es entonces cuando se le clasifica como una unidad de biblioteca, en vez de tratarlo como una subunidad.
Si la especificación y el cuerpo se compilan por separado, entonces, el cuerpo debe compilarse después de la especificación, es decir, el cuerpo es dependiente de la especificación. Sin embargo, toda unidad que utilice el paquete es dependiente únicamente de la especificación, aspecto destacable de Ada. Con ello, aunque cambie el cuerpo del paquete, si no se cambia la especificación (interfaz con el exterior), no es necesario volver a recompilar las unidades que estaban utilizando dicho paquete. Se puede apreciar que la compilación separada de especificación y cuerpo simplifica el mantenimiento de los programas.
Como es obvio, las unidades de biblioteca no pueden sobrecargarse ni pueden ser operadores.

## Manual de referencia de Ada

* 10.1.1 Compilation Units - Library Units

# Unidades hijas

El empleo de unidades hijas surge ante la necesidad de poder referenciar a un gran número de unidades de biblioteca con distintos nombres. Al igual que un sistema de archivos jerarquizado mediante directorios y subdirectorios, la biblioteca Ada contiene una jerarquía en su organización. Las unidades hijas son un paso más allá respecto a las subunidades, pues permiten extender la funcionalidad de un paquete sin modificar el paquete en cuestión.
El padre de todas las unidades de biblioteca es el paquete Standard. De este modo, las unidades de biblioteca creadas se agregan como hijas de Standard y se les denomina unidades de biblioteca raíz. Estas unidades serían hermanas de los paquetes predefinidos Standard.Ada, Standard.System y Standard.Interfaces. Y cada una de ellas puede a su vez contener unidades hijas.

## Espacio de nombres

Las unidades hijas forman también un espacio de nombres. Desde dentro de la jerarquía es posible referirse a las entidades definidas en el paquete padre como si estuviesen en la propia unidad. Igualmente al referirse a unidades hermanas.
Por ejemplo:
Los paquetes se pueden encontrar en cualquier punto de la jerarquía, y los subprogramas sólo en las hojas del árbol.

## Visibilidad

La parte privada de un paquete hijo y su cuerpo pueden referenciar las entidades definidas en la parte privada del paquete padre.

## Manual de referencia de Ada

* 10.1.1 Compilation Units - Library Units

# Subunidades

El cuerpo de un paquete, subprograma o tarea puede ser "extraído" de la unidad o subunidad de biblioteca que lo engloba y compilarse por separado en lo que viene a denominarse subunidad. En la unidad que lo engloba, el cuerpo "extraído" se sustituye por un "resguardo" del cuerpo. Cualquier unidad de compilación puede tener subunidades.
En un ejemplo anterior, se construía un paquete de una pila de números enteros con dos procedimientos Poner y Quitar, que interesa compilar por separado, luego se escribiría:
A los subprogramas que se van a compilar aparte (Poner y Quitar) se les denomina subunidades. Su cuerpo deberá implementarse en otro fichero de esta forma:
Y de manera análoga se procedería con Quitar.
En el caso de que R sea subunidad de Q y ésta a su vez de P, que es una unidad de biblioteca, entonces la implementación de R debe comenzar con separate (P.Q).
Una subunidad depende de la unidad de la que fue separada y, por tanto debe compilarse después de ella.
La visibilidad dentro de la subunidad es exactamente igual que si no hubiera sido separada, es decir, por ejemplo, una cláusula with en la unidad principal se aplica a todas sus subunidades.
Si se necesita de una unidad únicamente dentro de una subunidad, a fin de no complicar las dependencias de compilación, se deberá incluir la cláusula with justo antes de la declaración subunidad, es decir, delante de separate (Pila_Enteros).

## Manual de referencia de Ada

* 10.1.3 Subunits of Compilation Units

# Compilación separada y dependiente

Ada realiza una compilación separada y dependiente.
Una compilación separada significa que el programa principal y un subprograma pueden escribirse por separado en ficheros distintos.
Una compilación dependiente significa que el compilador va a llevar a cabo la comprobación de que los tipos y el número de parámetros de la invocación en el subprograma invocante concuerdan con los tipos y el número de parámetros del subprograma invocado.
En otros lenguajes en los que se realiza una compilación independiente (por ejemplo el lenguaje C), no se advierte que los parámetros de llamada se corresponden y compila correctamente. Esta situación en un sistema de control es intolerable. El fallo no se detecta en la compilación y puede que tampoco en las pruebas.
En Ada, cuando desde una unidad de biblioteca se utiliza un tipo o un subprograma de otra unidad, se puede entender que depende semánticamente de ella.
Cuando una unidad ha sido compilada con éxito, se incorpora a la biblioteca del lenguaje. Así, cuando el compilador encuentra una llamada a un subprograma, contrasta el número y el tipo de los parámetros de la llamada contra la declaración del subprograma invocado, declaración que debe haber sido previamente compilada y que, en consecuencia, debe estar ya en la biblioteca. Por lo tanto, se puede decir que es la biblioteca Ada la que implementa la dependencia.
Ada permite incluso escribir y compilar la subrutina invocante antes que la subrutina invocada de forma consistente. Esto se consigue compilando únicamente la especificación, dejando la compilación del cuerpo para más tarde. En dicha especificación se deja detallado el nombre, el número y los tipos de los parámetros, además de indicar si son de entrada, salida o ambos. Esta es toda la información que necesita el compilador para compilar una llamada a un subprograma. Cuando, posteriormente, se compile el cuerpo del subprograma, se comprobará que es consistente con la especificación.
La forma de expresar que una unidad depende de otra se realiza mediante la cláusula with. Cuando el compilador encuentra dicha cláusula, extrae de la biblioteca el interfaz de la unidad que acompaña a with.
El orden de compilación es el siguiente: una unidad sólo se incorpora a la biblioteca después de que todas las unidades de las que depende se han incorporado también a la biblioteca. Ello implica que:
* Si especificación y cuerpo de una unidad se compilan por separado, es preciso compilar antes la especificación.
* Si la especificación de una unidad es cambiada y, por lo tanto, es recompilada de nuevo, todas las unidades que dependen de ella deben ser recompiladas.
* Si el cuerpo de una unidad se cambia de una forma consistente con su especificación, las unidades que dependen de esta unidad no necesitan ser recompiladas.
El lenguaje Ada viene con varios paquetes predefinidos como Text_IO. Estos paquetes ya han sido incorporados a la biblioteca del lenguaje. Hay, sin embargo, una excepción que es el paquete Standard, que no necesita la cláusula with. Finalmente, todas las unidades incorporadas a la biblioteca Ada deben tener nombres diferentes. En otro caso, se produce el reemplazamiento de la unidad residente por la nueva unidad con el mismo nombre.
Notese que cuando se dice que una unidad se ha de compilar antes que otra no quiere decir que el programador se tenga que preocupar de estos temas, pues los entornos de desarrollo de Ada vienen acompañados de herramientas de compilación que se encargan de recompilar todas las unidades necesarias y sólo las que han quedado obsoletas por un cambio en el código fuente. Por ejemplo, con el compilador GNAT, esta herramienta es gnatmake.

## Manual de referencia de Ada

* Section 10: Program Structure and Compilation Issues

# Tipos abstractos de datos
## Tipos abstractos de datos (tipos privados)

Una de las principales contribuciones de los lenguajes de alto nivel es que el programador no tiene que preocuparse de cómo se representan físicamente los datos en el computador. De esta idea surge el concepto de tipo de datos. Una extensión del mismo es el tipo abstracto de datos. Su implementación es de nuevo desconocida para el programador, esta vez no porque desconozca la arquitectura del computador subyacente, sino porque es encapsulado en un módulo que no permite el acceso directo a los detalles de su implementación. En su lugar, se proporciona al programador operaciones sobre el tipo que son invocaciones a entradas del módulo que lo encapsula.
Por ejemplo, consideremos la utilización de un tipo abstracto de datos que represente a un número complejo:
De este modo, el usuario debe conocer los detalles de la implementación y sabe que se utiliza una representación cartesiana. Además, el usuario está obligado a hacer uso de la representación.
Para impedir el uso del conocimiento de la representación con vistas, por ejemplo, a poder cambiar ésta posteriormente, se puede hacer uso de los tipos privados definiéndolos mediante la palabra reservada private:
Ahora, se ha definido TComplejo como tipo privado y se resguardan los detalles de su implementación en la parte no visible del paquete después de la palabra reservada private y hasta el fin de la especificación del paquete. En la parte visible (desde el comienzo de la especificación hasta private), se da la información disponible fuera del paquete.
Las únicas operaciones disponibles son la asignación, la igualdad y la desigualdad, aparte de las añadidas en el paquete.
Nótese que el valor de I no se puede dar pues no se conocen todavía los detalles de la implementación, se declara como constante y se le asigna después un valor en la parte privada.
Las funciones Construir_complejo, Parte_imaginaria y Parte_real son ahora necesarias pues el usuario ya no conoce la estructura del tipo TComplejo y se necesita realizar dicha interfaz para poder manejar objetos del tipo privado.
El cuerpo se podría implementar de la siguiente manera:
Y podría ser utilizado transparentemente, por ejemplo, dentro de un bloque como:
Si ahora se quisiera cambiar la implementación del tipo TComplejo y representarlo en forma polar, no sería necesario cambiar la parte visible de la especificación, por lo que todas las unidades que utilicen dicho paquete no tienen la necesidad de actualizarse. La interfaz exportada no ha cambiado y, por tanto, los programas que la utilizarán pueden seguir haciéndolo. Por ejemplo, ahora se podría representar en la parte privada de la especificación del paquete como:
Lo único que se necesitaría sería reescribir el cuerpo del paquete y recompilarlo.

## Enlaces externos

* Ejemplos de TADs

### Manual de referencia de Ada

* 7.3 Private Types and Private Extensions

# Tipos limitados
## Tipos privados limitados

Cuando se define un tipo privado, se predefinen inherentemente las operaciones de asignación, igualdad y desigualdad. Si no se quiere que exista ninguna operación, sino únicamente las definidas en el paquete, se debe emplear el tipo privado limitado.
Como consecuencia de no tener operador de asignación, la declaración de un objeto de dicho tipo no puede incluir un valor inicial. Esto también tiene la consecuencia de que no pueden existir constantes de un tipo privado limitado.
La ventaja es que el programador de la unidad que contenga un tipo privado limitado se asegura el control absoluto sobre los objetos de dicho tipo.
Para indicarlo, se define el tipo como limited private. Por ejemplo, implementado un tipo abstracto de datos pila:
La función "=" se implementa para comprobar que dos pilas tienen el mismo número de elementos y cada uno de ellos en el mismo orden deber ser iguales. Por eso, se ha optado por un tipo privado limitado.

## Manual de referencia de Ada

* 7.5 Limited Types

# Unidades genéricas
## Polimorfismo paramétrico

La idea de reutilización de código surge ante la necesidad de construir programas en base a componentes bien establecidos que pueden ser combinados para formar un sistema más amplio y complejo. La reutilización de componentes mejora la productividad y la calidad del software. El lenguaje Ada soporta esta característica mediante las unidades genéricas.
Una unidad genérica es aquella en la que se manipulan tipos que posteriormente instanciará el usuario, es decir, se utiliza a modo de plantilla. Se pueden hacer unidades genéricas de subprogramas y paquetes. Sintácticamente se podría describir como:
Por ejemplo, para reutilizar un procedimiento de intercambio de variables:
La especificación del subprograma va precedida por la parte formal genérica, que consta de la palabra reservada generic seguida por una lista de parámetros formales genéricos que puede ser vacía.
El subprograma Intercambiar es genérico y se comporta como una plantilla. Hay que destacar que las entidades declaradas como genéricas no son locales, por ello es necesario instanciarlas. Por ello, para poder utilizar la unidad del ejemplo es necesario crear una instancia suya para el tipo que se quiera usar, su sintaxis sería:
Por ejemplo:
Con ello, se puede utilizar el procedimiento para tipos Integer, si se quiere utilizar para cualquier otro tipo basta con volver a instanciarlo para el nuevo tipo con otro nombre o, si se utiliza el mismo identificador en la instanciación, se sobrecarga el procedimiento y puede ser utilizado para distintos tipos:
De igual modo, se pueden emplear paquetes genéricos, por ejemplo, para implementar una plantilla del tipo abstracto de datos pila:
Ahora se podría utilizar una pila de un tamaño y tipo determinados, para ello, habría que crear un ejemplar, por ejemplo, de esta manera:
En la segunda línea del código anterior se ha creado una instancia del paquete Plantilla_pila que se llama Pila_reales_de_100. A partir de ese momento se pueden acceder a los miembros del paquete, ya que la creación de la instancia implica su visibilidad (igual que si se ejecutara la sentencia with Pila_reales_de_100;).

## Parámetros de unidades genéricas

Resaltar que los objetos declarados como parámetros formales son de modo in por defecto y pueden ser in o in out, pero nunca out. En el caso de que sea in, se comportará como una constante cuyo valor lo proporciona el parámetro real correspondiente. Como resulta obvio, un parámetro genérico in no puede ser de un tipo limitado, pues no se permite la asignación y el parámetro formal toma su valor mediante asignación. En el caso de que el parámetro genérico sea de modo in out, se comporta como una variable que renombra al parámetro real correspondiente; en este caso, el parámetro real debe ser el nombre de una variable y su determinación se realiza en el momento de la creación del ejemplar.
Además de parámetros genéricos de tipo y objetos, se pueden incluir parámetros formales de subprogramas o paquetes, por ejemplo:
Se utilizaría, por ejemplo, con matrices (teniendo previamente definida la operación de multiplicación de matrices), de la siguiente manera:
Los tipos formales de un genérico se pueden especificar para que pertenezcan a una determinada clase de tipos.
| Tipo formal | Instanciable con |
| type T is private; | Cualquier tipo con operador de igualdad y asignación definidos |
| type T (D : TD) is limited private; | Cualquier tipo con discriminante de tipo TD |
| type T (<>) is private; | Cualquier tipo con cualquier discriminante |
| type T is limited private; | Cualquier tipo (sea limitado o no) |
| type T is (<>); | Cualquier tipo discreto |
| type T is range <>; | Cualquier tipo entero con signo |
| type T is delta <>; | Cualquier tipo de coma fija |
| type T is digits <>; | Cualquier tipo de coma flotante |
| type T is array (I) of E; | Cualquier tipo array con índice I y tipo de elementos E (I y E podrían ser a su vez otros parámetros formales) |
| type T is access O; | Cualquier tipo puntero que apunte a objetos de tipo O (O podría ser a su vez otro parámetro formal) |
En el cuerpo sólo podemos hacer uso de las propiedades de la clase de tipo del parámetro real. Es decir, a diferencia de las plantillas de C++, la especificación del genérico es un contrato que ha de cumplir la implementación.

## Ver también

* Polimorfismo en Wikipedia
* Generic programming en Wikipedia en inglés

## Manual de referencia de Ada

* Section 12: Generic Units

# Excepciones

En Ada, cuando se produce algún error durante la ejecución de un programa, se eleva una excepción. Dicha excepción puede provocar la terminación abrupta del programa, pero se puede controlar y realizar las acciones pertinentes. También se pueden definir nuevas excepciones que indiquen distintos tipos de error.

## Excepciones predefinidas

En Ada, dentro del paquete Standard, existen unas excepciones predefinidas, éstas son:

### Constraint_Error

    cuando se intenta violar una restricción impuesta en una declaración, tal como indexar más allá de los límites de un array o asignar a una variable un valor fuera del rango de su subtipo.

### Program_Error

    se produce cuando se intenta violar la estructura de control, como cuando una función termina sin devolver un valor.

### Storage_Error

    es elevada cuando se requiere más memoria de la disponible.

### Tasking_Error

    cuando hay errores en la comunicación y manejo de tareas.

### Numeric_Error

    en Ada 83 se podía presentar cuando ocurría un error aritmético. A partir del estándar Ada 95, desaparece por motivos de portabilidad y pasa a ser un renombrado de Constraint_Error. Por ejemplo, en Ada 83 al dividir entre cero podía saltar Constraint_Error o Numeric_Error (dependiendo del compilador). En Ada 95 este error siempre levanta Constraint_Error.

### Name_Error

    se produce cuando se intenta abrir un fichero que no existe.

## Manejador de excepciones

Cuando se espere que pueda presentarse alguna excepción en parte del código del programa, se puede escribir un manejador de excepciones en las construcciones que lo permitan (bloques o cuerpos de subprogramas, paquetes o tareas), aunque siempre está el recurso de incluir un bloque en cualquier lugar del código.
Su sintaxis sería:
A la sentencia que comienza por when, se le denomina manejador de excepción.
La palabra reservada others indica cualquier otra excepción y debe ser la única y última opción. Por ejemplo, en un bloque:
En el momento en el que se produzca la elevación de Constraint_Error durante la ejecución de la secuencia de sentencias entre begin y exception, el flujo de control se interrumpe y se transfiere a la secuencia de sentencias que siguen a la palabra reservada => del manejador correspondiente.
Otro ejemplo con una función:
Nótese que no se puede devolver nunca el control a la unidad donde se elevó la excepción. Cuando se termina la secuencia de sentencias del manejador, termina también la ejecución de dicha unidad.
Si no se controla una excepción, ésta se propaga dinámicamente por las sucesivas unidades invocantes hasta que se maneje en otra o directamente termina la ejecución del programa proporcionando un mensaje con la excepción provocada por pantalla.

## Declaración y elevación de excepciones

Normalmente, es probable prever una situación de error que no se encuentra entre las excepciones predefinidas, por ello, se puede declarar excepciones. Por ejemplo:
Con lo que se puede elevar dicha excepción en el momento pertinente mediante la sentencia raise, cuya sintaxis es:
Por ejemplo, en un paquete de manejo de una pila estática de números enteros:
Obsérvese que no hace falta else en la sentencias if, pues al elevar la excepción, finaliza la ejecución del subprograma.
Ahora se podría escribir:
Si se quiere que dicha excepción no se propague más allá de la unidad en la que se elevó pero no se quiere manejar, se puede emplear una única sentencia vacía (null) dentro de su manejador correspondiente:
Aunque esto no evitaría que se terminara la ejecución de la unidad.
En el caso en el que se quiera propagar una excepción después de haber ejecutado las sentencias pertinentes, se incluiría una sentencia raise dentro del manejador:
En este caso se propaga otra excepción, pero podría haber sido la misma simplemente con raise, sin crear una nueva ocurrencia de la excepción, por ejemplo:
Así, se puede realizar un manejo de la excepción en varias capas, realizando sucesivas acciones en cada una de ellas. Dicha sentencia raise sin argumentos debe ser invocada directamente en el manejador, no es posible invocarla en un procedimiento llamado por el manejador.

## Información de la excepción

Ada proporciona información sobre una determinada excepción haciendo uso del paquete predefinido Ada.Exceptions y tras obtener la ocurrencia de la excepción mediante esta notación:

## Manual de referencia de Ada

* Section 11: Exceptions

## Enlaces externos

* Excepciones: artículo de la Universidad de Valladolid. Ejemplos en Ada y Eiffel.

# Concurrencia
## Concurrencia

La concurrencia es la simultaneidad de hechos. Un programa concurrente es aquel en el que ciertas unidades de ejecución internamente secuenciales (procesos o threads), se ejecutan paralela o simultáneamente.
Existen 3 formas básicas de interacción entre procesos concurrentes:
* Sincronización (p.e. las citas o paso de mensajes).
* Señalización (p.e. los semáforos).
* Comunicación (p.e. uso de memoria compartida).
La concurrencia o procesamiento paralelo se ha implementado en leguajes de programación de distinta manera:
* Programación concurrente clásica: se basa en la utilización de variables compartidas. Es el caso de Modula-2 o Concurrent Pascal. Para ello, se emplean herramientas como semáforos, regiones críticas y monitores.
* Programación concurrente distribuida: se basa en la transferencia de mensajes entre los procesos o threads. Es el caso de C/POSIX, Occam o Ada. Se emplean herramientas como canales, buzones y llamadas a procedimiento remoto.
En Ada se emplea una programación concurrente distribuida y la principal forma de sincronizar las unidades de ejecución, conocidas como tareas, son los puntos de entrada a la tarea o citas.

## Subsecciones

* Tareas
* Sincronización de tareas mediante puntos de entrada o citas (entry)
** Aceptación de citas (accept)
** Selección de citas (select)
** Llamadas a punto de entrada complejas
* Tareas dinámicas: creación dinámica de tareas (tipos tareas)
** Dependencia de tareas

# Tareas
## Definición de tareas

En Ada, a la unidad de proceso secuencial que puede ser ejecutada paralelamente se le denomina task. Es la representación explícita de un proceso (o tarea).
Como en otras construcciones, la tarea de Ada presenta una especificación (interfaz con el exterior) y un cuerpo (descripción del comportamiento dinámico).
La sintaxis de la especificación de una tarea es:
La sintaxis del cuerpo de una tarea es:
Por ejemplo, dos procesos que escriben un texto por pantalla:
En este caso, el orden de los mensajes que aparecen en pantalla es totalmente impredecible, depende del sistema en el que se ejecuten. Ni siquiera es predecible si las frases que vayan apareciendo serán completas o serán truncadas, esto es debido a que el sistema puede decidir suspender la ejecución de alguna tarea en cualquier instante de tiempo y la sentencia Put no es atómica. Ambas tareas comenzarán su ejecución simultáneamente (al menos lógicamente) justo después del begin del procedimiento.

## Ciclo de vida y tipos

Hay dos tipos de tareas, según su ciclo de vida:
* Tareas estáticas:
** Dependen del bloque donde se declaran.
** Se activan justo antes de que se ejecuten las instrucciones del bloque donde fueron declaradas.
** Terminan cuando todas sus tareas hijas terminen y llegue a su última instrucción.
* Tareas dinámicas (mediante punteros):
** Dependen del bloque donde se define el tipo puntero.
** Se activan con la sentencia new.
** Las tareas hijas pueden seguir existiendo cuando se termine su progenitora.
Existen atributos asociados a las tareas, entre otros:
* Tarea'Callable indica falso si la tarea está completada o terminada, en otro caso (ejecutándose o suspendida), verdadero.
* Tarea'Terminated indica verdadero si la tarea ha terminado.
Indicar tan sólo, que una tarea se puede terminar abruptamente mediante la sentencia abort y para redirigir una llamada a un punto de entrada que esté encolada hacia otra cola, se emplea la sentencia requeue.

## Ejemplo

Para un sistema de control de presión y temperatura, se puede realizar el control de ambas magnitudes simultáneamente:
En el preciso instante en el que comienza a ejecutarse el procedimiento, hay tres procesos ejecutándose simultáneamente, el procedimiento y las dos tareas.

## Manual de referencia de Ada

* Section 9: Tasks and Synchronization

# Sincronización mediante citas
### Sincronización de tareas mediante puntos de entrada o citas (entry)

Frecuentemente, las tareas interaccionan entre sí y necesitan un mecanismo para comunicarse y sincronizarse, este mecanismo que ofrece Ada se conoce como la cita (rendezvous) o punto de entrada a la tarea.La cita entre dos tareas se produce como consecuencia de la llamada de una tarea a un punto de entrada declarado en otra tarea.
Los puntos de entrada se declaran en la especificación de la tarea, por ejemplo:
Un punto de entrada se asemeja a un procedimiento. Los parámetros que admiten son de modo in, out o in out, por defecto, se sobreentiende in. Para invocar a un punto de entrada, se procede de igual manera que en un procedimiento, por ejemplo:
Nótese que se debe emplear la notación punto siempre que se realice la llamada fuera de la misma tarea pues una tarea no puede aparecer en una cláusula use. Realizar una llamada a un punto de entrada propio desde la misma tarea está permitido sintácticamente, pero resulta ilógico, pues produciría un interbloqueo consigo misma.
También se pueden definir varios puntos de entrada simultáneamente, por ejemplo:
Y se podría llamar a un punto de entrada de los 10 definidos como, por ejemplo:
Con ello, se llama al punto de entrada Aviso con el nivel 3 y parámetro 1173.
Las acciones que se llevan a cabo al aceptar una cita se especifican mediante la sentencia accept, tal y como se explica en el apartado siguiente.

## Manual de referencia de Ada

* 9.5.2 Entries and Accept Statements

# Aceptación de citas
## Aceptación de citas (accept)

La forma de aceptar una cita y ejecutar las sentencias que se deseen es mediante la sentencia accept, dentro del cuerpo de la tarea que acepta la cita. Cada sentencia entry debe corresponderse con una sentencia accept.
La sintaxis de accept es:
Por ejemplo:
Se deben repetir los parámetros formales declarados en el punto de entrada de la especificación de la tarea.
La diferencias fundamentales entre los puntos de entrada y los procedimientos son:
* El código existente dentro en la sentencia accept es ejecutado por la tarea propietaria y no por la parte invocante, como en los procedimientos.
* Además, hasta que la tarea no llegue a la ejecución de dicha sentencia accept, no puede ser invocado el punto de entrada. De igual manera, la parte invocante queda suspendida hasta que termine la ejecución de la sentencia accept. Éste es el fundamento de la cita.
La forma más simple de sincronizar una tarea que dependa de la terminación de otro código es por ejemplo:
Como otro ejemplo, si se quiere implementar una tarea que realice un control de escritura y lectura sobre un buffer de un único elemento:
Se aceptan llamadas Buffer1.Escribir(…) y Buffer1.Leer(…) de forma consecutiva, sin posibilidad de escribir o leer dos o más veces seguidas. Varias tareas diferentes pueden invocar a los puntos de entrada y, por tanto, pueden quedar encoladas. Cada punto de entrada tiene una cola de tareas que esperan llamar a dicho punto de entrada. El atributo Escribir'Count contiene el número de tareas que se encuentran encoladas a la espera de que se ejecute el punto de entrada Escribir, pero sólo se puede utilizar dentro de la tarea que contiene el punto de entrada. Con la ejecución de la sentencia accept se extraería la primera tarea de la cola (la primera que llegó).
Por tanto, el ejemplo anterior funciona de la siguiente manera: la tarea Buffer1 llega al accept de Escribir y se queda bloqueada allí hasta que otra tarea realice una llamada Buffer1.Escribir(…). En ese momento, la tarea Buffer1 ejecuta Escribir y llega al accept de Leer, donde se queda bloqueada hasta que otra tarea realice una llamada Buffer1.Leer(…). Se ejecuta Leer y la tarea Buffer1 vuelve al accept de Escribir, y así constantemente. Evidentemente, si hay tareas encoladas en los puntos de entrada de Escribir o de Leer, la tarea Buffer1 no se queda bloqueada, sino que atiende a la primera tarea llamante de la cola.
Se puede introducir código entre dos bloques de accept, tal y como se ve en el ejemplo anterior: cuando se acaba el primer bloque accept (Escribir) se ejecuta dicho código y después se entra en la cola de espera del segundo bloque accept (Leer).
Si hay definidos varios puntos de entrada simultáneamente, se puede aceptar uno de ellos, por ejemplo, como:

## Manual de referencia de Ada

* 9.5.2 Entries and Accept Statements

# Selección de citas
#### Selección de citas (select)

Uno de los usos de la sentencia select es permitir a una tarea seleccionar entre varias posibles citas; en este caso, se permite su uso únicamente dentro del cuerpo de una tarea. Su sintaxis es la siguiente:
Esta alternativa de sentencia select permite una combinación de espera y selección entre varias aceptaciones de puntos de entrada a la tarea alternativas. Además, la selección puede depender de condiciones asociadas a cada alternativa.
La sentencia delay sirve para indicar que, si en un determinado intervalo de tiempo no se produce ninguna llamada que corresponda con las selecciones anteriores, se ejecuten las sentencias posteriores.
La sentencia terminate se elige en la sentencia select si la unidad de la que la tarea depende ha llegado al final y todas las tareas hermanas y dependientes han terminado. Es una terminación controlada. Esta alternativa no puede aparecer si hay una alternativa delay o else.
Por ejemplo:
Como otro ejemplo, para garantizar la exclusión mutua a una variable (acceso seguro a memoria compartida), se podría implementar con tareas de la siguiente manera:
La primera sentencia de la tarea es un accept de Escribir, con lo que se asegura que la primera llamada le de un valor a la variable local. En el supuesto de que se realizara una llamada a Leer, ésta quedaría encolada hasta que se produjera la aceptación de Escribir. Después, la tarea entra en el bucle infinito que contiene una sentencia select. Es ahí donde se acepta tanto llamadas a Escribir como a Leer de la siguiente manera:
Si no se llama ni a Leer ni a Escribir, entonces la tarea se queda suspendida hasta que se llame a algún punto de entrada, en ese momento se ejecutará la sentencia accept correspondiente.
Si hay una o más llamadas en la cola de Leer, pero no hay llamadas en la de Escribir, se acepta la primera llamada a Leer, y viceversa.
Si hay llamadas tanto en la cola de Leer como en la de Escribir, se hace una elección arbitraria.
Es una tarea que sirve a dos colas de clientes que esperan servicios diferentes. Sin embargo, se impide el acceso múltiple a la variable local.

## Manual de referencia de Ada

* 9.7 Select Statements

# Llamadas a punto de entrada complejas
## Llamadas a punto de entrada complejas

A veces, interesa que una llamada a un punto de entrada de una tarea cumpla unos requisitos. Esto es debido a que se puede bloquear el proceso que realiza la llamada y puede ser interesante disponer de métodos para desbloquearlo si no se cumplen unas determinadas condiciones.
La sentencia select, además de servir como selección de aceptaciones de puntos de entrada dentro del cuerpo de la tarea que los contiene, también proporciona mecanismos para seleccionar el comportamiento de las llamadas a puntos de entrada. Su sintaxis es la siguiente:

## Tipos de punto de entrada

Como puede apreciarse, hay tres posibles llamadas a puntos de entrada a parte de la simple, éstas son: llamada con tiempo límite, llamada condicional y transferencia asíncrona.

### Llamada con tiempo límite

Llama a un punto de entrada que es cancelado si no se produce la aceptación antes de que finalice un plazo de tiempo. Ejemplo:

### Llamada condicional

Llama a un punto de entrada que es cancelada si no es aceptada inmediatamente, es decir, tiene un tiempo límite nulo. Ejemplo:

### Transferencia asíncrona

Proporciona la transferencia asíncrona de control cuando se acepte la llamada a un punto de entrada o se cumpla un plazo de tiempo, mientras se esté ejecutando una secuencia de sentencias. Es decir, si se acepta la llamada al punto de entrada o cumple el plazo, se abortan las sentencias que se estuvieran ejecutando. Ejemplo:

## Manual de referencia de Ada

* 9.7.2 Timed Entry Calls
* 9.7.3 Conditional Entry Calls
* 9.7.4 Asynchronous Transfer of Control

# Tareas dinámicas
## Creación dinámica de tareas (tipos tareas)

Además de poder declarar tareas como un simple objeto, se pueden declarar un tipo como tipo tarea. Con ello se consigue poder utilizar otros objetos que utilicen dicho tipo tarea como por ejemplo, un vector de tareas o un puntero a tarea (con lo que se consigue crear tareas dinámicamente).
La sintaxis de los tipos tarea es la siguiente:
Con ello, se define un nuevo tipo. Esta definición necesita una terminación, es decir, faltaría declarar el cuerpo de la tarea, que se realiza de igual manera que si se hubiera declarado la tarea simplemente.
Los tipos tarea son privados limitados. Es decir, un objeto declarado de tipo tarea no es una variable, se comporta como una constante. Por tanto, no se permite la asignación, igualdad y desigualdad para los tipos tarea.
Según la sintaxis descrita, se puede definir una tarea como un tipo, por ejemplo, de esta manera:
En el momento en el que dé comienzo la ejecución del bloque, justo después de begin, dará comienzo la ejecución simultánea de las tareas definidas en las distintas variables del tipo task. En este caso TTareaA, TTareaB y 10 TTareasMúltiples. Pero esta situación es estática, no se pueden lanzar tareas en un determinado instante; para ello, se pueden emplear punteros como, por ejemplo:
Las tareas creadas con new siguen unas reglas de activación y dependencia ligeramente diferentes. Estas tareas inician su activación inmediatamente después de la evaluación del asignador de la sentencia new. Además, estas tareas no dependen de la unidad donde se crearon, sino que dependen del bloque, cuerpo de subprograma o cuerpo de tarea que contenga la declaración del tipo access en sí. Para referenciar a tareas dinámicas se emplea el nombre de la variable puntero seguido de .all, por ejemplo, T1.all. Si se quiere que termine una tarea creada dinámicamente se debe utilizar la sentencia abort. Por ejemplo, abort T1.all.
También se pueden crear varios ejemplares de un mismo tipo dependiendo de un parámetro denominado discriminante. Por ejemplo:

## Manual de referencia de Ada

* 9.1 Task Units and Task Objects

# Dependencia de tareas
## Dependencia de tareas

Las reglas de dependencia de las tareas son:
* Si la tarea es creada por la elaboración de una declaración de objeto, depende de la unidad que incluya dicha elaboración.
* Si la tarea es creada por la evaluación de una sentencia new para un tipo puntero dado, depende de cada unidad que incluya la elaboración de la declaración de dicho tipo puntero.
Por ejemplo:

## Manual de referencia de Ada

* 9.3 Task Dependence - Termination of Tasks

# Ejemplos de tareas
## Ejemplos completos de tareas
### Semáforos

Una posible implementación del tipo abstracto semáforo es con tareas Ada. Pero este ejemplo no se ha de tomar muy en serio, puesto que es un típico caso de inversión de la abstracción, es decir, se hace uso de un mecanismo de alto nivel, las tareas, para implementar uno de bajo nivel, los semáforos. En Ada 95 la mejor manera de implementar un semáforo es un objeto protegido. Sin embargo a efectos didácticos es un buen ejemplo.

### Simulación de trenes

Solución propuesta:

### Buffer circular

Otro ejemplo, una posible implementación de un buffer circular:

### Problema del barbero durmiente

Esta es una solución al problema del barbero durmiente.

### Problema de los filósofos cenando

Una solución con tareas y objetos protegidos del conocido problema de los filósofos cenando.
Para evitar el bloqueo mutuo es totalmente imprescindible que al último filósofo se le asignen los cubiertos en ese orden. Sí se hiciese al contrario, el bloqueo no tardaría en aparecer (sobre todo si se eliminan las instrucciones delay):

### Chinos: una implementación concurrente en Ada
## Manual de referencia de Ada

* 9.11 Example of Tasking and Synchronization

# GLADE: programación distribuida
## Introducción a GNAT-GLADE

En primer lugar hay que aclarar que el nombre de esta librería puede confundir a los usuarios y programadores de GTK+ y GNOME. Existe una aplicación muy extendida para el diseño de interfaces gráficas que se llama 'Glade'. Un gran número de lenguajes de programación disponen de librerías para poder leer los ficheros de interfaces que genera Glade (C, C++, Ada, Python, Scheme, Ruby, Eiffel, etc). Pues bien, GNAT-GLADE no tiene nada que ver con esta (magnífica ;-) herramienta.
GLADE (GNAT Library for Ada Distributed Environments) es una extensión para GNAT, el compilador libre (licenciado bajo GPL) de Ada 95, que permite desarrollar aplicaciones distribuidas basándose en el anexo del manual de referencia de Ada: Annex E: Distributed Systems.
La base de las aplicaciones distribuidas de Ada 95 son las particiones. Básicamente una aplicación distribuida se compone de al menos un par de particiones.
Es posible utilizar GNAT-GLADE de dos formas diferentes:
* Con varias particiones sobre la misma máquina.
* Con varias particiones sobre diferentes máquinas que formen parte de una red de computadoras.
Desde luego resulta mucho más interesante la segunda de las opciones. Es más, para desarrollar aplicaciones con varias particiones sobre una misma máquina hay muchos casos en que sería más conveniente no utilizar GLADE y basarse únicamente en los mecanismos de concurrencia de Ada (las tareas): la aplicación será más eficiente.

## ¿Cómo funciona GNAT-GLADE?

Cada una de las particiones de una aplicación basada en GNAT-GLADE, a la hora de la compilación se va a convertir en un ejecutable independiente. Cada uno de estos ejecutables serán los que se ejecuten por separado y se comuniquen entre ellos.
Existe una herramienta que facilita todo este proceso: gnatdist.
gnatdist lee un fichero de configuración en el que se especifica cómo queremos distribuir la aplicación y genera todos los ejecutables necesarios. De esta forma, es posible probar diferentes formas de distribuir una misma aplicación simplemente con lanzar gnatdist con un fichero de configuración distinto, sin necesidad de modificar el código de la aplicación.

## Lenguaje de configuración de gnatdist

Las configuraciones de gnatdist se escriben en un lenguaje muy parecido a Ada. Es importante que todas las configuraciones se guarden en ficheros con extensión ".cfg".
Para lanzar la compilación de una aplicación distribuida con gnatdist únicamente es necesario ejecutar esta herramienta dándole como parámetro el nombre del fichero de configuración. Por ejemplo:

### ¿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:

## Primer ejemplo

El movimiento se aprende andando; así que, vamos a por el primer ejemplo.
En este ejemplo vamos a crear una pequeña aplicación compuesta únicamente de dos particiones:
* La primera de ellas es un servidor de sumas y restas (al más puro estilo RPC). En él se van a definir dos operaciones: suma y resta, que dados dos números enteros, van a devolver el resultado de aplicar la operación elegida sobre ambos.
* La segunda de ellas es un pequeño cliente que efectuará un par de operaciones para comprobar que efectivamente el servidor responde.

### calculadora.ads

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.

### calculadora.adb

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

### cliente.adb

Por último, el cliente. Este programa hace un par de llamadas a las 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.

### ejemplo.cfg

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 el primero de los casos será uno de los ejecutables el que lance todos los demás. Mediante Shell, es un shell script el que lanzará los procesos. Con None, tendremos que lanzarlos a mano o hacer nuestro propio script de arranque.
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 cuál 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.

### Compilación y ejecución del programa

Para compilar la aplicación, como ya hemos visto, simplemente hay que ejecutar gnatdist:
Si no ha habido ningún problema, se habrá producido una salida como esta:
Nota: las siguientes copias de salidas de comandos son de un sistema GNU/Linux, pero en otros sistemas operativos existirá un equivalente.
En este momento ya tenemos construidos todos los ejecutables:
Como podemos ver, al especificar el Pragma Starter (Ada) en el fichero de configuración, gnatdist ha generado un enlace 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á cómo hacerlo en varias.
Ahora bien, ¿estamos seguros de que se ha ejecutado un programa paralelo?, ¿estamos seguros de que en realidad no se ha enlazado el paquete Calculadora en los dos ejecutables?
Como podemos ver en los procesos, realmente se han ejecutado los dos programas:
Es más, si examinamos los símbolos de los dos ejecutables, podemos ver como la calculadora tiene enlazadas las funciones de suma y resta:
y el cliente, además, tiene las funciones que usa gnatdist para el acceso:

## Instalación bajo Debian GNU/Linux

Instalación de GNAT (compilador de Ada 95) y GLADE para GNAT (extensión para soporte de programación distribuida).
Para realizar la instalación en el sistema es imprescindible estar identificado como usuario root:
Instalación de la documentación de ambos paquetes. Estos paquetes son opcionales aunque muy recomendables.

## Enlaces externos

* Ada: Anexo de sistemas distribuidos. Alejandro Alonso. DIT/UPM.
* RT-GLADE: Implementación Optimizada para Tiempo Real del Anexo de Sistemas Distribuidos de Ada 95. Universidad de Cantabria
* Página oficial de la versión pública de GLADE
* Página de AdaCore sobre la versión soportada de GLADE
* GLADE User Guide

## Manual de referencia de Ada

* Annex E: Distributed Systems

## Autores

* Artículo original de Alvaro López Ortega que se puede encontrar en Programación distribuida con Ada 95 bajo GNU/Linux (I). El autor ha aceptado publicarlo bajo licencia GFDL, ver la autorización.
* Copyright © 2001 por Alvaro López Ortega
* Copyright © 2005 por los autores de esta versión. Consulte el historial.

# Unidades predefinidas

El estándar de Ada incluye una serie de unidades predefinidas útiles para muchas tareas comunes de programación y que ha de proporcionar todo compilador de Ada.
Algunas de estas unidades son:
    Paquete Standard
       Paquete System
          Paquete System.Address_To_Access_Conversions
          Paquete System.Machine_Code
          Paquete System.RPC
          Paquete System.Storage_Elements
          Paquete System.Storage_Pools
       Paquete Ada
          Paquete Ada.Command_Line
          Paquete Ada.Exceptions
          Paquete Ada.Numerics
             Paquete Ada.Numerics.Complex_Elementary_Functions - G.1.2
             Paquete Ada.Numerics.Complex_Types - G.1.1
             Paquete Ada.Numerics.Discrete_Random - A.5.2
             Paquete Ada.Numerics.Elementary_Functions - A.5.1
             Paquete Ada.Numerics.Float_Random - A.5.2
             Paquete Ada.Numerics.Generic_Complex_Elementary_Functions - G.1.2
             Paquete Ada.Numerics.Generic_Complex_Types - G.1.1
             Paquete Ada.Numerics.Generic_Elementary_Functions - A.5.1
          Paquete Ada.Real_Time
          Paquete Ada.Strings
             Paquete Ada.Strings.Fixed
             Paquete Ada.Strings.Bounded
             Paquete Ada.Strings.Unbounded
          Paquete Ada.Text_IO
             Paquete Ada.Text_IO.Editing
          Paquete Ada.Float_Text_IO
          Paquete Ada.Integer_Text_IO
          Paquete Ada.Sequential_IO
          Función genérica Ada.Unchecked_Conversion
          Procedimiento genérico Ada.Unchecked_Deallocation
       Paquete Interfaces
          Paquete Interfaces.C
             Paquete Interfaces.C.Strings
             Paquete Interfaces.C.Pointers
          Paquete Interfaces.COBOL
          Paquete Interfaces.Fortran

## Manual de refencia de Ada

* Annex A: Predefined Language Environment

# Unidades predefinidas. Standard
## Paquete Standard

La unidad Standard es un paquete especial que contiene las declaraciones de todos los tipos predefinidos tales como Integer o Boolean.
En términos de compilación es como si todas las unidades tuviesen escrito antes de nada:
También posee un paquete anidado llamado ASCII, que contiene las constantes que definen los caracteres tales como CR (retorno de carro) o LF (avance de línea). Escribiendo use ASCII; se pueden referenciar simplemente como CR. Sin embargo el estándar de Ada 95 no nos recomienda usar el paquete ASCII (caracteres de 7 bits), porque éste queda obsoleto tras la definición del paquete Ada.Characters.Latin_1, que define el juego completo de caracteres ISO Latín 1 de 8 bits.

## Especificación

La definición del paquete Standard según el manual de referencia de Ada:

## Manual de referencia de Ada

* A.1 The Package Standard
* J.5 ASCII
* A.3.3 The Package Characters.Latin_1

# Unidades predefinidas. Ada.Exceptions
## Información sobre la excepción

Ada proporciona información sobre una determinada excepción en un objeto del tipo Exception_Ocurrence, definido dentro del paquete predefinido Ada.Exceptions junto con otras funciones que toman como parámetro una ocurrencia de excepción.
* Exception_Name: devuelve el nombre del tipo de la excepción en notación de puntos completa en letra mayúscula, por ejemplo "PILA.ERROR".
* Exception_Message: devuelve un mensaje de una línea con la causa y la ubicación de la excepción. No contiene el nombre de la excepción.
* Exception_Information: devuelve una cadena que incluye el nombre de la excepción, la causa y la ubicación y debería proporcionar detalles de la traza de la excepción.
Para comunicar dicha ocurrencia, se emplea la siguiente notación, por ejemplo:
En ocasiones puede resultar útil almacenar una ocurrencia. Por ejemplo, sería útil crear un registro de las excepciones producidas en la ejecución de un programa almacenándolas en una lista o vector de ocurrencias. Nótese que el tipo Exception_Occurrence es limitado, de modo que no puede ser asignado para ser guardado. Por esta razón Ada.Exceptions proporciona el procedimiento y la función Save_Ocurrence.
El tipo Exception_Id puede entenderse como un tipo enumeración. Toda excepción declarada mediante la palabra reservada exception puede ser considerada como uno de los literales del tipo Exception_Id y, por lo tanto, tiene asociado una identificación, que es el literal correspondiente. Nótese que se refiere ahora a excepciones y a ocurrencias de las mismas. Los literales aludidos serían referencias a Constraint_Error, TemperaturaElevada, etc.; en general, las excepciones predefinidas y las declaradas. Cada una de ellas es en rigor uno de los valores que puede tomar el tipo Exception_Id. El atributo Identity proporciona la identificación de una excepción. Por ejemplo:
El programador puede establecer su propio mensaje para una ocurrencia concreta elevándola mediante Raise_Exception en lugar de hacerlo con raise seguido del nombre de la excepción. Por ejemplo:
Esta llamada es equivalente en Ada 2005 a la siguiente sentencia:

## Especificación de Ada.Exceptions

Según el manual de referencia de Ada el paquete Ada.Exceptions debe tener esta especificación:

## Manual de referencia de Ada

* 11.4.1 The Package Exceptions

# Unidades predefinidas. Ada.Strings.Fixed

Ada.Strings.Fixed proporciona subprogramas para la transformación y el manejo de strings de tamaño fijo.

## Especificación

Según el manual de referencia, la especificación de este paquete ha de ser la siguiente:

## Manual de refencia de Ada

* A.4.3 Fixed-Length String Handling

# Unidades predefinidas. Ada.Text_IO

Ada.Text_IO es un paquete predefinido para la entrada y salida de texto.
Tiene procedimientos Get y Put para strings y caracteres; y varios paquetes genéricos anidados para la entrada/salida de otros tipos en formato texto: Decimal_IO, Enumeration_IO, Fixed_IO, Float_IO, Integer_IO y Modular_IO.

## Ficheros de texto

Ada.Text_IO también permite el acceso y modificación de ficheros de texto de forma secuencial.
La mayoría de funciones de Ada.Text_IO están disponibles para ser usadas con ficheros de texto. Para eso, se usan variables de tipo File_type, necesarias para especificar a qué archivo acceder. Muchas de las funciones conocidas para consola de Ada.Text_IO se pueden usar en archivos de texto pasando por parámetro una variable de tipo File_type.
Algunas funciones y procedimientos para el manejo de ficheros con Ada.Text_IO:

### Open(F,Modo,Ruta)

    Permite abrir un fichero. Si el fichero no existe, devuelve una excepción 'Name_error'. 'F' es una variable File_type, 'Ruta' es la ruta del sistema donde se localiza el fichero y 'Modo' especifica como abrir el fichero: 'In_file' significa lectura, 'Out_file' significa escritura (borrando lo anterior) y 'Append_file' significa escritura empezando desde el final. Para acceder a este archivo, lo haremos a través de la variable File_type 'F'.

### Create(F,Modo,Ruta)

    Crea un fichero en la ruta del sistema elegida. Si no existe, se crea, y si existe, se sobreescribe. Los parámetros son los mismos que en 'Open', pero por defecto el modo es 'Out_file' (si creas un archivo, suele ser para escribir en él). Para acceder a este archivo, lo haremos a través de la variable File_type 'F'.

### Close(F)

    Cierra el archivo referido por la variable 'F'. Es necesario hacer esto cuando dejemos de leer o escribir en un fichero.

### Get(F,C)

    Lee un carácter de un fichero, siendo F una variable File_type y 'C' una variable character. Para leer se debe haber hecho un 'Open' previamente.

### Put(F,C)

    Escribe un carácter en un fichero, siendo F una variable File_type y 'C' una variable Character. Para escribir se debe haber hecho un 'Open' en modo escritura o un 'Create' previamente.

### End_of_file(F)

    Esta función devuelve 'True' (boolean) si hemos llegado al final del fichero y 'False' si quedan elementos por leer. Es importante saber usar esta función, ya que si intentamos leer un elemento del fichero habiendo llegado al final de éste, saltará la excepción 'End_Error'.

### End_of_line(F)

    Esta función devuelve 'True' (boolean) si hemos llegado al final de la linea actual y 'False' si quedan elementos por leer.

### Reset(F)

    Reinicia el cursor; para saber que elemento estamos leyendo, se guarda un cursor con la posición del elemento actual; esta operación lo reinicia, como si cerrásemos el fichero y lo volviésemos a abrir.
Para encontrar la lista completa de operaciones sobre ficheros de Ada.Text_IO, se puede ver en el manual de referencia: A.10.1 Text_IO.

## Portabilidad

Un programa hecho en Ada usando la librería Ada.Text_IO debería poderse compilar sin problemas (si no se usan librerías propias del sistema) tanto en sistemas Windows como en sistemas Unix (incluyendo GNU/Linux) . Sin embargo, puede que su funcionamiento no sea igual en ambos sistemas si no se tienen en cuenta ciertas diferencias en sus consolas.
Por ejemplo, todos los sistemas Unix soportan el estándar de terminal ANSI, mientras que en Windows ME, NT, 2000 y XP la consola no es compatible con ANSI (aunque es posible configurarlo cargando el driver ANSI.SYS). Además el salto de linea es diferente en Unix y en Windows: en sistemas Unix consta de un carácter y en Windows de dos. A la hora de programar, has de tener en cuentas algunas diferencias:
* El salto de línea en sistemas Unix es ASCII.LF. En Windows es ASCII.LF & ASCII.CR. Sin embargo usando Get_Line, End_Of_Line y Put_Line se asegura portabilidad en este aspecto.
* Algunas funciones de Ada.Text_IO no funcionan correctamente en Windows, como el procedimiento New_Page. Get_immediate(C,B) también puede dar problemas con algunas teclas en Linux.
* El carácter de control asociado a ciertas teclas puede variar entre Unix y Windows. Por tanto si tu programa intenta detectar pulsaciones de teclas específicas, como 'Enter', etc. deberás adecuar el carácter con el que se identifica la tecla. Algunos ejemplos:
Debes tener esto en cuenta si deseas hacer portable tu programa, y que funcione tanto en Unix como en Windows. Por lo tanto recomendamos que pruebes la aplicación en ambos sistemas si es posible, para asegurar su buen funcionamiento. Si deseas más funciones para la consola, y ver sus diferentes implementaciones en Linux y Windows, puedes mirar el paquete Pantalla_ansi.

## Manual de referencia de Ada

* A.10.1 The Package Text_IO

# Unidades predefinidas. Ada.Text_IO.Editing

Ada.Text_IO.Editing es un paquete predefinido para la entrada y salida de tipos de coma fija en formato monetario.
Ejemplo:
La salida es:

## Manual de referencia de Ada

* F.3.3 The Package Text_IO.Editing

# Unidades predefinidas. Ada.Sequential_IO

Ada.Sequential_IO es un paquete predefinido de la biblioteca estándar para el manejo de entrada y salida de ficheros secuenciales, esto es, ficheros en los que se leen o escriben los datos uno detrás de otro.

## Instanciación

Para ser usado, el paquete Ada.Sequential_IO debe ser instanciado con el tipo a usar, es decir se debe especificar qué elemento debe leer/escribir: un entero, un carácter, un booleano, o un tipo definido por nosotros.
Para ello, usaremos la cláusula with. A continuación procedemos a instanciar el paquete de la siguiente forma
Ahora podremos usar la cláusula use.
O bien ponerlo como prefijo a todas las operaciones y tipos de Ada.Sequential_IO
Si se hacen varias instanciaciones de Ada.Sequential_IO a diferentes tipos, será necesario usar el nombre del paquete que hemos puesto como prefijo

## Funciones y procedimientos más comunes
### Open(F,Modo,Ruta)

    Permite abrir un fichero. Si el fichero no existe, devuelve una excepción 'Name_error'. 'F' es una variable File_type, 'Ruta' es la ruta del sistema donde se localiza el fichero y 'Modo' especifica como abrir el fichero: 'In_file' significa lectura, 'Out_file' significa escritura (borrando lo anterior) y 'Append_file' significa escritura empezando desde el final. Para acceder a este archivo, lo haremos a través de la variable File_type 'F'.

### Create(F,Modo,Ruta)

    Crea un fichero en la ruta del sistema elegida. Si no existe, se crea, y si existe, se sobreescribe. Los parámetros son los mismos que en 'Open', pero por defecto el modo es 'Out_file' (si creas un archivo, suele ser para escribir en él). Para acceder a este archivo, lo haremos a través de la variable File_type 'F'.

### Close(F)

    Cierra el archivo referido por la variable 'F'. Es necesario hacer esto cuando dejemos de leer o escribir en un fichero.

### Read(F,X)

    Lee de un fichero una variable 'X' del tipo instanciado, siendo F una variable File_type . Para leer se debe haber hecho un 'Open' previamente.

### Write(F,X)

    Escribe en un fichero una variable 'X' del tipo instanciado, siendo siendo F una variable File_type. Para escribir se debe haber hecho un 'Open' en modo escritura o un 'Create' previamente.

### End_of_file(F)

    Esta función devuelve 'True' (boolean) si hemos llegado al final del fichero y 'False' si quedan elementos por leer. Es importante saber usar esta función, ya que si intentamos leer un elemento del fichero habiendo llegado al final de éste, saltará la excepción 'End_Error'.

### Reset(F)

    Reinicia el cursor; para saber que elemento estamos leyendo, se guarda un cursor con la posición del elemento actual; esta operación lo reinicia, como si cerrásemos el fichero y lo volviésemos a abrir.
La lista completa de operaciones de Ada.Sequential_IO, se encuentra en el manual de referencia: A.8.1 The Package Sequential_IO.

## Excepciones más frecuentes

Estas son algunas de las excepciones que pueden aparecer:
* End_Error: Hemos intentado leer un fichero cuando éste estaba vacío o si hemos llegado al final de él. Para prevenirlo, hay que usar la función End_of_file
* Name_Error: La ruta con la que hemos abierto un fichero es incorrecta, y el archivo no existe.
* Use_Error: Se suele dar cuando el archivo al que intentamos acceder ya está abierto por otro programa, o hemos hecho dos Open de un mismo archivo sin cerrar el primero. Para el primer caso, poco podemos hacer (es un programa externo el que influye) excepto avisar al usuario de que lo cierre; en el segundo caso el error es de código, ya que no hemos cerrado el fichero con un Close.

## Manual de referencia de Ada

* A.8.1 The Package Sequential_IO

# Unidades predefinidas. Ada.Command_Line

Ada.Command_Line es un paquete predefinido para la consulta de la línea de comandos para los sistemas operativos que lo soportan, que son la mayoría. También permite establecer el código de error de terminación del programa.

## Especificación

Según el manual de referencia de Ada (el estándar), la especificación de este paquete ha de ser la siguiente:

## Manual de referencia de Ada

* A.15 The Package Command_Line

# Recursos en la Web

Esta apéndice del wikilibro «Programación en Ada» es un listado de enlaces web ordenados por categorías.

## Información general, portales

* Ada Resource Assoc.'s Ada Information Clearinghouse

## Asociaciones y grupos

* Asociación Ada-Spain
* Asociación Ada-Europe
* Ada-Belgium Organization (en inglés)
* Ada in Denmark (en inglés)
* ACM - SIGAda: Special Interest Group on Ada

## Estándar

* Ada 2005 Reference Manual
* Ada 2005 Rationale

### Estándar de Ada 95

* Ada 95 Reference Manual
* Ada 95 Rationale

### Estándar de Ada 83

* Ada 83 Reference Manual
* Ada 83 Rationale
* Ada '83 Quality and Style: Guidelines for Professional Programmers

## Cursos y tutoriales

* Guía mínima de Ada, Guía de referencia básica de Ada 95 y Guía básica de Ada 2005 de la Universidad de las Palmas de Gran Canaria.
* Transparencias de Ada de Juan Antonio de la Puente de la UPM.
* Programación distribuida con Ada95 bajo GNU/Linux (I)
* Programación multitarea con Ada de la Universidad de Valladolid.
* Trabajo sobre Ada en el rincondelvago.com
* Trabajo en monografias.com
* Lovelace Tutorial: tutorial interactivo.

## Libros electrónicos completos

* computer-books.us - Libros electrónicos de Ada 95, completos y gratuitos
* «The Big Book of Linux Ada Programming»; Copia en OOPWeb.com
* «Ada Lecture Notes»
* «Ada for Software Engineers», M. Ben-Ari

## Software libre o gratuito
### Repositorios de proyectos

* SourceForge.net: Software Map: Ada
* Libre Site: GNAT, GtkAda, XmlAda, AWS, etc
* AdaPower: Active Ada Projects You Can Join
* Google Code
* BerliOS Developer: Software Map
* Ada and Software Engineering Library 2 (ASE2)

### Buscadores y directorios de código Ada

* Ohloh
* Koders

### Entornos de desarrollo integrado

* GPS (Libre Site) - GNAT Programming Studio
* ada-mode para Emacs.
* AdaGIDE - Ada GNAT Integrated Development Environment for Windows
* GNAVI - The GNU Ada Visual IDE
* GRASP - Graphical Representations of Algorithms, Structures and Processes

### Herramientas para programadores

* AdaBrowse - An Ada-To-HTML generator
* C2Ada - a translator from C to Ada - Translating C to Ada (article)
* Auto_Text_IO, generación de código de impresión de tipos Ada.
* ICC Ada ICCFMT Info page (pretty printer)
* Adalog Components, herramientas de análisis de código, paquetes de uso general y Adapplets.

### Librerías y bindings

* XML4Ada95 - An XML package for Ada 95
* The web page of Gautier de Montmollin - Software
* Paul Pukite's Home Page, varias librerías y artículos.
* OpenALada, Ada binding for OpenAL (Open Audio Library)
* Bindings para Qt: Qt4Ada y QtAda.

### Otras aplicaciones

* MaRTE OS Home Page, sistema operativo de tiempo real de la Universidad de Cantabria.
* Lovelace, proyecto para crear un sistema operativo completo basado en Ada.

## Vendedores de compiladores

* AdaCore - GNAT
* Aonix - ObjectAda
* DDC-I
* IBM Rational Ada Developer
* Ada for .NET

## Artículos

* Artículo de Ada en Wikipedia
* A Detailed Description of the GNU Ada Run Time
* Mapping UML To Ada
* Embedded.com - Ada's Slide into Oblivion
* Markus Kuhn's Ada95 Page (Why Ada?)
* Ian Sharpe - Technical Notes - Shared Libraries & Ada
* There's Still Some Life Left in Ada. When it comes to survival of the fittest, Ada ain't no dinosaur
* From extended Pascals to Ada 95
* Linux Journal - Elegance of Java and the Efficiency of C++--It's Ada
* Linux Journal - Testing Safety-Critical Software with AdaTEST
* Linux Gazette - Introduction to Programming Ada
* Linux Gazette - Gnat and Linux: C++ and Java Under Fire
* STSC CrossTalk - Ada in the 21st Century - Mar 2001
* Robotics with Ada95

## Noticias y bitácoras

* Bitácora de Gneuromante - Barrapunto
* Barrapunto | GNU Visual Debugger en Ada95. (2000/12/13)
* Barrapunto de fernand0 | Información sobre Ada (2001/06/18)
* Barrapunto de fernand0 | GNADE, el entorno de bases de datos para Ada (2001/06/18)
* Barrapunto de fernand0 | GNAT comienza a integrarse con el GCC (2001/10/03)
* Barrapunto de hacking | ¿Para qué sirve Ada? (2002/04/08)
* Barrapunto de fernand0 | Comparando Ada y Java (2002/05/16)
* Barrapunto | Las tripas de un RTS libre (2002/07/05)
* Barrapunto | Liberado libro completo sobre el runtime de GNAT (2002/09/03)
* Libertonia || ¿Qué fue del Ada? (2002/09/14)
* Barrapunto | Sale el primer entorno de desarrollo libre de Ada (2003/07/22)
* Barrapunto | Ada y el software libre: ¿un futuro en común? (2004/11/2)
* Bitácora de mig21 (7781) | ¿Queda algo de vida en Ada? (2004/11/15)
* Barrapunto | Ada 2005, cada vez más cerca (2006/06/14)

## Directorios de enlaces

* Ada en dmoz.org, directorio de Internet, rama en español
* Ada en dmoz.org, directorio de Internet, rama en inglés
* Ada95 y GNAT - unizar.es
* Enlaces Ada - ulpgc.es
* Resources on Ada: Managing Complexity
* Ada on Windows by Sergio Gomez

## Foros, chats y listas de correo

* Lista de correo sobre Ada en español
* Canal del IRC Hispano (en español)
* Foro de SóloCódigo
* Foro de "La Web del Programador"
* Usenet: comp.lang.ada
* Canal IRC de Ada en freenode.net (en inglés)

## Ingeniería de software

* Ada 95 QUALITY AND STYLE Guide
* Ada 95 QUALITY AND STYLE Guide (formato PDF, PS y Word)

## Buscadores

* Search Ada sites on the Internet
* Buscar en el Annotated Ada Reference Manual (AARM)
* koders.com - Buscador de software libre que permite buscar código escrito en Ada

# GNU Free Documentation License

Version 1.2, November 2002

## 0. PREAMBLE

The purpose of this License is to make a manual, textbook, or other functional and useful document "free" in the sense of freedom: to assure everyone the effective freedom to copy and redistribute it, with or without modifying it, either commercially or noncommercially. Secondarily, this License preserves for the author and publisher a way to get credit for their work, while not being considered responsible for modifications made by others.
This License is a kind of "copyleft", which means that derivative works of the document must themselves be free in the same sense. It complements the GNU General Public License, which is a copyleft license designed for free software.
We have designed this License in order to use it for manuals for free software, because free software needs free documentation: a free program should come with manuals providing the same freedoms that the software does. But this License is not limited to software manuals; it can be used for any textual work, regardless of subject matter or whether it is published as a printed book. We recommend this License principally for works whose purpose is instruction or reference.

## 1. APPLICABILITY AND DEFINITIONS

This License applies to any manual or other work, in any medium, that contains a notice placed by the copyright holder saying it can be distributed under the terms of this License. Such a notice grants a world-wide, royalty-free license, unlimited in duration, to use that work under the conditions stated herein. The "Document", below, refers to any such manual or work. Any member of the public is a licensee, and is addressed as "you". You accept the license if you copy, modify or distribute the work in a way requiring permission under copyright law.
A "Modified Version" of the Document means any work containing the Document or a portion of it, either copied verbatim, or with modifications and/or translated into another language.
A "Secondary Section" is a named appendix or a front-matter section of the Document that deals exclusively with the relationship of the publishers or authors of the Document to the Document's overall subject (or to related matters) and contains nothing that could fall directly within that overall subject. (Thus, if the Document is in part a textbook of mathematics, a Secondary Section may not explain any mathematics.) The relationship could be a matter of historical connection with the subject or with related matters, or of legal, commercial, philosophical, ethical or political position regarding them.
The "Invariant Sections" are certain Secondary Sections whose titles are designated, as being those of Invariant Sections, in the notice that says that the Document is released under this License. If a section does not fit the above definition of Secondary then it is not allowed to be designated as Invariant. The Document may contain zero Invariant Sections. If the Document does not identify any Invariant Sections then there are none.
The "Cover Texts" are certain short passages of text that are listed, as Front-Cover Texts or Back-Cover Texts, in the notice that says that the Document is released under this License. A Front-Cover Text may be at most 5 words, and a Back-Cover Text may be at most 25 words.
A "Transparent" copy of the Document means a machine-readable copy, represented in a format whose specification is available to the general public, that is suitable for revising the document straightforwardly with generic text editors or (for images composed of pixels) generic paint programs or (for drawings) some widely available drawing editor, and that is suitable for input to text formatters or for automatic translation to a variety of formats suitable for input to text formatters. A copy made in an otherwise Transparent file format whose markup, or absence of markup, has been arranged to thwart or discourage subsequent modification by readers is not Transparent. An image format is not Transparent if used for any substantial amount of text. A copy that is not "Transparent" is called "Opaque".
Examples of suitable formats for Transparent copies include plain ASCII without markup, Texinfo input format, LaTeX input format, SGML or XML using a publicly available DTD, and standard-conforming simple HTML, PostScript or PDF designed for human modification. Examples of transparent image formats include PNG, XCF and JPG. Opaque formats include proprietary formats that can be read and edited only by proprietary word processors, SGML or XML for which the DTD and/or processing tools are not generally available, and the machine-generated HTML, PostScript or PDF produced by some word processors for output purposes only.
The "Title Page" means, for a printed book, the title page itself, plus such following pages as are needed to hold, legibly, the material this License requires to appear in the title page. For works in formats which do not have any title page as such, "Title Page" means the text near the most prominent appearance of the work's title, preceding the beginning of the body of the text.
A section "Entitled XYZ" means a named subunit of the Document whose title either is precisely XYZ or contains XYZ in parentheses following text that translates XYZ in another language. (Here XYZ stands for a specific section name mentioned below, such as "Acknowledgements", "Dedications", "Endorsements", or "History".) To "Preserve the Title" of such a section when you modify the Document means that it remains a section "Entitled XYZ" according to this definition.
The Document may include Warranty Disclaimers next to the notice which states that this License applies to the Document. These Warranty Disclaimers are considered to be included by reference in this License, but only as regards disclaiming warranties: any other implication that these Warranty Disclaimers may have is void and has no effect on the meaning of this License.

## 2. VERBATIM COPYING

You may copy and distribute the Document in any medium, either commercially or noncommercially, provided that this License, the copyright notices, and the license notice saying this License applies to the Document are reproduced in all copies, and that you add no other conditions whatsoever to those of this License. You may not use technical measures to obstruct or control the reading or further copying of the copies you make or distribute. However, you may accept compensation in exchange for copies. If you distribute a large enough number of copies you must also follow the conditions in section 3.
You may also lend copies, under the same conditions stated above, and you may publicly display copies.

## 3. COPYING IN QUANTITY

If you publish printed copies (or copies in media that commonly have printed covers) of the Document, numbering more than 100, and the Document's license notice requires Cover Texts, you must enclose the copies in covers that carry, clearly and legibly, all these Cover Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on the back cover. Both covers must also clearly and legibly identify you as the publisher of these copies. The front cover must present the full title with all words of the title equally prominent and visible. You may add other material on the covers in addition. Copying with changes limited to the covers, as long as they preserve the title of the Document and satisfy these conditions, can be treated as verbatim copying in other respects.
If the required texts for either cover are too voluminous to fit legibly, you should put the first ones listed (as many as fit reasonably) on the actual cover, and continue the rest onto adjacent pages.
If you publish or distribute Opaque copies of the Document numbering more than 100, you must either include a machine-readable Transparent copy along with each Opaque copy, or state in or with each Opaque copy a computer-network location from which the general network-using public has access to download using public-standard network protocols a complete Transparent copy of the Document, free of added material. If you use the latter option, you must take reasonably prudent steps, when you begin distribution of Opaque copies in quantity, to ensure that this Transparent copy will remain thus accessible at the stated location until at least one year after the last time you distribute an Opaque copy (directly or through your agents or retailers) of that edition to the public.
It is requested, but not required, that you contact the authors of the Document well before redistributing any large number of copies, to give them a chance to provide you with an updated version of the Document.

## 4. MODIFICATIONS

You may copy and distribute a Modified Version of the Document under the conditions of sections 2 and 3 above, provided that you release the Modified Version under precisely this License, with the Modified Version filling the role of the Document, thus licensing distribution and modification of the Modified Version to whoever possesses a copy of it. In addition, you must do these things in the Modified Version:
    A. Use in the Title Page (and on the covers, if any) a title distinct from that of the Document, and from those of previous versions (which should, if there were any, be listed in the History section of the Document). You may use the same title as a previous version if the original publisher of that version gives permission.
    B. List on the Title Page, as authors, one or more persons or entities responsible for authorship of the modifications in the Modified Version, together with at least five of the principal authors of the Document (all of its principal authors, if it has fewer than five), unless they release you from this requirement.
    C. State on the Title page the name of the publisher of the Modified Version, as the publisher.
    D. Preserve all the copyright notices of the Document.
    E. Add an appropriate copyright notice for your modifications adjacent to the other copyright notices.
    F. Include, immediately after the copyright notices, a license notice giving the public permission to use the Modified Version under the terms of this License, in the form shown in the Addendum below.
    G. Preserve in that license notice the full lists of Invariant Sections and required Cover Texts given in the Document's license notice.
    H. Include an unaltered copy of this License.
    I. Preserve the section Entitled "History", Preserve its Title, and add to it an item stating at least the title, year, new authors, and publisher of the Modified Version as given on the Title Page. If there is no section Entitled "History" in the Document, create one stating the title, year, authors, and publisher of the Document as given on its Title Page, then add an item describing the Modified Version as stated in the previous sentence.
    J. Preserve the network location, if any, given in the Document for public access to a Transparent copy of the Document, and likewise the network locations given in the Document for previous versions it was based on. These may be placed in the "History" section. You may omit a network location for a work that was published at least four years before the Document itself, or if the original publisher of the version it refers to gives permission.
    K. For any section Entitled "Acknowledgements" or "Dedications", Preserve the Title of the section, and preserve in the section all the substance and tone of each of the contributor acknowledgements and/or dedications given therein.
    L. Preserve all the Invariant Sections of the Document, unaltered in their text and in their titles. Section numbers or the equivalent are not considered part of the section titles.
    M. Delete any section Entitled "Endorsements". Such a section may not be included in the Modified Version.
    N. Do not retitle any existing section to be Entitled "Endorsements" or to conflict in title with any Invariant Section.
    O. Preserve any Warranty Disclaimers.
If the Modified Version includes new front-matter sections or appendices that qualify as Secondary Sections and contain no material copied from the Document, you may at your option designate some or all of these sections as invariant. To do this, add their titles to the list of Invariant Sections in the Modified Version's license notice. These titles must be distinct from any other section titles.
You may add a section Entitled "Endorsements", provided it contains nothing but endorsements of your Modified Version by various parties--for example, statements of peer review or that the text has been approved by an organization as the authoritative definition of a standard.
You may add a passage of up to five words as a Front-Cover Text, and a passage of up to 25 words as a Back-Cover Text, to the end of the list of Cover Texts in the Modified Version. Only one passage of Front-Cover Text and one of Back-Cover Text may be added by (or through arrangements made by) any one entity. If the Document already includes a cover text for the same cover, previously added by you or by arrangement made by the same entity you are acting on behalf of, you may not add another; but you may replace the old one, on explicit permission from the previous publisher that added the old one.
The author(s) and publisher(s) of the Document do not by this License give permission to use their names for publicity for or to assert or imply endorsement of any Modified Version.

## 5. COMBINING DOCUMENTS

You may combine the Document with other documents released under this License, under the terms defined in section 4 above for modified versions, provided that you include in the combination all of the Invariant Sections of all of the original documents, unmodified, and list them all as Invariant Sections of your combined work in its license notice, and that you preserve all their Warranty Disclaimers.
The combined work need only contain one copy of this License, and multiple identical Invariant Sections may be replaced with a single copy. If there are multiple Invariant Sections with the same name but different contents, make the title of each such section unique by adding at the end of it, in parentheses, the name of the original author or publisher of that section if known, or else a unique number. Make the same adjustment to the section titles in the list of Invariant Sections in the license notice of the combined work.
In the combination, you must combine any sections Entitled "History" in the various original documents, forming one section Entitled "History"; likewise combine any sections Entitled "Acknowledgements", and any sections Entitled "Dedications". You must delete all sections Entitled "Endorsements."

## 6. COLLECTIONS OF DOCUMENTS

You may make a collection consisting of the Document and other documents released under this License, and replace the individual copies of this License in the various documents with a single copy that is included in the collection, provided that you follow the rules of this License for verbatim copying of each of the documents in all other respects.
You may extract a single document from such a collection, and distribute it individually under this License, provided you insert a copy of this License into the extracted document, and follow this License in all other respects regarding verbatim copying of that document.

## 7. AGGREGATION WITH INDEPENDENT WORKS

A compilation of the Document or its derivatives with other separate and independent documents or works, in or on a volume of a storage or distribution medium, is called an "aggregate" if the copyright resulting from the compilation is not used to limit the legal rights of the compilation's users beyond what the individual works permit. When the Document is included in an aggregate, this License does not apply to the other works in the aggregate which are not themselves derivative works of the Document.
If the Cover Text requirement of section 3 is applicable to these copies of the Document, then if the Document is less than one half of the entire aggregate, the Document's Cover Texts may be placed on covers that bracket the Document within the aggregate, or the electronic equivalent of covers if the Document is in electronic form. Otherwise they must appear on printed covers that bracket the whole aggregate.

## 8. TRANSLATION

Translation is considered a kind of modification, so you may distribute translations of the Document under the terms of section 4. Replacing Invariant Sections with translations requires special permission from their copyright holders, but you may include translations of some or all Invariant Sections in addition to the original versions of these Invariant Sections. You may include a translation of this License, and all the license notices in the Document, and any Warranty Disclaimers, provided that you also include the original English version of this License and the original versions of those notices and disclaimers. In case of a disagreement between the translation and the original version of this License or a notice or disclaimer, the original version will prevail.
If a section in the Document is Entitled "Acknowledgements", "Dedications", or "History", the requirement (section 4) to Preserve its Title (section 1) will typically require changing the actual title.

## 9. TERMINATION

You may not copy, modify, sublicense, or distribute the Document except as expressly provided for under this License. Any other attempt to copy, modify, sublicense or distribute the Document is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance.

## 10. FUTURE REVISIONS OF THIS LICENSE

The Free Software Foundation may publish new, revised versions of the GNU Free Documentation License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. See http://www.gnu.org/copyleft/.
Each version of the License is given a distinguishing version number. If the Document specifies that a particular numbered version of this License "or any later version" applies to it, you have the option of following the terms and conditions either of that specified version or of any later version that has been published (not as a draft) by the Free Software Foundation. If the Document does not specify a version number of this License, you may choose any version ever published (not as a draft) by the Free Software Foundation.