static int recv_idlist (CalcHandle* handle, uint8_t* id)
{
int ret;
uint16_t unused;
uint16_t varsize;
uint8_t vartype;
char varname[9];
uint8_t varattr;
uint8_t version;
uint8_t data[16];
int i;
ticalcs_strlcpy(handle->updat->text, "ID-LIST", sizeof(handle->updat->text));
ticalcs_update_label(handle);
ret = SEND_REQ(handle, 0x0000, TI73_IDLIST, "\0\0\0\0\0\0\0", 0x00, 0x00);
if (!ret)
{
ret = RECV_ACK(handle, &unused);
if (!ret)
{
ret = RECV_VAR(handle, &varsize, &vartype, varname, &varattr, &version);
if (!ret)
{
ret = SEND_ACK(handle);
if (!ret)
{
ret = SEND_CTS(handle);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
if (!ret)
{
ret = RECV_XDP(handle, &varsize, data);
if (!ret)
{
ret = SEND_ACK(handle);
if (!ret)
{
i = data[9];
data[9] = data[10];
data[10] = i;
for (i = 4; i < varsize; i++)
{
sprintf((char *)&id[2 * (i-4)], "%02x", data[i]);
}
id[7*2] = '\0';
}
}
}
}
}
}
}
}
return ret;
}
static int recv_backup (CalcHandle* handle, BackupContent* content)
{
int ret;
char varname[9];
content->model = handle->model;
ticalcs_strlcpy(content->comment, tifiles_comment_set_backup(), sizeof(content->comment));
if (handle->model == CALC_TI83)
{
ret = SEND_REQ(handle, 0x0000, TI83_BKUP, "\0\0\0\0\0\0\0");
if (!ret)
{
ret = RECV_ACK(handle, NULL);
}
if (ret)
{
return ret;
}
}
else
{
ticalcs_strlcpy(update_->text, _("Waiting for backup..."), sizeof(update_->text));
update_label();
}
varname[0] = 0;
do
{
ret = RECV_VAR(handle, &(content->data_length1), &content->type, varname);
if (ret)
{
break;
}
content->data_length2 = (uint8_t)varname[0] | (((uint16_t)(uint8_t)varname[1]) << 8);
content->data_length3 = (uint8_t)varname[2] | (((uint16_t)(uint8_t)varname[3]) << 8);
if (handle->model != CALC_TI86)
{
content->mem_address = (uint8_t)varname[4] | (((uint16_t)(uint8_t)varname[5]) << 8);
}
else
{
content->data_length4 = (uint8_t)varname[4] | (((uint16_t)(uint8_t)varname[5]) << 8);
}
ret = SEND_ACK(handle);
if (!ret)
{
ret = SEND_CTS(handle);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
}
}
if (ret)
{
break;
}
update_->text[0] = 0;
update_label();
update_->cnt2 = 0;
update_->max2 = (handle->model != CALC_TI86) ? 3 : 4;
update_->pbar();
content->data_part1 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length1, content->data_part1);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
update_->cnt2++;
update_->pbar();
content->data_part2 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length2, content->data_part2);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
update_->cnt2++;
update_->pbar();
if (content->data_length3)
{
content->data_part3 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length3, content->data_part3);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
}
else
{
content->data_part3 = NULL;
}
update_->cnt2++;
update_->pbar();
if (handle->model != CALC_TI86)
{
content->data_part4 = NULL;
}
else
{
content->data_part4 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length4, content->data_part4);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
update_->cnt2++;
update_->pbar();
}
} while(0);
return ret;
}
static int get_dirlist (CalcHandle* handle, GNode** vars, GNode** apps)
{
int ret;
uint16_t unused;
TreeInfo *ti;
GNode *folder, *node;
char *utf8;
ret = dirlist_init_trees(handle, vars, apps);
if (ret)
{
return ret;
}
ti = (*vars)->data;
ret = SEND_REQ(handle, 0x0000, (handle->model == CALC_TI83) ? TI83_DIR : TI86_DIR, "\0\0\0\0\0\0\0");
if (!ret)
{
ret = RECV_ACK(handle, &unused);
if (!ret)
{
ret = RECV_XDP(handle, &unused, handle->buffer2);
if (!ret)
{
ret = SEND_ACK(handle);
}
}
}
if (!ret)
{
VarEntry *ve;
uint8_t * mem = (uint8_t *)handle->buffer2;
folder = dirlist_create_append_node(NULL, vars);
if (handle->model == CALC_TI83)
{
ti->mem_free = (((uint32_t)(mem[1])) << 8) | mem[0]; // Clamp mem_free to a 16-bit value.
// Add permanent variables (Window, RclWindow, TblSet aka WINDW, ZSTO, TABLE)
ve = tifiles_ve_create();
ve->type = TI83_WINDW;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI83_ZSTO;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI83_TABLE;
node = dirlist_create_append_node(ve, &folder);
}
}
}
else
{
ti->mem_free = (((uint32_t)(mem[0])) << 16) | (((uint32_t)(mem[1])) << 8) | mem[2];
// Add permanent variables (Func, Pol, Param, DifEq, ZRCL as WIND, WIND, WIND, WIND, WIND)
ve = tifiles_ve_create();
ve->type = TI86_FUNC;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI86_POL;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI86_PARAM;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI86_DIFEQ;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI86_ZRCL;
node = dirlist_create_append_node(ve, &folder);
}
}
}
}
}
if (!node)
{
ret = ERR_MALLOC;
}
else
{
for (;;)
{
uint16_t ve_size;
int ret2;
ve = tifiles_ve_create();
ret = RECV_VAR(handle, &ve_size, &ve->type, ve->name);
ve->size = ve_size;
ret2 = SEND_ACK(handle);
if (ret)
{
if (ret == ERR_EOT) // end of transmission
{
ret = 0;
}
error:
tifiles_ve_delete(ve);
break;
}
if (ret2)
{
ret = ret2;
goto error;
}
node = dirlist_create_append_node(ve, &folder);
if (!node)
{
return ERR_MALLOC;
}
utf8 = ticonv_varname_to_utf8(handle->model, ve->name, ve->type);
ticalcs_slprintf(update_->text, sizeof(update_->text), _("Parsing %s"), utf8);
ticonv_utf8_free(utf8);
update_label();
}
}
}
return ret;
}
static int recv_var_ns (CalcHandle* handle, CalcMode mode, FileContent* content, VarEntry** vr)
{
int nvar = 0;
int ret = 0;
uint16_t ve_size;
ticalcs_strlcpy(update_->text, _("Waiting for var(s)..."), sizeof(update_->text));
update_label();
content->model = handle->model;
content->num_entries = 0;
for (nvar = 0;; nvar++)
{
VarEntry *ve = tifiles_ve_create();
int ret2;
do
{
update_refresh();
if (update_->cancel)
{
ret = ERR_ABORT;
goto error;
}
ret = RECV_VAR(handle, &ve_size, &(ve->type), ve->name);
ve->size = ve_size;
}
while (ret == ERROR_READ_TIMEOUT);
ret2 = SEND_ACK(handle);
if (ret)
{
if (ret == ERR_EOT) // end of transmission
{
ret = 0;
}
goto error;
}
if (ret2)
{
ret = ret2;
goto error;
}
ret = SEND_CTS(handle);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
if (!ret)
{
ticonv_varname_to_utf8_sn(handle->model, ve->name, update_->text, sizeof(update_->text), ve->type);
update_label();
ve->data = tifiles_ve_alloc_data(ve->size);
ret = RECV_XDP(handle, &ve_size, ve->data);
if (!ret)
{
ve->size = ve_size;
ret = SEND_ACK(handle);
}
}
}
if (!ret)
{
tifiles_content_add_entry(content, ve);
}
else
{
error:
tifiles_ve_delete(ve);
break;
}
}
if (nvar == 1)
{
ticalcs_strlcpy(content->comment, tifiles_comment_set_single(), sizeof(content->comment));
*vr = tifiles_ve_dup(content->entries[0]);
}
else
{
ticalcs_strlcpy(content->comment, tifiles_comment_set_group(), sizeof(content->comment));
*vr = NULL;
}
return ret;
}
static int recv_var (CalcHandle* handle, CalcMode mode, FileContent* content, VarRequest* vr)
{
int ret;
uint16_t unused;
VarEntry *ve;
uint16_t ve_size;
content->model = handle->model;
ticalcs_strlcpy(content->comment, tifiles_comment_set_single(), sizeof(content->comment));
content->num_entries = 1;
content->entries = tifiles_ve_create_array(1);
ve = content->entries[0] = tifiles_ve_create();
memcpy(ve, vr, sizeof(VarEntry));
ticonv_varname_to_utf8_sn(handle->model, vr->name, update_->text, sizeof(update_->text), vr->type);
update_label();
do
{
// silent request
ret = SEND_REQ(handle, (uint16_t)vr->size, vr->type, vr->name);
if (!ret)
{
ret = RECV_ACK(handle, &unused);
if (!ret)
{
ret = RECV_VAR(handle, &ve_size, &ve->type, ve->name);
}
}
if (ret)
{
break;
}
ve->size = ve_size;
ret = SEND_ACK(handle);
if (!ret)
{
ret = SEND_CTS(handle);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
}
}
if (ret)
{
break;
}
ve->data = tifiles_ve_alloc_data(ve->size);
ret = RECV_XDP(handle, &ve_size, ve->data);
if (!ret)
{
ve->size = ve_size;
ret = SEND_ACK(handle);
}
} while(0);
return ret;
}
static int recv_backup (CalcHandle* handle, BackupContent* content)
{
int ret;
char varname[9];
uint8_t attr, ver;
content->model = handle->model;
ticalcs_strlcpy(content->comment, tifiles_comment_set_backup(), sizeof(content->comment));
varname[0] = 0;
ret = SEND_REQ(handle, 0x0000, TI73_BKUP, "\0\0\0\0\0\0\0", 0x00, 0x00);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
}
if (ret)
{
return ret;
}
do
{
ret = RECV_VAR(handle, &content->data_length1, &content->type, varname, &attr, &ver);
if (ret)
{
break;
}
content->data_length2 = (uint8_t)varname[0] | (((uint16_t)(uint8_t)varname[1]) << 8);
content->data_length3 = (uint8_t)varname[2] | (((uint16_t)(uint8_t)varname[3]) << 8);
content->mem_address = (uint8_t)varname[4] | (((uint16_t)(uint8_t)varname[5]) << 8);
content->version = ver;
ret = SEND_ACK(handle);
if (!ret)
{
ret = SEND_CTS(handle);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
}
}
if (ret)
{
break;
}
handle->updat->cnt2 = 0;
handle->updat->max2 = 3;
ticalcs_update_pbar(handle);
content->data_part1 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length1, content->data_part1);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
handle->updat->cnt2++;
ticalcs_update_pbar(handle);
content->data_part2 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length2, content->data_part2);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
handle->updat->cnt2++;
ticalcs_update_pbar(handle);
content->data_part3 = tifiles_ve_alloc_data(65536);
ret = RECV_XDP(handle, &content->data_length3, content->data_part3);
if (!ret)
{
ret = SEND_ACK(handle);
}
if (ret)
{
break;
}
handle->updat->cnt2++;
ticalcs_update_pbar(handle);
content->data_part4 = NULL;
} while(0);
return ret;
}
static int get_dirlist (CalcHandle* handle, GNode** vars, GNode** apps)
{
int ret;
TreeInfo *ti;
GNode *folder, *root, *node;
uint16_t unused;
uint32_t memory;
char *utf8;
ret = dirlist_init_trees(handle, vars, apps);
if (ret)
{
return ret;
}
ti = (*vars)->data;
ret = SEND_REQ(handle, 0x0000, TI73_DIR, "\0\0\0\0\0\0\0", 0x00, 0x00);
if (!ret)
{
ret = RECV_ACK(handle, &unused);
if (!ret)
{
ret = RECV_XDP(handle, &unused, handle->buffer2);
if (!ret)
{
ret = SEND_ACK(handle);
if (!ret)
{
uint8_t * mem = (uint8_t *)handle->buffer2;
memory = (((uint32_t)(mem[1])) << 8) | mem[0]; // Clamp mem_free to a 16-bit value.
}
}
}
}
if (ret)
{
return ret;
}
ti->mem_free = memory;
folder = dirlist_create_append_node(NULL, vars);
if (!folder)
{
return ERR_MALLOC;
}
root = dirlist_create_append_node(NULL, apps);
if (!root)
{
return ERR_MALLOC;
}
// Add permanent variables (Window, RclWindow, TblSet aka WINDW, ZSTO, TABLE)
{
VarEntry *ve;
ve = tifiles_ve_create();
ve->type = TI84p_WINDW;
node = dirlist_create_append_node(ve, &folder);
if (node != NULL)
{
if (handle->model != CALC_TI73)
{
ve = tifiles_ve_create();
ve->type = TI84p_ZSTO;
node = dirlist_create_append_node(ve, &folder);
}
if (node != NULL)
{
ve = tifiles_ve_create();
ve->type = TI84p_TABLE;
node = dirlist_create_append_node(ve, &folder);
}
}
}
if (!node)
{
return ERR_MALLOC;
}
for (;;)
{
VarEntry *ve = tifiles_ve_create();
uint16_t ve_size;
int ret2;
ret = RECV_VAR(handle, &ve_size, &ve->type, ve->name, &ve->attr, &ve->version);
ve->size = ve_size;
ret2 = SEND_ACK(handle);
if (ret)
{
if (ret == ERR_EOT)
{
ret = 0;
}
error:
tifiles_ve_delete(ve);
break;
}
if (ret2)
{
ret = ret2;
goto error;
}
if (ve->type == TI73_APPL)
{
/* Size is reported as a number of pages -- compute amount
of space consumed (the actual application may be
somewhat smaller.) Note: the MSB of the "size" word is
the application's starting page number. */
ve->size = (ve->size & 0xff) * 0x4000;
}
node = dirlist_create_append_node(ve, (ve->type != TI73_APPL) ? &folder : &root);
if (!node)
{
return ERR_MALLOC;
}
utf8 = ticonv_varname_to_utf8(handle->model, ve->name, ve->type);
ticalcs_slprintf(handle->updat->text, sizeof(handle->updat->text), _("Parsing %s"), utf8);
ticonv_utf8_free(utf8);
ticalcs_update_label(handle);
}
return ret;
}
static int get_clock (CalcHandle* handle, CalcClock* _clock)
{
int ret;
uint16_t varsize;
uint8_t vartype;
uint8_t varattr;
uint8_t version;
char varname[9];
uint8_t * buffer = handle->buffer2;
uint32_t calc_time;
struct tm ref, *cur;
time_t r, c, now;
ticalcs_strlcpy(handle->updat->text, _("Getting clock..."), sizeof(handle->updat->text));
ticalcs_update_label(handle);
ret = SEND_REQ(handle, 0x0000, TI73_CLK, "\0x08\0\0\0\0\0\0\0", 0x00, 0x00);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
if (!ret)
{
ret = RECV_VAR(handle, &varsize, &vartype, varname, &varattr, &version);
if (!ret)
{
ret = SEND_ACK(handle);
if (!ret)
{
ret = SEND_CTS(handle);
if (!ret)
{
ret = RECV_ACK(handle, NULL);
if (!ret)
{
ret = RECV_XDP(handle, &varsize, buffer);
if (!ret)
{
ret = SEND_ACK(handle);
}
}
}
}
}
}
}
if (!ret)
{
calc_time = (((uint32_t)(buffer[2])) << 24) | (((uint32_t)(buffer[3])) << 16) | (((uint32_t)(buffer[4])) << 8) | (uint32_t)(buffer[5]);
//printf("<%08x>\n", time);
time(&now); // retrieve current DST setting
memcpy(&ref, localtime(&now), sizeof(struct tm));;
ref.tm_year = 1997 - 1900;
ref.tm_mon = 0;
ref.tm_yday = 0;
ref.tm_mday = 1;
ref.tm_wday = 3;
ref.tm_hour = 0;
ref.tm_min = 0;
ref.tm_sec = 0;
//ref.tm_isdst = 1;
r = mktime(&ref);
//printf("%s\n", asctime(&ref));
c = r + calc_time;
cur = localtime(&c);
//printf("%s\n", asctime(cur));
_clock->year = cur->tm_year + 1900;
_clock->month = cur->tm_mon + 1;
_clock->day = cur->tm_mday;
_clock->hours = cur->tm_hour;
_clock->minutes = cur->tm_min;
_clock->seconds = cur->tm_sec;
_clock->date_format = buffer[6];
_clock->time_format = buffer[7];
}
return ret;
}
