Added:

  xcalc-1.0.2
  xclock-1.0.4

1 files changed, 551 insertions, 0 deletions

diff --git a/apps/xcalc/actions.c b/apps/xcalc/actions.c
new file mode 100644
index 000000000..37c57361e
--- /dev/null
+++ b/apps/xcalc/actions.c
@@ -0,0 +1,551 @@
+/* $XConsortium: actions.c,v 1.9 94/04/17 20:43:30 converse Exp $ */
+/*
+
+Copyright (c) 1989  X Consortium
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of the X Consortium shall
+not be used in advertising or otherwise to promote the sale, use or
+other dealings in this Software without prior written authorization
+from the X Consortium.
+
+*/
+
+/*
+ * actions.c - externally available procedures for xcalc
+ *
+ * Author:  Donna Converse, MIT X Consortium
+ */
+
+#include <X11/Intrinsic.h>
+#include <setjmp.h>
+#include "xcalc.h"
+extern int rpn;
+extern Atom wm_delete_window;
+extern int pre_op();
+extern void post_op(), Quit(), ringbell(), do_select();
+
+#ifndef IEEE
+extern    jmp_buf env;
+extern void fail_op();
+#define XCALC_PRE_OP(keynum) { if (pre_op(keynum)) return; \
+		       if (setjmp (env)) {fail_op(); return;}}
+#else
+#define XCALC_PRE_OP(keynum) if (pre_op(keynum)) return;
+#endif
+
+/*ARGSUSED*/
+void add(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kADD);
+    rpn ? twof(kADD) : twoop(kADD);
+    post_op();
+}
+
+/*ARGSUSED*/
+void back(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kBKSP);
+    bkspf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void bell(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    ringbell();
+}
+
+/*ARGSUSED*/
+void clearit(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kCLR);
+    clearf();
+    post_op();
+}
+   
+/*ARGSUSED*/
+void cosine(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kCOS);
+    oneop(kCOS);
+    post_op();
+}
+
+/*ARGSUSED*/
+void decimal(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kDEC);
+    decf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void degree(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kDRG);
+    drgf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void digit(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    switch (vector[0][0])
+    {
+      case '1':	XCALC_PRE_OP(kONE); numeric(kONE); break;
+      case '2': XCALC_PRE_OP(kTWO); numeric(kTWO); break;
+      case '3': XCALC_PRE_OP(kTHREE); numeric(kTHREE); break;
+      case '4': XCALC_PRE_OP(kFOUR); numeric(kFOUR); break;
+      case '5': XCALC_PRE_OP(kFIVE); numeric(kFIVE); break;
+      case '6': XCALC_PRE_OP(kSIX); numeric(kSIX); break;
+      case '7': XCALC_PRE_OP(kSEVEN); numeric(kSEVEN); break;
+      case '8': XCALC_PRE_OP(kEIGHT); numeric(kEIGHT); break;
+      case '9': XCALC_PRE_OP(kNINE); numeric(kNINE); break;
+      case '0': XCALC_PRE_OP(kZERO); numeric(kZERO); break;
+    }
+    post_op();
+}
+
+/*ARGSUSED*/
+void divide(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kDIV);
+    rpn  ? twof(kDIV) : twoop(kDIV);
+    post_op();
+}
+
+/*ARGSUSED*/
+void e(w, ev, vector, count)
+    Widget	w;
+    XEvent	*ev;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kE);
+    oneop(kE);
+    post_op();
+}
+
+/*ARGSUSED*/
+void enter(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kENTR);
+    entrf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void epower(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kEXP);
+    oneop(kEXP);
+    post_op();
+}
+
+/*ARGSUSED*/
+void equal(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kEQU);
+    equf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void exchange(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kEXC);
+    oneop(kEXC);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void factorial(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kFACT);
+    oneop(kFACT);
+    post_op();
+}
+
+/*ARGSUSED*/
+void inverse(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kINV);
+    invf();
+    post_op();
+}
+   
+/*ARGSUSED*/
+void leftParen(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kLPAR);
+    lparf();
+    post_op();
+}
+   
+/*ARGSUSED*/
+void logarithm(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kLOG);
+    oneop(kLOG);
+    post_op();
+}
+
+/*ARGSUSED*/
+void multiply(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kMUL);
+    rpn ? twof(kMUL) : twoop(kMUL);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void naturalLog(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kLN);
+    oneop(kLN);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void negate(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kNEG);
+    negf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void nop(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    ringbell();
+}
+
+/*ARGSUSED*/
+void off(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kOFF);
+    offf();
+    post_op();
+}
+   
+/*ARGSUSED*/
+void pi(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kPI);
+    oneop(kPI);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void power(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kPOW);
+    rpn ? twof(kPOW) : twoop(kPOW);
+    post_op();
+}
+
+/*ARGSUSED*/
+void quit(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    if (e->type == ClientMessage && e->xclient.data.l[0] != wm_delete_window)
+	ringbell();
+    else
+	Quit();
+}
+
+/*ARGSUSED*/
+void recall(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kRCL);
+    rpn ? memf(kRCL) : oneop(kRCL);
+    post_op();
+}
+	
+/*ARGSUSED*/
+void reciprocal(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kRECIP);
+    oneop(kRECIP);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void rightParen(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kRPAR);
+    rparf();
+    post_op();
+}
+   
+/*ARGSUSED*/
+void roll(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kROLL);
+    rollf();
+    post_op();
+}
+
+/*ARGSUSED*/
+void scientific(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kEE);
+    eef();
+    post_op();
+}
+
+/*ARGSUSED*/
+void selection(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    do_select(((XButtonReleasedEvent *)e)->time);
+}
+
+/*ARGSUSED*/
+void sine(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kSIN);
+    oneop(kSIN);
+    post_op();
+}
+
+/*ARGSUSED*/
+void square(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kSQR);
+    oneop(kSQR);
+    post_op();
+}
+
+/*ARGSUSED*/
+void squareRoot(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kSQRT);
+    oneop(kSQRT);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void store(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kSTO);
+    rpn ? memf(kSTO) : oneop(kSTO);
+    post_op();
+}
+
+/*ARGSUSED*/
+void subtract(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kSUB);
+    rpn ? twof(kSUB) : twoop(kSUB);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void sum(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kSUM);
+    rpn ? memf(kSUM) : oneop(kSUM);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void tangent(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kTAN);
+    oneop(kTAN);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void tenpower(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(k10X);
+    oneop(k10X);
+    post_op();
+}
+   
+/*ARGSUSED*/
+void XexchangeY(w, e, vector, count)
+    Widget	w;
+    XEvent	*e;
+    String	*vector;
+    Cardinal	*count;
+{
+    XCALC_PRE_OP(kXXY);
+    twof(kXXY);
+    post_op();
+}