Corretti errori vari

git-svn-id: svn://10.65.10.50/trunk@2536 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-01-29 14:03:03 +00:00
parent b92a6dfacb
commit fef0dc534c

View File

@ -12,7 +12,7 @@
#define MAX_SIZE (100000l) #define MAX_SIZE (100000l)
TMemo_file::TMemo_file(const char* a) : TMemo_file::TMemo_file(const char* a) :
_fname(a), _fp(NULL), _isnew(NULL) _fname(a), _fp(NULL), _isnew(FALSE)
{ {
// handles: open file or create // handles: open file or create
_fname.ext("mem"); _fname.ext("mem");
@ -23,7 +23,7 @@ _fname(a), _fp(NULL), _isnew(NULL)
} }
if (_fp == NULL) if (_fp == NULL)
error_box("File memo %s non creato per errori di disco", _fname); error_box("File memo %s non creato per errori di disco", (const char *) _fname);
// read (write) header // read (write) header
if (_isnew) if (_isnew)
@ -99,7 +99,7 @@ bool TMemo_file::get_field(TTextfile& t, long id)
for (long cnt = 0; cnt < _next_ofs; cnt += size) for (long cnt = 0; cnt < _next_ofs; cnt += size)
{ {
if (fread(__tmp_string, sizeof(char), (int)size, _fp) != (size_t)size) if (fread(__tmp_string, sizeof(char), (int)size, _fp) != (size_t)size)
error_box("%s: unexpected end of file", _fname); error_box("%s: unexpected end of file", (const char *) _fname);
// move block into text // move block into text
for(long j = 0; j <= size; j++) for(long j = 0; j <= size; j++)
@ -160,7 +160,7 @@ long TMemo_file::set_field(TTextfile& t, long id)
fseek(_fp, oo, SEEK_CUR); fseek(_fp, oo, SEEK_CUR);
break; break;
} }
if (ok) error_box("file error in %s", _fname); if (ok) error_box("file error in %s", (const char *) _fname);
in_mid = TRUE; in_mid = TRUE;
} }
} }
@ -174,7 +174,11 @@ long TMemo_file::set_field(TTextfile& t, long id)
fseek(_fp, 0, SEEK_END); fseek(_fp, 0, SEEK_END);
// lock file // lock file
#if XVT_OS == XVT_OS_WIN && XVT_CC == XVT_CC_MSV80
_locking(_fileno(_fp), _LK_LOCK, MAX_SIZE); _locking(_fileno(_fp), _LK_LOCK, MAX_SIZE);
#else
locking(fileno(_fp), LK_LOCK, MAX_SIZE);
#endif
fwrite(&id, sizeof(long), 1, _fp); fwrite(&id, sizeof(long), 1, _fp);
// will overwrite later with byte count // will overwrite later with byte count
@ -208,7 +212,12 @@ long TMemo_file::set_field(TTextfile& t, long id)
fseek(_fp, 0, SEEK_SET); fseek(_fp, 0, SEEK_SET);
fwrite(&_id_max, sizeof(long), 1, _fp); fwrite(&_id_max, sizeof(long), 1, _fp);
#if XVT_OS == XVT_OS_WIN && XVT_CC == XVT_CC_MSV80
_locking(_fileno(_fp), _LK_UNLCK, MAX_SIZE); _locking(_fileno(_fp), _LK_UNLCK, MAX_SIZE);
#else
locking(fileno(_fp), LK_UNLCK, MAX_SIZE);
#endif
fflush(_fp); fflush(_fp);
ret = _find_id(id) ? id : -1; ret = _find_id(id) ? id : -1;