Esope source files

   1 : C OBJET     SOURCE    CHAT      06/03/16    21:23:18     5336           
   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 :       M=0                                                              
  23 :       SEGINI MTABLE
  24 :       IPTABL = MTABLE                                                  
  25 : * lecture de la procedur sans la lire et initialisation des methodes
  26 : * generiques des objets tables
  26 :       CALL LIROBJ('PROCEDUR',IRET,1,IRETOU) 
  27 :       IF (IERR.NE.0) RETURN   
  27 :       CALL QUENOM(ICHA)
  27 :       CALL REFUS
  27 :       CALL ECCTAB(IPTABL,'MOT     ',0,0.D0,'CLASSE',LOGI,IRET,
  28 :      $      'MOT     ',0, 0.D0, ICHA(1:8),LOGI,IRET)
  29 : * mettre ici les methodes génériques
  29 :       CALL ECCTAB(IPTABL,'METHODE',0,0.D0,'METHODE',LOGI,IPO,
  30 :      $        'MOT',0,0.D0,'METHODE',LOGI,0)
  31 :       ICHA(1:4)='HERI'
  31 :       CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'HERITE',LOGI,IPO,          
  32 :      $        'MOT     ',0,0.D0,ICHA(1:4),LOGI,IPLAMO) 
  33 :       ICHA(1:4)='ANNU'
  33 :       CALL ECCTAB(IPTABL,'METHODE ',0,0.D0,'OUBLIER',LOGI,IPO,         
  34 :      $        'MOT     ',0,0.D0,ICHA(1:4),LOGI,IPLAMO) 
  34 :        CALL ECROBJ ('OBJET',IPTABL)
  34 :        CALL ECROBJ ('OBJET',IPTABL)        
  35 :       RETURN                                                     
  36 :       END                               
  37 :