supporto per cancellazione di gruppi di file
git-svn-id: svn://10.65.10.50/branches/R_10_00@22993 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
cabf66ad4e
commit
3ad7d27b0d
@ -375,6 +375,20 @@ const char* TApplication::get_module_name() const
|
||||
return module;
|
||||
}
|
||||
|
||||
void TApplication::set_title(const char* t)
|
||||
{
|
||||
if (_title != t)
|
||||
{
|
||||
_title = t;
|
||||
if (is_running())
|
||||
{
|
||||
xvt_dwin_invalidate_rect(TASK_WIN, NULL);
|
||||
xvtil_statbar_set("");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
void TApplication::set_perms()
|
||||
{
|
||||
@ -697,6 +711,7 @@ void TApplication::open_files(int logicnum, ...)
|
||||
_used_files.add(new TLocalisamfile(logicnum), logicnum);
|
||||
logicnum = va_arg(marker, int);
|
||||
}
|
||||
va_end(marker);
|
||||
}
|
||||
|
||||
bool TApplication::get_spotlite_path(TFilename& path) const
|
||||
|
||||
@ -159,8 +159,8 @@ public:
|
||||
{ return _argc_; }
|
||||
|
||||
// @cmember Setta il titolo da assegnare all'applicazione
|
||||
void set_title(const char* t)
|
||||
{ _title = t; }
|
||||
void set_title(const char* t);
|
||||
|
||||
// @cmember Ritorna il titolo da assegnare all'applicazione
|
||||
const TString& title() const
|
||||
{ return _title; }
|
||||
|
||||
@ -218,7 +218,7 @@ bool __trace(
|
||||
{
|
||||
static FILE* f = NULL;
|
||||
if (f == NULL)
|
||||
f = fopen("trace.log", "w");
|
||||
fopen_s(&f, "trace.log", "w");
|
||||
if (f != NULL)
|
||||
{
|
||||
buildmsg();
|
||||
|
||||
@ -619,7 +619,7 @@ int DB_packfile(short vis, const char* filename, long eod)
|
||||
char s[_MAX_PATH];
|
||||
strcpy(s,"Compattamento ");
|
||||
strcat(s, filename);
|
||||
progind_create(1,s,0,0,60);
|
||||
progind_create(1,s,FALSE,FALSE);
|
||||
}
|
||||
rc = d4recCount(dbdata[handle]);
|
||||
if (eod < rc)
|
||||
@ -652,7 +652,7 @@ int DB_packmemo(short vis, const char * filename)
|
||||
char s[256];
|
||||
strcpy(s, "Compattamento memo file : ");
|
||||
strcat(s, filename);
|
||||
progind_create(100L,s,0,0,60);
|
||||
progind_create(100L,s,FALSE,FALSE);
|
||||
}
|
||||
rt=d4memoCompress(dbdata[handle]);
|
||||
if (vis)
|
||||
@ -686,16 +686,17 @@ static int DB_clean_file(int handle, const char* filename,
|
||||
memset(tags, 0, sizeof(tags));
|
||||
do_key(tagname, r, tags, 1);
|
||||
strcat((char *) tags[0].expression, "+STR(RECNO(),9)");
|
||||
w = i4create(dbdata[handle],(char*)filename,tags);
|
||||
w = i4create(dbdata[handle],(char*)filename,tags); // non "production" index ???
|
||||
u4free((char *) tags[0].name);
|
||||
u4free((char *) tags[0].expression);
|
||||
u4free((char *) tags[0].filter);
|
||||
if (w == NULL) return code_base.errorCode;
|
||||
if (w == NULL)
|
||||
return code_base.errorCode;
|
||||
t = d4tagDefault(dbdata[handle]);
|
||||
lt = expr4len(t->tagFile->expr);
|
||||
l = lt - 9;
|
||||
if (vis)
|
||||
progind_create(items,"Ricerca record duplicati",0,1,60);
|
||||
progind_create(items,"Ricerca record duplicati",FALSE,FALSE);
|
||||
|
||||
rt = tfile4bottom(t->tagFile);
|
||||
|
||||
@ -737,52 +738,62 @@ static int DB_yesnobox(const char* msg)
|
||||
int DB_packindex(short vis, const char* filename, const RecDes *r, long *peod, bool ask)
|
||||
{
|
||||
int handle = 0, rt = 0;
|
||||
char s[256];
|
||||
strcpy(s,"Ricostruzione indici file : ");
|
||||
strcat(s,filename);
|
||||
|
||||
code_base.autoOpen=0 ;
|
||||
code_base.autoOpen = 0;
|
||||
|
||||
handle=DB_open(filename,1,0); /* Exclusive mode open */
|
||||
if (handle >= 0)
|
||||
{
|
||||
TAG4INFO tags[MaxKeys+1];
|
||||
TAG4INFO tags[MaxKeys+1];
|
||||
INDEX4 * w = NULL;
|
||||
int i = 0;
|
||||
const char *ff = find_slash_backslash(filename);
|
||||
if (vis)
|
||||
progind_create(1,s,0,1,60);
|
||||
if ((ff == NULL) || *ff == '\0')
|
||||
if (ff == NULL || *ff == '\0')
|
||||
ff = (const char*)filename;
|
||||
else
|
||||
ff++;
|
||||
memset(tags, 0, sizeof(tags));
|
||||
do_key(ff, r, tags, r->NKeys);
|
||||
|
||||
w = i4create(dbdata[handle],NULL,tags);
|
||||
|
||||
if (vis)
|
||||
progind_destroy();
|
||||
{
|
||||
char s[_MAX_PATH+32]; sprintf(s,"Creazione di %d indici su %s", (int)r->NKeys, ff);
|
||||
progind_create(1, s, FALSE, FALSE); // No bar
|
||||
}
|
||||
|
||||
w = i4create(dbdata[handle],NULL,tags); // NULL filename -> "production" index
|
||||
if (w == NULL)
|
||||
rt = code_base.errorCode;
|
||||
|
||||
if (vis) progind_destroy();
|
||||
|
||||
if (rt == e4unique || rt == r4unique)
|
||||
{
|
||||
rt = 0;
|
||||
if (!ask || DB_yesnobox("Sono stati rilevati alcuni records duplicati:\nsi desidera eliminarli?"))
|
||||
{
|
||||
if (vis)
|
||||
{
|
||||
char s[_MAX_PATH+32]; strcpy(s,"Rimozione duplicati "); strcat(s, ff);
|
||||
progind_create(1, s, FALSE, FALSE); // No bar
|
||||
}
|
||||
rt = DB_clean_file(handle, filename, ff, r, vis);
|
||||
if (vis) progind_destroy();
|
||||
}
|
||||
else
|
||||
tags[0].unique = r4unique_continue;
|
||||
if (rt == 0)
|
||||
{
|
||||
if (vis)
|
||||
progind_create((long)r->NKeys,s,0,1,60);
|
||||
w = i4create(dbdata[handle],filename,tags);
|
||||
if (w == NULL) rt = code_base.errorCode;
|
||||
if (vis)
|
||||
{
|
||||
progind_set_status((long)r->NKeys);
|
||||
progind_destroy();
|
||||
char s[_MAX_PATH+32]; sprintf(s,"Creazione di %d indici su %s", (int)r->NKeys, ff);
|
||||
progind_create(1, s, FALSE, FALSE); // no bar
|
||||
}
|
||||
// w = i4create(dbdata[handle],filename,tags);
|
||||
w = i4create(dbdata[handle], NULL ,tags); // NULL filename -> "production" index 6/8/2014
|
||||
if (w == NULL)
|
||||
rt = code_base.errorCode;
|
||||
if (vis) progind_destroy();
|
||||
}
|
||||
}
|
||||
for (i=0; i < r->NKeys && tags[i].name; i++)
|
||||
@ -796,13 +807,17 @@ int DB_packindex(short vis, const char* filename, const RecDes *r, long *peod, b
|
||||
}
|
||||
code_base.autoOpen = 1;
|
||||
|
||||
|
||||
#ifdef DBG
|
||||
strcpy(s, filename);
|
||||
strcat(s, ".cdx");
|
||||
if (xvt_fsys_file_attr(s, XVT_FILE_ATTR_SIZE) == 0)
|
||||
{
|
||||
strcat(s, " e' appena stato sputtanato!");
|
||||
xvt_dm_post_error(s);
|
||||
char s[_MAX_PATH+20];
|
||||
strcpy(s, filename);
|
||||
strcat(s, ".cdx");
|
||||
if (xvt_fsys_file_attr(s, XVT_FILE_ATTR_SIZE) == 0)
|
||||
{
|
||||
strcat(s, " e' stato compromesso!");
|
||||
xvt_dm_post_error(s);
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
@ -520,6 +520,23 @@ bool TDongle::login(bool test_all_keys)
|
||||
}
|
||||
}
|
||||
|
||||
if (!ok && hw == _dongle_ssa)
|
||||
{
|
||||
TString_array ssa;
|
||||
const int n = list_files("*.ssa", ssa);
|
||||
switch (n)
|
||||
{
|
||||
case 0: error_box(FR("Non esistono file SSA validi")); break;
|
||||
case 1: error_box(FR("File SSA non valido:\n%s"),
|
||||
(const char*)ssa.row(0));
|
||||
break;
|
||||
default:
|
||||
error_box(FR("Sono presenti troppi file SSA:\n%s,%s,..."),
|
||||
(const char*)ssa.row(0), (const char*)ssa.row(1));
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return ok;
|
||||
}
|
||||
|
||||
|
||||
@ -1133,7 +1133,7 @@ TCodesym TExpression::__factor(TCodesym startsym)
|
||||
char* quadra = strchr(_tok, '[');
|
||||
if (quadra)
|
||||
{
|
||||
if (sscanf(quadra, "[%d,%d]", &from, &to) == 0)
|
||||
if (sscanf_s(quadra, "[%d,%d]", &from, &to) == 0)
|
||||
{
|
||||
sym = _invalid;
|
||||
break;
|
||||
@ -1172,7 +1172,7 @@ TCodesym TExpression::__factor(TCodesym startsym)
|
||||
const int index = parse_user_func(val.string(), parms_found);
|
||||
if (index < 0)
|
||||
{
|
||||
strncpy(_tok, val.string(), sizeof(_tok));
|
||||
strncpy_s(_tok, sizeof(_tok), val.string(), sizeof(_tok)-1);
|
||||
sym = _invalid;
|
||||
}
|
||||
else
|
||||
|
||||
@ -1927,7 +1927,7 @@ void TSystemisamfile::makelc(TRectype& rec)
|
||||
|
||||
int TSystemisamfile::update(
|
||||
const TTrec& newrec, // @parm Nuovo tracciato record con cui aggiornare il file
|
||||
bool interactive) // @parm Indica se riportare i campi personalizzati (!interactive
|
||||
bool interactive) // @parm Indica se riportare i campi personalizzati
|
||||
|
||||
{
|
||||
if (newrec.len() == 0)
|
||||
@ -2059,10 +2059,10 @@ int TSystemisamfile::update(
|
||||
if (err != NOERR)
|
||||
return err;
|
||||
|
||||
TString s(256); s << TR("Aggiornamento") << ' ' << fname;
|
||||
TString s; s << TR("Aggiornamento") << ' ' << fname;
|
||||
|
||||
const TRecnotype nitems = items();
|
||||
TProgind p(nitems > 0 ? nitems : 1, s, is_power_station(), true);
|
||||
TProgress_monitor p(nitems > 0 ? nitems : 1, s, is_power_station());
|
||||
|
||||
TExtrectype nrec(wrec);
|
||||
|
||||
@ -2079,7 +2079,7 @@ int TSystemisamfile::update(
|
||||
const bool memo_inside = rec_has_memo(nrec.rec_des());
|
||||
for (int errore = first(); errore == NOERR; errore = next())
|
||||
{
|
||||
if (!p.addstatus(1))
|
||||
if (!p.add_status())
|
||||
{
|
||||
err = _iseof; // Simula errore in caso di interruzione
|
||||
break;
|
||||
@ -2144,10 +2144,9 @@ int TSystemisamfile::update(
|
||||
|
||||
if (err != NOERR)
|
||||
err = get_error(err);
|
||||
if (p.iscancelled())
|
||||
|
||||
if (!p.setstatus(nitems))
|
||||
err = _iseof;
|
||||
|
||||
p.setstatus(nitems);
|
||||
}
|
||||
|
||||
if (err == NOERR)
|
||||
@ -2202,7 +2201,7 @@ int TSystemisamfile::update(
|
||||
prefix().update_recdes(num());
|
||||
|
||||
if (toconvert)
|
||||
packindex();
|
||||
packindex(true);
|
||||
if (err == NOERR)
|
||||
err = exec_convapp(lev, FALSE); // Post - conversion
|
||||
}
|
||||
@ -2283,16 +2282,17 @@ int TSystemisamfile::packindex(
|
||||
err = get_error(err);
|
||||
if (err != NOERR)
|
||||
{
|
||||
if (vis)
|
||||
if (vis || ask)
|
||||
error_box("Errore in compattamento indici.\nFile %d : %d", num(),err);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (peod >= 0 && peod != d.eod())
|
||||
{
|
||||
d.set_eod(peod);
|
||||
d.put(num(), is_com ? _comdir : _nordir);
|
||||
}
|
||||
|
||||
}
|
||||
setstatus(err);
|
||||
return err;
|
||||
}
|
||||
|
||||
@ -3105,11 +3105,11 @@ void TReal_field::create(WINDOW w)
|
||||
if (has_query_button() && browse() != NULL && browse()->cursor() != NULL)
|
||||
{
|
||||
TCursor& cur = *browse()->cursor();
|
||||
const TRectype& esc = cur.curr();
|
||||
if (esc.num() == LF_TAB) // ... codice esercizio?
|
||||
const TRecnotype ne = cur.items();
|
||||
if (ne > 0 && xvt_str_compare_ignoring_case(cur.file(0).name(), "ESC") == 0) // ... codice esercizio?
|
||||
{
|
||||
const TRecnotype ne = cur.items();
|
||||
for (cur = ne-1; cur.ok(); --cur)
|
||||
const TRectype& esc = cur.curr();
|
||||
for (cur = ne-1; cur.pos() > 0; --cur)
|
||||
{
|
||||
const TDate dataini = esc.get("D0");
|
||||
const TDate datafin = esc.get("D1");
|
||||
|
||||
@ -1218,7 +1218,10 @@ bool TSpreadsheet::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
xiev->v.cell_request.color = COLOR_BLACK; // Ignored :-(
|
||||
src = format("%d", rec+1); // Numero riga
|
||||
}
|
||||
|
||||
char* dst = xiev->v.cell_request.s;
|
||||
if (src && *src)
|
||||
|
||||
@ -28,6 +28,7 @@ HIDDEN TPrefix* _prefhndl = NULL;
|
||||
TPrefix& prefix_init()
|
||||
{
|
||||
CHECK(_prefhndl == NULL, "Can't create two prefix objects");
|
||||
TFilename n; n.tempdir(); // Forza creazione dir temporanea indispensabile a Codebase!
|
||||
_prefhndl = new TPrefix;
|
||||
return *_prefhndl;
|
||||
}
|
||||
@ -349,11 +350,16 @@ public:
|
||||
virtual ~TFile_info();
|
||||
};
|
||||
|
||||
static int _open_files = 0;
|
||||
|
||||
int TFile_info::open_low(bool exclusive, bool index)
|
||||
{
|
||||
if (_handle < 0)
|
||||
{
|
||||
_handle = DB_open(_name, exclusive, index);
|
||||
if (_handle >= 0)
|
||||
_open_files++;
|
||||
}
|
||||
#ifdef DBG
|
||||
else
|
||||
error_box("You shouldn't reopen file %s", (const char*)_name);
|
||||
@ -393,6 +399,7 @@ int TFile_info::close_low()
|
||||
_handle = -1;
|
||||
_last_key = -1;
|
||||
_exclusive = _locked = false;
|
||||
_open_files--;
|
||||
}
|
||||
else
|
||||
{
|
||||
@ -621,7 +628,6 @@ bool TFile_manager::close_oldest()
|
||||
{
|
||||
TFile_info& i = (TFile_info&)_fileinfo[oldest];
|
||||
i.auto_close();
|
||||
_open_files--;
|
||||
}
|
||||
|
||||
return oldest != 0; //verificare
|
||||
@ -689,13 +695,10 @@ int TFile_manager::close(TIsam_handle& name)
|
||||
TFile_info* i = (TFile_info*)_fileinfo.objptr(name);
|
||||
if (i != NULL)
|
||||
{
|
||||
const bool was_open = i->is_open();
|
||||
err = i->close();
|
||||
// Se chiuso veramente ... (Per efficienza non chiude sempre)
|
||||
if (err == NOERR && !i->is_open())
|
||||
{
|
||||
if (was_open)
|
||||
_open_files--;
|
||||
if (name >= LF_EXTERNAL && i->ref_count() <= 0)
|
||||
{
|
||||
_fileinfo.remove(name);
|
||||
@ -732,11 +735,8 @@ TCodeb_handle TFile_manager::get_handle(TIsam_handle name, int key)
|
||||
|
||||
// Se ho passato key = -1 mi va bene la chiave principale
|
||||
if (key < 0)
|
||||
key = 1;
|
||||
|
||||
key = 1;
|
||||
handle = i.auto_open(key);
|
||||
if (handle >= 0)
|
||||
_open_files++;
|
||||
}
|
||||
else
|
||||
{
|
||||
@ -803,19 +803,18 @@ long TFile_manager::last_change(TIsam_handle name) const
|
||||
|
||||
int TFile_manager::close_closeable()
|
||||
{
|
||||
_open_files = 0;
|
||||
_open_files = 0; // Ricalcolo per sicurezza
|
||||
for (TIsam_handle n = _fileinfo.last(); n > 0; n = _fileinfo.pred(n))
|
||||
{
|
||||
TFile_info& i = fileinfo(n);
|
||||
if (i.is_open())
|
||||
{
|
||||
_open_files++;
|
||||
if (!i.is_locked() && !i.is_exclusive())
|
||||
{
|
||||
cache().discard(i.num());
|
||||
i.auto_close();
|
||||
}
|
||||
else
|
||||
_open_files++;
|
||||
}
|
||||
if (i.ref_count() <= 0)
|
||||
_fileinfo.destroy(n);
|
||||
@ -866,7 +865,6 @@ const TFilename& TFile_manager::get_filename(TIsam_handle id) const
|
||||
|
||||
|
||||
TFile_manager::TFile_manager()
|
||||
: _open_files(0)
|
||||
{
|
||||
_max_open_files = xvt_sys_get_profile_int(NULL, "Main", "MaxHandles", 32);
|
||||
if (_max_open_files < 16)
|
||||
|
||||
@ -23,7 +23,7 @@ class TFile_manager : public TObject
|
||||
{
|
||||
TArray _fileinfo;
|
||||
TArray _recinfo;
|
||||
int _open_files, _max_open_files;
|
||||
int _max_open_files;
|
||||
|
||||
protected:
|
||||
TFile_info& fileinfo(TIsam_handle handle) const;
|
||||
|
||||
@ -2356,7 +2356,7 @@ int TTab_info::intersection(int s, int e) const
|
||||
{
|
||||
int i = 0;
|
||||
if (e >= _start && s <= _end)
|
||||
i = min(_end, e) - max(_start, s);
|
||||
i = min(_end, e) - max(_start, s) + 1;
|
||||
return i;
|
||||
}
|
||||
|
||||
@ -2422,12 +2422,17 @@ void TTabulator::add_field(int column, int width)
|
||||
int idx, col;
|
||||
if (find_column(column, width, idx, col))
|
||||
{
|
||||
const TTab_info& ti = (const TTab_info&)_tab[idx];
|
||||
TTab_info& ti = (TTab_info&)_tab[idx];
|
||||
if (ti.intersection(start, end) < width)
|
||||
{
|
||||
split(start, end, ti.start(), ti.end());
|
||||
_tab.destroy(idx, true);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (ti.start() == column && end > ti.end() && end < ti.end()+4)
|
||||
ti.set_end(end);
|
||||
}
|
||||
}
|
||||
else
|
||||
add(start, end);
|
||||
@ -2454,7 +2459,7 @@ void TTabulator::sort()
|
||||
TTab_info& t0 = (TTab_info&)_tab[i-1];
|
||||
TTab_info& t1 = (TTab_info&)_tab[i];
|
||||
if (t1 == t0 || t1.width() <= 0)
|
||||
_tab.destroy(i);
|
||||
_tab.destroy(i, true);
|
||||
else
|
||||
{
|
||||
const int gap = t1.start() - t0.end();
|
||||
|
||||
@ -11,7 +11,7 @@
|
||||
// TIndwin
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
int TIndwin::_indwin_count = 0;
|
||||
static int _indwin_count = 0;
|
||||
|
||||
word TIndwin::measure_text(TToken_string& s, word& maxlen) const
|
||||
{
|
||||
@ -36,7 +36,7 @@ TIndwin::TIndwin(long tot, const char* txt, bool cancel, bool bar, int div)
|
||||
|
||||
const int hor = min(maxlen+3, 78);
|
||||
const int ver = lines+3 + (bar ? 2 : 0);
|
||||
const int y = _indwin_count == 0 ? 3 : 12;
|
||||
const int y = _indwin_count == 0 ? 3 : (_indwin_count == 1 ? 11 : -2);
|
||||
|
||||
long flags = WSF_INVISIBLE;
|
||||
if (_can_cancel)
|
||||
@ -50,8 +50,7 @@ TIndwin::TIndwin(long tot, const char* txt, bool cancel, bool bar, int div)
|
||||
|
||||
if (bar)
|
||||
{
|
||||
XVT_COLOR_COMPONENT xcc[4];
|
||||
memset(xcc, 0, sizeof(xcc));
|
||||
XVT_COLOR_COMPONENT xcc[4] = { 0 };
|
||||
xcc[0].type = XVT_COLOR_BACKGROUND;
|
||||
xcc[0].color = MASK_BACK_COLOR;
|
||||
xcc[1].type = XVT_COLOR_BLEND;
|
||||
@ -88,8 +87,8 @@ void TIndwin::set_text(
|
||||
FOR_EACH_TOKEN(txt, tok)
|
||||
_text.add(tok);
|
||||
|
||||
RCT r; get_txt_rct(r);
|
||||
xvt_dwin_invalidate_rect(win(), &r);
|
||||
if (is_open()) // Draw it immediately
|
||||
update_txt();
|
||||
}
|
||||
|
||||
void TIndwin::setmax(long m)
|
||||
@ -102,9 +101,9 @@ void TIndwin::setmax(long m)
|
||||
|
||||
TIndwin::~TIndwin()
|
||||
{
|
||||
_indwin_count--;
|
||||
if (is_open())
|
||||
close_modal();
|
||||
_indwin_count--;
|
||||
}
|
||||
|
||||
bool TIndwin::can_be_closed() const
|
||||
@ -130,7 +129,7 @@ void TIndwin::get_bar_rct(RCT& r) const
|
||||
{
|
||||
xvt_vobj_get_client_rect(win(), &r);
|
||||
r.left += CHARX;
|
||||
r.right -= CHARX;
|
||||
r.right -= 3*CHARX/2;
|
||||
r.top = _bar_top;
|
||||
r.bottom = r.top + ROWY;
|
||||
}
|
||||
@ -138,8 +137,8 @@ void TIndwin::get_bar_rct(RCT& r) const
|
||||
void TIndwin::get_txt_rct(RCT& r) const
|
||||
{
|
||||
get_bar_rct(r);
|
||||
r.bottom = r.top - ROWY/2;
|
||||
r.top = ROWY/2;
|
||||
r.bottom = r.top - ROWY/4;
|
||||
r.top = ROWY/4;
|
||||
}
|
||||
|
||||
void TIndwin::sec2str(unsigned long ss, TString& str) const
|
||||
@ -274,14 +273,15 @@ TProgind::TProgind(long max, const char* txt, bool cancel, bool bar, int div)
|
||||
|
||||
bool TProgind::setstatus(long l)
|
||||
{
|
||||
const bool ok = TIndwin::setstatus(l);
|
||||
const bool ok = TIndwin::setstatus(l); // Aggiorna barra comunque
|
||||
|
||||
const clock_t c = clock();
|
||||
if (ok && c > _next_update)
|
||||
{
|
||||
update();
|
||||
do_events();
|
||||
_next_update = c+CLOCKS_PER_SEC; // Prossimo aggiornamento tra un secondo
|
||||
_next_update = c+CLOCKS_PER_SEC; // Prossimo aggiornamento ...
|
||||
update_bar(); // ... tempi stimati
|
||||
}
|
||||
do_events();
|
||||
|
||||
return ok;
|
||||
}
|
||||
@ -330,8 +330,8 @@ bool TProgress_monitor::set_status(long n)
|
||||
if (_status <= 0L && n <= 0L)
|
||||
_start = clock();
|
||||
|
||||
// Se sono passati 1 secondi e sono a meno di metà lavoro allora crea la TProgind
|
||||
if (_pi == NULL && n < _total/2 && (clock() - _start) >= CLOCKS_PER_SEC)
|
||||
// Se è passato un secondo allora crea la TProgind
|
||||
if (_pi == NULL && (clock() - _start) >= CLOCKS_PER_SEC)
|
||||
{
|
||||
_pi = new TProgind(_total, _txt, _cancellable);
|
||||
_pi->set_start_time(_start);
|
||||
@ -382,10 +382,11 @@ TProgress_monitor::~TProgress_monitor()
|
||||
// uses static pointer for single instance of TIndwin
|
||||
static TIndwin* __indwin__p = NULL;
|
||||
|
||||
void progind_create(long m, const char* t, bool b, bool c, int n)
|
||||
void progind_create(long m, const char* t, bool b, bool c)
|
||||
{
|
||||
CHECK(__indwin__p == NULL, "Cannot have more than one progress indicator");
|
||||
__indwin__p = new TProgind(m,t,b,c,n);
|
||||
__indwin__p = new TProgind(m, t, b, c, 60);
|
||||
do_events();
|
||||
}
|
||||
|
||||
bool progind_set_status(long l)
|
||||
@ -410,15 +411,17 @@ bool progind_isfinished()
|
||||
|
||||
void progind_destroy()
|
||||
{
|
||||
CHECK(__indwin__p != NULL, "No progress indicator to delete");
|
||||
delete __indwin__p;
|
||||
__indwin__p = NULL;
|
||||
}
|
||||
|
||||
/*
|
||||
void timerind_create(long l, const char* title, bool bar, bool cancel,
|
||||
int divisions, int interval)
|
||||
int interval)
|
||||
{
|
||||
CHECK(__indwin__p == NULL, "Cannot have more than one progress indicator");
|
||||
__indwin__p = new TTimerind(l,title,bar,cancel,divisions,interval);
|
||||
__indwin__p = new TTimerind(l,title,bar,cancel,60,interval);
|
||||
}
|
||||
|
||||
void timerind_cancel()
|
||||
@ -442,3 +445,4 @@ void timerind_destroy()
|
||||
__indwin__p = NULL;
|
||||
}
|
||||
|
||||
*/
|
||||
|
||||
@ -40,8 +40,6 @@ class TIndwin : public TWindow
|
||||
// @cmember:(INTERNAL) Flag che indica quali operazioni sono state effettuate
|
||||
byte _flags;
|
||||
|
||||
static int _indwin_count;
|
||||
|
||||
// @access Protected Member
|
||||
protected:
|
||||
// @cmember Massimo valore da ricercare
|
||||
@ -192,18 +190,20 @@ public:
|
||||
extern "C" {
|
||||
#endif
|
||||
// Non commentate perche' destinate a sparire
|
||||
void progind_create(long, const char*, bool, bool, int);
|
||||
void progind_create(long, const char*, bool, bool);
|
||||
bool progind_set_status(long s);
|
||||
void progind_cancel();
|
||||
bool progind_iscancelled();
|
||||
bool progind_isfinished();
|
||||
void progind_destroy();
|
||||
void timerind_create(long, const char*, bool, bool, int, int);
|
||||
|
||||
/* NEVER used stuff!
|
||||
void timerind_create(long, const char*, bool, bool, int);
|
||||
void timerind_cancel();
|
||||
bool timerind_iscancelled();
|
||||
bool timerind_isfinished();
|
||||
void timerind_destroy();
|
||||
|
||||
*/
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
|
||||
@ -238,7 +238,7 @@ bool TSQLite::import(int logicnum)
|
||||
TString sql;
|
||||
if (exists(table))
|
||||
{
|
||||
// Drop old table
|
||||
// Drop old table (and associated indexes?)
|
||||
sql.cut(0) << "DROP TABLE "<< table << ';';
|
||||
exec(sql);
|
||||
}
|
||||
@ -265,16 +265,15 @@ bool TSQLite::import(int logicnum)
|
||||
TRelation rel(logicnum);
|
||||
TCursor cur(&rel);
|
||||
const TRecnotype items = cur.items();
|
||||
TString msg;
|
||||
|
||||
if (items > 0)
|
||||
{
|
||||
cur.freeze();
|
||||
|
||||
TString msg;
|
||||
msg << TR("Importazione tabella") << ' ' << table;
|
||||
msg << ": " << items << ' ' << TR("righe");
|
||||
TProgind pi(items, msg, true, true);
|
||||
|
||||
exec("BEGIN"); // Inizio transazione
|
||||
TProgress_monitor pi(items, msg);
|
||||
|
||||
// Creo il comando INSERT INTO table VALUES(?,?,?,?,?,?);
|
||||
sql.cut(0) << "INSERT INTO " << table << " VALUES(";
|
||||
@ -285,38 +284,50 @@ bool TSQLite::import(int logicnum)
|
||||
}
|
||||
sql << ");";
|
||||
|
||||
exec("BEGIN"); // Inizio transazione
|
||||
|
||||
sqlite3_stmt* pStatement = NULL;
|
||||
int rc = sqlite3_prepare(_handle, sql, sql.len(), &pStatement, NULL);
|
||||
|
||||
|
||||
const TRectype& curr = rel.curr();
|
||||
for (cur = 0; cur.pos() < items; ++cur)
|
||||
{
|
||||
pi.addstatus(1);
|
||||
if (pi.iscancelled())
|
||||
if (!pi.add_status())
|
||||
break;
|
||||
bind_record(curr, rd, pStatement); // Sostituisce i ? coi veri valori
|
||||
rc = sqlite3_step(pStatement); // Ritorna sempre 101 (SQLITE_DONE)
|
||||
rc = sqlite3_reset(pStatement); // Azzero lo statement per ricominciare
|
||||
}
|
||||
rc = sqlite3_finalize(pStatement);
|
||||
|
||||
exec("COMMIT"); // Fine transazione
|
||||
}
|
||||
|
||||
// Creo gli indici DOPO l'importazione per maggiore velocita'
|
||||
TProgind pi(rd.NKeys, TR("Creazione indici"), false, true);
|
||||
for (int index = 0; index < rd.NKeys; index++)
|
||||
|
||||
if (rd.NKeys > 0)
|
||||
{
|
||||
pi.addstatus(1);
|
||||
sql.cut(0) << "CREATE INDEX " << table << '_' << (index+1) << " ON "<< table << "\n(";
|
||||
const KeyDes& kd = rd.Ky[index];
|
||||
for (int k = 0; k < kd.NkFields; k++)
|
||||
// Creo gli indici DOPO l'importazione per maggiore velocita'
|
||||
msg.format("Creazione di %d indici sulla tabella %s", rd.NKeys, (const char*)table);
|
||||
TProgress_monitor pi(rd.NKeys, msg);
|
||||
|
||||
for (int index = 0; index < rd.NKeys; index++)
|
||||
{
|
||||
if (k > 0) sql << ',';
|
||||
const int ndx = kd.FieldSeq[k] % MaxFields;
|
||||
sql << rd.Fd[ndx].Name;
|
||||
if (!pi.addstatus(1))
|
||||
break;
|
||||
const KeyDes& kd = rd.Ky[index];
|
||||
sql = "CREATE ";
|
||||
if (!kd.DupKeys) sql << "UNIQUE ";
|
||||
sql << "INDEX " << table << '_' << (index+1) << " ON "<< table << "\n(";
|
||||
for (int k = 0; k < kd.NkFields; k++)
|
||||
{
|
||||
if (k > 0) sql << ',';
|
||||
const int ndx = kd.FieldSeq[k] % MaxFields;
|
||||
sql << rd.Fd[ndx].Name;
|
||||
}
|
||||
sql << ");";
|
||||
exec("BEGIN"); // Inizio transazione
|
||||
exec(sql);
|
||||
exec("COMMIT"); // Fine transazione
|
||||
}
|
||||
sql << ");";
|
||||
exec(sql);
|
||||
}
|
||||
|
||||
set_dbf_time(table, last); // Aggiorna ora di ultima modifica
|
||||
@ -340,8 +351,12 @@ bool TSQLite::parse_select_from(const char* szSql)
|
||||
const int where_pos = sql.find("WHERE", from);
|
||||
TToken_string tables(sql.sub(from+5, where_pos), ',');
|
||||
TString table;
|
||||
|
||||
TProgress_monitor pi(tables.items(), TR("Importazione tabelle"));
|
||||
FOR_EACH_TOKEN(tables, tok)
|
||||
{
|
||||
if (!pi.add_status())
|
||||
break;
|
||||
table = tok;
|
||||
const int join_pos = table.find("JOIN ");
|
||||
if (join_pos > 0)
|
||||
@ -359,7 +374,10 @@ bool TSQLite::parse_select_from(const char* szSql)
|
||||
|
||||
const int logicnum = (table == "MAG") ? LF_MAG : table2logic(table);
|
||||
if (logicnum >= LF_USER)
|
||||
{
|
||||
pi.set_text(table);
|
||||
import(logicnum);
|
||||
}
|
||||
}
|
||||
|
||||
return true;
|
||||
|
||||
@ -1266,48 +1266,38 @@ const TFilename& TFilename::tempdir()
|
||||
xvt_sys_get_env("TEMP", _tempdir.get_buffer(), _tempdir.size());
|
||||
if (_tempdir.empty())
|
||||
xvt_sys_get_env("TMP", _tempdir.get_buffer(), _tempdir.size());
|
||||
if (_tempdir.empty())
|
||||
|
||||
bool ok = dexist(_tempdir);
|
||||
if (!ok) // Codebase NON funziona senza una temp esistente!
|
||||
{
|
||||
_tempdir = __argv[0];
|
||||
_tempdir.cut(3);
|
||||
_tempdir << "temp";
|
||||
}
|
||||
if (!_tempdir.exist())
|
||||
{
|
||||
_tempdir = __argv[0];
|
||||
_tempdir.cut(3);
|
||||
_tempdir << "tmp";
|
||||
ok = make_dir(_tempdir);
|
||||
if (!ok)
|
||||
fatal_box("La cartella temporanea '%s' non esiste", (const char*)_tempdir);
|
||||
}
|
||||
|
||||
const int last = len()-1;
|
||||
if (!is_not_slash(_str[last]))
|
||||
_tempdir.cut(last);
|
||||
|
||||
bool ok = true;
|
||||
|
||||
_tempdir.lower();
|
||||
if (!dexist(_tempdir))
|
||||
ok = make_dir(_tempdir);
|
||||
|
||||
if (ok)
|
||||
{
|
||||
TString theuser(user());
|
||||
if (theuser.empty())
|
||||
theuser = ::dongle().administrator();
|
||||
theuser.lower();
|
||||
const int f = _tempdir.find(theuser);
|
||||
if (f < 0 || f != _tempdir.len() - theuser.len())
|
||||
_tempdir << SLASH << theuser;
|
||||
_tempdir.lower();
|
||||
if (!dexist(_tempdir))
|
||||
ok = make_dir(_tempdir);
|
||||
}
|
||||
TString theuser(user());
|
||||
if (theuser.empty())
|
||||
theuser = ::dongle().administrator();
|
||||
theuser.lower();
|
||||
const int f = _tempdir.find(theuser);
|
||||
if (f < 0 || f != _tempdir.len() - theuser.len())
|
||||
_tempdir.add(theuser);
|
||||
_tempdir.lower();
|
||||
|
||||
ok = dexist(_tempdir);
|
||||
if (!ok)
|
||||
fatal_box("Impossibile creare la directory '%s' per i file temporanei",
|
||||
(const char*)_tempdir);
|
||||
{
|
||||
ok = make_dir(_tempdir);
|
||||
if (!ok)
|
||||
fatal_box("Impossibile creare la cartella temporanea '%s'", (const char*)_tempdir);
|
||||
}
|
||||
|
||||
xvt_sys_set_env("TMP", _tempdir);
|
||||
xvt_sys_set_env("TMP", _tempdir); // Usata da _tmpnam
|
||||
}
|
||||
|
||||
set(_tempdir);
|
||||
@ -1332,56 +1322,29 @@ const TFilename& TFilename::temp(
|
||||
const char* prefix, // @parm Eventuale prefisso da assegnare al file temporaneo
|
||||
const char* extension) // @parm Eventuale estensione da assegnare al file temporaneo
|
||||
|
||||
// @comm Nel generare il nome del file controlla se esistone dei caratteri jolly
|
||||
// e li elimina.
|
||||
// @comm Nel generare il nome del file controlla se esistono dei caratteri jolly e li elimina.
|
||||
{
|
||||
if (extension && *extension)
|
||||
{
|
||||
/* Vengono creati file in posti fantasiosi
|
||||
TFilename mask(prefix);
|
||||
if (mask.empty())
|
||||
mask.tempdir();
|
||||
mask.add("*");
|
||||
mask.ext(extension);
|
||||
*/
|
||||
TFilename mask;
|
||||
mask.tempdir();
|
||||
TFilename root; root.tempdir();
|
||||
if (prefix && *prefix)
|
||||
{
|
||||
bool has_path = false;
|
||||
for (const char *s = prefix; !has_path && *s; s++)
|
||||
has_path = *s ==':' || is_slash(*s);
|
||||
if (has_path)
|
||||
mask = prefix;
|
||||
root = prefix;
|
||||
else
|
||||
mask.add(prefix);
|
||||
mask << '*';
|
||||
root.add(prefix);
|
||||
}
|
||||
else
|
||||
mask.add("*");
|
||||
mask.ext(extension);
|
||||
|
||||
const int star = mask.find('*');
|
||||
CHECK(star>=0, "Invalid temp file mask");
|
||||
TString_array list;
|
||||
const int count = list_files(mask, list);
|
||||
|
||||
if (count > 0)
|
||||
{
|
||||
FOR_EACH_ARRAY_ROW(list, i, row)
|
||||
{
|
||||
const char* name = row->mid(star);
|
||||
const long numero = atol(name) + 1;
|
||||
mask = row->left(star);
|
||||
mask << numero;
|
||||
mask.ext(extension);
|
||||
if (list.find(mask) < 0)
|
||||
break;
|
||||
}
|
||||
for (unsigned int n = (unsigned int)clock(); ; n++)
|
||||
{
|
||||
TString8 name; name.format("%05lu", n % 100000);
|
||||
set(root); operator<<(name);
|
||||
ext(extension);
|
||||
if (!exist())
|
||||
break;
|
||||
}
|
||||
else
|
||||
mask[star] = '1';
|
||||
set(mask);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -13,15 +13,11 @@ class _HotSpot : public TObject
|
||||
public:
|
||||
// TArray _spots; // tokenstrings
|
||||
char _bg, _fg;
|
||||
|
||||
_HotSpot (char fg, char bg)
|
||||
{
|
||||
_fg = fg;
|
||||
_bg = bg;
|
||||
}
|
||||
virtual ~ _HotSpot ()
|
||||
{
|
||||
}
|
||||
};
|
||||
|
||||
// @doc EXTERNAL
|
||||
@ -837,8 +833,8 @@ void TTextfile::write(
|
||||
// Determina il tipo di una stringa: 0=ignoto; 1=stringa; 2=numero
|
||||
static int str_type(TString& str)
|
||||
{
|
||||
str.trim();
|
||||
if (str.empty())
|
||||
str.rtrim();
|
||||
if (str.blank())
|
||||
return 0;
|
||||
bool is_string = false;
|
||||
bool is_number = true;
|
||||
@ -860,6 +856,18 @@ static int str_type(TString& str)
|
||||
return is_number ? 2 : (is_string ? 1 : 0);
|
||||
}
|
||||
|
||||
static bool is_text_line(TString& str)
|
||||
{
|
||||
const int l = str.trim().len();
|
||||
if (l >= 64)
|
||||
{
|
||||
const char c = str[0];
|
||||
if (strchr("_-=", c) != NULL && str[l/2] == c && str[l-1] == c)
|
||||
return true;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
bool TTextfile::write_xls(const TFilename& xls)
|
||||
{
|
||||
int headerlen = printer().headersize();
|
||||
@ -871,24 +879,32 @@ bool TTextfile::write_xls(const TFilename& xls)
|
||||
int tabstop = pagelen - footerlen;
|
||||
if (_lines < tabstop) tabstop = _lines;
|
||||
|
||||
if (headerlen <= 0) // Cerca di capire l'inizio della testata
|
||||
|
||||
int header_end = 12;
|
||||
if (headerlen > 3)
|
||||
header_end = headerlen;
|
||||
if (header_end > tabstop)
|
||||
header_end = tabstop;
|
||||
|
||||
for (long j = 1; j < header_end; j++)
|
||||
{
|
||||
for (long j = 1; j < 12 && j < tabstop; j++)
|
||||
read_line(j);
|
||||
str = piece();
|
||||
if (is_text_line(str))
|
||||
{
|
||||
read_line(j);
|
||||
str = piece(); str.trim();
|
||||
if (str.len() >= 64 && (str.starts_with("________") || str.starts_with("--------") || str.starts_with("========")))
|
||||
if (tabstart <= 1)
|
||||
tabstart = j+1;
|
||||
else
|
||||
{
|
||||
if (tabstart <= 1)
|
||||
tabstart = j+1;
|
||||
else
|
||||
{
|
||||
tabstop = j;
|
||||
headerlen = j;
|
||||
}
|
||||
tabstop = j;
|
||||
headerlen = j;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (tabstart <= 1 && headerlen > 0)
|
||||
tabstart = headerlen;
|
||||
if (tabstart < 2)
|
||||
tabstart = 2;
|
||||
|
||||
TTabulator tab;
|
||||
for (long j = tabstart; j < tabstop; j++)
|
||||
@ -900,7 +916,7 @@ bool TTextfile::write_xls(const TFilename& xls)
|
||||
str = cp;
|
||||
const int len = str.len();
|
||||
if (str_type(str) > 0)
|
||||
tab.add_field(x, len);
|
||||
tab.add_field(x, str.len());
|
||||
x += len;
|
||||
}
|
||||
}
|
||||
@ -927,7 +943,7 @@ bool TTextfile::write_xls(const TFilename& xls)
|
||||
if (st > 0)
|
||||
{
|
||||
int idx, pos;
|
||||
if (tab.find_column(x, len, idx, pos))
|
||||
if (tab.find_column(x, str.len(), idx, pos))
|
||||
{
|
||||
const char* old = riga.get(pos);
|
||||
if (old && *old)
|
||||
|
||||
@ -3,6 +3,7 @@
|
||||
|
||||
#include <diction.h>
|
||||
#include <dongle.h>
|
||||
#include <progind.h>
|
||||
#include <utility.h>
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -185,11 +186,52 @@ bool make_dir(const char* dir) // @parm Nome della directory da creare
|
||||
//
|
||||
// @flag TRUE | Se l'operazione e' avvenuta con successo
|
||||
// @flag FALSE | Se l'operazione non e' riuscita
|
||||
bool remove_file(const char* file) // @parm Nome della directory da creare
|
||||
bool remove_file(const char* file) // @parm Nome del file da cancellare
|
||||
{
|
||||
return xvt_fsys_remove_file(file) != 0;
|
||||
}
|
||||
|
||||
int remove_files(const char* path, bool subdirs) // @parm maschera files da cancellare, es: "c:\temp\*.tmp"
|
||||
{
|
||||
TFilename dir(path);
|
||||
if (dir.find('*') < 0 && dir.find('?') < 0 && dexist(dir))
|
||||
dir.add("*.*");
|
||||
|
||||
SLIST files = xvt_fsys_list_files("", dir, subdirs);
|
||||
const int count = xvt_slist_count(files);
|
||||
if (count > 0)
|
||||
{
|
||||
dir = dir.path();
|
||||
// Windows XP doesn't support multi file deletion ...
|
||||
if (xvt_fsys_files_remove(dir, files) <= 0)
|
||||
{
|
||||
dir.insert(TR("Cancellazione cartella ")); // ... do it manually
|
||||
TProgress_monitor bar(count, dir);
|
||||
for (SLIST_ELT e = xvt_slist_get_first(files); e && bar.add_status(); e = xvt_slist_get_next(files, e))
|
||||
{
|
||||
const char* n = xvt_slist_get(files, e, NULL);
|
||||
if (dexist(n))
|
||||
xvt_fsys_rmdir(n);
|
||||
else
|
||||
xvt_fsys_remove_file(n);
|
||||
}
|
||||
}
|
||||
}
|
||||
xvt_slist_destroy(files);
|
||||
return count;
|
||||
}
|
||||
|
||||
int count_files(const char* dir, bool subdirs)
|
||||
{
|
||||
TFilename d(dir);
|
||||
if (d.find('*') < 0 && d.find('?') < 0)
|
||||
d.add("*.*");
|
||||
SLIST files = xvt_fsys_list_files("", d, subdirs);
|
||||
const int count = xvt_slist_count(files);
|
||||
xvt_slist_destroy(files);
|
||||
return count;
|
||||
}
|
||||
|
||||
// @doc EXTERNAL
|
||||
|
||||
// @func Ritorna la lista dei file il cui nome corrisponde alla stringa (con caratteri
|
||||
|
||||
@ -37,6 +37,8 @@ void log_message(const char* fmt, ...);
|
||||
|
||||
bool make_dir(const char* dir);
|
||||
bool remove_file(const char* file);
|
||||
int remove_files(const char* mask, bool subdirs);
|
||||
int count_files(const char* dir, bool subdirs);
|
||||
int list_files(const char* mask, TString_array& result);
|
||||
bool input_filename(TFilename& file);
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user