ADA - Ficheros binarios en ADA

Hola. Sabeis alguna funcion de biblioteca de ADA, o alguna manera de saber si un archivo es binario o de texto? Necesito saberlo para un buscado que si lee un fichero binario debe dar un error, y si es de texto debe leerlo.

Gracias de antemano.

Puedes leer unos cuantos bytes del fichero como caracteres y preguntar si son imprimibles con ada.characters.Is_Graphic. Si no lo son, el fichero es binario.