1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
--- db_dump.c.orig Thu May 30 14:15:30 2002
+++ db_dump.c Wed Apr 17 15:56:46 2002
@@ -164,6 +164,9 @@
int flags;
{
int fields;
+ char *info;
+ char *lang;
+ char *cdx;
DBASE_FIELD *fld;
if(dbfile==-1) {
@@ -171,26 +174,71 @@
return;
}
read(dbfile,&dbhead,sizeof(DBASE_HEAD));
- if( !(dbhead.version==3 || dbhead.version==0x83) ) {
+ if ( ! ( dbhead.version==0x03 || dbhead.version==0x83 || dbhead.version==0x04 || dbhead.version==0x05 || dbhead.version==0x8b || dbhead.version==0xf5 ) ) {
printf ("Version %d not supported\n",dbhead.version);
- if(dbhead.version==0x8b ) {
- printf ("dBase IV - partially known...\n");
+ if (dbhead.version==0x8e ) {
+ printf ("dBase IV or dBase V with SQL table - partially known...\n");
}
+ if (dbhead.version==0x43 || dbhead.version==0xb3){
+ printf ("FlagShip - partially known...\n");
+ }
return;
}
+ if (dbhead.version==0x03){
+ info="Plain dbf, dBaseIII+";
+ }
+ if (dbhead.version==0x04){
+ info="Plain dbf, dBaseIV+";
+ }
+ if (dbhead.version==0x05){
+ info="Plain dbf, dBaseV or FoxPro";
+ }
+ if (dbhead.version==0x83){
+ info="dBaseIII+ w/memo";
+ }
+ if (dbhead.version==0x8b){
+ info="dBaseIV+ w/memo";
+ }
+ if (dbhead.version==0xf5){
+ info="FoxPro w/memo";
+ }
+
+ fields=(dbhead.header-1)/32-1;
+ if (dbhead.excdx){
+ cdx="Yes";
+ }
+ else{
+ cdx="No";
+ }
+ if (dbhead.language==101){
+ lang="DOS 866";
+ }
+ else if (dbhead.language==2){
+ lang="WIN 1251";
+ }
+ else if (dbhead.language==2){
+ lang="DOS 850 Multi ling";
+ }
+ else if (dbhead.language==1){
+ lang="DOS 437 USA";
+ }
+ else{
+ lang="Unknown";
+ }
if (flags & DB_FL_INFO) {
- printf("File version : %d\n",dbhead.version);
- printf("Last update : %02d/%02d/%2d\n", dbhead.l_update[1],dbhead.l_update[2],dbhead.l_update[0]);
- printf("Number of recs: %ld\n",dbhead.count);
- printf("Header length : %d\n",dbhead.header);
- printf("Record length : %d\n",dbhead.lrecl);
+ printf("File version : %d, %s\n",dbhead.version,info);
+ printf("Last update : %02d/%02d/%2d\n", dbhead.l_update[1],dbhead.l_update[2],dbhead.l_update[0]+1900);
+ printf("Number of recs : %ld\n",dbhead.count);
+ printf("Header length : %d\n",dbhead.header);
+ printf("Record length : %d\n",dbhead.lrecl);
+ printf("Exist index cdx : %s\n",cdx);
+ printf("Language ID : %s\n",lang);
+ printf("Count fields : %d\n\n",fields);
}
Buffer=malloc(dbhead.lrecl);
-
- fields=(dbhead.header-1)/32-1;
-
+
if (flags & DB_FL_DESCR) {
printf("Field Name\tType\tLength\tDecimal Pos\n");
}
@@ -227,7 +275,7 @@
char delim;
{
int bytes;
-
+ lseek(dbfile,dbhead.header,SEEK_SET);
while(cnt) {
bytes=read(dbfile,Buffer,dbhead.lrecl);
if(bytes!=dbhead.lrecl)
@@ -253,7 +301,6 @@
char delim;
{
FLD_LIST *temp;
-
temp=db_fld_root;
while (temp) {
memcpy(buf_work,temp->data,temp->fld->length);
|
