Aster/Cata/cataSTA10/SD/sd_listis.py

   1 #@ MODIF sd_listis SD  DATE 22/10/2007   AUTEUR PELLET J.PELLET
   2 # -*- coding: iso-8859-1 -*-
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2007  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 from SD import *
  22 from SD.sd_titre import sd_titre
  23 from SD.sd_util import *
  24
  25
  26 class sd_listis(sd_titre):
  27 #-------------------------------------
  28     nomj = SDNom(fin=19)
  29     LPAS = AsVI()
  30     BINT = AsVI()
  31     NBPA = AsVI()
  32     VALE = AsVI()
  33
  34
  35     def check_1(self,checker):
  36         nbpa=self.NBPA.get()
  37         bint=self.BINT.get()
  38         lpas=self.LPAS.get()
  39         vale=self.VALE.get()
  40
  41         # cas général :
  42         if len(vale) > 1 :
  43             assert len(bint) == len(nbpa)+1
  44             assert len(nbpa) == len(lpas)
  45
  46             n1=0
  47             assert  vale[0] == bint[0]
  48             for k in range(len(nbpa)) :
  49                 npas=nbpa[k]
  50                 assert npas > 0
  51                 n1 = n1 + npas
  52                 assert  vale[n1] == bint[k+1]
  53
  54             assert len(vale) == n1+1
  55             assert sdu_monotone(vale) in (1,) , vale
  56
  57
  58         # cas particulier :
  59         if len(vale) == 1 :
  60             assert len(bint) == 1
  61             assert len(nbpa) == 1
  62             assert len(lpas) == 1
  63             assert  vale[0] == bint[0]
  64             assert  nbpa[0] == 0, nbpa
  65             assert  lpas[0] == 0, lpas
  66
  67