From 90ee3fc72497c4023742ad7d8caec177aa48558e Mon Sep 17 00:00:00 2001
From: Jeremy Rand <jeremy@moleman>
Date: Thu, 25 Jul 2013 13:33:38 -0500
Subject: [PATCH] Start work on NDA

---
 .abCalcNDA.c.swp                        | Bin 0 -> 12288 bytes
 ops/.abCOp.c.swp => .abCalcNDA.defs.swp | Bin 12288 -> 12288 bytes
 .abCalcNDA.rez.swp                      | Bin 0 -> 12288 bytes
 Make.engine                             |  10 +++-
 Make.mac                                |  11 +++-
 Makefile                                |  20 +++++--
 abCalcNDA.c                             |  73 ++++++++++++++++++++++++
 abCalcNDA.defs                          |   7 +++
 abCalcNDA.rez                           |  37 ++++++++++++
 9 files changed, 149 insertions(+), 9 deletions(-)
 create mode 100644 .abCalcNDA.c.swp
 rename ops/.abCOp.c.swp => .abCalcNDA.defs.swp (79%)
 create mode 100644 .abCalcNDA.rez.swp
 create mode 100644 abCalcNDA.c
 create mode 100644 abCalcNDA.defs
 create mode 100644 abCalcNDA.rez

diff --git a/.abCalcNDA.c.swp b/.abCalcNDA.c.swp
new file mode 100644
index 0000000000000000000000000000000000000000..89477b2f13d6cf2b1c56372ed392599ee1b433cc
GIT binary patch
literal 12288
zcmeI2y>BB$7>6fN0T(_F(IAS6BhcD1w&MtpF62005<^hV3C@LU(oEKqWQljz%&udM
zbsz+^si=_<68`}O9|9rKQ1DUk4<Jgo;%Y$R_wI*xZOK7bP(*rHdc5|0yfgE>vz9E+
zLGAU;8}fz9vcUDI5O=)0ul-QjpYt|_c*7{KL*@T*xqer>%BysJTXoNA`%V<Fy6)S3
zS9@VlZS;Cwz2<iu?<js>ud0JJ)wPpbYrRpi&k4v?Y=8~igMoRmTwkhDhsDBzeEjm>
zJ@n<KY=8~00XDz}*Z><~18jf|Tyz6rZ%(|6MckJx1V8(uYi{bEeB>J&U;}J`4X^<=
zzy{a=8(;%$fDNz#HgEwADEz^{@PH8NK};V1|EItI|9(V>Kf$ly7w|Lq3491X0Plky
z@PP-~pbnNm4Lk*&1owmA9v0$z@D2DHd<DJ)pMp=o8F&-i0&AcFu7Q`p(_j(IgG=DA
zc_DrW-+>Oe2A%+SFA4D@_!fK&J_2XpHW-1o!4NdTI(QCT29JS%9zsm;Id~83f<^EL
zoO}U317~0a`oIQ}uM3!Oo-!L?18jf|umLu}2L5*gw}r%Ibl5kZY&N!bH&&vOxSZ<f
zIxt$D#1-_>R)LnL?=|eu@x3d8%F=79DHZEe94D2l@}>$-Zm1yCX1!t6%JP}$MCu0B
z7PH{gBde&mIDdNRXcHhnFbtyB&t4su&g?fh)<#eCiAv6E?@c%NX0~>95U8Wc_(|E!
zK7(UL7P3W9LDo8w8mY=_4F*nVA4|*jJGv-GLXe&yRH0+b$VFS*zUkzQ#StACkAkg;
zk+{CSy|vM3NgUXXV_Q^BA<Gj%O6lB+*mn~<W3UsNIB>QxvUfD6wXPrNwhsKhv31io
zC)QL>C!13j3JM`MvVC&P@y0_?U3x{8H0e{4eY3rn?9a5G?z=kN9R`Td@dwrs9Z-&=
zO-;Z#lve2DFtjngv5InaRn|ypK2)wZhHL3T9JOv0_Iolu{45J)iOt*E+uBNBYj4%+
zWjQddzFU@ty6h;U+@;(EXz=Zx_9hLb!&B`-ZmDT`Vu;3CiBtcwQHMLe2}xa?l#$4n
zA;mO|b?Q5vEQ_>6)I>Q-^P;<Wh-u(x&9UO*SVpc8B6430)Pr^o>02sdbJ0i?eA9En
z@xIE2&eA?JB+V|G+RPMAPZL?o298&iE;xBM@=kI|T@gur`bgv^1;b*|@$7CNt9vmV
z_H<A=zDk8XqmEo9y^f-VlHajSdJ{iWsRQ|ZO=3eVH=D8`lRdM)|4OM;Kqy(Njul@Y
bUXicjOUfO}Hl5@r4e=I3OdPDQmZbO>mjB<C

literal 0
HcmV?d00001

diff --git a/ops/.abCOp.c.swp b/.abCalcNDA.defs.swp
similarity index 79%
rename from ops/.abCOp.c.swp
rename to .abCalcNDA.defs.swp
index 9dc7471612ab3a173c7c6d61fdc05555ce4ff801..4ba1b750c7da28613ee9c45cef446d1a028c93c1 100644
GIT binary patch
delta 203
zcmZojXh@JsG6?hZRWR2xW&i>K1_smokAWBTVi@;&PL!(UOH6W3%t`ihanwsmO)K8a
z$l}7h`6aVD4<q|#L4nWwdLjG_3_U;$(#Z}o0SNv8`7eR^A`qVi;xj<J7KnTJH!BK6
z@!Kl{jmpeRRd952cJy(M_wn>|b%}TO_wf%3RxmU$Fk(Pc5bo*c;vXLG7wQX=Hk^D(
OUsV9fQ4IQ83Jd^b6f?>I

literal 12288
zcmeI2O>Epm6vrnV5MQMgAmCJntrYgFyW8|Y#U>G(1eKOewyf1qlva^rkCSQqC4VF-
zQOgw$6oj}S4n+b)1!p8Um8Nh&0U-egBq&H6;DiLHQV9wEGi#^a#ZG%I8cV;}^WMBS
zGk?F?O_W(^%pRJikJt7ST)PNq&;I%BX65)$e2|cnf$o~ZeuK;LZ06{0&Gro4-lp#v
znXo?P8L`9MD6F@9-)57Z$=$`?^GID^nAB~f?)jm3?D#cfn}o`x6i^D>oC0xV?LDxA
z>>t_J5CMA%kJ9_^J9=}ms+UqgDWDWk3Md7X0!jg;fKosy@V`(X@`uQaSjlb4YL=7x
z(7-)us+&?kDWDWk3Md7X0!jg;fKosypcGIFC<T-Px1a(#{=xsl?S#B@2PTjI|EGWd
z|GkrtKfw3kJMb;|23!Cif)BtO;0!no46p#60f#{YJOHlVOUTdQ64(Ie!K)w!b6^6L
zz%FoQ2O*cik6;6w2WLS9o(JP#42%K_9s#?-m3uG-_z7GFpMy)_ZEy~}1U&E@coIAY
zhQUs7^=?9b0h{0>a1Oi-LU0_+fhn*TJP7`|i;&;I*WfGgCD;V7gV(@GPy@Tc!{8zC
z*PYN0d<HhaMer$j3%m)=f>!_svtSrd@H^hguiy)C0ek{J2JeISz`H=cw_C98)RdJ1
zN&%&SQa~xNy#lB43kIRM0v5%AOJ|O@+f95y;_BJ^pF}I^IlS2M!#RGUN%k<;<Q5S=
zadC?l!zeKHkQt6&OuE%v-C<QKewOIi7;Tj3IwI|m5gBzYkl!$hTPCw;Yhtq1o}53Z
zbu^j6@&a1q6sen((^0xO6FZn98kLF|Om^aKM0t~}lipFtj!(<!Q`_^FW4~xD=>aXv
zc|y9L2uZ3+r74rhB_*~KHMYi#IARz$dCKY}@}Y;g{YT!OpuH%_KrKJOG%bi|vLL9^
zLdR!;9&yiw_KO_a_8Q&_3oP4PEtGn(Lil7>bbJi@%u9i$TgT=*M>HY9I$80!Nz)Z~
zWi}REx8^F9J&NUIEv2Gpmr7ewY{eR@;USkt#bof*u0`4Qr`cLo_bFy%nL9?5WuD+}
zYL+h|9kdk&sa*(|n!A}+Ez{byvodIz))_BzcE`NT%$-bY%Qe#h`<8OVTV<I6Q+y>2
zxPFb(v7I>?EnbK+^R&$VfgR?AERx%_N*h%g@)wwA$#x0vcA#YB6l6)DBEkrTXi%}I
z(z+A7FSVzyfy(_dP>%TAz&T0mWA3uSQl<Mw4hS!I4Ldd&Eo>cF?xN~yONA_#D7+jO
zYA?rw^2_m{0&_elLgC4p1L`m*sGH}|@*G_|CzY1xKw0L5pfYnjojeEXQ-ox#QkG~=
zK2&LrM-*y~OV(<R59KO6S@RgMvo${u$J(F5eZU2)7U{-v{}`fg5cH(EmVXqVuQ)Pa
rTN>}PncNd5e2bLpa>I&EIC1I;dYA>wIYqnTG{3MRt2|g=FH`a_D$}5s

diff --git a/.abCalcNDA.rez.swp b/.abCalcNDA.rez.swp
new file mode 100644
index 0000000000000000000000000000000000000000..1f9dece6965cd904a30655b87b1f19fa053f02c1
GIT binary patch
literal 12288
zcmeI2L2nX46vw9?)v8hBd89SbhQgGl+UN-uNii+7)D~k*>aaV&nq>!P7fahzZ=O7P
zSL4Bt;K6wJs3!H`2k>Iz#j_^*hFvH{pxlh+P5AFDJMX=D^P3qGvQuK~*(G`<HcOzK
zB4k;9U)hV@8T*_i<euWLrJo;CYSIxk?#3Kxa%YI`!&bm}TAGcTaD6YHtk)f3NXvFB
z!F?jmO9pq$u*#*AF(tN#gv2H!fCNS%(D2LC^W$VTF~hX^MC3d@b9!wQPqaY-NB{{S
z0VIF~kN^@u0!ZLLA>h}?$Rilbk#Ia0!g{Qy4!>fB1dsp{Kmter2_OL^fCP{L5<mh-
z015nq1US6le|eOUm1B@Ry#H_i|NnWCkZ+(*ppT#rp!c9RpckO$pl2WjN`cOSzMdfD
zE$9j8E@%eyW1Nt8pr;@XVxV8g3E2a^0yRMjbRSd)r9o#wUm%~?pvRyhNauGeykCGC
z3lcyANB{{S0VIF~kN^_+3j`>oyVnR@q4eCaCSw^E4cdCH@hNJ%Wobx9DmoP>(9D{d
zVdfPjHxHV#1j`JJ?w7dgG0(8U$@sRf58`%b!=MZdUsk-fZ?A+W8_E<^6>ZlF!dy(I
zjO3!Rv6#(WPj49c#e8A)65W9*g0TjqCfPh=@U33~K$}^2U8qus$F-gQ*?_k;UiGEo
z6%kqkTqRw<uZOl?cDUQN-I-%i_*_mz6O8Tlx@haV^laajZhNMBZMp^!<Xx5v!md>P
z5gqhWD2TGz>0yUO|I8%p1$wCKfj$t5R;9AH!%hzI@k}Khr|sp9=2YWNT5XMFdegT2
z>S$gT_c`_K?GE7Kqsc3~Vz=4$Sv4Knnr*PSvgxi&q65N%`E4m{1!0al4=@KtXATZq
za5wdq3DcM~SaPnDXV-EF7iUIqmz3?dupitl%N*KfXnVU9v$=G>xRG013O37x?V3)*
z5;PJVjL%s-W{I*FA^R=<R$X}doP0#@uHe_Cl|yRlD!n0;sBO`LKFO~ihGF1feU$(q
F@*6}ZMoj<!

literal 0
HcmV?d00001

diff --git a/Make.engine b/Make.engine
index 93eea13..e35e4c2 100644
--- a/Make.engine
+++ b/Make.engine
@@ -1,3 +1,9 @@
+#
+# Make.engine
+#    By: Jeremy Rand
+#
+
+
 CALC_OBJS=abCalc.o abCStack.o abCMode.o abCError.o
 
 EXPR_OBJS=expr/abCExpr.o expr/abCExpReal.o expr/abCExprInt.o
@@ -8,7 +14,9 @@ OPS_OBJS=ops/abCOp.o ops/abCOpAdd.o ops/abCOpSubtr.o ops/abCOpMult.o \
     ops/abCOpStws.o ops/abCOpRcws.o ops/abCOpSl.o ops/abCOpRl.o ops/abCOpSr.o \
     ops/abCOpRr.o ops/abCOpAsr.o
 
-OBJS=abCMain.o $(CALC_OBJS) $(EXPR_OBJS) $(OPS_OBJS)
+SHELL_OBJS=abCMain.o $(CALC_OBJS) $(EXPR_OBJS) $(OPS_OBJS)
+
+NDA_OBJS=abCNDA.o $(CALC_OBJS) $(EXPR_OBJS) $(OPS_OBJS)
 
 abCMain.o: abCalc.h abCStack.h expr/abCExpr.h ops/abCOp.h abCError.h
 
diff --git a/Make.mac b/Make.mac
index 343a9d0..26bdea8 100644
--- a/Make.mac
+++ b/Make.mac
@@ -1,3 +1,8 @@
+#
+# Make.mac
+#    By: Jeremy Rand
+#
+
 NAME=abCalc
 
 CFLAGS=-I.
@@ -6,8 +11,8 @@ all: $(NAME)
 
 include Make.engine
 
-$(NAME): $(OBJS)
-	cc -o $(NAME) $(OBJS)
+$(NAME): $(SHELL_OBJS)
+	cc -o $(NAME) $(SHELL_OBJS)
 
 clean:
-	rm -f $(NAME) $(OBJS)
+	rm -f $(NAME) $(SHELL_OBJS)
diff --git a/Makefile b/Makefile
index 27d4ad0..4382e0c 100644
--- a/Makefile
+++ b/Makefile
@@ -1,16 +1,26 @@
-NAME=abCalc
+#
+# Makefile
+#    By: Jeremy Rand
+#
 
-all: $(NAME)
+SHELL_NAME=abCalc
+NDA_NAME=abCalcNDA
+
+all: $(SHELL_NAME) $(NDA_NAME)
 
 .INCLUDE: "Make.engine"
 
 CFLAGS=-D ABCALC_GSOS
 
-$(NAME): fixtype $(OBJS)
-	occ -o $(NAME) $(OBJS)
+$(SHELL_NAME): fixtype $(SHELL_OBJS)
+	occ -o $(SHELL_NAME) $(SHELL_OBJS)
+
+$(NDA_NAME): fixtype $(NDA_OBJS)
+
 
 clean:
-	cp -p rm -f $(NAME) $(OBJS) $(NAME).r $(NAME).root
+	cp -p rm -f $(SHELL_NAME) $(SHELL_OBJS) $(SHELL_NAME).root
+	cp -p rm -f $(NDA_NAME) $(NDA_OBJS) $(NDA_NAME).r $(NDA_NAME).root
 	cp -p rm -f *.root
 	cp -p rm -f expr/*.root
 	cp -p rm -f ops/*.root
diff --git a/abCalcNDA.c b/abCalcNDA.c
new file mode 100644
index 0000000..9940b6f
--- /dev/null
+++ b/abCalcNDA.c
@@ -0,0 +1,73 @@
+/* 
+    abCalcNDA.c
+        By: Jeremy Rand
+ */
+
+
+#pragma nda NDAOpen NDAClose NDAAction NDAInit 60 0x03FF "  abCalc\\H**"
+
+
+#include <types.h>
+
+
+static BOOLEAN gCalcActive;
+static GrafPortPtr gCalcWinPtr;
+
+
+void NDAClose(void)
+{
+    if (gCalcActive) {
+        CloseWindow(gCalcWinPtr);
+        gCalcActive = FALSE;
+    }
+}
+
+
+void NDAInit(int code)
+{
+    if (code == 1)
+        gCalcActive = FALSE;
+    else if (gCalcActive)
+        NDAClose();
+}
+
+
+GrafPortPtr NDAOpen(void)
+{
+    GrafPortPtr wPtr;
+
+    wPtr = NULL;
+    if (!clockActive) {
+        if (OpenResourceFork()) {
+            gCalcWinPtr = NewWindow2("\p abCalc ", 0, NULL, NULL, 0x02, wrNum, rWindParam1);
+            if (toolerror() == 0) {
+                SetSysWindow(gCalcWinPtr);
+                clockActive = TRUE;
+                wPtr = clockWinPtr;
+            }
+            CloseResourceFork();
+        }
+    }
+    return wPtr;
+}
+
+
+BOOLEAN NDAAction(int code, EventRecord *sysEvent)
+{
+    int event;
+    static EventRecord localEvent;
+
+    switch (code) {
+        case eventAction:
+            localEvent.what = sysEvent->what;
+            localEvent.message = sysEvent->message;
+            localEvent.when = sysEvent->when;
+            localEvent.where = sysEvent->where;
+            localEvent.modifiers = sysEvent->modifiers;
+            event = TaskMasterDA(0, &localEvent);
+            break;
+        case runAction:
+            break;
+    }
+    return FALSE;
+}
diff --git a/abCalcNDA.defs b/abCalcNDA.defs
new file mode 100644
index 0000000..b60700d
--- /dev/null
+++ b/abCalcNDA.defs
@@ -0,0 +1,7 @@
+/* 
+    abCalcNDA.defs
+        By: Jeremy Rand
+ */
+
+#define ABCALC_WINDOW_NUM 1001
+#define ABCALC_LINED_COLORS 1002
diff --git a/abCalcNDA.rez b/abCalcNDA.rez
new file mode 100644
index 0000000..8492e0f
--- /dev/null
+++ b/abCalcNDA.rez
@@ -0,0 +1,37 @@
+/* 
+    abCalcNDA.h
+        By: Jeremy Rand
+ */
+
+
+#include "types.rez"
+#include "abCalcNda.defs"
+
+
+resource rWindParam1 (ABCALC_WINDOW_NUM) {
+   $C0A5,                      /* wFrameBits */
+   nil,                        /* wTitle */
+   0,                          /* wRefCon */
+   {0,0,0,0},                  /* ZoomRect */
+   ABCALC_LINED_COLORS,        /* wColor ID */
+   {0,0},                      /* Origin */
+   {0,0},                      /* data size */
+   {0,0},                      /* max height-width */
+   {0,0},                      /* scroll ver hors */
+   {0,0},                      /* page ver horiz */
+   0,                          /* winfoRefcon */
+   0,                          /* wInfoHeight */
+   {50,50,62,200},               /* wposition */
+   infront,                    /* wPlane */
+   nil,                        /* wStorage */
+   $0800                       /* wInVerb */
+   };
+
+
+resource rWindColor (ABCALC_LINED_COLORS) {
+   0x0000,                     /* frameColor */
+   0x0F00,                     /* titleColor */
+   0x020F,                     /* tbarColor */
+   0xF0F0,                     /* growColor */
+   0x00F0,                     /* infoColor */
+   };