Ticket #292: loganalyzer01.tol

// Estrae el último mensaje de un 'log' que se encuentre encerrado
// entre los textos 'ini' y 'fin'.
// Devuelve la línea en la que lo encontró y el mensaje encerrado
// precedido del texto 'nam'
Set Log.ObtainLastMessage(Text log, Text ini, Text fin, Text nam) {
  Real p1 = TextFind(log, ini, TextLength(log), 1, -1);
  Real p2 = TextFind(log, fin, p1+TextLength(ini), 1, 1);
  [[ p1, Text nam << Text Sub(log, p1+TextLength(ini), p2-1) ]]
};

// Utiliza la función anterior para encontrar las "última" traza
// de BSR que nos daría una idea de por donde va el proceso
Set GetLastBSRMessage(Text log) {
  Set bsrMessages = [[
    Set Log.ObtainLastMessage(log, "[Bsr::Import] ", "\n", "BsrImport:");
    Set Log.ObtainLastMessage(log, "[BSR.Parse] ", "\n", "BsrParse:");
    Set Log.ObtainLastMessage(log, "\n Simulating iterations  ", "-", "BsrSimulation:");
    Set Log.ObtainLastMessage(log, "[CMsg::Phase] <", " ", "BsrReport:")
  ]];
  Set sel = Select(bsrMessages, Real (Set msg) { msg[1]!=0 });
  If(Card(sel)==0, [[ 0, "" ]], {
    Sort(sel,  Real (Set msg1, Set msg2) { Compare(msg2[1], msg1[1]) })[1]
  })
};

//////////////////////////////////////////////////////////////////////////////
// Ejemplo:

// Escojo en log que deseo analizar:
Text logPath = TolAppDataPath<<"syslog/";
Text filename = logPath<<"start_1.log";
Text log = ReadFile(filename);

// Puedo reducir el log para ver lo que diría cuando aún no ha acabado
//Text log := Sub(log, 1, 281286); 

// Puedo encontrar el número de errores o advertencias:
Set Log.ObtainLastMessage(log, "<E>\nERROR: [", "]", "LastError:");
Set Log.ObtainLastMessage(log, "<W>\nWarning: [", "]", "LastWarning:");

// Estos son los mensajes BSR que se rastrean:
Set BSRMessages = [[
  Set Log.ObtainLastMessage(log, "[Bsr::Import] ", "\n", "BsrImport:");
  Set Log.ObtainLastMessage(log, "[BSR.Parse] ", "\n", "BsrParse:");
  Set Log.ObtainLastMessage(log, "\n Simulating iterations  ", "-", "BsrSimulation:");
  Set Log.ObtainLastMessage(log, "[CMsg::Phase] ", "\n", "BsrReport:")
]];
// Éste es el último:
Set GetLastBSRMessage(log);

//////////////////////////////////////////////////////////////////////////////