Télécharger objet.eso

Retour à la liste

Numérotation des lignes :

  1. C OBJET SOURCE CB215821 16/04/15 21:15:34 8907
  2. SUBROUTINE OBJET
  3. * FONCTION:
  4. * ---------
  5. *
  6. * DEFINIR UN OBJET DE TYPE 'OBJET'
  7. * PHRASE D'APPEL (EN GIBIANE):
  8. * ----------------------------
  9. *
  10. * A = OBJET B ;
  11. *
  12. * CREATION D'UN OBJET DE CLASSE B :
  13. *
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16. -INC CCNOYAU
  17. -INC SMTABLE
  18. -INC CCOPTIO
  19. CHARACTER*8 ICHA,TYPOBJ
  20. LOGICAL LOGI
  21. CHARACTER*72 SOUTYP
  22.  
  23. LOGI=.FALSE.
  24. IPO=0
  25. IPLAMO=0
  26.  
  27. M=0
  28. SEGINI MTABLE
  29. IPTABL = MTABLE
  30. * lecture de la procedur sans la lire et initialisation des methodes
  31. * generiques des objets tables
  32. CALL LIROBJ('PROCEDUR',IRET,1,IRETOU)
  33. IF (IERR.NE.0) RETURN
  34. CALL QUENOM(ICHA)
  35. CALL REFUS
  36. CALL ECCTAB(IPTABL,'MOT ',0,0.D0,'CLASSE',LOGI,IRET,
  37. $ 'MOT ',0, 0.D0, ICHA(1:8),LOGI,IRET)
  38. * mettre ici les methodes génériques
  39. CALL ECCTAB(IPTABL,'METHODE',0,0.D0,'METHODE',LOGI,IPO,
  40. $ 'MOT',0,0.D0,'METHODE',LOGI,0)
  41. ICHA(1:4)='HERI'
  42. CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'HERITE',LOGI,IPO,
  43. $ 'MOT ',0,0.D0,ICHA(1:4),LOGI,IPLAMO)
  44. ICHA(1:4)='ANNU'
  45. CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'OUBLIER',LOGI,IPO,
  46. $ 'MOT ',0,0.D0,ICHA(1:4),LOGI,IPLAMO)
  47. CALL ECROBJ ('OBJET',IPTABL)
  48. CALL ECROBJ ('OBJET',IPTABL)
  49. RETURN
  50. END
  51.  
  52.  
  53.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales