a0f5e0898b
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@976 c028cbd2-c16b-5b4b-a496-9718f37d4682
85 lines
1.7 KiB
C
Executable File
85 lines
1.7 KiB
C
Executable File
/***********************************************************************\
|
|
* *
|
|
* DELETION.C Copyright (C) 1993 Sequiter Software Inc. *
|
|
* *
|
|
\***********************************************************************/
|
|
/* See User's Manual, page 58 */
|
|
|
|
|
|
#include "d4all.h"
|
|
|
|
#ifdef __TURBOC__
|
|
extern unsigned _stklen = 10000;
|
|
#endif
|
|
|
|
CODE4 code_base;
|
|
DATA4 *data_file = 0;
|
|
FIELD4INFO field_info[]=
|
|
{
|
|
{"DUMMY",'C',10,0},
|
|
{"MEMO",'M',10,0},
|
|
{0,0,0,0},
|
|
};
|
|
|
|
void print_delete_status(int status,long rec_no)
|
|
{
|
|
if(status)
|
|
printf("Record %5ld - DELETED\n",rec_no);
|
|
else
|
|
printf("Record %5ld - NOT DELETED\n",rec_no);
|
|
}
|
|
|
|
void print_records(DATA4 *data_file)
|
|
{
|
|
int rc,status;
|
|
long rec_no;
|
|
|
|
printf("\n");
|
|
|
|
rc = d4top(data_file);
|
|
while(rc != r4eof)
|
|
{
|
|
rec_no = d4recno(data_file);
|
|
status = d4deleted(data_file);
|
|
print_delete_status(status,rec_no);
|
|
rc = d4skip(data_file,1L);
|
|
}
|
|
|
|
}
|
|
|
|
void main()
|
|
{
|
|
int count;
|
|
|
|
d4init(&code_base);
|
|
data_file = d4create(&code_base, "TUTOR5", field_info, 0);
|
|
e4exit_test(&code_base);
|
|
|
|
for(count = 0;count < 5;count ++)
|
|
d4append_blank(data_file);
|
|
|
|
|
|
print_records(data_file);
|
|
|
|
d4go(data_file,3L);
|
|
d4delete(data_file);
|
|
d4go(data_file,1L);
|
|
d4delete(data_file);
|
|
d4go(data_file,4L);
|
|
d4delete(data_file);
|
|
print_records(data_file);
|
|
|
|
d4go(data_file,3L);
|
|
d4recall(data_file);
|
|
print_records(data_file);
|
|
|
|
d4pack(data_file);
|
|
d4memo_compress(data_file);
|
|
print_records(data_file);
|
|
|
|
d4close_all(&code_base);
|
|
d4init_undo(&code_base);
|
|
mem4reset() ;
|
|
|
|
}
|