Type

Ce programme présente l'usage du type Type.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/type.upl.

Mode compilé

Commande de compilation


upscmp Source=type.upl

Commande d'exécution


type

Mode interprété


upssng Source=type.upl

Fichier source


Source Composant "Exemple d'emploi du type Type" Version 4.0.0;



Variable

/******/

   E : Nul Ou Entier;

   T : Nul Ou Type;

   O : Nul Ou Objet;



Principal

/*******/

Debut

T=Type.EnumererObjets(Nul);

TantQue T!=Nul Faire

   Ecran.Ecrire(T.NomType);

   T=Type.EnumererObjets(T);

Fin TantQue

Ecran.Ecrire("\n");



Ecran.Ecrire(Binaire.NomType);

Ecran.Ecrire(Caractere.NomType);

Ecran.Ecrire(Date.NomType);

Ecran.Ecrire(Entier.NomType);

Ecran.Ecrire(Enumere.NomType);

Ecran.Ecrire(Exception.NomType);

Ecran.Ecrire(Fichier.NomType);

Ecran.Ecrire(Module.NomType);

Ecran.Ecrire(Objet.NomType);

Ecran.Ecrire(Reel.NomType);

Ecran.Ecrire(Type.NomType);

E=1;

E++;



Si E==2 Alors

   T=Caractere;

Sinon

   T=Entier;

Fin Si

Si T==Date Alors

   Ecran.Ecrire("T==Date");

Fin Si

Si T!=Date Alors

   Ecran.Ecrire("T!=Date");

Fin Si


Ecran.Ecrire(T.NomType);

E.Convertir(Entier.NouvelObjet());

Ecran.Ecrire(E);

E.Convertir(Exception.NouvelObjet());

Ecran.Ecrire(E);

Fin Principal

Résultat de l'exécution

Objet Type Buffer Binaire Caractere Date Entier Octet Enumere Exception Reel Contrainte ElementListe Liste Reference Tableau ElementArbre ArbreBinaire Entrepot Module Appel Transaction ProprieteDynamique ElementExporte EnregistrementJournal ImageAvant Canal Serveur CanalTcpIp CanalMicrosoftNetwork CanalTuyauNomme FichierListe ProcessusListe UniteListee Tache Synchronisation FileDAttente Travail Flux Fichier Segment PeriodeCalendrier Calendrier Annuaire NiveauAnnuaire Utilisateur Role Habilitations HabilitationUnitaire Licences LicenceUnitaire Quotas QuotaUnitaire Degres Radian Binaire Caractere Date Entier Enumere Exception Fichier Module Objet Reel Type T!=Date Caractere 0 Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le source 'source inconnu' ligne 0, colonne 0 : Erreur UpsKrn-200 : Le type 'Exception' ne possède pas de constructeur implicite.