From f88e8751691a5b044b6f838c987c09d493ea2712 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 16 Nov 1995 11:30:19 +0000 Subject: [PATCH] Aggiunta specifica not deleted per eliminare i problemi di FoxPro con gli indici unique git-svn-id: svn://10.65.10.50/trunk@2160 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- include/codeb.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/include/codeb.c b/include/codeb.c index 1fd49c370..b90339400 100755 --- a/include/codeb.c +++ b/include/codeb.c @@ -31,10 +31,10 @@ #define S4DLL #endif -#include +#include #include -#include -#include +#include +#include #include #include #define MAXLEN 128 /* Lunghezza massima chiave */ @@ -579,7 +579,7 @@ HIDDEN void do_key(char *fname, RecDes *r, TAG4INFO *tag_info) tag_info[i].unique=0; else tag_info[i].unique=e4unique; - strcpy(tag_info[i].filter,""); /* Not available for DBIII and CLIPPER */ + strcpy(tag_info[i].filter,".NOT. DELETED()"); /* Not available for DBIII and CLIPPER */ strcpy(tag_info[i].name,tiname) ; if (strlen(tiname) < 8) strcat(tag_info[i].name," "); @@ -745,11 +745,11 @@ int DB_packindex(short vis, const char * filename, RecDes *r, long *peod) do_key(ff,r,tags); if (u4switch() &2 || u4switch() & 8) /* Clipper and DBIII */ { - rt = (int)i4create(dbdata[handle],(char*)filename,tags); + INDEX4 * w = i4create(dbdata[handle],(char*)filename,tags); #ifndef FOXPRO progind_set_status((long)r->NKeys); #endif - if (rt!=0 && code_base.error_code==0) + if (w != NULL && code_base.error_code==0) { FILE *fp; char cgp[81]; @@ -768,8 +768,8 @@ int DB_packindex(short vis, const char * filename, RecDes *r, long *peod) } if (u4switch() & 1 || u4switch() & 4) /* FOXPRO and DBIV */ { - rt = (int)i4create(dbdata[handle],NULL,tags); - if (rt == 0) rt = code_base.error_code; + INDEX4 * w = i4create(dbdata[handle],NULL,tags); + if (w == NULL) rt = code_base.error_code; #ifndef FOXPRO progind_set_status((long)r->NKeys); #endif