<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_gc8p51e0toh4q770ri4hij5se7, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

concept BInput > BEAObject {
  S text;
  
  toString { ret "[\*id*/] Input " + quote(text); }
}

concept BPattern > BEAObject {
  S pattern;
  
  toString { ret "[\*id*/] " + shortDynName(this) + " " + quote(pattern); }
  
  void reactWith(BInput input) {}
}

concept BStarPattern > BPattern {
  void reactWith(BInput input) {
    LS mapping = matchesToStringList(flexMatchIC_first(pattern, input.text));
    if (mapping == null) ret;
    uniq BEAObject(
      type := "match",
      +input,
      pattern := this,
      +mapping);
  }
}

concept BAngleVarPattern > BPattern {
  void reactWith(BInput input) {
    LS mapping = matchesToStringList(flexMatchAngleBracketVarsIC_first(pattern, input.text));
    if (mapping == null) ret;
    uniq BEAObject(
      type := "match",
      +input,
      pattern := this,
      +mapping);
  }
}

cmodule2 > DynCRUD_v2<BEAObject> {
  start-thread {
    uniq BInput(text := "UBports community delivers 'second-largest release of Ubuntu Touch ever'");
    //uniq BPattern(pattern := "* delivers *");
    uniq BAngleVarPattern(pattern := "<company> delivers <product>");
    
    reactAll();
  }
  
  void reactAll {
    for (BPattern p)
      for (BInput i) pcall {
        p.reactWith(i);
      }
  }
}