int32 scriptlib::check_param(lua_State* L, int32 param_type, int32 index, int32 retfalse) {
switch (param_type) {
case PARAM_TYPE_CARD: {
int32 result = FALSE;
if(lua_isuserdata(L, index) && lua_getmetatable(L, index)) {
result = check_data_type(L, -1, "Card");
lua_pop(L, 1);
}
if(result)
return TRUE;
if(retfalse)
return FALSE;
luaL_error(L, "Parameter %d should be \"Card\".", index);
break;
}
case PARAM_TYPE_GROUP: {
if(lua_isuserdata(L, index) && check_data_type(L, index, "Group"))
return TRUE;
if(retfalse)
return FALSE;
luaL_error(L, "Parameter %d should be \"Group\".", index);
break;
}
case PARAM_TYPE_EFFECT: {
if(lua_isuserdata(L, index) && check_data_type(L, index, "Effect"))
return TRUE;
if(retfalse)
return FALSE;
luaL_error(L, "Parameter %d should be \"Effect\".", index);
break;
}
case PARAM_TYPE_FUNCTION: {
if(lua_isfunction(L, index))
return TRUE;
if(retfalse)
return FALSE;
luaL_error(L, "Parameter %d should be \"Function\".", index);
break;
}
case PARAM_TYPE_STRING: {
if(lua_isstring(L, index))
return TRUE;
if(retfalse)
return FALSE;
luaL_error(L, "Parameter %d should be \"String\".", index);
break;
}
}
return FALSE;
}
bool updateValue(UPDATEQUERYPARSE *& query, string lexeme, string token, vector<vector<string> >& tables)
{
DATA * temp = query->column_value;
while (temp->next != NULL)
temp = temp->next;
if (token == "T_INT" && check_data_type(tables[0][0].c_str(), (*static_cast <string *>(temp->data)), "int"))
{
int val;
istringstream ss(lexeme);
ss >> val;
DATA * newData;
newData = new DATA("int", new int(val));
newData->data2 = NULL;
temp->down = newData;
return true;
}
void VirtualTable::Row::write_number64(Uint64 val) {
DBUG_ENTER("write_number64");
DBUG_PRINT("enter", ("val: %llu", val));
assert(check_data_type(NdbInfo::Column::Number64));
const unsigned col_idx = m_col_counter++;
if (!m_owner->m_recAttrs.is_requested(col_idx))
DBUG_VOID_RETURN;
const size_t clen = sizeof(Uint64);
if (!check_buffer_space(clen))
return;
// setup recAttr
m_owner->m_recAttrs.set_recattr(col_idx, m_curr, clen);
// copy value to buffer
memcpy(m_curr, &val, clen);
m_curr+=clen;
DBUG_VOID_RETURN;
}
void VirtualTable::Row::write_string(const char* str)
{
DBUG_ENTER("write_string");
DBUG_PRINT("enter", ("str: %s", str));
assert(check_data_type(NdbInfo::Column::String));
const unsigned col_idx = m_col_counter++;
if (!m_owner->m_recAttrs.is_requested(col_idx))
DBUG_VOID_RETURN;
const size_t clen = strlen(str) + 1; // length including terminator
if (!check_buffer_space(clen))
return;
// setup RecAttr
m_owner->m_recAttrs.set_recattr(col_idx, m_curr, clen);
// copy string to buffer
memcpy(m_curr, str, clen);
m_curr+=clen;
DBUG_VOID_RETURN;
}
/**
* ti9x_file_read_flash:
* @filename: name of flash file to open.
* @content: where to store the file content.
*
* Load the flash file into a #FlashContent structure.
*
* Structure content must be freed with #tifiles_content_delete_flash when
* no longer used. If error occurs, the structure content is released for you.
*
* Return value: an error code, 0 otherwise.
**/
int ti9x_file_read_flash(const char *filename, Ti9xFlash *head)
{
FILE *f;
Ti9xFlash *content = head;
long cur_pos = 0;
int tib = 0;
char signature[9];
int ret = ERR_FILE_IO;
if (head == NULL)
{
tifiles_critical("%s: an argument is NULL", __FUNCTION__);
return ERR_INVALID_FILE;
}
if (!tifiles_file_is_flash(filename) && !tifiles_file_is_tib(filename))
{
ret = ERR_INVALID_FILE;
goto tfrf2;
}
// detect file type (old or new format)
tib = tifiles_file_is_tib(filename);
f = g_fopen(filename, "rb");
if (f == NULL)
{
tifiles_info("Unable to open this file: %s", filename);
ret = ERR_FILE_OPEN;
goto tfrf2;
}
if (fseek(f, 0, SEEK_END)) goto tfrf;
cur_pos = ftell(f);
if (cur_pos < 0) goto tfrf;
if (fseek(f, 0, SEEK_SET)) goto tfrf;
// The TI-68k series' members have at best 4 MB of Flash.
// TIB files larger than that size are insane.
if (cur_pos >= (4L << 20))
{
ret = ERR_INVALID_FILE;
goto tfrf;
}
if (tib)
{
// tib is an old format but mainly used by developers
memset(content, 0, sizeof(Ti9xFlash));
content->data_length = (uint32_t)cur_pos;
strncpy(content->name, "basecode", sizeof(content->name) - 1);
content->name[sizeof(content->name) - 1] = 0;
content->data_type = 0x23; // FLASH os
content->data_part = (uint8_t *)g_malloc0(content->data_length);
if (content->data_part == NULL)
{
ret = ERR_MALLOC;
goto tfrf;
}
if (fread(content->data_part, 1, content->data_length, f) < content->data_length) goto tfrf;
switch(content->data_part[8])
{
case 1: content->device_type = DEVICE_TYPE_92P; break; // TI92+
case 3: content->device_type = DEVICE_TYPE_89; break; // TI89
// value added by the TI community according to HWID parameter
// doesn't have any 'legal' existence.
case 8: content->device_type = DEVICE_TYPE_92P; break; // V200PLT
case 9: content->device_type = DEVICE_TYPE_89; break; // Titanium
}
content->next = NULL;
}
else
{
for (content = head;; content = content->next)
{
if (fread_8_chars(f, signature) < 0) goto tfrf;
content->model = tifiles_file_get_model(filename);
if (fread_byte(f, &(content->revision_major)) < 0) goto tfrf;
if (fread_byte(f, &(content->revision_minor)) < 0) goto tfrf;
if (fread_byte(f, &(content->flags)) < 0) goto tfrf;
if (fread_byte(f, &(content->object_type)) < 0) goto tfrf;
if (fread_byte(f, &(content->revision_day)) < 0) goto tfrf;
if (fread_byte(f, &(content->revision_month)) < 0) goto tfrf;
if (fread_word(f, &(content->revision_year)) < 0) goto tfrf;
if (fskip(f, 1) < 0) goto tfrf;
if (fread_8_chars(f, content->name) < 0) goto tfrf;
if (fskip(f, 23) < 0) goto tfrf;
if (fread_byte(f, &(content->device_type)) < 0) goto tfrf;
if (fread_byte(f, &(content->data_type)) < 0) goto tfrf;
if (fskip(f, 23) < 0) goto tfrf;
if (fread_byte(f, &(content->hw_id)) < 0) goto tfrf;
if (fread_long(f, &(content->data_length)) < 0) goto tfrf;
if (content->data_type != TI89_LICENSE && !check_device_type(content->device_type))
{
ret = ERR_INVALID_FILE;
goto tfrf;
}
if (!check_data_type(content->data_type))
{
ret = ERR_INVALID_FILE;
goto tfrf;
}
// TODO: modify this code if TI ever makes a TI-eZ80 model with more than 4 MB of Flash memory...
if (content->data_length > 4U * 1024 * 1024 - 65536U)
{
// Data length larger than Flash memory size - boot code sector size doesn't look right.
ret = ERR_INVALID_FILE;
goto tfrf;
}
content->data_part = (uint8_t *)g_malloc0(content->data_length);
if (content->data_part == NULL)
{
ret = ERR_MALLOC;
goto tfrf;
}
if (fread(content->data_part, 1, content->data_length, f) < content->data_length) goto tfrf;
if ( (content->data_type == TI83p_AMS && content->data_part[0] != 0x80)
|| (content->data_type == TI83p_APPL && content->data_part[0] != 0x81))
{
ret = ERR_INVALID_FILE;
goto tfrf;
}
content->next = NULL;
// check for end of file
if (fread_8_chars(f, signature) < 0)
{
break;
}
if (strcmp(signature, "**TIFL**") || feof(f))
{
break;
}
if (fseek(f, -8, SEEK_CUR)) goto tfrf;
content->next = (Ti9xFlash *)g_malloc0(sizeof(Ti9xFlash));
if (content->next == NULL)
{
ret = ERR_MALLOC;
goto tfrf;
}
}
}
fclose(f);
return 0;
tfrf: // release on exit
tifiles_critical("%s: error reading / understanding file %s", __FUNCTION__, filename);
fclose(f);
tfrf2:
tifiles_content_delete_flash(content);
return ret;
}
/**
* ti9x_file_read_flash:
* @filename: name of flash file to open.
* @content: where to store the file content.
*
* Load the flash file into a #FlashContent structure.
*
* Structure content must be freed with #tifiles_content_delete_flash when
* no longer used. If error occurs, the structure content is released for you.
*
* Return value: an error code, 0 otherwise.
**/
int ti9x_file_read_flash(const char *filename, Ti9xFlash *head)
{
FILE *f;
Ti9xFlash *content = head;
int tib = 0;
char signature[9];
if (!tifiles_file_is_flash(filename) && !tifiles_file_is_tib(filename))
{
return ERR_INVALID_FILE;
}
if (head == NULL)
{
tifiles_critical("%s: an argument is NULL", __FUNCTION__);
return ERR_INVALID_FILE;
}
// detect file type (old or new format)
tib = tifiles_file_is_tib(filename);
f = g_fopen(filename, "rb");
if (f == NULL)
{
tifiles_info("Unable to open this file: %s\n", filename);
return ERR_FILE_OPEN;
}
if (tib)
{ // tib is an old format but mainly used by developers
memset(content, 0, sizeof(Ti9xFlash));
if(fseek(f, 0, SEEK_END)) goto tfrf;
content->data_length = (uint32_t) ftell(f);
if(fseek(f, 0, SEEK_SET)) goto tfrf;
strcpy(content->name, "basecode");
content->data_type = 0x23; // FLASH os
content->data_part = (uint8_t *)g_malloc0(content->data_length);
if (content->data_part == NULL)
{
fclose(f);
return ERR_MALLOC;
}
if(fread(content->data_part, 1, content->data_length, f) < content->data_length) goto tfrf;
switch(content->data_part[8])
{
case 1: content->device_type = DEVICE_TYPE_92P; break; // TI92+
case 3: content->device_type = DEVICE_TYPE_89; break; // TI89
// value added by the TI community according to HWID parameter
// doesn't have any 'legal' existence.
case 8: content->device_type = DEVICE_TYPE_92P; break; // V200PLT
case 9: content->device_type = DEVICE_TYPE_89; break; // Titanium
}
content->next = NULL;
}
else
{
for (content = head;; content = content->next)
{
if(fread_8_chars(f, signature) < 0) goto tfrf;
content->model = tifiles_file_get_model(filename);
if(fread_byte(f, &(content->revision_major)) < 0) goto tfrf;
if(fread_byte(f, &(content->revision_minor)) < 0) goto tfrf;
if(fread_byte(f, &(content->flags)) < 0) goto tfrf;
if(fread_byte(f, &(content->object_type)) < 0) goto tfrf;
if(fread_byte(f, &(content->revision_day)) < 0) goto tfrf;
if(fread_byte(f, &(content->revision_month)) < 0) goto tfrf;
if(fread_word(f, &(content->revision_year)) < 0) goto tfrf;
if(fskip(f, 1) < 0) goto tfrf;
if(fread_8_chars(f, content->name) < 0) goto tfrf;
if(fskip(f, 23) < 0) goto tfrf;
if(fread_byte(f, &(content->device_type)) < 0) goto tfrf;
if(fread_byte(f, &(content->data_type)) < 0) goto tfrf;
if(fskip(f, 23) < 0) goto tfrf;
if(fread_byte(f, &(content->hw_id)) < 0) goto tfrf;
if(fread_long(f, &(content->data_length)) < 0) goto tfrf;
if(content->data_type != TI89_LICENSE && !check_device_type(content->device_type))
{
return ERR_INVALID_FILE;
}
if(!check_data_type(content->data_type))
{
return ERR_INVALID_FILE;
}
content->data_part = (uint8_t *)g_malloc0(content->data_length);
if (content->data_part == NULL)
{
fclose(f);
tifiles_content_delete_flash(content);
return ERR_MALLOC;
}
if(fread(content->data_part, 1, content->data_length, f) < content->data_length) goto tfrf;
content->next = NULL;
// check for end of file
if(fread_8_chars(f, signature) < 0)
{
break;
}
if(strcmp(signature, "**TIFL**") || feof(f))
{
break;
}
if(fseek(f, -8, SEEK_CUR)) goto tfrf;
content->next = (Ti9xFlash *)g_malloc0(sizeof(Ti9xFlash));
if (content->next == NULL)
{
fclose(f);
tifiles_content_delete_flash(content);
return ERR_MALLOC;
}
}
}
fclose(f);
return 0;
tfrf: // release on exit
tifiles_critical("%s: error reading / understanding file %s", __FUNCTION__, filename);
fclose(f);
tifiles_content_delete_flash(content);
return ERR_FILE_IO;
}
