Ada

Socket et Selector

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Socket et Selector

Loki du placard

Bonjour

Quelqu'un aurait déjà utilisé les sockets en Ada avec un Selector_Type? Pas moyen de trouver un exemple avec google.

Merci.

Publicité

apprentitux

Woaw, ça change des "pourquoi j'arrive pas à affecter un string à un character"

Ben moi j'ai jamais utilisé Adasockets.
T'as regardé sur la page de samuel tardieu (le mec qui a fait le paquetage)

C'est quoi un Selector_Type ?
Un rapport avec le Select() en C ??

Message cité 1 fois

Loki du placard

En fait, j'utilise les gnat.sockets. C'est un mapping direct des fonctions c, et donc du select.

Nan, je n'ai pas été voir, mais je vais le faire de ce pas.

Loki du placard

J'ai réussi à utiliser les Selector_type de gnat.sockets.

Si ça interesse quelqu'un, je poste un exemple.

Seb.

apprentitux

Ca m'interesse alors post

Au fait, pourquoi t'utilises Gnat.Socket ?
C'est pas mieux Adasockets ???

(Juste pour avoir ton avis)

Merci d'avance.
Seb aussi.

Loki du placard

Je remets le code au propre avec les commentaires qui vont bien et je poste.

Pourquoi Gnat.Sockets, ben tout simplement parce que livré en standard avec mon compilo. Et j'utilise ce package depuis un moment en mode multithreadé, j'ai donc des libs maison qui marchent très bien avec.

Ceci dit, je te retournerais la question, pourquoi utiliser Adasockets?

apprentitux

Ben je crois que Adasocket est dans la bibliothèque standard Ada.
Et Gnat.Socket c'est spécifique au compilateur Gnat... donc pour la portabilité.

Loki du placard

Il n'y a aucune référence aux sockets dans le RM. Donc pas de librairies standard pour les sockets en Ada

apprentitux

ouais c'est possible que je me sois avancé un peux là.
D'ailleurs ça serait pas très logique que ça y soit vu que c'est complètement spécifique de certaines machine et que Ada n'est fait uniquement pour programmer sur pc.

Bon ben oublis ce que je t'ai dis alors et fais-nous du bon code avec Gnat.Socket

ChOoN

apprentitux a écrit :

Woaw, ça change des "pourquoi j'arrive pas à affecter un string à un character"

+1, j'ai presque eu peur que l'ADA se limitait à l'utilisation de string en voyant les derniers posts

Publicité

Loki du placard

Voici un petit exemple avec un selector. C'est vraiment très limité, ce n'est pas ce qu'il y a de plus propre, mais ça illustre bien le fonctionnement.

Code :

with GNAT.Sockets; use GNAT.Sockets;
with Text_Io; use Text_Io;
procedure Network is
Liste : array(1..10) of Socket_Type;
Bliste : array(1..10) of Boolean;
Reads,Write : Socket_Set_Type;
Selector : Selector_Type;
Srv_Adr,Adr : Sock_Addr_Type;
Srv_Socket : Socket_Type;
Status : Selector_Status;
package Intio is new Text_Io.Integer_Io(Integer);
Ptr : Integer := 0;
C : Character;
begin
-- Initialisation de GNAT.Sockets
Initialize;
-- Creation de la socket serveur
Srv_Adr.Addr := Any_Inet_Addr;
Srv_Adr.Port := 3128;
Create_Socket(Srv_Socket);
Bind_Socket(Srv_Socket,Srv_Adr);
Listen_Socket(Srv_Socket);
-- Creation
Create_Selector(Selector);
Set(Write,Srv_Socket);
for I in 1..10 loop
Bliste(I) := False;
end loop;
loop
--Creation des sets
Empty(Reads);
Set(Reads,Srv_Socket);
for I in 1..10 loop
if Bliste(I) then
Set(Reads,Liste(I));
end if;
end loop;
Check_Selector(Selector,Reads,Write,Status);
case Status is
when Completed =>
if Is_Set(Reads,Srv_Socket) then
Ptr := Ptr + 1;
Put_Line("Connexion : "&Integer'Image(Ptr));
Accept_Socket(Srv_Socket,Liste(Ptr),Adr);
Bliste(Ptr) := True;
else
for I in 1..10 loop
if Bliste(I) then
if Is_Set(Reads,Liste(I)) then
Character'Read(Stream(Liste(I)),C);
Put_line("socket "&Integer'Image(I)&Character'Image(C));
end if;
end if;
end loop;
end if;
when Expired =>
Put_Line("expired" );
when Aborted =>
Put_Line("aborted" );
end case;
end loop;
-- Destruction du selector
Close_Selector(Selector);
-- Finalisation pour le package GNAT.Sockets
Finalize;
exception
when SOCKET_ERROR =>
Put_Line("SOCKET_ERROR" );
end Network;

Profil supprimé

Bonsoir, serait-il possible d'avoir une petite description en clair du role des selecteur et/ou de leur utilité ?
Merci d'avance

Message cité 1 fois

Profil supprimé

Bonjour,

J'ai une autre petite que stion à soumettre dans ce topic, a priori je ne peux pas initilaiser 2 sockets Ada sur le même port, comment fait-on pour servir pluseur client à la fois ? J'ai bien une idée, mais elle m'arange pas. est-ce que les selector peuvent me sortir d'affaire je connait du tout du tout, je n'ai pas compris l'exemple donné par Loki de placard,

edit : en fait je n'ai pas de solution du tout, c'est louche

Message cité 1 fois
Message édité par Profil supprimé le 23-12-2006 à 11:07:23

Profil supprimé

Merci ... plus besoin.

La réponse est oui.

Profil supprimé

Bonjour,
j'avance un peu dans ma decouverte des sockets et des selectors mais j'ai un problème de terminaison, à priori d'un serveur apres une connection.
Quelqu'un pourait-il me dire ce qu'il faut faire pour abandonner une connection ? .. si la question est pertinante !

Message cité 1 fois

Profil supprimé

La question ne fut peut-etre pas très pertinante ...
ceci dit, j'ai trouvé un solution ... j'envoi en local un permier message de fin au sereur, mais comme le seveur est planté sur le Check_Selector, j'envoie un second message de fin. Je m'en tire avec une levé d'exception Socket_Error en local, à priori pour ~~bad selector~~ bad file descriptor, bien qu'au debut de mes test je pensait à un broken pipe.

Bonne journée.

edit :: je pense qu'il est possible de s'en sortir avec un seul message ... (dans certain cas)

Message édité par Profil supprimé le 05-01-2007 à 09:45:00

Profil supprimé

Bonjour,

Comment proceder pour établir une connection full duplex ( avec Gnat.Sockets ) ?

Profil supprimé

Yep, bonjour,

Je travaille à nouveau sur un système client/serveur et je viens de remarquer un truc correspondant à l'algo Loki du placard, ... c'est qu'il faut mettre un output côté client et un input côté serveur en premier, si non, ça ne fonctionne pas. A quoi cela tien ? je ne sais pas, je testerai plus tard.

FORUM HardWare.fr

Programmation

Ada

Socket et Selector

Sujets relatifs
[MFC] Problème Port Socket	[socket UDP] Codage BER : Format des Tag (TLG)
Socket Adresse IP	Socket, envoyer autre chose que du texte?
Socket asynchrone	Torque : problème de socket réutilisée
[perl embed] Probleme socket	programmation socket. fonction accept() retourne 0
[C/Socket]Programmer un proxy	QQ1 peut il m'aider à propos de socket non bloquant je n'y connais rie
Plus de sujets relatifs à : Socket et Selector

Page générée en 0.081 secondes