/***************************************************************/
Type Serveur Defaut Final TailleSegment 2
/* Objet : Type des objets correspondant aux serveurs. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
NomServeur : Caractere Lecture Public Trace;
NomNoeud : Caractere Lecture Public Trace;
URIServeur : Caractere Lecture Public;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Constructeur(NomDuModule : Caractere, VersionDuModule : Entier, RevisionDuModule : Entier, CorrectionDuModule : Entier, NomDuNoeud : Nul Ou Caractere=Nul, NomDuServeur : Nul Ou Caractere="upssrv");
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type Serveur modélise un serveur de données ou de traitements accessible par Up ! Network.
Le type Serveur ne possède pas de constructeur implicite.
Le paramètre NomDuModule identifie le module distribué que le serveur doit implémenter, dans la version-révision indiquée par Version, Revision et Correction. Si le paramètre NomDuNoeud est renseigné, alors le serveur doit être localisé sur ce noeud. Si le paramètre NomDuServeur est renseigné, alors le serveur est imposé.
Sinon, le serveur est choisi et localisé par Up ! Object Request Broker en fonction de la configuration des machines et de la charge de celles-ci.
Si aucun serveur ne correspond, l'exception ServeurInconnu est envoyée.
Principal
/*******/
Variable
/******/
S1 : Nul Ou Serveur;
S2 : Nul Ou Serveur;
Debut
S1=ServeurLocal;
/* Affectation entre deux serveurs. */
Si S1==S2 Alors
/* Egalité entre deux serveurs. */
...
Fin Si
Si S1!=S2 Alors
/* Inégalité entre deux serveurs. */
...
Fin Si
Fin Principal
| - | - | - | - | - | - | - | - | - |