/// Returns the current internal state of the LocalAgent (Automaton) within the cell and received as parameter
int luaCell::getCurrentStateName( lua_State *L )
{
luaLocalAgent *agent = Luna<luaLocalAgent>::check(L, -1);
ControlMode* controlMode = getControlMode((LocalAgent*)agent);
if( controlMode) lua_pushstring( L, controlMode->getControlModeName( ).c_str() );
else lua_pushnil(L);
return 1;
}
static void ctl_lyric(int lyricid)
{
char *lyric;
lyric = event2string(lyricid);
if(lyric == NULL) return;
ctl.cmsg(CMSG_TEXT, VERB_VERBOSE, "%s", lyric + 1);
}
static void ctl_pass_playing_list(int number_of_files, char *list_of_files[])
{
static int init_flag = 1;
int rc;
int32 value;
extern void timidity_init_aq_buff(void);
int errcnt;
w32g_add_playlist(number_of_files, list_of_files, 0,
ctl.flags & CTLF_AUTOUNIQ,
ctl.flags & CTLF_AUTOREFINE);
w32g_play_active = 0;
errcnt = 0;
if(init_flag && w32g_nvalid_playlist() && (ctl.flags & CTLF_AUTOSTART))
// if(play_mode->fd != -1 &&
// w32g_nvalid_playlist() && (ctl.flags & CTLF_AUTOSTART))
rc = RC_LOAD_FILE;
else
rc = RC_NONE;
init_flag = 0;
#ifdef W32G_RANDOM_IS_SHUFFLE
w32g_shuffle_playlist_reset(0);
#endif
while(1)
{
if(rc == RC_NONE)
{
if(play_mode->fd != -1)
{
aq_flush(1);
play_mode->close_output();
}
rc = w32g_get_rc(&value, 1);
}
redo:
switch(rc)
{
case RC_NONE:
Sleep(1000);
break;
case RC_LOAD_FILE: /* Play playlist.selected */
if(w32g_nvalid_playlist())
{
int selected;
w32g_get_playlist_index(&selected, NULL, NULL);
w32g_play_active = 1;
if(play_mode->fd == -1)
{
if(play_mode->open_output() == -1)
{
ctl.cmsg(CMSG_FATAL, VERB_NORMAL,
"Couldn't open %s (`%c') %s",
play_mode->id_name,
play_mode->id_character,
play_mode->name ? play_mode->name : "");
break;
}
aq_setup();
timidity_init_aq_buff();
}
if(play_mode->id_character == 'l')
w32g_show_console();
if(!DocWndIndependent) {
w32g_setup_doc(selected);
if(DocWndAutoPopup)
w32g_open_doc(1);
else
w32g_open_doc(2);
}
{
char *p = w32g_get_playlist(selected);
if(Panel!=NULL && p!=NULL)
strcpy(Panel->filename,p);
}
SetWrdWndActive();
rc = play_midi_file(w32g_get_playlist(selected));
if(ctl.flags & CTLF_NOT_CONTINUE)
w32g_update_playlist(); /* Update mark of error */
if(rc == RC_ERROR)
{
int nfiles;
errcnt++;
w32g_get_playlist_index(NULL, &nfiles, NULL);
if(errcnt >= nfiles)
w32g_msg_box("No MIDI file to play",
"TiMidity Warning", MB_OK);
}
else
errcnt = 0;
w32g_play_active = 0;
goto redo;
}
break;
case RC_ERROR:
case RC_TUNE_END:
#if 0
if(play_mode->id_character != 'd' ||
(ctl.flags & CTLF_NOT_CONTINUE)) {
#else
if(ctl.flags & CTLF_NOT_CONTINUE) {
#endif
break;
}
/* FALLTHROUGH */
case RC_NEXT:
if(!w32g_nvalid_playlist())
{
if(ctl.flags & CTLF_AUTOEXIT) {
if(play_mode->fd != -1)
aq_flush(0);
return;
}
break;
}
if(ctl.flags & CTLF_LIST_RANDOM) {
#ifdef W32G_RANDOM_IS_SHUFFLE
if(w32g_shuffle_playlist_next(!(ctl.flags & CTLF_NOT_CONTINUE))) {
#else
if(w32g_random_playlist(!(ctl.flags & CTLF_NOT_CONTINUE))) {
#endif
rc = RC_LOAD_FILE;
goto redo;
}
} else {
if(w32g_next_playlist(!(ctl.flags & CTLF_NOT_CONTINUE))) {
rc = RC_LOAD_FILE;
goto redo;
}
}
{
/* end of list */
if(ctl.flags & CTLF_AUTOEXIT) {
if(play_mode->fd != -1)
aq_flush(0);
return;
}
if((ctl.flags & CTLF_LIST_LOOP) && w32g_nvalid_playlist())
{
#ifdef W32G_RANDOM_IS_SHUFFLE
if(ctl.flags & CTLF_LIST_RANDOM) {
w32g_shuffle_playlist_reset(0);
w32g_shuffle_playlist_next(!(ctl.flags & CTLF_NOT_CONTINUE));
} else {
#endif
w32g_first_playlist(!(ctl.flags & CTLF_NOT_CONTINUE));
#ifdef W32G_RANDOM_IS_SHUFFLE
}
#endif
rc = RC_LOAD_FILE;
goto redo;
}
if((ctl.flags & CTLF_LIST_RANDOM) && w32g_nvalid_playlist())
w32g_shuffle_playlist_reset(0);
}
break;
case RC_REALLY_PREVIOUS:
#ifdef W32G_RANDOM_IS_SHUFFLE
w32g_shuffle_playlist_reset(0);
#endif
if(w32g_prev_playlist(!(ctl.flags & CTLF_NOT_CONTINUE)))
{
rc = RC_LOAD_FILE;
goto redo;
}
break;
case RC_QUIT:
if(play_mode->fd != -1)
aq_flush(1);
return;
case RC_CHANGE_VOLUME:
amplification += value;
ctl_master_volume(amplification);
break;
case RC_TOGGLE_PAUSE:
play_pause_flag = !play_pause_flag;
break;
default:
if(rc == RC_STOP)
#ifdef W32G_RANDOM_IS_SHUFFLE
w32g_shuffle_playlist_reset(0);
#endif
if(rc >= RC_EXT_BASE)
{
rc = w32g_ext_control(rc, value);
if(rc != RC_NONE)
goto redo;
}
break;
}
if(mark_apply_setting)
PrefSettingApplyReally();
rc = RC_NONE;
}
}
static void ctl_lcd_mark(int flag, int x, int y)
{
Panel->GSLCD[x][y] = flag;
}
static void ctl_gslcd(int id)
{
char *lcd;
int i, j, k, data, mask;
char tmp[3];
if((lcd = event2string(id)) == NULL)
return;
if(lcd[0] != ME_GSLCD)
return;
lcd++;
for(i = 0; i < 16; i++)
{
for(j = 0; j < 4; j++)
{
tmp[0]= lcd[2 * (j * 16 + i)];
tmp[1]= lcd[2 * (j * 16 + i) + 1];
if(sscanf(tmp, "%02X", &data) != 1)
{
/* Invalid format */
return;
}
mask = 0x10;
for(k = 0; k < 5; k++)
{
if(data & mask) {
ctl_lcd_mark(1, j * 5 + k, i);
}
else {
ctl_lcd_mark(0, j * 5 + k, i);
}
mask >>= 1;
}
}
}
Panel->gslcd_displayed_flag = 1;
Panel->gslcd_last_display_time = get_current_calender_time();
Panel->changed = 1;
}
static void ctl_channel_note(int ch, int note, int vel)
{
if (vel == 0) {
if (note == Panel->cnote[ch])
Panel->v_flags[ch] = FLAG_NOTE_OFF;
Panel->cvel[ch] = 0;
} else if (vel > Panel->cvel[ch]) {
Panel->cvel[ch] = vel;
Panel->cnote[ch] = note;
Panel->ctotal[ch] = ( vel * Panel->channel[ch].volume *
Panel->channel[ch].expression ) >> 14;
// Panel->channel[ch].expression / (127*127);
Panel->v_flags[ch] = FLAG_NOTE_ON;
}
Panel->changed = 1;
}
QString luaLocalAgent::pop(lua_State *luaL, QStringList& attribs)
{
QString msg;
if (notNotify)
return msg;
// id
msg.append(QString::number(getId()));
msg.append(PROTOCOL_SEPARATOR);
// subjectType
msg.append(QString::number(subjectType));
msg.append(PROTOCOL_SEPARATOR);
int position = lua_gettop(luaL);
int attrCounter = 0;
int elementCounter = 0;
// bool contains = false;
double num = 0;
QString text, key, attrs, elements;
QStringList coordList = QStringList() << "x" << "y";
// Percorre as celulas do espa(C)o recuperando o
// estado do automato
if (lua_istable(luaL, position - 1))
{
lua_pushnil(luaL);
while (lua_next(luaL, position - 1) != 0)
{
if (lua_type(luaL, -2) == LUA_TSTRING)
key = luaL_checkstring(luaL, -2);
if (key == "cells")
{
int top = lua_gettop(luaL);
lua_pushnil(luaL);
while (lua_next(luaL, top) != 0)
{
int cellTop = lua_gettop(luaL);
lua_pushstring(luaL, "cObj_");
lua_gettable(luaL, cellTop);
luaCell* cell;
cell =(luaCell*)Luna<luaCell>::check(L, -1);
lua_pop(luaL, 1); // lua_pushstring
// luaCell->popCell(...) requer uma celula no topo da pilha
QString cellMsg = cell->pop(L, coordList);
ControlMode *ctrlMode = cell->getControlMode(this);
if (ctrlMode)
{
cellMsg.append("currentState" + attrClassName);
cellMsg.append(PROTOCOL_SEPARATOR);
cellMsg.append(QString::number(TObsText));
cellMsg.append(PROTOCOL_SEPARATOR);
cellMsg.append(ctrlMode->getControlModeName().c_str());
cellMsg.append(PROTOCOL_SEPARATOR);
// Adiciona o atributo currentState no protocolo
int idx = cellMsg.indexOf(PROTOCOL_SEPARATOR);
QString attNum = QString(cellMsg[idx + 3]);
cellMsg.replace(idx + 3, 1, attNum.setNum(attNum.toInt() + 1));
elements.append(cellMsg);
elementCounter++;
}
else
{
notNotify = true;
if (execModes != Quiet)
{
string err_out = string("Warning: Failed on retrieve Automaton subject state!!");
lua_getglobal(L, "customWarning");
lua_pushstring(L, err_out.c_str());
lua_pushnumber(L, 4);
lua_call(L, 2, 0);
}
return QString();
}
lua_pop(luaL, 1);
}
}
lua_pop(luaL, 1);
}
}
lua_pushnil(luaL);
while (lua_next(luaL, position) != 0)
{
// Caso o indice no seja um string causava erro
if (lua_type(luaL, -2) == LUA_TSTRING)
{
key = QString(luaL_checkstring(luaL, -2));
}
else
{
if (lua_type(luaL, -2) == LUA_TNUMBER)
{
char aux[100];
double number = luaL_checknumber(luaL, -2);
sprintf(aux, "%g", number);
key = QString(aux);
}
}
bool contains = attribs.contains(key);
if (contains)
{
attrCounter++;
attrs.append(key);
attrs.append(PROTOCOL_SEPARATOR);
switch (lua_type(luaL, -1))
{
case LUA_TBOOLEAN:
attrs.append(QString::number(TObsBool));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(lua_toboolean(luaL, -1));
attrs.append(PROTOCOL_SEPARATOR);
break;
case LUA_TNUMBER:
num = luaL_checknumber(luaL, -1);
doubleToQString(num, text, 20);
attrs.append(QString::number(TObsNumber));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(text);
attrs.append(PROTOCOL_SEPARATOR);
break;
case LUA_TSTRING:
text = QString(luaL_checkstring(luaL, -1));
attrs.append(QString::number(TObsText));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append((text.isEmpty() || text.isNull() ? VALUE_NOT_INFORMED : text));
attrs.append(PROTOCOL_SEPARATOR);
break;
case LUA_TTABLE:
{
char result[100];
sprintf(result, "%p", lua_topointer(luaL, -1));
attrs.append(QString::number(TObsText));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(QString("Lua Address(TB): ") + QString(result));
attrs.append(PROTOCOL_SEPARATOR);
}
break;
case LUA_TUSERDATA:
{
char result[100];
sprintf(result, "%p", lua_topointer(luaL, -1));
attrs.append(QString::number(TObsText));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(QString("Lua-Address(UD): ") + QString(result));
attrs.append(PROTOCOL_SEPARATOR);
//if (isudatatype(luaL, -1, "TeState"))
//{
// ControlMode* lcm =(ControlMode*)Luna<luaControlMode>::check(L, -1);
// QString state(lcm->getControlModeName().c_str());
// attrCounter++;
// attrs.append(state);
// attrs.append(PROTOCOL_SEPARATOR);
// attrs.append(QString::number(TObsText));
// attrs.append(PROTOCOL_SEPARATOR);
// attrs.append(state);
// attrs.append(PROTOCOL_SEPARATOR);
//}
break;
}
case LUA_TFUNCTION:
{
char result[100];
sprintf(result, "%p", lua_topointer(luaL, -1));
attrs.append(QString::number(TObsText));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(QString("Lua-Address(FT): ") + QString(result));
attrs.append(PROTOCOL_SEPARATOR);
break;
}
default:
{
char result[100];
sprintf(result, "%p", lua_topointer(luaL, -1));
attrs.append(QString::number(TObsText));
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(QString("Lua-Address(O): ") + QString(result));
attrs.append(PROTOCOL_SEPARATOR);
break;
}
}
}
lua_pop(luaL, 1);
}
if (attribs.contains("currentState"))
{
QString currState;
attrCounter++;
attrs.append("currentState");
attrs.append(PROTOCOL_SEPARATOR);
attrs.append(QString::number(TObsText));
attrs.append(PROTOCOL_SEPARATOR);
currState = "Where?";
if (whereCell)
{
ControlMode *cm = whereCell->getControlMode(this);
if (cm)
{
currState = QString(cm->getControlModeName().c_str());
}
else
{
if (execModes != Quiet){
string err_out = string("Warning: Could not find the Automaton inside an Environment object.");
lua_getglobal(L, "customWarning");
lua_pushstring(L, err_out.c_str());
lua_pushnumber(L, 5);
lua_call(L, 2, 0);
}
}
}
attrs.append(currState);
attrs.append(PROTOCOL_SEPARATOR);
}
msg.append(QString::number(attrCounter));
msg.append(PROTOCOL_SEPARATOR);
msg.append(QString::number(elementCounter));
msg.append(PROTOCOL_SEPARATOR);
msg.append(attrs);
msg.append(PROTOCOL_SEPARATOR);
msg.append(elements);
msg.append(PROTOCOL_SEPARATOR);
return msg;
}
int luaLocalAgent::createObserver(lua_State *L)
{
// recupero a referencia da celula
Reference<luaAgent>::getReference(luaL);
// flags para a defini(C)(C)o do uso de compress(C)o
// na transmiss(C)o de datagramas e da visibilidade
// dos observadores Udp Sender
bool compressDatagram = false, obsVisible = true;
// recupero a tabela de atributos da celula
int top = lua_gettop(luaL);
// No modifica em nada a pilha recupera o enum
// referente ao tipo do observer
int typeObserver =(int)luaL_checkinteger(luaL, 1); //top - 3);
if ((typeObserver != TObsMap) && (typeObserver != TObsImage))
{
bool isGraphicType =(typeObserver == TObsDynamicGraphic)
||(typeObserver == TObsGraphic);
//------------------------
QStringList allAttribs, obsAttribs;
QList<QPair<QString, QString> > allStates;
// Pecorre a pilha lua recuperando
// todos os atributos celula
lua_pushnil(luaL);
while (lua_next(luaL, top) != 0)
{
QString key;
switch (lua_type(luaL, -2))
{
case LUA_TSTRING:
key = QString(luaL_checkstring(luaL, -2));
break;
case LUA_TNUMBER:
{
char aux[100];
double number = luaL_checknumber(luaL, -2);
sprintf(aux, "%g", number);
key = QString(aux);
break;
}
default:
break;
}
// Recupero os estados do TeState
if (isudatatype(luaL, -1, "TeState"))
{
ControlMode* lcm =(ControlMode*)Luna<luaControlMode>::check(L, -1);
QString state, transition;
state.append(lcm->getControlModeName().c_str());
// Adiciona o estado do atributo na lista de parametros
// allAttribs.push_back(state);
// Recupero a transi(C)(C)o dos estados
ProcessCompositeInterf::iterator prIt;
prIt = lcm->ProcessCompositeInterf::begin();
JumpCompositeInterf::iterator jIt;
jIt = prIt->JumpCompositeInterf::begin();
while (jIt != prIt->JumpCompositeInterf::end())
{
transition = QString((*jIt)->getTargetControlModeName().c_str());
jIt++;
}
// cria um par(estado, transi(C)(C)o) e adiciona na lista de estados
allStates.push_back(qMakePair(state, transition));
}
allAttribs.push_back(key);
lua_pop(luaL, 1);
}
// Adiciono o currentState no observador
allAttribs.push_back("currentState"); // insere o estado atual
//------------------------
// pecorre a pilha lua recuperando
// os atributos celula que se quer observar
lua_settop(luaL, top - 1);
top = lua_gettop(luaL);
// Verificao da sintaxe da tabela Atributos
if (!lua_istable(luaL, top))
{
qFatal("Error: Attributes table not found. Incorrect sintax.\n");
return -1;
}
lua_pushnil(luaL);
while (lua_next(luaL, top - 1) != 0)
{
QString key = luaL_checkstring(luaL, -1);
// Verifica se o atributo informado existe
// ou pode ter sido digitado errado
if (allAttribs.contains(key))
{
obsAttribs.push_back(key);
if (!observedAttribs.contains(key))
observedAttribs.push_back(key);
}
else
{
if (!key.isNull() || !key.isEmpty())
{
string err_out = string("Error: Attribute name '") + string(qPrintable(key)) + string("' not found.");
lua_getglobal(L, "customError");
lua_pushstring(L, err_out.c_str());
lua_pushnumber(L, 4);
lua_call(L, 2, 0);
return -1;
}
}
lua_pop(luaL, 1);
}
//------------------------
// Adiciono o currentState no observador
if ((obsAttribs.empty()) && (!isGraphicType))
{
obsAttribs = allAttribs;
observedAttribs = allAttribs;
}
//------------------------
if (!lua_istable(luaL, top))
{
qFatal("Error: Parameter table not found. Incorrect sintax.\n");
return -1;
}
QStringList obsParams, obsParamsAtribs; // parametros/atributos da legenda
QStringList cols;
bool isLegend = false;
// Recupera a tabela de parametros
lua_pushnil(luaL);
while (lua_next(luaL, top) != 0)
{
QString key;
if (lua_type(luaL, -2) == LUA_TSTRING)
key = QString(luaL_checkstring(luaL, -2));
switch (lua_type(luaL, -1))
{
case LUA_TSTRING:
{
QString value(luaL_checkstring(luaL, -1));
cols.push_back(value);
break;
}
case LUA_TBOOLEAN:
{
bool val = lua_toboolean(luaL, -1);
if (key == "visible")
obsVisible = val;
else // if (key == "compress")
compressDatagram = val;
break;
}
// Recupera a celula que se deseja observar o automato
case LUA_TTABLE:
{
int paramTop = lua_gettop(luaL);
QString value;
lua_pushnil(luaL);
while (lua_next(luaL, paramTop) != 0)
{
if (lua_type(luaL, -2) == LUA_TSTRING)
{
value = QString(luaL_checkstring(luaL, -2));
if (value == "cObj_")
{
//int cellTop = lua_gettop(luaL);
//lua_pushstring(luaL, "cObj_");
//lua_gettable(luaL, cellTop);
whereCell =(luaCell*)Luna<luaCell>::check(L, -1);
// lua_pop(luaL, 1); // lua_pushstring
}
if (isLegend)
{
// bool boolAux;
const char *strAux;
double numAux = -1;
obsParams.push_back(value);
switch (lua_type(luaL, -1))
{
case LUA_TBOOLEAN:
// boolAux = lua_toboolean(luaL, -1);
// obsParamsAtribs.push_back(QString::number(boolAux));
break;
case LUA_TNUMBER:
numAux = luaL_checknumber(luaL, -1);
obsParamsAtribs.push_back(QString::number(numAux));
break;
case LUA_TSTRING:
strAux = luaL_checkstring(luaL, -1);
obsParamsAtribs.push_back(QString(strAux));
break;
case LUA_TNIL:
case LUA_TTABLE:
default:
break;
}
}
}
lua_pop(luaL, 1);
}
isLegend = true;
}
default:
break;
}
lua_pop(luaL, 1);
}
ObserverTextScreen *obsText = 0;
ObserverTable *obsTable = 0;
ObserverGraphic *obsGraphic = 0;
ObserverLogFile *obsLog = 0;
ObserverUDPSender *obsUDPSender = 0;
ObserverStateMachine *obsStateMachine = 0;
int obsId = -1;
// QStringList attrs;
switch (typeObserver)
{
case TObsTextScreen:
obsText =(ObserverTextScreen *)
LocalAgentSubjectInterf::createObserver(TObsTextScreen);
if (obsText)
{
obsId = obsText->getId();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
case TObsLogFile:
obsLog =(ObserverLogFile *)
LocalAgentSubjectInterf::createObserver(TObsLogFile);
if (obsLog)
{
obsId = obsLog->getId();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
case TObsTable:
obsTable =(ObserverTable *)
LocalAgentSubjectInterf::createObserver(TObsTable);
if (obsTable)
{
obsId = obsTable->getId();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
case TObsUDPSender:
obsUDPSender =(ObserverUDPSender *)
LocalAgentSubjectInterf::createObserver(TObsUDPSender);
if (obsUDPSender)
{
obsId = obsUDPSender->getId();
obsUDPSender->setCompressDatagram(compressDatagram);
if (obsVisible)
obsUDPSender->show();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
case TObsStateMachine:
obsStateMachine =(ObserverStateMachine *)
LocalAgentSubjectInterf::createObserver(TObsStateMachine);
if (obsStateMachine)
{
obsId = obsStateMachine->getId();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
case TObsDynamicGraphic:
obsGraphic =(ObserverGraphic *)
LocalAgentSubjectInterf::createObserver(TObsDynamicGraphic);
if (obsGraphic)
{
obsGraphic->setObserverType(TObsDynamicGraphic);
obsId = obsGraphic->getId();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
case TObsGraphic:
obsGraphic =(ObserverGraphic *)
LocalAgentSubjectInterf::createObserver(TObsGraphic);
if (obsGraphic)
{
obsId = obsGraphic->getId();
}
else
{
if (execModes != Quiet)
qWarning("%s", qPrintable(TerraMEObserver::MEMORY_ALLOC_FAILED));
}
break;
default:
if (execModes != Quiet)
{
qWarning("Warning: In this context, the code '%s' does not correspond to a "
"valid type of Observer.", getObserverName(typeObserver));
}
return 0;
}
/// Define alguns parametros do observador instanciado -------------------------------------
if (obsLog)
{
obsLog->setAttributes(obsAttribs);
if (cols.at(0).isNull() || cols.at(0).isEmpty())
{
obsLog->setFileName(DEFAULT_NAME + ".csv");
}
else
{
obsLog->setFileName(cols.at(0));
}
// caso no seja definido, utiliza o default ";"
if ((cols.size() < 2) || cols.at(1).isNull() || cols.at(1).isEmpty())
{
obsLog->setSeparator();
}
else
{
obsLog->setSeparator(cols.at(1));
}
lua_pushnumber(luaL, obsId);
return 1;
}
if (obsText)
{
obsText->setAttributes(obsAttribs);
lua_pushnumber(luaL, obsId);
return 1;
}
if (obsTable)
{
obsTable->setColumnHeaders(cols);
obsTable->setAttributes(obsAttribs);
lua_pushnumber(luaL, obsId);
return 1;
}
if (obsUDPSender)
{
obsUDPSender->setAttributes(obsAttribs);
obsUDPSender->setPort(cols.at(0).toInt());
// broadcast
if ((cols.size() == 1) ||((cols.size() == 2) && cols.at(1).isEmpty()))
{
obsUDPSender->addHost(BROADCAST_HOST);
}
else
{
// multicast or unicast
for (int i = 1; i < cols.size(); i++){
if (!cols.at(i).isEmpty())
obsUDPSender->addHost(cols.at(i));
}
}
lua_pushnumber(luaL, obsId);
return 1;
}
if (obsGraphic)
{
obsGraphic->setLegendPosition();
// if (obsAttribs.contains("currentState"))
// obsGraphic->setCurveStyle();
// Takes titles of three first locations
obsGraphic->setTitles(cols.at(0), cols.at(1), cols.at(2));
cols.removeFirst(); // remove graphic title
cols.removeFirst(); // remove axis x title
cols.removeFirst(); // remove axis y title
// Splits the attribute labels in the cols list
obsGraphic->setAttributes(obsAttribs, cols.takeFirst().split(";", QString::SkipEmptyParts),
obsParams, obsParamsAtribs);
lua_pushnumber(luaL, obsId);
return 1;
}
///////////////////////////////////////////
if (obsStateMachine)
{
obsStateMachine->addState(allStates);
obsStateMachine->setAttributes(obsAttribs, obsParams, obsParamsAtribs);
lua_pushnumber(luaL, obsId);
return 1;
}
} // typeObserver != TerraMEObserver::TObsMap)
else
{
QStringList obsParams, obsParamsAtribs; // parametros/atributos da legenda
bool getObserverID = false, isLegend = false;
int obsID = -1;
AgentObserverMap *obsMap = 0;
// Recupera os parametros
lua_pushnil(luaL);
while (lua_next(luaL, top - 1) != 0)
{
// Recupera o ID do observer map
if ((lua_isnumber(luaL, -1) && (!getObserverID)))
{
// obsID = lua_tonumber(luaL, paramTop - 1);
obsID = luaL_checknumber(luaL, -1);
getObserverID = true;
isLegend = true;
}
// recupera o espao celular
if (lua_istable(luaL, -1))
{
int paramTop = lua_gettop(luaL);
lua_pushnil(luaL);
while (lua_next(luaL, paramTop) != 0)
{
if (isudatatype(luaL, -1, "TeCellularSpace"))
{
cellSpace = Luna<luaCellularSpace>::check(L, -1);
}
else
{
if (isLegend)
{
QString key = luaL_checkstring(luaL, -2);
obsParams.push_back(key);
bool boolAux;
double numAux;
QString strAux;
switch (lua_type(luaL, -1))
{
case LUA_TBOOLEAN:
boolAux = lua_toboolean(luaL, -1);
break;
case LUA_TNUMBER:
numAux = luaL_checknumber(luaL, -1);
obsParamsAtribs.push_back(QString::number(numAux));
break;
case LUA_TSTRING:
strAux = luaL_checkstring(luaL, -1);
obsParamsAtribs.push_back(QString(strAux));
break;
default:
break;
}
} // isLegend
}
lua_pop(luaL, 1);
}
}
lua_pop(luaL, 1);
}
QString errorMsg = QString("\nError: The Observer ID \"%1\" was not found. "
"Check the declaration of this observer.\n").arg(obsID);
if (!cellSpace)
qFatal("%s", qPrintable(errorMsg));
QStringList allAttribs, obsAttribs;
// Recupera todos os atributos do agente
// buscando apenas o classe do agente
lua_pushnil(luaL);
while (lua_next(luaL, top) != 0)
{
if (lua_type(luaL, -2) == LUA_TSTRING)
{
QString key;
key = QString(luaL_checkstring(luaL, -2));
if (key == "class")
attrClassName = QString(luaL_checkstring(luaL, -1));
}
lua_pop(luaL, 1);
}
attrClassName.push_front("(");
attrClassName.push_back(")");
if (typeObserver == TObsMap)
{
obsMap =(AgentObserverMap *)cellSpace->getObserver(obsID);
if (!obsMap)
qFatal("%s", qPrintable(errorMsg));
obsMap->registry(this, attrClassName);
}
// Recupera os atributos
lua_pushnil(luaL);
while (lua_next(luaL, top - 2) != 0)
{
QString key = QString(luaL_checkstring(luaL, -1));
if (key == "currentState")
obsAttribs.push_back(key + attrClassName);
else
obsAttribs.push_back(key);
lua_pop(luaL, 1);
}
for (int i = 0; i < obsAttribs.size(); i++)
{
if (!observedAttribs.contains(obsAttribs.at(i)))
observedAttribs.push_back(obsAttribs.at(i));
}
if (typeObserver == TObsMap)
{
// ao definir os valores dos atributos do agente,
// redefino o tipo do atributos na super classe ObserverMap
obsMap->setAttributes(obsAttribs, obsParams, obsParamsAtribs);
obsMap->setSubjectAttributes(obsAttribs, TObsAutomaton, attrClassName);
}
lua_pushnumber(luaL, obsID);
return 1;
}
return 0;
}