Aster/Cata/cataSTA73/Macro/stanley_ops.py

   1 #@ MODIF stanley_ops Macro  DATE 23/11/2004   AUTEUR ASSIRE A.ASSIRE
   2 # -*- coding: iso-8859-1 -*-
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2004  EDF R&D                  WWW.CODE-ASTER.ORG
   6 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   7 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   8 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
   9 # (AT YOUR OPTION) ANY LATER VERSION.
  10 #
  11 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  12 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  13 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  14 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  15 #
  16 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  17 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  18 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  19 # ======================================================================
  20
  21
  22
  23 def stanley_ops(self,RESULTAT,MODELE,CHAM_MATER,CARA_ELEM,**args):
  24
  25   """
  26      Importation et lancement de Stanley
  27   """
  28
  29   import os,string
  30   import aster
  31   from Accas import _F
  32   from Noyau.N_utils import AsType
  33   from Utilitai.Utmess import UTMESS
  34
  35   ier=0
  36
  37   # La macro compte pour 1 dans la numerotation des commandes
  38   self.icmd=1
  39
  40
  41   # On ne lance Stanley que si la variable DISPLAY est définie
  42   if os.environ.has_key('DISPLAY'):
  43
  44     import Stanley
  45     from Stanley import stanley
  46
  47     if (RESULTAT and MODELE and CHAM_MATER):
  48       _MAIL = aster.getvectjev( string.ljust(MODELE.nom,8) + '.MODELE    .NOMA        ' )
  49       _MAIL = string.strip(_MAIL[0])
  50       MAILLAGE = self.jdc.g_context[_MAIL]
  51       if CARA_ELEM:
  52         stanley.STANLEY(RESULTAT,MAILLAGE,MODELE,CHAM_MATER,CARA_ELEM)
  53       else:
  54         stanley.STANLEY(RESULTAT,MAILLAGE,MODELE,CHAM_MATER,None)
  55     else:
  56       stanley.PRE_STANLEY()
  57
  58   else:
  59       UTMESS('A','STANLEY',"Aucune variable d'environnement DISPLAY n'est définie!\n               STANLEY ne peut pas fonctionner. On l'ignore.\n\n               Si vous etes en Interactif, cochez le bouton Suivi Interactif\n               dans ASTK.")
  60
  61   return ier