root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ba1.cpp Aggiunto case 7:

Browse Source 
ba1.h        Aggiunto ba1800()
ba1600.*     Gestione patch nel Megascicolator
ba1700.*     Gestione patch nel Installator
ba1800.cpp   Migliorata gestione record piu' lunghi di 256 caratteri
ba1800a.uml  Allargata descrizione campi
*.pif        Aggiunti pif per gestire la de/compressione
zip386.bat   Chiama zip386.exe ed e' chiamato da zip.pif


git-svn-id: svn://10.65.10.50/trunk@6023 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1998-01-23 14:55:34 +00:00
parent c4d31b30f1
commit 37d5aeeacb
11 changed files with 115 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba1.cpp
View File

@ -22,6 +22,8 @@ int main(int argc,char** argv)
ba1600(argc,argv); break; ba1600(argc,argv); break;
case 6: case 6:
ba1700(argc,argv); break; ba1700(argc,argv); break;
case 7:
ba1800(argc,argv); break;
default: default:
ba1100(argc,argv); break; ba1100(argc,argv); break;
} }

1
ba/ba1.h
View File

@ -8,6 +8,7 @@ int ba1400(int argc, char** argv);
int ba1500(int argc, char** argv); int ba1500(int argc, char** argv);
int ba1600(int argc, char* argv[]); int ba1600(int argc, char* argv[]);
int ba1700(int argc, char* argv[]); int ba1700(int argc, char* argv[]);
int ba1800(int argc, char* argv[]);
#endif // __BA1_H #endif // __BA1_H

58
ba/ba1600.cpp
View File

@ -76,22 +76,21 @@ int TInstall_ini::build_list(const TString& module, TString_array& a,
int TInstall_ini::build_complete_list(const TString& module, TString_array& a, int TInstall_ini::build_complete_list(const TString& module, TString_array& a,
const char* sommario, bool agg) const char* sommario, bool agg)
{ {
if (sommario && *sommario)
{
TConfig sum(sommario, "Main");
sum.set("Demo", demo() ? "X" : "");
}
// Lista dei file appartenenti ai sottomoduli del modulo principale (0-9) // Lista dei file appartenenti ai sottomoduli del modulo principale (0-9)
build_list(module, a, sommario, agg); build_list(module, a, sommario, agg);
TAuto_token_string altri(get("Moduli", module)); TAuto_token_string altri(get("Moduli", module));
FOR_EACH_TOKEN(altri, mod) FOR_EACH_TOKEN(altri, mod)
{ {
const TString80 submodule = mod; const TString16 submodule = mod;
// Lista dei files apparteneti ai sottomoduli esterni (moduli esclusi!) // Lista dei files apparteneti ai sottomoduli esterni (moduli esclusi!)
if (submodule.len() > 2) if (submodule.len() > 2)
build_list(submodule, a, sommario, agg); build_list(submodule, a, sommario, agg);
} }
if (sommario && *sommario)
{
TConfig sum(sommario, "Main");
sum.set("Demo", demo());
sum.set("Listino", get("Listino","Main"));
}
return a.items(); return a.items();
} }
@ -131,15 +130,15 @@ const TString& TInstall_ini::version(const char* module)
return ver; return ver;
} }
long TInstall_ini::patch(const char* module) int TInstall_ini::patch(const char* module)
{ {
CHECK(module && *module > ' ', "Can't get version of NULL module"); CHECK(module && *module > ' ', "Can't get version of NULL module");
long patch = get_long("Patch", module); int patch = get_int("Patch", module);
if (patch == 0 && strlen(module) > 2) if (patch == 0 && strlen(module) > 2)
{ {
TString16 str; TString16 str;
str.strncpy(module, 2); str.strncpy(module, 2);
patch = get_long("Patch", str); patch = get_int("Patch", str);
} }
return patch; return patch;
} }
@ -680,7 +679,7 @@ protected:
bool zip_file(const char* archive, const char* file) const; bool zip_file(const char* archive, const char* file) const;
int split_file(const TFilename& file, long size) const; int split_file(const TFilename& file, long size) const;
bool move_file(const TFilename& file, const char* dir) const; bool move_file(const TFilename& file, const char* dir) const;
bool zip_module(const TString& module, int patch_level, bool agg) const; bool zip_module(const TString& module, bool agg, int patch_level) const;
const TFilename& build_export_path(TFilename& path) const; const TFilename& build_export_path(TFilename& path) const;
@ -733,10 +732,9 @@ bool TFascicolator_mask::save_handler(TMask_field& f, KEY k)
ini.set("PreProcess", m.get(S_PREPROCESS)); ini.set("PreProcess", m.get(S_PREPROCESS));
ini.set("PostProcess", m.get(S_POSTPROCESS)); ini.set("PostProcess", m.get(S_POSTPROCESS));
} }
const int patch_level = m.get_int(S_PATCHLEVEL);
const bool agg = f.dlg() == S_SAVEAGG; const bool agg = f.dlg() == S_SAVEAGG;
TFascicolator_mask& fm = (TFascicolator_mask&)m.get_sheet()->mask(); TFascicolator_mask& fm = (TFascicolator_mask&)m.get_sheet()->mask();
fm.zip_module(module, patch_level, agg); fm.zip_module(module, agg, m.get_int(S_PATCHLEVEL));
} }
return TRUE; return TRUE;
} }
@ -917,18 +915,16 @@ void TFascicolator_mask::save()
} }
} }
bool TFascicolator_mask::zip_file(const char* archive, const char* files) const bool TFascicolator_mask::zip_file(const char* archive, const char* listfile) const
{ {
TString msg("Creazione del file "); TString msg;
msg << archive << "..."; msg << "Creazione del file " << archive << "...";
TIndwin waitw(50,msg,FALSE,FALSE); TIndwin waitw(100,msg,FALSE,FALSE);
TWait_cursor hourglass; TWait_cursor hourglass;
TFilename cmd; TFilename cmd;
int err=0; int err=0;
// -1 compress faster; -9 compress better cmd << "zip.pif " << archive << ' ' << listfile;
// cmd << "zip.pif " << " -1 " << archive << ' ' << files;
cmd << "zip.pif " << files << " " << archive ;
TExternal_app app(cmd); TExternal_app app(cmd);
err = app.run(FALSE, FALSE, FALSE, FALSE); err = app.run(FALSE, FALSE, FALSE, FALSE);
return err == 0; return err == 0;
@ -1009,7 +1005,7 @@ int TFascicolator_mask::split_file(const TFilename& archive, long size) const
TFilename cmd; TFilename cmd;
xvt_fsys_convert_dir_to_str(&curdir, cmd.get_buffer(), cmd.size()); xvt_fsys_convert_dir_to_str(&curdir, cmd.get_buffer(), cmd.size());
cmd.add("zipsplit.pif"); cmd.add("zipsplit.pif");
cmd << " -n " << size << " -b " << archive.path() << " " << archive; cmd << " -n " << size << " -b " << archive.path() << ' ' << archive;
// Salta alla directory temporanea // Salta alla directory temporanea
xvt_fsys_convert_str_to_dir((char*)archive.path(), &tmpdir); xvt_fsys_convert_str_to_dir((char*)archive.path(), &tmpdir);
@ -1051,7 +1047,7 @@ int TFascicolator_mask::split_file(const TFilename& archive, long size) const
return disks; return disks;
} }
bool TFascicolator_mask::zip_module(const TString& main_module, int patch_level, bool agg) const bool TFascicolator_mask::zip_module(const TString& main_module, bool agg, int patch_level) const
{ {
TString_array arr; TString_array arr;
TInstall_ini ini; TInstall_ini ini;
@ -1061,7 +1057,7 @@ bool TFascicolator_mask::zip_module(const TString& main_module, int patch_level,
if (agg) if (agg)
{ {
TString16 name; TString16 name;
name.format("%03da.ini", patch_level); name.format("%04da.ini", patch_level);
sommario << name; // Nome del file sommario aggiornamento sommario << name; // Nome del file sommario aggiornamento
} }
else else
@ -1082,8 +1078,9 @@ bool TFascicolator_mask::zip_module(const TString& main_module, int patch_level,
msg << "Preparazione dei file per " << archivio << " ..."; msg << "Preparazione dei file per " << archivio << " ...";
TFilename filelist; TFilename filelist;
filelist.temp(); filelist.temp("", main_module);
FILE * fileh=fopen((const char *)filelist,"w"); ofstream fileh(filelist);
TProgind pi(arr.items(), msg, TRUE, TRUE); TProgind pi(arr.items(), msg, TRUE, TRUE);
TString cmd(120); TString cmd(120);
@ -1107,20 +1104,15 @@ bool TFascicolator_mask::zip_module(const TString& main_module, int patch_level,
break; break;
} }
} }
// Aggiungo il nome corrente alla lista dei files da compattare // Aggiungo il nome corrente alla lista dei files da compattare
cmd << '\n'; fileh << cmd << '\n';
// fwrite(cmd, sizeof(char), cmd.len(),fileh);
fputs(cmd, fileh);
} }
fclose(fileh); fileh.close();
if (!aborted) if (!aborted)
zip_file(archivio, filelist); // Compatto gli eventuali ultimi rimasti zip_file(archivio, filelist); // Compatto gli eventuali ultimi rimasti
// elimna il file lista-file // ::remove(filelist); // elimina il file lista-file
fileh = fopen((const char *)filelist,"w");
fclose(fileh);
msg.cut(0); msg.cut(0);
msg << "Separazione del file " << archivio << " ..."; msg << "Separazione del file " << archivio << " ...";

2
ba/ba1600.h
View File

@ -18,7 +18,7 @@ public:
bool demo() { return get_bool("Demo", "Main"); } bool demo() { return get_bool("Demo", "Main"); }
const TString& version(const char* module); const TString& version(const char* module);
long patch(const char* module); int patch(const char* module);
bool update_prices(const char* src_ini); bool update_prices(const char* src_ini);
void prices(const char* module, word users, real& full, real& manut); void prices(const char* module, word users, real& full, real& manut);

111
ba/ba1700.cpp
View File

@ -13,7 +13,7 @@
#include "ba1600.h" #include "ba1600.h"
#include "ba1700a.h" #include "ba1700a.h"
HIDDEN int compare_version(const char* v1, long p1, const char* v2, long p2) HIDDEN int compare_version(const char* v1, int p1, const char* v2, int p2)
{ {
TString16 ver1(v1), ver2(v2); TString16 ver1(v1), ver2(v2);
ver1.trim(); ver1.trim();
@ -25,9 +25,7 @@ HIDDEN int compare_version(const char* v1, long p1, const char* v2, long p2)
int res = ver1.compare(ver2, -1, TRUE); int res = ver1.compare(ver2, -1, TRUE);
if (res == 0) if (res == 0)
{ res = p1 - p2;
res = p1 == p2 ? 0 : (p1 > p2 ? +1 : -1);
}
return res; return res;
} }
@ -58,7 +56,7 @@ protected:
static bool sheet_notify(TSheet_field& s, int r, KEY k); static bool sheet_notify(TSheet_field& s, int r, KEY k);
static bool install_handler(TMask_field& fld, KEY key); static bool install_handler(TMask_field& fld, KEY key);
bool add_module(TConfig& ini, const TString& module); bool add_module(TConfig& ini, const TString& module, bool patch);
int sort_modules(); int sort_modules();
void update_version(); void update_version();
@ -74,7 +72,7 @@ protected:
public: public:
bool autoload(); bool autoload();
bool install(const TString& module, long patch); bool install(const TString& module, int patch);
TInstaller_mask(); TInstaller_mask();
virtual ~TInstaller_mask(); virtual ~TInstaller_mask();
@ -83,7 +81,7 @@ public:
TInstaller_mask* TInstaller_mask::_curr_mask = NULL; TInstaller_mask* TInstaller_mask::_curr_mask = NULL;
// Copia nello sheet i dati di un modulo prendendoli da un .ini // Copia nello sheet i dati di un modulo prendendoli da un .ini
bool TInstaller_mask::add_module(TConfig& ini, const TString& module) bool TInstaller_mask::add_module(TConfig& ini, const TString& module, bool patch)
{ {
bool ok = ini.set_paragraph(module); bool ok = ini.set_paragraph(module);
if (ok) if (ok)
@ -95,6 +93,7 @@ bool TInstaller_mask::add_module(TConfig& ini, const TString& module)
row.add(ini.get("Versione")); row.add(ini.get("Versione"));
row.add(ini.get("Patch")); row.add(ini.get("Patch"));
row.add(ini.get("Data")); row.add(ini.get("Data"));
row.add(patch ? "X" : " ", 9);
add(row); add(row);
} }
return ok; return ok;
@ -112,7 +111,6 @@ static int compare_modules(const TObject** o1, const TObject** o2)
const char* s2 = ts2.get(i); const char* s2 = ts2.get(i);
res = s1.compare(s2); res = s1.compare(s2);
} }
return res; return res;
} }
@ -120,21 +118,19 @@ int TInstaller_mask::sort_modules()
{ {
rows_array().TArray::sort(compare_modules); rows_array().TArray::sort(compare_modules);
TString16 dis;
const int tot = int(items()); const int tot = int(items());
TString16 dis, mod;
for (int r = 0; r < tot; r++) for (int r = 0; r < tot; r++)
{ {
mod = row(r).get(2); const bool patch = row(r).get_char(9) > ' ';
if (dis == mod) const char* mod = row(r).get(2);
if (patch)
{ {
if (dis == mod)
disable_row(r); disable_row(r);
} }
else else
{ dis = mod;
long patch = row(r).get_long(4);
if (patch == 0)
dis = mod;
}
} }
return tot; return tot;
} }
@ -184,7 +180,7 @@ bool TInstaller_mask::autoload()
{ {
const TString& module = *row; const TString& module = *row;
if (module.len() == 2) if (module.len() == 2)
add_module(ini, module); add_module(ini, module, FALSE);
} }
} }
else else
@ -200,11 +196,11 @@ bool TInstaller_mask::autoload()
CHECKS(pos >= 2, "Invalid installation configuration: ", (const char*)ininame); CHECKS(pos >= 2, "Invalid installation configuration: ", (const char*)ininame);
const TString16 module = ininame.mid(pos-2, 2); const TString16 module = ininame.mid(pos-2, 2);
TConfig ini(ininame, module); TConfig ini(ininame, module);
add_module(ini, module); add_module(ini, module, FALSE);
} }
ininame = path; ininame = path;
ininame.add("??0??a.ini"); ininame.add("??0???a.ini");
modules.destroy(); modules.destroy();
list_files(ininame, modules); list_files(ininame, modules);
FOR_EACH_ARRAY_ROW(modules, am, arow) FOR_EACH_ARRAY_ROW(modules, am, arow)
@ -212,10 +208,10 @@ bool TInstaller_mask::autoload()
TString& ininame = *arow; TString& ininame = *arow;
ininame.lower(); ininame.lower();
const int pos = ininame.find("a.ini"); const int pos = ininame.find("a.ini");
CHECKS(pos >= 5, "Invalid installation configuration: ", (const char*)ininame); CHECKS(pos >= 6, "Invalid installation configuration: ", (const char*)ininame);
const TString16 module = ininame.mid(pos-5, 2); const TString16 module = ininame.mid(pos-6, 2);
TConfig ini(ininame, module); TConfig ini(ininame, module);
add_module(ini, module); add_module(ini, module, TRUE);
} }
} }
@ -392,7 +388,7 @@ bool TInstaller_mask::move_module(const TString& module, TInstall_ini& ini, bool
return ok; return ok;
} }
bool TInstaller_mask::install(const TString& module, long patchlevel) bool TInstaller_mask::install(const TString& module, int patchlevel)
{ {
bool ok = FALSE; bool ok = FALSE;
@ -403,7 +399,7 @@ bool TInstaller_mask::install(const TString& module, long patchlevel)
if (patchlevel > 0) if (patchlevel > 0)
{ {
TString16 name; TString16 name;
name.format("%03da.ini"); name.format("%04da.ini", patchlevel);
ininame << name; ininame << name;
} }
else else
@ -428,7 +424,9 @@ bool TInstaller_mask::install(const TString& module, long patchlevel)
if (!ok) return FALSE; if (!ok) return FALSE;
} }
TProgind pi(dischi, "Decompressione in corso...", FALSE, TRUE); TString msg;
msg << "Decompressione del modulo " << module << " in corso...";
TProgind pi(dischi, msg, FALSE, TRUE);
TFilename tempdir; tempdir.tempdir(); TFilename tempdir; tempdir.tempdir();
TFilename cmdline; TFilename cmdline;
@ -436,10 +434,17 @@ bool TInstaller_mask::install(const TString& module, long patchlevel)
{ {
cmdline = path; cmdline = path;
cmdline.add(module); cmdline.add(module);
cmdline << "inst" << d; if (patchlevel > 0)
cmdline.ext("zip"); {
TString16 name;
name.format("%04da", patchlevel);
cmdline << name;
}
else
cmdline << "inst";
cmdline << d << ".zip";
ok = fexist(cmdline); ok = cmdline.exist();
while (!ok) while (!ok)
{ {
message_box("Inserire il disco %d di %d del modulo\n%s", message_box("Inserire il disco %d di %d del modulo\n%s",
@ -479,7 +484,9 @@ bool TInstaller_mask::install(const TString& module, long patchlevel)
} }
if (ok) if (ok)
{ {
pi.set_text("Aggiornamento in corso..."); msg.cut(0);
msg << "Aggiornamento del modulo " << module << " in corso...";
pi.set_text(msg);
ok = move_module(module, ini, TRUE); ok = move_module(module, ini, TRUE);
TAuto_token_string altri(ini.get("Moduli", module)); TAuto_token_string altri(ini.get("Moduli", module));
@ -493,20 +500,15 @@ bool TInstaller_mask::install(const TString& module, long patchlevel)
{ {
TInstall_ini curini; TInstall_ini curini;
const TString16 curver = curini.version(submod); const TString16 curver = curini.version(submod);
const long curpatch = curini.patch(submod); const int curpatch = curini.patch(submod);
const TString16 reqver = ini.version(submod); const TString16 reqver = ini.version(submod);
const long reqpatch = ini.patch(submod); const int reqpatch = ini.patch(submod);
int distance = compare_version(reqver, reqpatch, curver, curpatch); int distance = compare_version(reqver, reqpatch, curver, curpatch);
upd = distance> 0; upd = distance> 0;
if (!upd) if (distance!=0)
{ warning_box("Il sottomodulo '%s' necessario a '%s' e' gia' aggiornato alla versione %s:\n"
if (distance==0)
;
else
warning_box("Il sottomodulo '%s' necessario a '%s' e' gia' aggiornato alla versione %s:\n"
"l'installazione della versione %s non verra' effettuata.", "l'installazione della versione %s non verra' effettuata.",
(const char*)submod, (const char*)module, (const char*)curver, (const char*)reqver); (const char*)submod, (const char*)module, (const char*)curver, (const char*)reqver);
}
} }
ok &= move_module(submod, ini, upd); ok &= move_module(submod, ini, upd);
} }
@ -575,13 +577,13 @@ bool TInstaller_mask::path_handler(TMask_field& fld, KEY key)
bool ok = TRUE; bool ok = TRUE;
if (key == K_TAB && fld.focusdirty()) if (key == K_TAB && fld.focusdirty())
{ {
TString path = fld.get(); TFilename path = fld.get();
if (path.len() == 2 && isalpha(path[0]) && path[1] == ':') if (path.len() == 2 && isalpha(path[0]) && path[1] == ':')
{ {
path << SLASH; path << SLASH;
fld.set(path); fld.set(path);
} }
if (fexist(path)) if (path.exist())
_curr_mask->autoload(); _curr_mask->autoload();
else else
ok = fld.error_box("Specificare un percorso valido"); ok = fld.error_box("Specificare un percorso valido");
@ -597,9 +599,9 @@ void TInstaller_mask::install_selection()
{ {
const TString modulo = row->get(2); const TString modulo = row->get(2);
const TString newver = row->get(3); const TString newver = row->get(3);
const long newpatch = row->get_long(4); const int newpatch = row->get_int(4);
const TString oldver = row->get(6); const TString oldver = row->get(6);
const long oldpatch = row->get_long(7); const int oldpatch = row->get_int(7);
if (version2year(newver) < 1997) if (version2year(newver) < 1997)
{ {
@ -610,16 +612,31 @@ void TInstaller_mask::install_selection()
bool ok = TRUE; bool ok = TRUE;
const int cmp = compare_version(oldver, oldpatch, newver, newpatch); const int cmp = compare_version(oldver, oldpatch, newver, newpatch);
if (cmp < 0) if (cmp < 0)
ok = yesno_box("Si desidera installare la versione %s.%ld?", (const char*)newver, newpatch); ok = yesno_box("Si desidera installare la versione %s.%d?", (const char*)newver, newpatch);
if (cmp == 0) if (cmp == 0)
ok = yesno_box("Si desidera reinstallare la versione %s.%ld?", (const char*)newver, newpatch); ok = yesno_box("Si desidera reinstallare la versione %s.%d?", (const char*)newver, newpatch);
if (cmp > 0) if (cmp > 0)
ok = yesno_box("Si desidera ritornare alla versione %s.%ld?\n" ok = yesno_box("Si desidera ritornare alla versione %s.%d?\n"
"Attenzione: non e' garantito il corretto\n" "Attenzione: non e' garantito il corretto\n"
"funzionamento di tutti i programmi!", (const char*)newver, newpatch); "funzionamento di tutti i programmi!", (const char*)newver, newpatch);
if (ok) if (ok)
{ {
install(modulo, newpatch); const bool is_patch = row->get_char(9) > ' ';
ok = install(modulo, is_patch ? newpatch : 0);
if (!is_patch) // Se installo un modulo pricipale ...
{
// ... allora installo tutte le patches
for (int p = r+1; ok; p++)
{
if (row_disabled(p))
{
const int patchlevel = arr.row(p).get_int(4);
ok = install(modulo, patchlevel);
}
else
break;
}
}
} }
} }
} }
@ -650,7 +667,7 @@ bool TInstaller_mask::on_key(KEY key)
TInstaller_mask::TInstaller_mask() TInstaller_mask::TInstaller_mask()
: TArray_sheet(0, 0, 0, 0, "Installazione", : TArray_sheet(0, 0, 0, 0, "Installazione",
"@1|Modulo@30|Cod.|Versione\nda installare@13|Livello\nPatch|Data\nRilascio@10|Versione\nInstallata@10|Livello\nPatch|Data\nInstallazione@13", "@1|Modulo@30|Cod.|Versione\nda installare@13|Livello\nPatch|Data\nRilascio@10|Versione\nInstallata@10|Livello\nPatch|Data\nInstallazione@13|Aggiornamento",
0x18, 3) 0x18, 3)
{ {
_curr_mask = this; _curr_mask = this;

16
ba/ba1800.cpp
View File

@ -722,6 +722,11 @@ void TWizard_mask::save_ini(const TFilename& ininame) const
FOR_EACH_SHEET_ROW(sf, r, row) FOR_EACH_SHEET_ROW(sf, r, row)
{ {
ini.set("FIELD", row->get(0), NULL, TRUE, r); ini.set("FIELD", row->get(0), NULL, TRUE, r);
const char* name = row->get(1);
if (name == NULL || *name <= ' ')
name = row->get(0);
ini.set("NAME", name, NULL, TRUE, r);
} }
} }
} }
@ -762,7 +767,8 @@ bool TWizard_mask::load_aga(const TFilename& name)
set(F_RECSEP, "", TRUE); set(F_RECSEP, "", TRUE);
set(F_FIELDSEP, "|", TRUE); set(F_FIELDSEP, "|", TRUE);
set(F_SKIPLINES, aga.linenum(), TRUE); set(F_SKIPLINES, aga.linenum(), TRUE);
set(F_ISAM, isam, TRUE); if (isam.not_empty())
set(F_ISAM, isam, TRUE);
break; break;
} }
@ -1022,7 +1028,7 @@ bool TWizard_mask::file_handler(TOperable_field& f, TField_event e)
if ((n[0] == 'f' || n[0] == 'F') && atoi(n.mid(1,-1))) if ((n[0] == 'f' || n[0] == 'F') && atoi(n.mid(1,-1)))
n.ltrim(1); n.ltrim(1);
if (str2isamfile(n)) if (str2isamfile(n))
set(F_ISAM, TRUE); set(F_ISAM, n, TRUE);
file_preview(); file_preview();
} }
@ -1093,7 +1099,7 @@ bool TWizard_mask::isamfile_handler(TOperable_field& f, TField_event e)
fs.describe_fields(); fs.describe_fields();
} }
else else
ok = error_box("File non valido"); ok = error_box("File dati non valido");
can_import &= fexist(get(F_FILE)); can_import &= fexist(get(F_FILE));
enable(F_IMPORT, can_import); enable(F_IMPORT, can_import);
reset(F_ZAP); reset(F_ZAP);
@ -1199,6 +1205,10 @@ bool TWizard_mask::on_field_event(TOperable_field& f, TField_event e, long jolly
if (e == fe_button) if (e == fe_button)
import_file(); import_file();
break; break;
case F_COLUMNIZER:
if (e == fe_init)
file_preview(); // Indispensabile!
break;
case F_FIELDS: case F_FIELDS:
ok = ((TFields_sheet&)f).handler(e, jolly); ok = ((TFields_sheet&)f).handler(e, jolly);
break; break;

4
ba/ba1800a.uml
View File

@ -83,7 +83,7 @@ BEGIN
PROMPT 41 6 "Azzera il file di destinazione" PROMPT 41 6 "Azzera il file di destinazione"
END END
BROWSEFILE F_COLUMNIZER 76 4 BROWSEFILE F_COLUMNIZER 75 4
BEGIN BEGIN
PROMPT 1 6 "" PROMPT 1 6 ""
FLAGS "R" FLAGS "R"
@ -108,7 +108,7 @@ BEGIN
FLAGS "BU" FLAGS "BU"
END END
STRING F_DESCR 50 STRING F_DESCR 70
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 2 "Descrizione "
FLAGS "D" FLAGS "D"

BIN
ba/unzip.pif Executable file
View File

Binary file not shown.

BIN
ba/zip.pif Executable file
View File

Binary file not shown.

2
ba/zip386.bat Executable file
View File

@ -0,0 +1,2 @@
@echo off
zip386.exe %1 -@ < %2

BIN
ba/zipsplit.pif Executable file
View File

Binary file not shown.