/*
* _int64 to ascii, with commas
*/
void lltoa_comma(char *buf, LONG_LONG value)
{
char tmp[100];
if( value < 0 ) {
sprintf(tmp, "%I64d", -value);
insert_commas(buf+1, tmp);
buf[0] = '-';
} else {
sprintf(tmp, "%I64d", value);
insert_commas(buf, tmp);
}
}
/*
* int to ascii, with commas
*/
void itoa_comma(char *buf, int value)
{
char tmp[100];
if( value < 0 ) {
sprintf(tmp, "%d", -value);
insert_commas(buf+1, tmp);
buf[0] = '-';
} else {
sprintf(tmp, "%d", value);
insert_commas(buf, tmp);
}
}
static void data_col_2 (GtkTreeViewColumn *tree_column, GtkCellRenderer *cell,
GtkTreeModel * model, GtkTreeIter *iter, gpointer data)
{
gftp_file * fle;
char temp[50];
char * text;
gtk_tree_model_get(model, iter, 0, &fle, -1);
text = insert_commas (fle->startsize, temp, sizeof (temp));
g_object_set(cell, "text", text, NULL);
}
RcppExport SEXP ThresholdImage( SEXP r_args )
try
{
std::vector< std::string > args = Rcpp::as< std::vector< std::string > >( r_args ) ;
std::transform( args.begin() , args.end() , args.begin() , process_pointers ) ;
if( insert_commas( args , args.begin() ) )
{
return Rcpp::wrap( 1 ) ;
}
return Rcpp::wrap( ants::ThresholdImage( args , &Rcpp::Rcout ) ) ;
}
catch( const std::exception& exc )
{
Rcpp::Rcout<< exc.what() << std::endl ;
return Rcpp::wrap( 1 ) ;
}
static void
update_window_transfer_bytes (gftp_window_data * wdata)
{
char *tempstr, *temp1str;
if (wdata->request->gotbytes == -1)
{
update_window (wdata);
wdata->request->gotbytes = 0;
}
else
{
tempstr = insert_commas (wdata->request->gotbytes, NULL, 0);
temp1str = g_strdup_printf (_("Retrieving file names...%s bytes"),
tempstr);
gtk_label_set (GTK_LABEL (wdata->hoststxt), temp1str);
g_free (tempstr);
g_free (temp1str);
}
}
static void
_setup_dlstr (gftp_transfer * tdata, gftp_file * fle, char *dlstr,
size_t dlstr_len)
{
int hours, mins, secs, stalled, usesentdescr;
unsigned long remaining_secs, lkbs;
char gotstr[50], ofstr[50];
struct timeval tv;
stalled = 1;
gettimeofday (&tv, NULL);
usesentdescr = (tdata->fromreq->protonum == GFTP_LOCAL_NUM);
insert_commas (fle->size, ofstr, sizeof (ofstr));
insert_commas (tdata->curtrans + tdata->curresumed, gotstr, sizeof (gotstr));
if (tv.tv_sec - tdata->lasttime.tv_sec <= 5)
{
remaining_secs = (fle->size - tdata->curtrans - tdata->curresumed) / 1024;
lkbs = (unsigned long) tdata->kbs;
if (lkbs > 0)
remaining_secs /= lkbs;
hours = remaining_secs / 3600;
remaining_secs -= hours * 3600;
mins = remaining_secs / 60;
remaining_secs -= mins * 60;
secs = remaining_secs;
if (!(hours < 0 || mins < 0 || secs < 0))
{
stalled = 0;
if (usesentdescr)
{
g_snprintf (dlstr, dlstr_len,
_("Sent %s of %s at %.2fKB/s, %02d:%02d:%02d est. time remaining"), gotstr, ofstr, tdata->kbs, hours, mins, secs);
}
else
{
g_snprintf (dlstr, dlstr_len,
_("Recv %s of %s at %.2fKB/s, %02d:%02d:%02d est. time remaining"), gotstr, ofstr, tdata->kbs, hours, mins, secs);
}
}
}
if (stalled)
{
tdata->stalled = 1;
if (usesentdescr)
{
g_snprintf (dlstr, dlstr_len,
_("Sent %s of %s, transfer stalled, unknown time remaining"),
gotstr, ofstr);
}
else
{
g_snprintf (dlstr, dlstr_len,
_("Recv %s of %s, transfer stalled, unknown time remaining"),
gotstr, ofstr);
}
}
}
void
gftpui_ask_transfer (gftp_transfer * tdata)
{
char *dltitles[4], *add_data[4] = { NULL, NULL, NULL, NULL },
tempstr[50], temp1str[50], *pos;
GtkWidget * dialog, * tempwid, * scroll, * hbox;
gftp_file * tempfle;
GList * templist;
size_t len;
int i;
dltitles[0] = _("Filename");
dltitles[1] = tdata->fromreq->hostname;
dltitles[2] = tdata->toreq->hostname;
dltitles[3] = _("Action");
#if GTK_MAJOR_VERSION == 1
dialog = gtk_dialog_new ();
gtk_grab_add (dialog);
gtk_window_set_title (GTK_WINDOW (dialog), _("Transfer Files"));
gtk_container_border_width (GTK_CONTAINER (GTK_DIALOG (dialog)->action_area), 5);
gtk_box_set_spacing (GTK_BOX (GTK_DIALOG (dialog)->action_area), 35);
gtk_box_set_homogeneous (GTK_BOX (GTK_DIALOG (dialog)->action_area), TRUE);
gtk_signal_connect_object (GTK_OBJECT (dialog), "delete_event",
GTK_SIGNAL_FUNC (gtk_widget_destroy),
GTK_OBJECT (dialog));
#else
dialog = gtk_dialog_new_with_buttons (_("Transfer Files"), NULL, 0,
GTK_STOCK_CANCEL,
GTK_RESPONSE_CANCEL,
GTK_STOCK_OK,
GTK_RESPONSE_OK,
NULL);
#endif
gtk_window_set_wmclass (GTK_WINDOW(dialog), "transfer", "gFTP");
gtk_window_set_position (GTK_WINDOW (dialog), GTK_WIN_POS_MOUSE);
gtk_container_border_width (GTK_CONTAINER (GTK_DIALOG (dialog)->vbox), 10);
gtk_box_set_spacing (GTK_BOX (GTK_DIALOG (dialog)->vbox), 5);
tempwid = gtk_label_new (_("The following file(s) exist on both the local and remote computer\nPlease select what you would like to do"));
gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->vbox), tempwid, FALSE,
FALSE, 0);
gtk_widget_show (tempwid);
scroll = gtk_scrolled_window_new (NULL, NULL);
gtk_widget_set_size_request (scroll, 450, 200);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scroll),
GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
tdata->clist = gtk_clist_new_with_titles (4, dltitles);
gtk_container_add (GTK_CONTAINER (scroll), tdata->clist);
#if GTK_MAJOR_VERSION == 1
gtk_clist_set_selection_mode (GTK_CLIST (tdata->clist),
GTK_SELECTION_EXTENDED);
#else
gtk_clist_set_selection_mode (GTK_CLIST (tdata->clist),
GTK_SELECTION_MULTIPLE);
#endif
gtk_clist_set_column_width (GTK_CLIST (tdata->clist), 0, 100);
gtk_clist_set_column_justification (GTK_CLIST (tdata->clist), 1,
GTK_JUSTIFY_RIGHT);
gtk_clist_set_column_width (GTK_CLIST (tdata->clist), 1, 85);
gtk_clist_set_column_justification (GTK_CLIST (tdata->clist), 2,
GTK_JUSTIFY_RIGHT);
gtk_clist_set_column_width (GTK_CLIST (tdata->clist), 2, 85);
gtk_clist_set_column_width (GTK_CLIST (tdata->clist), 3, 85);
gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->vbox), scroll, TRUE, TRUE,
0);
gtk_widget_show (tdata->clist);
gtk_widget_show (scroll);
for (templist = tdata->files; templist != NULL;
templist = templist->next)
{
tempfle = templist->data;
if (tempfle->startsize == 0 || S_ISDIR (tempfle->st_mode))
{
tempfle->shown = 0;
continue;
}
tempfle->shown = 1;
len = strlen (tdata->toreq->directory);
pos = tempfle->destfile;
if (len == 1 && (*tdata->toreq->directory) == '/')
pos++;
if (strncmp (pos, tdata->toreq->directory, len) == 0)
pos += len + 1;
add_data[0] = pos;
gftp_get_transfer_action (tdata->fromreq, tempfle);
switch (tempfle->transfer_action)
{
case GFTP_TRANS_ACTION_OVERWRITE:
add_data[3] = _("Overwrite");
break;
case GFTP_TRANS_ACTION_SKIP:
add_data[3] = _("Skip");
break;
case GFTP_TRANS_ACTION_RESUME:
add_data[3] = _("Resume");
break;
default:
add_data[3] = _("Error");
break;
}
add_data[1] = insert_commas (tempfle->size, tempstr, sizeof (tempstr));
add_data[2] = insert_commas (tempfle->startsize, temp1str,
sizeof (temp1str));
i = gtk_clist_append (GTK_CLIST (tdata->clist), add_data);
gtk_clist_set_row_data (GTK_CLIST (tdata->clist), i, tempfle);
}
gtk_clist_select_all (GTK_CLIST (tdata->clist));
hbox = gtk_hbox_new (TRUE, 20);
gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->vbox), hbox, TRUE, TRUE, 0);
gtk_widget_show (hbox);
tempwid = gtk_button_new_with_label (_("Overwrite"));
gtk_box_pack_start (GTK_BOX (hbox), tempwid, TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_overwrite), (gpointer) tdata);
gtk_widget_show (tempwid);
tempwid = gtk_button_new_with_label (_("Resume"));
gtk_box_pack_start (GTK_BOX (hbox), tempwid, TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_resume), (gpointer) tdata);
gtk_widget_show (tempwid);
tempwid = gtk_button_new_with_label (_("Skip File"));
gtk_box_pack_start (GTK_BOX (hbox), tempwid, TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_skip), (gpointer) tdata);
gtk_widget_show (tempwid);
hbox = gtk_hbox_new (TRUE, 20);
gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->vbox), hbox, TRUE, TRUE, 0);
gtk_widget_show (hbox);
tempwid = gtk_button_new_with_label (_("Select All"));
gtk_box_pack_start (GTK_BOX (hbox), tempwid, TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_trans_selectall), (gpointer) tdata);
gtk_widget_show (tempwid);
tempwid = gtk_button_new_with_label (_("Deselect All"));
gtk_box_pack_start (GTK_BOX (hbox), tempwid, TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_trans_unselectall), (gpointer) tdata);
gtk_widget_show (tempwid);
#if GTK_MAJOR_VERSION == 1
tempwid = gtk_button_new_with_label (_("OK"));
GTK_WIDGET_SET_FLAGS (tempwid, GTK_CAN_DEFAULT);
gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->action_area), tempwid,
TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_ok), (gpointer) tdata);
gtk_signal_connect_object (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gtk_widget_destroy),
GTK_OBJECT (dialog));
gtk_widget_grab_default (tempwid);
gtk_widget_show (tempwid);
tempwid = gtk_button_new_with_label (_(" Cancel "));
GTK_WIDGET_SET_FLAGS (tempwid, GTK_CAN_DEFAULT);
gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->action_area), tempwid,
TRUE, TRUE, 0);
gtk_signal_connect (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gftpui_gtk_cancel), (gpointer) tdata);
gtk_signal_connect_object (GTK_OBJECT (tempwid), "clicked",
GTK_SIGNAL_FUNC (gtk_widget_destroy),
GTK_OBJECT (dialog));
gtk_widget_show (tempwid);
#else
g_signal_connect (GTK_OBJECT (dialog), "response",
G_CALLBACK (gftpui_gtk_transfer_action),(gpointer) tdata);
#endif
gtk_widget_show (dialog);
dialog = NULL;
}
