/* Check whether message is a control message. If so, execute the control or ignore it if unknown.  */
static int checkcontrol(lua_State *L, const char *message, int tocont)
/* Check whether message is a control message. If so, execute the control or ignore it if unknown.  */
static int checkcontrol(lua_State *L, const char *message, int tocont)
{
    if (strcmp(message, "off") == 0)
      lua_setwarnf(L, warnfoff, L);
    else if (strcmp(message, "on") == 0)
      lua_setwarnf(L, warnfon, L);
    return 1;
  }
}