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

Corretti alcune minchiatine di coversione long->int

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@304 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-10-03 09:57:55 +00:00
parent fb0ebca1cc
commit 832f08d056
3 changed files with 918 additions and 916 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ba/ba1300.cpp
View File

@ -96,10 +96,11 @@ bool BA1300_application::menu(MENU_TAG m)
switch (m)
{
case BAR_ITEM(2):
{
msk = new TMask("ba1300b");
cdir = new TDir;
cdir->get(LF_DIR,_nolock,_nordir,_sysdirop);
const int nitems=cdir->eod();
const int nitems=(int)cdir->eod();
for (int i=0; i<nitems;i++) // fill sheet
{
TToken_string riga(128);
@ -117,7 +118,7 @@ bool BA1300_application::menu(MENU_TAG m)
if (msk->run()==K_ENTER)
{
_debug = new TTestProc;
_debug->set_file(msk->get_long(F_FILE));
_debug->set_file(msk->get_int(F_FILE));
_debug->load_random(msk->get(F_SEQUENZA));
if (!_debug->stopped())
_debug->do_debug();
@ -127,7 +128,8 @@ bool BA1300_application::menu(MENU_TAG m)
}
delete msk;
delete cdir;
break;
}
break;
case BAR_ITEM(1):
do {
switch(tasto=get_mask()->run())
@ -152,16 +154,16 @@ bool BA1300_application::menu(MENU_TAG m)
while (((++numtest)<=get_mask()->get_long(F_ITERAZIONI) || get_mask()->get_bool(F_CONTINUO)) && (!get_test()->stopped()))
{
if (get_mask()->get_bool(F_CONTINUO))
get_test()->get_win()->WriteW(33,5,(const char*)TString(20).format("%4ld (CONTINUO)",numtest));
get_test()->get_win()->WriteW(33,5,format("%4ld (CONTINUO)",numtest));
else
get_test()->get_win()->WriteW(33,5,(const char*)TString(20).format("%4ld/%-4ld",numtest,_mask->get_long(F_ITERAZIONI)));
get_test()->get_win()->WriteW(33,5,format("%4ld/%-4ld",numtest,_mask->get_long(F_ITERAZIONI)));
get_test()->set_numt(numtest);
get_test()->do_test_1();
}
if (get_test()->rm_copy())
{
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
for (long i=0;i<get_sheet()->items();i++)
for (int i=0;i<get_sheet()->items();i++)
if (get_sheet()->checked(i))
get_test()->remove_copy(i+1);
}

6
ba/ba1300.h
View File

@ -73,15 +73,15 @@ public:
void do_test_1();
void do_test_2();
void do_debug();
void remove_copy(long n);
void remove_copy(int n);
void load_random(const TString& st);
bool stopped() {return _block;}
bool rm_copy() {return _rmc;}
void set_rmc(bool a=FALSE) {_rmc = a;}
long num_test() {return _ntest;}
void set_numt(const long num) { _ntest = num;}
long num_file() {return _nfile;}
void set_file(long n) {_nfile=n;}
int num_file() {return _nfile;}
void set_file(int n) {_nfile=n;}
long number(const long n) {return _randseq[n];}
void set_sheet (TTestSheet * sh) {_sheet=sh;}
TTestSheet * get_isheet() {return _sheet;}

2
ba/ba1301.cpp
View File

@ -112,7 +112,7 @@ void TTestProc::filecopy(bool save)
fcopy((const char*)St2,(const char*)St1);
}
void TTestProc::remove_copy(long n)
void TTestProc::remove_copy(int n)
{
TString base(get_base());
TDir d;