static char *folder_name(char *filename)
{
static char path[512];
strcpy(path,filename);
wfile_make_absolute(path);
wfile_basepath(path,NULL);
return(path);
}
static int overwrite_fail(char *outname,double overwrite_minsize_mb)
{
double size_mb;
char basepath[512];
char buf[512];
char newname[512];
if (wfile_status(outname)==0)
return(0);
if (overwrite_minsize_mb < 0.)
return(0);
if (k2files_overwrite==1)
return(0);
size_mb = wfile_size(outname)/1024./1024.;
if (size_mb < overwrite_minsize_mb)
return(0);
if (k2files_overwrite==-1)
return(1);
wfile_basepath(basepath,outname);
strcpy(newname,outname);
k2printf("\n\a");
while (1)
{
while (1)
{
#ifdef HAVE_K2GUI
if (k2gui_active())
{
int reply;
reply=k2gui_yes_no_all("File overwrite query","File %s (%.1f MB) already exists! "
"Overwrite it?",newname,size_mb);
if (reply==2)
{
overwrite_set(-1);
return(1);
}
if (reply==3)
overwrite_set(1);
return(0);
}
else
{
#endif
k2printf("File " TTEXT_MAGENTA "%s" TTEXT_NORMAL " (%.1f MB) already exists!\n"
" Overwrite it (y[es]/n[o]/a[ll]/q[uit])? " TTEXT_INPUT,
newname,size_mb);
k2gets(buf,16,"y");
k2printf(TTEXT_NORMAL);
clean_line(buf);
buf[0]=tolower(buf[0]);
#ifdef HAVE_K2GUI
}
#endif
if (buf[0]!='y' && buf[0]!='n' && buf[0]!='a' && buf[0]!='q')
{
k2printf("\a\n ** Must respond with 'y', 'n', 'a', or 'q' **\n\n");
continue;
}
break;
}
if (buf[0]=='q')
return(-1);
if (buf[0]=='a' || buf[0]=='y')
{
if (buf[0]=='a')
overwrite_set(1);
return(0);
}
k2printf("Enter a new output base name (.pdf will be appended, q=quit).\n"
"New name: " TTEXT_INPUT);
k2gets(buf,255,"__out__.pdf");
k2printf(TTEXT_NORMAL);
clean_line(buf);
if (!stricmp(buf,"q"))
return(-1);
if (buf[0]=='/' || buf[0]=='\\' || buf[1]==':')
strcpy(newname,buf);
else
wfile_fullname(newname,basepath,buf);
if (!strcmp(wfile_ext(newname),""))
strcat(newname,".pdf");
if (wfile_status(newname)==0)
break;
}
strcpy(outname,newname);
return(0);
}
