1 from Accas import SIMP,FACT,OPER,ASSD,AsException,AsType
6 CONTEXT.unset_current_cata()
7 CONTEXT.set_current_cata(self)
8 def enregistre(self,cmd):
13 class concept(ASSD,Noyau.AsBase):pass
15 OP1 = OPER(nom='OP1',op=1,sd_prod=concept,
17 c=SIMP(typ='I',position='global'),
20 class concept2(ASSD,Noyau.AsBase):pass
21 class concept3(ASSD,Noyau.AsBase):pass
23 def op2_prod(TYPE_RESU,**args):
24 if TYPE_RESU == "TRANS" : return concept2
25 if TYPE_RESU == "HARMO" : return concept3
26 raise AsException("type de concept resultat non prevu")
28 OP2=OPER(nom='OP2',op=2,sd_prod=op2_prod,
29 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
32 def op3_prod(MATR,**args):
33 if AsType(MATR) == concept : return concept2
34 raise AsException("type de concept resultat non prevu")
36 OP3=OPER(nom='OP3',op=3,sd_prod=op3_prod,
37 MATR =SIMP(statut='o',typ=concept),
40 def op4_prod(MESURE,**args):
41 vale=MESURE['NOM_PARA']
42 if vale == 'INST' : return concept
43 raise AsException("type de concept resultat non prevu")
45 OP4=OPER(nom='OP4',op=4,sd_prod=op4_prod,
46 MESURE =FACT(statut='o',min=01,max=01,
47 NOM_PARA =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
51 def op5_prod(FFT,**args):
53 vale=FFT.get_child('FONCTION').get_valeur()
54 if (AsType(vale) == concept ) : return concept
55 if (AsType(vale) == concept2) : return concept2
56 raise AsException("type de concept resultat non prevu")
59 OP5=OPER(nom='OP5',op=5,sd_prod=op5_prod,
60 FFT =FACT(statut='f',min=1,max=1,
61 FONCTION =SIMP(statut='o',typ=(concept,concept2) )
65 def op6_prod(FILTRE,**args):
66 vale=FILTRE[0]['MODE']
67 if AsType(vale) == concept : return concept
68 if AsType(vale) == concept2 : return concept2
69 raise AsException("type de concept resultat non prevu")
71 OP6=OPER(nom='OP6',op=6,sd_prod=op6_prod,
72 FILTRE =FACT(statut='o',min=01,max='**',
73 MODE =SIMP(statut='o',typ=(concept,concept2) ),
77 OP7=OPER(nom='OP7',op=7,sd_prod=concept,
78 FILTRE =FACT(statut='o',min=01,max='**',
79 MODE =SIMP(statut='o',typ=(concept,concept2) ),