1 : C INSPIL SOURCE CHAT 06/03/16 21:19:23 5336 2 : C INSERE LE CONTENU D'UN OBJET DE TYPE TEXTE DANS LA PILE DEJA DECODES 3 : C APRES AVOIR AU BESOIN FAIT LA TRADUCTION DU TEXTE 4 : SUBROUTINE INSPIL(MTAXTE,IPL) 5 : IMPLICIT INTEGER(I-N) 6 : -INC CCOPTIO 7 : -INC SMTEXTE 8 : -INC CCNOYAU 9 : MTEXTE=MTAXTE 10 : IF(IIMPI.EQ.1756)WRITE(IOIMP,53) MTAXTE 11 : 53 FORMAT( ' ENTREE DANS INSPIL POUR TEXTE : MTEXTE ',I5) 11 : CALL TRADTE(MTAXTE,MTRA) 12 : MTRADU=MTRA 13 : SEGACT MTEXTE,MTRADU 14 : C-- 15 : C-- ON PLACE LA PHRASE INTERPRETER DANS LA PILE A LA PLACE DE 16 : C-- L'OBJET TEXTE 17 : C-- 18 : ILON=MTRAD(/1) 19 : IF(IIMPI.EQ.1756)WRITE(IOIMP,54) MTEXTE,MTRADU,ILON 20 : 54 FORMAT(' INSPIL APRES TRADTE MTEXTE MTRADU ILON ',3I6) 21 : 22 : IF( ILON.EQ.0) THEN 23 : JPOOB1(IPL)=.FALSE. 24 : SEGDES MTEXTE,MTRADU 25 : RETURN 26 : ENDIF 27 : IDEC=ILON-1 28 : IF(IDEC.NE.0) THEN 29 : ILO=JTYOBJ(/2)-IHPILE 30 : ICRE=IDEC-ILO 31 : IF(ICRE.GT.0) THEN 32 : N=JTYOBJ(/2)+ICRE 33 : SEGADJ JPOOB 34 : ENDIF 35 : ITI=IHPILE +IDEC 36 : IDECA=IHPILE-IPL 37 : IF(IDECA.EQ.0) GO TO 157 38 : DO 158 IDCA=1,IDECA 39 : JPOOB1(ITI+1-IDCA)=JPOOB1(IHPILE+1-IDCA) 40 : JPOOB2(ITI+1-IDCA)=JPOOB2(IHPILE+1-IDCA) 41 : JPOOB4(ITI+1-IDCA)=JPOOB4(IHPILE+1-IDCA) 42 : JTYOBJ(ITI+1-IDCA)=JTYOBJ(IHPILE+1-IDCA) 43 : 158 CONTINUE 44 : 157 CONTINUE 45 : IHPILE=ITI 46 : ENDIF 47 : IKLA=IPL 48 : DO 243 IPEU=1,ILON 49 : IPLAC=MTRAD(IPEU) 50 : JPOOB1(IKLA)=.TRUE. 51 : JPOOB2(IKLA)=IPLAC 52 : JPOOB4(IKLA)=IOUEP2(IPLAC) 53 : JTYOBJ(IKLA)=INOOB2(IPLAC) 54 : IKLA=IKLA+1 55 : 243 CONTINUE 56 : SEGDES MTEXTE,MTRADU 57 : RETURN 58 : END 59 :
© Cast3M 2003 - All rights reserved.
Disclaimer