TempleOSCDV4.11.ISO

Apps/Budget/Budget.HC

@@ -0,0 +1,77 @@
+#define BGT_STRINGS_FILE	"~/Budget/Strs.DD.Z"
+#define BGT_ACCTS_FILE		"~/Budget/Accts.DD.Z"
+#define BGT_DATA_FILE		"~/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_idx,debit_idx,desc_idx;
+  F64 amount;
+  U0 end;
+
+  U8 *credit,*debit,*desc;
+  CBgtTemplate *template;
+  CDocEntry *doc_e;
+} b_head;
+#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,D=\"ST_BGT_TEMPLATE_TYPES\"$$\n";
+  U16 flags;
+  U8 start_date[16]	fmtstr "$$DA-P,A=\"Start Date:%s\"$$\n";
+  U8 end_date[16]	fmtstr "$$DA-P,A=\"End Date  :%s\"$$\n";
+  F64 period		fmtstr "$$DA,A=\"Period    :%6.2f\"$$\n";
+  U0 end;
+
+  CBgtEntry b;
+} t_head;
+#define BT_SIZE	(offset(CBgtTemplate.end)-offset(CBgtTemplate.start))
+
+U8 view_acct[512];
+CHashTable *accts_table=NULL;
+I64 accts_table_strs=0;
+
+CDate MyStr2Date(U8 *st)
+{
+  CDateStruct	ds;
+  CDate		res;
+  if (st&&*st) {
+    if (StrOcc(st,'['))
+      res=b_head.next->date;
+    else if (StrOcc(st,']'))
+      res=b_head.last->date;
+    else
+      res=Str2Date(st);
+  } else
+    res=Now;
+  Date2Struct(&ds,res);
+  if (ds.year>2050)
+    ds.year-=100;
+  return Struct2Date(&ds);
+}