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
  40. SEGMENT JPOOB
  41. C 1 VALEUR DEJA LU OU NON
  42. C 2 RANG DANS TABLE DES NOMS SI EXISTE
  43. C 4 RANG DANS LA PILE
  44. LOGICAL JPOOB1(N)
  45. INTEGER JPOOB2(N)
  46. INTEGER JPOOB4(N)
  47. C TYPE DANS PILE INTERNE
  48. CHARACTER*(8) JTYOBJ(N)
  49. ENDSEGMENT
  50. C LES 3 SEGMENTS SUIVANTS MARCHENT ENSEMBLE,ILS REPERENT LES
  51. C OBJETS EN MEMOIRE
  52. SEGMENT ITABOB
  53. C 1 TABLEAUX DES NOMS D'OBJETS
  54. INTEGER INOOB1(N)
  55. ENDSEGMENT
  56. SEGMENT ITABOC
  57. C 2 TYPES DES OBJETS
  58. CHARACTER*(8) INOOB2(N)
  59. ENDSEGMENT
  60. SEGMENT ITABOD
  61. C 2 NUMERO DANS LA PILE
  62. INTEGER IOUEP2(N)
  63. ENDSEGMENT
  64.  
  65. SEGMENT IPTRA
  66. C PILE DE TRAVAIL POUR TASREE
  67. INTEGER IIFLOT(LM)
  68. ENDSEGMENT
  69. SEGMENT IPILOC
  70. * SEGMENT IPFLO
  71. C PILE DES FLOTTANTS
  72. REAL*8 XIFLOT(LMXX)
  73. * ENDSEGMENT
  74. ** SEGMENT IPCHA
  75. C PILE DES CHAINES
  76. CHARACTER*(LMMM) ICHARA
  77. * ENDSEGMENT
  78. * SEGMENT IPCHA1
  79. C POSITION DE FIN DANS LA PILE CHAINES
  80. INTEGER IPCHAR(LMCC)
  81. INTEGER IPHCOD(LMCC)
  82. * ENDSEGMENT
  83. * SEGMENT IPLOG
  84. C PILE DES LOGIQUES
  85. LOGICAL IPLOGI(LMLL)
  86. ENDSEGMENT
  87. SEGMENT IPIPRO
  88. C PILE DES OBJETS PROCEDUR
  89. INTEGER IPIPR1(LM),IPIPRL
  90. ENDSEGMENT
  91. SEGMENT IPOBJ
  92. C PILE DES OBJETS TYPES
  93. INTEGER IPOBJT(LM)
  94. ENDSEGMENT
  95. SEGMENT ITABNO
  96. C TYPES DES NOMS A ATTRIBUER
  97. CHARACTER*(8) ITANOM(M)
  98. C RANG DANS TABLE DES NOMS
  99. INTEGER ITANO1(M)
  100. ENDSEGMENT
  101. SEGMENT ITTINT
  102. C RESULTAT DE LA PRECOMPILATION
  103. C NUMERO DE L'OBJET DANS LA TABLE
  104. C =0 FIN D'INSTRUCTIONS ELEMENTAIRE
  105. C =-1 FIN DE PHRASE
  106. INTEGER ITINTE(0)
  107. ENDSEGMENT
  108. SEGMENT MESSER
  109. INTEGER IPMESS(NMESS,NLANG),NIVERR(NMESS),NUMERR(NMESS)
  110. CHARACTER*4 LANGUA(NLANG)
  111. ENDSEGMENT
  112. SEGMENT MCHERR
  113. CHARACTER*(LCHER1) CHERR1
  114. CHARACTER*(LCHER2) CHERR2
  115. ENDSEGMENT
  116. SEGMENT MEFFAC
  117. * pile des objets fantome : neffec est le nombre effectif d'objet fantome
  118. * tyeffa est le type, neffac est le numero du segment
  119. character*8 TYEFFA(NEFF)
  120. INTEGER NEFFAC (NEFF),neffec
  121. ENDSEGMENT
  122.  

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