close Warning: Can't synchronize with repository "(default)" (/var/svn/mms does not appear to be a Subversion repository.). Look in the Trac log for more information.

Ticket #894: selectExpTermsActive_ByInputTest.tol

File selectExpTermsActive_ByInputTest.tol, 768 bytes (added by Pedro Gea, 13 years ago)
Line 
1
2//////////////////////////////////////////////////////////////////////////////
3Set SelectExpTermsActive_ByInputTest(MMS::@Model model, Code inputTest)
4//////////////////////////////////////////////////////////////////////////////
5{
6  SetConcat(EvalSet(model::GetSubmodels(?), Set (MMS::@Submodel submodel) {
7    Set sel = Select(submodel::GetExpTerms(?), Real (MMS::@ExpTerm expTerm) {
8      If(expTerm::IsActive(?), inputTest(expTerm::GetInput(?)), False)
9    });
10    // Se devuelven usando como nombre el identificador:
11    EvalSet(sel, MMS::@ExpTerm (MMS::@ExpTerm expTerm) {
12      MMS::@ExpTerm expTerm_ = expTerm;
13      // Se copia la instancia, para salvar el tique TOL#1428
14      PutName(expTerm::GetIdentifier(?), expTerm_)
15    })
16  }))
17};