TempleOSTS_130315.ISO

TempleOS/Apps/TimeClock/Install.CPP

@@ -0,0 +1,5 @@
+MkDir("HOME/TimeClock");
+"$$CL$$After Loading, type $$FG,GREEN$$PunchIn;$$FG$$, "
+"$$FG,GREEN$$PunchOut;$$FG$$ or $$FG,GREEN$$TimeRep;$$FG$$"
+"  You might want to make PLUGINS for hot keys.\n\n\n";
+

TempleOS/Apps/TimeClock/Load.CPP

@@ -0,0 +1 @@
+#include "/TempleOS/Apps/TimeClock/TimeClk"

TempleOS/Apps/TimeClock/TimeClk.CPP

@@ -0,0 +1,155 @@
+#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+=GetCurTimeCDate;
+	"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+=GetCurTimeCDate;
+  "$$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=GetCurTimeCDate;
+    "\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=GetCurTimeCDate;
+    "\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);
+}