Télécharger CCNOYAU.INC

Retour à la liste

Numérotation des lignes :

  1. C CES QUELQUES CARTES SONT A INCORPORER DANS TOUS SERVEURS DU NOYAU
  2. C DE GESTION DE LA PILE DES DONNEES.
  3. C IPTEM POINTEUR SUR LE DERNIER OBJET TEMPORAIRE CREE
  4. C IBPILE BAS DE LA PILE
  5. C IHPILE HAUT DE LA PILE
  6. C IMOTLU POSITION DU MOT(3) DU DERNIER MOT LU
  7. C ITTINT RESULTAT DE LA PRECOMPILATION
  8. C IPVINT NOMBRE DE VALEUR ISSUE DE LA PRECOMPILATION
  9. C IINTPO POSITION DE LECTURE DANS LA PRECOMPILATION
  10. C INTEMP ON A CREE UN NOM TEMPORAIRE
  11. C NBNOM NOMBRE DE NOMS A AFFECTER
  12. C INILU A DECLARER EN BLOCK DATA A 0 (INITIALISATION EFFECTUEE)
  13. C NOMLU LECTURE DES NOMS EFFECTUEE
  14. C MBLOC BLOC COURAMMENT ACTIF
  15. C MPROCE PROCEDURE COURAMMENT ACTIVE
  16. C ISTOP FIN D'INSTRUCTION ELEMENTAIRE
  17. C IRAZ ON A RENCONTRE LE POINT VIRGULE
  18. C INTEXT=1 BLOQUE L'INTERPRETATION D'UN TEXTE
  19. C LECTAB=1 BLOQUE LA RECHERCHE DANS UNE TABLE
  20. C IDEBPR=1 ON VIENT DE LIRE DEBP ET ON BLOQUE LE DECODAGE PAR IRE=4
  21. C IBLQM =1 LES MOTS SONT BLOQUANTS POUR LA LECTURE. AVEC 0 ils ne le sont pas
  22. C
  23. C 04/04/14: Modif GF: Declaration explicite des variables
  24. C
  25. COMMON/CNOYAU/
  26. #ITABOB,JPOOB,IPTRA,IPILOC,IPOBJ,
  27. #ITABNO,ITTINT,
  28. #ISTOP,IBPILE,IHPILE,IMOTLU,IPTEM,NBNOM,INILU,NOMLU,IEGAL,INTEXT,
  29. #MBLOC,IPVINT,IINTPO,INTEMP,IRAZ,MPROCE,LECTAB,LMNOBJ,LMNENT,
  30. #LMNREE,LMNCHA,LMNLOG,LMNNOM,ITABOC,ITABOD,NOYSEG,IDEBPR,JARGMT,
  31. #MESSER,IPIPRO,MESERR,MEFFAC,IBLQM
  32. integer
  33. #ISTOP,IBPILE,IHPILE,IMOTLU,IPTEM,NBNOM,INILU,NOMLU,IEGAL,INTEXT,
  34. #IPVINT,IINTPO,INTEMP,IRAZ,LECTAB,LMNOBJ,LMNENT,
  35. #LMNREE,LMNCHA,LMNLOG,LMNNOM,NOYSEG,IDEBPR,JARGMT,
  36. #MESERR,IBLQM
  37. C
  38. PARAMETER (LONOM=24)
  39. C LONOM : Longueur des noms des objets GIBIANE
  40. C
  41. SEGMENT JPOOB
  42. C 1 VALEUR DEJA LU OU NON
  43. C 2 RANG DANS TABLE DES NOMS SI EXISTE
  44. C 4 RANG DANS LA PILE
  45. LOGICAL JPOOB1(N)
  46. INTEGER JPOOB2(N)
  47. INTEGER JPOOB4(N)
  48. C TYPE DANS PILE INTERNE
  49. CHARACTER*(8) JTYOBJ(N)
  50. ENDSEGMENT
  51. C LES 3 SEGMENTS SUIVANTS MARCHENT ENSEMBLE,ILS REPERENT LES
  52. C OBJETS EN MEMOIRE
  53. SEGMENT ITABOB
  54. C 1 TABLEAUX DES NOMS D'OBJETS
  55. INTEGER INOOB1(N)
  56. ENDSEGMENT
  57. SEGMENT ITABOC
  58. C 2 TYPES DES OBJETS
  59. CHARACTER*(8) INOOB2(N)
  60. ENDSEGMENT
  61. SEGMENT ITABOD
  62. C 2 NUMERO DANS LA PILE
  63. INTEGER IOUEP2(N)
  64. ENDSEGMENT
  65.  
  66. SEGMENT IPTRA
  67. C PILE DE TRAVAIL POUR TASREE
  68. INTEGER IIFLOT(LM)
  69. ENDSEGMENT
  70. SEGMENT IPILOC
  71. * SEGMENT IPFLO
  72. C PILE DES FLOTTANTS
  73. REAL*8 XIFLOT(LMXX)
  74. * ENDSEGMENT
  75. ** SEGMENT IPCHA
  76. C PILE DES CHAINES
  77. CHARACTER*(LMMM) ICHARA
  78. * ENDSEGMENT
  79. * SEGMENT IPCHA1
  80. C POSITION DE FIN DANS LA PILE CHAINES
  81. INTEGER IPCHAR(LMCC)
  82. INTEGER IPHCOD(LMCC)
  83. * ENDSEGMENT
  84. * SEGMENT IPLOG
  85. C PILE DES LOGIQUES
  86. LOGICAL IPLOGI(LMLL)
  87. ENDSEGMENT
  88. SEGMENT IPIPRO
  89. C PILE DES OBJETS PROCEDUR
  90. INTEGER IPIPR1(LM),IPIPRL
  91. ENDSEGMENT
  92. SEGMENT IPOBJ
  93. C PILE DES OBJETS TYPES
  94. INTEGER IPOBJT(LM)
  95. ENDSEGMENT
  96. SEGMENT ITABNO
  97. C TYPES DES NOMS A ATTRIBUER
  98. CHARACTER*(8) ITANOM(M)
  99. C RANG DANS TABLE DES NOMS
  100. INTEGER ITANO1(M)
  101. ENDSEGMENT
  102. SEGMENT ITTINT
  103. C RESULTAT DE LA PRECOMPILATION
  104. C NUMERO DE L'OBJET DANS LA TABLE
  105. C =0 FIN D'INSTRUCTIONS ELEMENTAIRE
  106. C =-1 FIN DE PHRASE
  107. INTEGER ITINTE(0)
  108. ENDSEGMENT
  109. SEGMENT MESSER
  110. INTEGER IPMESS(NMESS,NLANG),NIVERR(NMESS),NUMERR(NMESS)
  111. CHARACTER*4 LANGUA(NLANG)
  112. ENDSEGMENT
  113. SEGMENT MCHERR
  114. CHARACTER*(LCHER1) CHERR1
  115. CHARACTER*(LCHER2) CHERR2
  116. ENDSEGMENT
  117. SEGMENT MEFFAC
  118. * pile des objets fantome : neffec est le nombre effectif d'objet fantome
  119. * tyeffa est le type, neffac est le numero du segment
  120. character*8 TYEFFA (NEFF)
  121. INTEGER NEFFAC (NEFF),neffec
  122. ENDSEGMENT
  123.  

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