[QUESTION] Annuler une instruction Get_Immediate?

[QUESTION] Annuler une instruction Get_Immediate?

[C�dric Rathgeb]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2209 bytes --]



Hi, my english is so poor. I'll write this message in french ;-)

Salut,

Voici un descriptif de mon probl�me:

    J'ai un programme qui fonctionne dans un terminal et qui utilises les
instructions Get_Immediate et Put_Line de Text_IO pour respectivement
obtenir un caract�re et afficher une ligne de type Fixed_String.

    Ce que j'aimerais c'est pouvoir afficher plusieurs lignes � l'�cran,
puis effectuer une pause de dur�e d�termin�e (environ de 0.05 secondes � 10
secondes) et ensuite effectuer ma boucle et afficher � nouveau plusieurs
lignes. Le probl�me vient du fait que parall�lement je d�sire v�rifier si
l'utilisateur appuie sur une touche du clavier (afin de quitter ma boucle o�
lancer l'�x�cution d'une autre partie de code).

    J'ai essayer d'utiliser l'instruction Get_Immediate(Standard_Input, C);
mais mon programme se retrouve bloqu�.

    J'ai essay� de cr�er une t�che o� j'obtiens un caract�re, pour tenter
d'aborter cette t�che (qui s'appelle
Spy_Keyboard) j'ai essay� la commande "abort Spy_Keyboard", mais comme je
suis dans un rendez-vous je re�ois une exception Tasking_Error et il semble
que je ne
puisse pas rappeler la t�che (Tasking_Error est encore une fois lev�), j'en
d�duis que la t�che pr�c�dente n'a pas �t� correctement avort�e.

    Si vous connaissez une m�thode pour obtenir les touches press�es par
l'utilisateur ou comment v�rifier s'il y a des caract�res dans le buffer du
clavier et ce sans bloquer l'ex�cution du programme faites m'en part.

    Eventuellement je pourrais me contenter de v�rifier si une touche a �t�
press�e durant la pause, mais je ne sais pas comment en finir avec le
Get_Immediate � la fin de ma pause.

En vous remerciant � l'avance de m'aider � r�soudre ce probl�me.

--
____________________________________
C�dric Rathgeb
shark@infomaniak.ch.net (enlever le ".net" pour r�pondre)
Switzerland
____________________________________

P.S. Pour me r�pondre il faut enlever le ".net" � la fin de mon adresse
e-mail (d�sol� c'est le seul moyen que j'ai trouv� pour �viter la publicit�
dans ma bo�te au lettres)

Re: [QUESTION] Annuler une instruction Get_Immediate?

[Anonymous]

Avez vous essayer une select Asynchronous Transfer of Control (ATC)?
Have you tried an ATC select statement?

select
   <trigger>
   [<sequence of statements>]
then abort
   <abortable sequence of statments>
end select;

<trigger> = delay statement (pour vous/for your purposes)
<abortable sequence of statements? = Get_Immediate

Avez vous essayer une Get_Immediate avec Available? C'est peut-etre
votre seule chance a reussir si I/O bloque toutes les tasks.
Have you tried a Get_Immediate with the parameter Available? It may be
your only solution if I/O blocks all tasks with your compiler.



Jeff Carter  PGP:1024/440FBE21
My real e-mail address: ( carter @ innocon . com )
"I blow my nose on you."
Monty Python & the Holy Grail

Posted with Spam Hater - see
http://www.compulink.co.uk/~net-services/spam/

Remerciements

[C�dric Rathgeb]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 544 bytes --]


    Je vous remercie tous pour vos nombreuses r�ponses, mon programme
fonctionne enfin correctement.

    Si je n'ai pas mis le compilateur et l'environnement c'est que j'utilise
�
l'�cole GNAT 3.0? (7 ou 9) sur des stations SUN avec Solaris et chez moi
invariablement GNAT 3.10p ou Object Ada d'Aonix sous 95/NT. Autrement dit,
il
faut que mon programme soit portable ;-)
--
____________________________________
C�dric Rathgeb
shark@infomaniak.ch.net (remove the ".net" to reply)
Switzerland
____________________________________