48 lines
741 B
Plaintext
48 lines
741 B
Plaintext
## shared Dbsr
|
|
|
|
int count;
|
|
## char ut[14];
|
|
|
|
amx()
|
|
{
|
|
register int i;
|
|
long old;
|
|
long new;
|
|
char buf[BUFSIZ];
|
|
extern long time();
|
|
|
|
setbuf(stdout, buf);
|
|
printf("DBS/R-DEMONSTRATIONSBEISPIEL:\n");
|
|
printf("Konsistenzcheck Inf.Ut --> Teile.T\n\n");
|
|
fflush(stdout);
|
|
|
|
## open Teile
|
|
## open Inf
|
|
old = time((char *) 0);
|
|
## retrieve Inf (ut = $Ut)
|
|
## {
|
|
count++;
|
|
i = 0;
|
|
## retrieve Teile $T == $Ut
|
|
## {
|
|
i++;
|
|
## }
|
|
if (!i)
|
|
{
|
|
printf("ut = %s LOST\n", ut);
|
|
fflush(stdout);
|
|
}
|
|
if (i != 1)
|
|
{
|
|
printf("ut = %s has %d entries\n", ut, i);
|
|
fflush(stdout);
|
|
}
|
|
## }
|
|
new = time((char *) 0);
|
|
printf("\nEXECUTE %ld sec\n", new - old);
|
|
printf("TUPLECOUNT %d\n", count);
|
|
fflush(stdout);
|
|
## close Inf
|
|
## close Teile
|
|
}
|