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

Aggiunta selezione di debug per il test dell' ISAM.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@294 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1994-09-28 09:24:47 +00:00
parent e60478bc49
commit 0dbd85e23c
8 changed files with 634 additions and 353 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ba/ba1.url
View File

@ -1,6 +1,5 @@
#include <default.url>
/* ba1 -0 */
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"
@ -20,8 +19,6 @@ MENUBAR MENU_BAR(2)
MENU MENU_BAR(2)
SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Debug"
ITEM BAR_ITEM(1) "~Test"
ITEM BAR_ITEM(2) "~Debug"

90
ba/ba1300.cpp
View File

@ -19,7 +19,8 @@
class BA1300_application:public TApplication
{
TTestSheet * _testsheet;
TTestProc * _test;
TTestProc * _test,
* _debug;
TMask * _mask;
long _firm;
@ -34,9 +35,21 @@ public:
TTestSheet * get_sheet() {return _testsheet;}
TTestProc * get_test() {return _test;}
TMask * get_mask() {return _mask;}
TArray_sheet * field_sheet(TMask *);
};
HIDDEN bool seq_handler(TMask_field& f, KEY key)
{
if (key==K_ENTER)
if (!fexist((const char*)f.get()))
{
warning_box("File inesistente");
return FALSE;
}
return TRUE;
}
bool BA1300_application::create() // initvar e arrmask
{
@ -52,7 +65,6 @@ bool BA1300_application::create() // initvar e arrmask
set_firm();
_testsheet = new TTestSheet("Selezione Files") ;
get_sheet()->add_button(DLG_RESET,"~Reset",K_F6);
dispatch_e_menu(BAR_ITEM(1));
}
return TRUE ;
}
@ -66,12 +78,57 @@ bool BA1300_application::destroy() // releasev e arrmask
return TRUE ;
}
TArray_sheet * BA1300_application::field_sheet(TMask * m)
{
TEdit_field& f=(TEdit_field&) m->field(F_FILE);
TArray_sheet * s=(TArray_sheet*) f.sheet()->sheet();
return s;
}
bool BA1300_application::menu(MENU_TAG m)
{
KEY tasto,tastoS;
long numtest;
TMask *msk;
TDir *cdir;
disable_menu_item(M_FILE_NEW);
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();
for (int i=0; i<nitems;i++) // fill sheet
{
TToken_string riga(128);
riga.cut(0);
cdir->get(i+1,_nolock,_nordir,_sysdirop);
riga=format("%3d",i+1);
riga.add(cdir->name());
riga.add(format("%ld",cdir->eod()));
riga.add(format("%ld",cdir->eox()));
riga.add(format("%u",cdir->len()));
riga.add(cdir->des());
field_sheet(msk)->add(riga);
}
msk->set_handler(F_SEQUENZA,seq_handler);
if (msk->run()==K_ENTER)
{
_debug = new TTestProc;
_debug->set_file(msk->get_long(F_FILE));
_debug->load_random(msk->get(F_SEQUENZA));
if (!_debug->stopped())
_debug->do_debug();
else
warning_box("File di sequenza non valido");
delete _debug;
}
delete msk;
delete cdir;
break;
case BAR_ITEM(1):
do {
switch(tasto=get_mask()->run())
{
@ -83,7 +140,7 @@ bool BA1300_application::menu(MENU_TAG m)
get_test()->set_rmc();
get_test()->get_win()->set_color(COLOR_BLACK,COLOR_WHITE);
get_test()->get_win()->clear(COLOR_WHITE);
get_test()->get_win()->set_caption("Monitor");
get_test()->get_win()->set_caption("Verifica di stabilita'");
get_test()->get_win()->WriteW(10,5,"Test N. :");
get_test()->get_win()->WriteW(10,7,"Nome File :");
get_test()->get_win()->WriteW(10,9,"Record cancellati :");
@ -102,28 +159,16 @@ bool BA1300_application::menu(MENU_TAG m)
get_test()->do_test_1();
}
if (get_test()->rm_copy())
{ // Funzione di cancellazione da implementare sotto windows
TString base(get_test()->get_base());
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
for (int i=0;i<get_sheet()->items();i++)
if (get_sheet()->checked(i))
{
TString nome(get_sheet()->row(i).get(2));
TString fpath;
nome.ltrim(1);
nome.rtrim(4);
fpath << base << nome << ".sta";
remove((const char*)fpath);
fpath.rtrim(4);
fpath << ".sdx";
remove((const char*)fpath);
}
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
for (long i=0;i<get_sheet()->items();i++)
if (get_sheet()->checked(i))
get_test()->remove_copy(i+1);
}
delete _test;
}
else
warning_box("No files selected!");
warning_box("Nessun file selezionato");
break;
case K_F4:
get_sheet()->sr_status();
@ -145,12 +190,15 @@ bool BA1300_application::menu(MENU_TAG m)
rep_win.load_report();
rep_win.run();
} else
message_box("Report not available");
warning_box("Report non disponibile");
break;
default:
break;
}
} while (tasto != K_ESC);
break;
}
enable_menu_item(M_FILE_NEW);
return xvt_test_menu_tag(BAR_ITEM(2));
}

7
ba/ba1300.h
View File

@ -36,6 +36,7 @@ class TTestWin : public TIndwin
{
protected:
virtual void update() {update_text();}
virtual void handler(WINDOW w, EVENT *e);
void update_text() {set_mode(M_COPY); check_stop();}
public:
WriteW(short x, short y, const char* line) {stringat(x,y,line);update_text();do_events();}
@ -51,6 +52,7 @@ class TTestProc
long * _randseq; // Random sequence
long _ntest; // number of test in progress
long _nfile; // number of file being tested
long _kriminal; // number of record incriminated (Debug)
int _nkeys; // # of keys defined for current file
bool _block; // is test blocked ?
bool _rmc; // Remove copies at the end of test ?
@ -60,6 +62,7 @@ protected:
void DumpReport(int err, long i, long x, int key);
long sumop(const long n) {return ((n+1)*(n/2)+(n%2)*((n+1)/2));}
int ctrl_keys();
bool show_mess(int, int, long, long, int);
const char * fmttime(const long);
public:
TTestProc();
@ -67,12 +70,16 @@ public:
const char* get_base();
void do_test_1();
void do_test_2();
void do_debug();
void remove_copy(long 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;}
long number(const long n) {return _randseq[n];}
void set_sheet (TTestSheet * sh) {_sheet=sh;}
TTestSheet * get_isheet() {return _sheet;}

5
ba/ba1300a.h
View File

@ -10,4 +10,9 @@
#define DLG_TEST 106
#define DLG_RESET 201 // Reset button for sheet mask
#define F_FILE 101
#define F_NOMEFILE 102
#define F_SEQUENZA 103
#endif

5
ba/ba1300a.uml
View File

@ -46,10 +46,9 @@ BEGIN
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_NULL 9 2
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT 30 7 "F~ine"
MESSAGE EXIT,K_ESC
PROMPT 30 7 ""
END
ENDMASK

33
ba/ba1300b.uml Executable file
View File

@ -0,0 +1,33 @@
#include <defmask.h>
#include <tokens.h>
#include "ba1300a.h"
PAGE "Debugging" -1 -1 42 7
NUMBER F_FILE 3
BEGIN
PROMPT 2 1 "Numero file "
SHEET "N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43"
INPUT F_FILE
OUTPUT F_FILE
HELP "Inserire il numero del file da esaminare"
END
STRING F_SEQUENZA 20
BEGIN
PROMPT 2 3 "File Random "
HELP "Introdurre il nome del file della sequenza"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 6 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 6 ""
END
ENDMASK

196
ba/ba1301.cpp
View File

@ -108,6 +108,23 @@ void TTestProc::filecopy(bool save)
fcopy((const char*)St2,(const char*)St1);
}
void TTestProc::remove_copy(long n)
{
TString base(get_base());
TDir d;
d.get(n,_nolock,_nordir,_sysdirop);
TString nome(d.name());
TString fpath;
nome.ltrim(1);
nome.rtrim(4);
fpath << base << nome << ".sta";
remove((const char*)fpath);
fpath.rtrim(4);
fpath << ".sdx";
remove((const char*)fpath);
}
void TTestProc::do_random(long eod)
{
long i,j,com;
@ -209,7 +226,6 @@ while ((_nfile++ <= get_isheet()->items()) && !_block)
err=_workf->remove();
if (err!=NOERR)
FoundError=TRUE;
// Ascoltare se viene premuto esc....eventualmente bloccare
if (get_win()->iscancelled())
_block=TRUE;
if ((i%20)==0)
@ -274,7 +290,7 @@ void TTestProc::do_test_2()
{
TTrec r;
r.get(_nfile);
TToken_string def(r.keydef(k));
TToken_string def(r.keydef(k-1));
_workf->setkey(k);
err=_workf->read();
@ -325,6 +341,9 @@ void TTestProc::DumpReport(int err, long i, long x, int key)
if ((fp=fopen((const char*)RandomFile,"w"))!=NULL)
{
for (int j=0;j<_workf->eod();j++)
if (j==i)
fprintf(fp,"%9ld*\n",number(j));
else
fprintf(fp,"%9ld \n",number(j));
fclose(fp);
}
@ -349,6 +368,163 @@ void TTestProc::DumpReport(int err, long i, long x, int key)
}
}
void TTestProc::load_random(const TString& st)
{
FILE *fp;
char c;
_kriminal=0;
if ((fp=fopen((const char*)st,"r"))!=NULL)
{
TDir d;
d.get(_nfile,_nolock,_nordir,_sysdirop);
_randseq = new long[d.eod()];
for (long i=0;i<d.eod() && !feof(fp);i++)
{
fscanf(fp,"%9ld%c",&_randseq[i],&c);
if (c=='*')
_kriminal=_randseq[i];
if (_randseq[i]>d.eod())
{
_block=TRUE;
break;
}
}
}
}
void TTestProc::do_debug()
{
TDir d;
d.get(_nfile,_nolock,_nordir,_sysdirop);
get_win()->set_color(COLOR_BLACK,COLOR_WHITE);
get_win()->clear(COLOR_WHITE);
get_win()->set_caption("Ricerca dell'errore");
get_win()->WriteW(8,5,(const char*)TString(25).format("File numero : %4d\t\t\t%s",_nfile,(const char*)d.name()));
get_win()->WriteW(8,7,"Record Cancellati :");
get_win()->WriteW(8,9,"Operazione in corso : COPIA DI SICUREZZA");
get_win()->WriteW(8,11,"Record cancellato :");
get_win()->WriteW(8,12,"Record letto :");
get_win()->WriteW(8,14,"Errore rilevato :");
filecopy(); // Backup copies. Must be placed here
// otherwise I get a "File already open error"
_workf = new TTestFile(_nfile);
if (_workf->open(_excllock) == NOERR)
{
TTrec r;
r.get(_nfile);
_nkeys=r.keys();
long i=0,j;
int k,err=NOERR;
bool step=FALSE;
get_win()->WriteW(30,9,"Cancello fino al Kriminale...");
while (!stopped() && i<_workf->eod() && err==NOERR)
{
if (number(i)==_kriminal)
step=TRUE; // Put here a Break Point to debug step by step
err=_workf->readat(number(i));
if (err!=NOERR || step)
_block=show_mess(1,err,number(i),number(i),0);
err=_workf->remove();
if (err!=NOERR || step)
_block=show_mess(2,err,number(i),number(i),0);
j=i+1;
get_win()->WriteW(30,9,"TEST 2: CONTROLLO CHIAVI ");
get_win()->WriteW(30,7,(const char*)TString(20).format("%5ld/%-5ld",j,_workf->eod()));
get_win()->WriteW(30,11,(const char*)TString(10).format("%5ld",number(i)));
while (!stopped() && j<_workf->eod() && err==NOERR)
{
if (get_win()->iscancelled())
_block=TRUE;
err=_workf->readat(number(j));
if (err!=NOERR || step)
_block=show_mess(3,err,number(j),number(j),0);
get_win()->WriteW(30,12,(const char*)TString(10).format("%5ld",number(j)));
k=1;
while (k<=_nkeys && err==NOERR && !stopped())
{
TToken_string def(r.keydef(k-1));
_workf->setkey(k);
err=_workf->read();
if (err!=NOERR || step)
_block=show_mess(4,err,number(j),_workf->recno(),k);
if (def.get_char(1)=='X') // if keys are duplicated
{
TString ksaved(_workf->curr().key(k));
bool Fnd=FALSE;
while (!stopped() && err==NOERR && !Fnd && ksaved==_workf->curr().key(k))
if (_workf->recno()==number(j))
Fnd=TRUE;
else
{
err=_workf->next();
if (err!=NOERR || step)
_block=show_mess(5,err,number(j),_workf->recno(),k);
}
} // if keys are duplicated
if (err!=NOERR || number(j)!=_workf->recno())
{
_block=show_mess(6,err,number(j),number(j),0);
err=999; // So it will exit
}
k++;
}
j++;
}
get_win()->WriteW(30,9,"Cisreadrec -- Cisdelete ");
i++;
}
_workf->close();
}
get_win()->WriteW(30,9,"RIPRISTINO ARCHIVIO ");
filecopy(FALSE); // Restore copies
get_win()->WriteW(30,9,"CANCELLAZIONE COPIE ");
remove_copy(_nfile); // Delete backup copies
// Free pointers
if (_workf!=NULL)
delete _workf;
if (_randseq != NULL)
delete _randseq;
}
bool TTestProc::show_mess(int act, int err, long n1, long n2, int k)
{
switch (act)
{
case 1:
get_win()->WriteW(30,9,(const char*)TString(42).format("Eseguita la readrec per rec. # %ld",n1));
get_win()->WriteW(30,11,(const char*)TString(40).spaces());
break;
case 2:
get_win()->WriteW(30,9,(const char*)TString(42).format("Eseguita la delete per rec. # %ld",n1));
get_win()->WriteW(30,11,(const char*)TString(10).format("%5ld",n1));
break;
case 3:
get_win()->WriteW(30,9,(const char*)TString(42).format("Eseguita la readrec per contr. chiavi"));
get_win()->WriteW(30,12,(const char*)TString(10).format("%5ld ",n1));
break;
case 4:
get_win()->WriteW(30,9,(const char*)TString(42).format("Eseguita la start con chiave %d ",k));
get_win()->WriteW(30,12,(const char*)TString(15).format("%5ld (%ld)",n1,n2));
break;
case 5:
get_win()->WriteW(30,9,(const char*)TString(42).format("Eseguita la next per chiavi doppie "));
get_win()->WriteW(30,12,(const char*)TString(15).format("%5ld (%ld)",n1,n2));
break;
case 6:
get_win()->WriteW(30,9,(const char*)TString(42).format("Record %ld non trovato nelle chiavi duplicate ",n1));
break;
}
get_win()->WriteW(30,14,(const char*)TString(5).format("%5d",err));
KEY tasto=get_win()->run();
return (tasto == K_ESC);
}
TTestProc::TTestProc()
: _block(FALSE), _ntest(0), _nfile(0), _randseq(NULL), _rmc(FALSE), _workf(NULL), _sheet(NULL), _win(NULL)
{
@ -362,9 +538,23 @@ TTestProc::~TTestProc()
}
TTestWin::TTestWin()
:TIndwin(1L,"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",TRUE,FALSE,64)
:TIndwin(1L,"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n",TRUE,FALSE,70)
{}
void TTestWin::handler(WINDOW w, EVENT *e)
{
switch (e->type)
{
case E_CHAR:
if (e->v.chr.ch == K_ENTER)
stop_run(K_ENTER);
break;
default:
break;
}
TIndwin::handler(w,e);
}
TTestReport::TTestReport(const char* title)
{
WINDOW parent=TASK_WIN;

4
ba/makefile
View File

@ -170,7 +170,7 @@ $(EP)trc.gen: trc.gen.asc
uudecode trc.gen.asc
mv trc.gen $(EP)
masks: $(EP)ba1100a.msk $(EP)ba1100b.msk $(EP)ba1100c.msk $(EP)ba1100d.msk $(EP)ba1100e.msk $(EP)ba1100f.msk $(EP)ba1300a.msk $(EP)ba2300a.msk $(EP)ba2300b.msk $(EP)ba2300c.msk $(EP)ba2300d.msk \
masks: $(EP)ba1100a.msk $(EP)ba1100b.msk $(EP)ba1100c.msk $(EP)ba1100d.msk $(EP)ba1100e.msk $(EP)ba1100f.msk $(EP)ba1300a.msk $(EP)ba1300b.msk $(EP)ba2300a.msk $(EP)ba2300b.msk $(EP)ba2300c.msk $(EP)ba2300d.msk \
$(EP)ba3200a.msk $(EP)ba3300a.msk $(EP)ba3500a.msk $(EP)ba3600a.msk $(EP)ba3700a.msk $(EP)ba4100a.msk $(EP)ba4200b.msk $(EP)ba4200c.msk $(EP)ba4300a.msk $(EP)ba4400a.msk \
$(EP)ba4500a.msk $(EP)ba4600a.msk $(EP)ba5000.msk $(EP)ba6000a.msk $(EP)ba6000b.msk $(EP)ba6100a.msk $(EP)ba6100b.msk $(EP)ba6200a.msk $(EP)bast%ais.msk $(EP)bast%asf.msk \
$(EP)bast%ban.msk $(EP)bast%cco.msk $(EP)bast%cfi.msk $(EP)bast%cpg.msk $(EP)bast%crs.msk $(EP)bast%cve.msk $(EP)bast%dpn.msk $(EP)bast%itl.msk $(EP)bast%iva.msk $(EP)bast%ivd.msk \
@ -200,6 +200,8 @@ $(EP)ba1100f.msk: ba1100f.uml $(I45) ba1100a.h
$(EP)ba1300a.msk: ba1300a.uml $(I45) ba1300a.h
$(EP)ba1300b.msk: ba1300b.uml $(I45) ba1300a.h
$(EP)ba2300a.msk: ba2300a.uml ba2300.h
$(EP)ba2300b.msk: ba2300b.uml ba2300.h