!7

cmodule GProcessAIBar > DynPrintLogAndEnabled {
  start {
    dm_onTopInput_q(voidfunc(S input) {
      S channelName = "AI bar " + computerID();
      long msgID = uniqueNow();
      print("Have input: " + input);
      print("Channel: " + channelName + ", msgID: " + msgID);
      
      S crud = dm_gazelle_linesCRUD();
      
      // user
      
      S userName = "user";
      long userID = md5_long(userName);
      O userConcept = dm_call(crud, 'uniqUser, userID);
      dm_call(crud, 'cset, userConcept, name := userName);
  
      // channel
      
      O channel = dm_call(crud, 'uniqChannel, channelName);
      
      // line
      
      O lineConcept = dm_call(crud, 'uniqConcept, +msgID);
      dm_call(crud, 'cset, lineConcept,
        text := input,
        author := userConcept,
        +channel);
        
      S globalID = getString globalID(lineConcept);
      print("Stored line: " + globalID); 
      
      vmBus_send('gazelleActionableLine, globalID);
    });
  }
}