156 lines
3.2 KiB
C++
156 lines
3.2 KiB
C++
#define TIME_FILENAME "HOME/TimeClock/TimeFile.DAT.Z"
|
|
|
|
#define TET_EOF 0
|
|
#define TET_PUNCH_IN 1
|
|
#define TET_PUNCH_OUT 2
|
|
|
|
class TimeEntry
|
|
{
|
|
TimeEntry *next,*last;
|
|
U8 type;
|
|
CDate datetime;
|
|
U8 *desc;
|
|
};
|
|
|
|
|
|
U0 TimeFileRead(TimeEntry *header)
|
|
{
|
|
U8 *buf,*ptr,type;
|
|
TimeEntry *tempt;
|
|
buf=FileRead(TIME_FILENAME);
|
|
if (!buf)
|
|
buf=CAlloc(1);
|
|
header->next=header->last=header;
|
|
ptr=buf;
|
|
while (type=*ptr++) {
|
|
tempt=CAlloc(sizeof(TimeEntry));
|
|
tempt->type=type;
|
|
tempt->datetime=*ptr(CDate *)++;
|
|
tempt->desc=StrNew(ptr);
|
|
ptr+=StrLen(ptr)+1;
|
|
QueIns(tempt,header->last);
|
|
}
|
|
Free(buf);
|
|
}
|
|
|
|
U0 TimeFileWrite(TimeEntry *header)
|
|
{
|
|
U8 *buf,*ptr;
|
|
TimeEntry *tempt;
|
|
I64 size=1; //for eof
|
|
|
|
tempt=header->next;
|
|
while (tempt!=header) {
|
|
size+=sizeof(U8)+sizeof(CDate)+StrLen(tempt->desc)+1;
|
|
tempt=tempt->next;
|
|
}
|
|
buf=MAlloc(size);
|
|
|
|
ptr=buf;
|
|
tempt=header->next;
|
|
while (tempt!=header) {
|
|
*ptr++=tempt->type;
|
|
*ptr(CDate *)++=tempt->datetime;
|
|
StrCpy(ptr,tempt->desc);
|
|
ptr+=StrLen(tempt->desc)+1;
|
|
tempt=tempt->next;
|
|
}
|
|
*ptr=TET_EOF;
|
|
FileWrite(TIME_FILENAME,buf,size);
|
|
Free(buf);
|
|
}
|
|
|
|
U0 TimeEntriesDel(TimeEntry *header)
|
|
{
|
|
TimeEntry *tempt=header->next,*tempt1;
|
|
while (tempt!=header) {
|
|
tempt1=tempt->next;
|
|
Free(tempt->desc);
|
|
Free(tempt);
|
|
tempt=tempt1;
|
|
}
|
|
Free(header);
|
|
}
|
|
|
|
public Bool TimeRep(TimeEntry **_header=NULL)
|
|
{
|
|
Bool is_in=FALSE,first=TRUE;
|
|
I64 week,cur_week=-1,week_total;
|
|
TimeEntry *tempt,*header=MAlloc(sizeof(TimeEntry));
|
|
if (_header) *_header=header;
|
|
TimeFileRead(header);
|
|
tempt=header->next;
|
|
while (tempt!=header) {
|
|
week=tempt->datetime.date/7; //TODO
|
|
if (week!=cur_week) {
|
|
if (!first) {
|
|
if (is_in)
|
|
week_total+=GetDateTime;
|
|
"Week Total:%h7T\n",week_total;
|
|
} else
|
|
first=FALSE;
|
|
cur_week=week;
|
|
week_total=0;
|
|
}
|
|
if (tempt->type==TET_PUNCH_IN) {
|
|
"$$FG,RED$$IN ";
|
|
if (!is_in)
|
|
week_total-=tempt->datetime;
|
|
is_in=TRUE;
|
|
} else {
|
|
"$$FG,RED$$OUT";
|
|
if (is_in)
|
|
week_total+=tempt->datetime;
|
|
is_in=FALSE;
|
|
}
|
|
" %h2D %T:$$FG$$\n%s\n",tempt->datetime,tempt->datetime,tempt->desc;
|
|
tempt=tempt->next;
|
|
}
|
|
if (is_in)
|
|
week_total+=GetDateTime;
|
|
"$$FG,RED$$Week Total:%h7T$$FG$$\n",week_total;
|
|
if (!_header)
|
|
TimeEntriesDel(header);
|
|
return is_in;
|
|
}
|
|
|
|
public U0 PunchOut()
|
|
{
|
|
Bool is_in;
|
|
TimeEntry *tempt,*header;
|
|
is_in=TimeRep(&header);
|
|
if (!is_in)
|
|
"$$BK,1$$Already Punched-Out$$BK,0$$\n";
|
|
else {
|
|
tempt=MAlloc(sizeof(TimeEntry));
|
|
tempt->type=TET_PUNCH_OUT;
|
|
tempt->datetime=GetDateTime;
|
|
"\nEnter Description.\nPress <ESC> when done.\n";
|
|
if (!(tempt->desc=MGetS(GETSF_WITH_NEW_LINE)))
|
|
tempt->desc=CAlloc(1);
|
|
QueIns(tempt,header->last);
|
|
TimeFileWrite(header);
|
|
}
|
|
TimeEntriesDel(header);
|
|
}
|
|
|
|
public U0 PunchIn()
|
|
{
|
|
Bool is_in;
|
|
TimeEntry *tempt,*header;
|
|
is_in=TimeRep(&header);
|
|
if (is_in)
|
|
"$$BK,1$$Already Punched-In$$BK,0$$\n";
|
|
else {
|
|
tempt=MAlloc(sizeof(TimeEntry));
|
|
tempt->type=TET_PUNCH_IN;
|
|
tempt->datetime=GetDateTime;
|
|
"\nEnter Description.\nPress <ESC> when done.\n";
|
|
if (!(tempt->desc=MGetS(GETSF_WITH_NEW_LINE)))
|
|
tempt->desc=CAlloc(1);
|
|
QueIns(tempt,header->last);
|
|
TimeFileWrite(header);
|
|
}
|
|
TimeEntriesDel(header);
|
|
}
|