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

Implementata creazione file per modulo e zappato 770

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1312 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-04-28 13:16:10 +00:00
parent a28345ef81
commit d82f696754
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ba/ba1100.cpp
View File

@ -12,6 +12,7 @@
#include <validate.h> #include <validate.h>
#include <progind.h> #include <progind.h>
#include <extcdecl.h> #include <extcdecl.h>
#include <execp.h>
#include "ba1.h" #include "ba1.h"
#include "ba1100.h" #include "ba1100.h"
@ -599,7 +600,8 @@ void TManutenzione_app::convert_dir()
{ {
const TString pref(prefix().name()); const TString pref(prefix().name());
const bool is_com = prefix().is_com(); const bool is_com = prefix().is_com();
TDir d; TDir d;
TTrec r; TTrec r;
@ -619,19 +621,23 @@ void TManutenzione_app::convert_dir()
p.addstatus(1); p.addstatus(1);
prefix().set(""); prefix().set("");
r.get(i); r.get(i);
d.get(i);
const int module = abs((int)d.flags());
prefix().set(pref); prefix().set(pref);
TSystemisamfile f(i); TSystemisamfile f(i);
f.update(r); f.update(r);
d.get(i, _nolock, _nordir, _sysdirop); d.get(i, _nolock, _nordir, _sysdirop);
bool to_create = (is_com ? d.is_com() : d.is_firm()); bool to_create = (is_com ? d.is_com() : d.is_firm());
d.get(i);
TFilename datafile(d.name()); if (to_create && has_module(module, CHK_DONGLE))
if (to_create && !fexist(datafile))
{ {
TSystemisamfile f(i); d.get(i);
f.build(10L); if (!fexist(d.name()))
{
TSystemisamfile f(i);
f.build(10L);
}
} }
} }
prefix().set(""); prefix().set("");
@ -653,6 +659,13 @@ void TManutenzione_app::update()
begin_wait(); begin_wait();
prefix().set("com"); prefix().set("com");
if (prefix().filelevel() <= 199502L)
{
TExternal_app app("bacnv 4 0");
app.run();
}
update_dir(); update_dir();
convert_dir(); convert_dir();