root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Commentata parte inutile o incompatibile per FOXPRO

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@43 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-22 09:47:35 +00:00
parent 224ec2c260
commit 76f5246fab
1 changed files with 161 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
include/files.cpp
View File

@ -1,14 +1,18 @@
#include <stdio.h>
#include <memory.h>
#include <string.h>
#include <strings.h>
#include <stdlib.h>
#include <files.h>
#ifndef FOXPRO
#include <expr.h>
#endif
#ifndef __EXTCDECL_H
#include <extcdecl.h>
#endif
#include <strings.h>
#include <utility.h>
#define BLOCKLEN 512
@ -101,9 +105,9 @@ int TFile ::
status ()
const
{
{
return _file->IOR;
}
}
TDir ::
TDir ()
@ -126,47 +130,47 @@ const char *TDir ::
name ()
const
{
{
return _dir->SysName;
}
}
const char *TDir ::des ()
const char *TDir ::des ()
const
{
{
return _dir->Des;
}
}
const char *TDir ::expr ()
const char *TDir ::expr ()
const
{
{
return _dir->FCalc;
}
}
TRecnotype & TDir ::
eod ()
const
{
{
return _dir->EOD;
}
}
TRecnotype & TDir ::
eox ()
const
{
{
return _dir->EOX;
}
}
TRecnotype & TDir ::
flags ()
const
{
{
return _dir->Flags;
}
}
word & TDir ::
len ()
@ -179,11 +183,11 @@ int TDir ::
status (TDirtype dirop)
const
{
{
return fdir[dirop].IOR;
}
}
void TDir ::set_len (const UINT16 len)
void TDir ::set_len (const UINT16 len)
{
_dir->LenR = len;
}
@ -242,13 +246,13 @@ int TDir ::
items (TDirtype dirtype)
const
{
{
FileDes f;
int _whichdir = (dirtype == _nordir ? NORDIR : COMDIR);
CGetFile (1, &f, _nolock, _whichdir);
return (int) f.EOD;
}
}
TTrec ::
TTrec ()
@ -271,13 +275,13 @@ int TTrec ::
compare (const TSortable & a)
const
{
{
const TTrec & r = (const TTrec &) a;
const int res = memcmp ((const void *) _rec, (const void *) r._rec, sizeof (*_rec));
return res;
}
}
void TTrec ::rehash ()
void TTrec ::rehash ()
{
setrdes (_rec);
@ -323,32 +327,32 @@ int TTrec ::
status (TDirtype dirop)
const
{
{
return rdir[dirop].IOR;
}
}
int TTrec ::field (const char *name)
int TTrec ::field (const char *name)
const
{
{
return findfld (_rec, (char *) name);
}
}
const char *TTrec ::fielddef (int fld)
const char *TTrec ::fielddef (int fld)
const
{
{
sprintf (_files_tmp_string, "%s|%d|%d|%d", _rec->Fd[fld].Name,
(int) _rec->Fd[fld].TypeF, (int) _rec->Fd[fld].Len,
(int) _rec->Fd[fld].Dec);
return _files_tmp_string;
}
}
const char *TTrec ::keydef (int key)
const char *TTrec ::keydef (int key)
const
{
{
TFixed_string s (_files_tmp_string, 128);
s = "";
@ -370,7 +374,10 @@ status (TDirtype dirop)
}
s << (_rec->Ky[key].DupKeys ? "|X" : "| ");
return (const char *) s;
}
}
#ifndef FOXPRO
void TTrec ::
update_fielddef (int nfld, const char *desc)
@ -437,7 +444,7 @@ void TTrec ::
print_on (ostream & out)
const
{
{
out << num () << '\n';
const int nfields = fields ();
TToken_string s (80);
@ -456,7 +463,7 @@ print_on (ostream & out)
s = keydef (i);
out << s << '\n';
}
}
}
void TTrec ::
read_from (istream & in)
@ -490,3 +497,5 @@ read_from (istream & in)
}
rehash ();
}
#endif // FOXPRO