TempleOSCD_140715.ISO

Apps/Budget/Budget.CPP

@@ -0,0 +1,76 @@
+#define BGT_STRINGS_FILE	"HOME/Budget/Strs.TXT.Z"
+#define BGT_ACCTS_FILE		"HOME/Budget/Accts.TXT.Z"
+#define BGT_DATA_FILE		"HOME/Budget/Bgt.DAT.Z"
+
+#define BE_NORMAL		0
+#define BE_GAS			1
+#define BE_ANNIVERSARY		2
+#define BE_PRICE		3
+#define BE_TEMPLATE_COPY	4
+
+extern class CBgtTemplate;
+
+class CBgtEntry
+{
+  CBgtEntry *next,*last;
+
+  U0 start;
+  CDate date;
+  U16 type,flags;
+  U32 credit_index,debit_index,desc_index;
+  F64 amount;
+  U0 end;
+
+  U8 *credit,*debit,*desc;
+  CBgtTemplate *template;
+  CDocEntry *doc_e;
+} b_root;
+#define BE_SIZE	(offset(CBgtEntry.end)-offset(CBgtEntry.start))
+
+#define BT_NULL		0
+#define BT_INTERVAL	1
+#define BT_MONTHLY	2
+#define BT_BIMONTHLY	3
+#define BT_SEMIANNUAL	4
+#define BT_ANNUAL	5
+
+DefineLstLoad("ST_BGT_TEMPLATE_TYPES",
+	"Null\0Interval\0Monthly\0Bimonthly\0Semiannual\0Annual\0");
+
+class CBgtTemplate
+{
+  CBgtTemplate *next,*last;
+
+  U0 start;
+  U16 type		fmtstr "$$LS,RT=U16,D=\"ST_BGT_TEMPLATE_TYPES\"$$\n";
+  U16 flags;
+  U8 start_date[16]	fmtstr "$$DA-P,15,A=\"Start Date:%s\"$$\n";
+  U8 end_date[16]	fmtstr "$$DA-P,15,A=\"End Date  :%s\"$$\n";
+  F64 period		fmtstr "$$DA,511, A=\"Period    :%6.2f\"$$\n";
+  U0 end;
+
+  CBgtEntry b;
+} t_root;
+#define BT_SIZE	(offset(CBgtTemplate.end)-offset(CBgtTemplate.start))
+
+U8 view_acct[512];
+CHashTable *accts_table=NULL;
+
+CDate MyStr2Date(U8 *st)
+{
+  CDateStruct	ds;
+  CDate		result;
+  if (st&&*st) {
+    if (StrOcc(st,'['))
+      result=b_root.next->date;
+    else if (StrOcc(st,']'))
+      result=b_root.last->date;
+    else
+      result=Str2Date(st);
+  } else
+    result=Now;
+  Date2Struct(&ds,result);
+  if (ds.year>2050)
+    ds.year-=100;
+  return Struct2Date(&ds);
+}