Procedure Habilitation Optimiser(PasDEffetDeBord) AjouterServeur(NomDuNoeud : Caractere, NomDuServeur : Caractere, AdresseDuServeur : Caractere);
Si le paramètre NomDuNoeud n'identifie pas un noeud alors l'exception NoeudInconnu est envoyée.
Si ce serveur existe déjà, l'exception ServeurExisteDeja est envoyée.
Le programme en technologoe Up ! Virtual Technical Machine serveur se référencie automatiquement auprès du serveur Up ! Object Request Broker local à son démarrage.
Principal
/*******/
Debut
...
AjouterServeur("Andromede", "Finance", "UpsTcp://125.0.0.5/1632");
/* Ajoute le serveur 'Finance' au noeud 'Andromede' en Tcp-Ip. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |