aboutsummaryrefslogtreecommitdiff
path: root/apps/xcalc/actions.c
diff options
context:
space:
mode:
Diffstat (limited to 'apps/xcalc/actions.c')
-rw-r--r--apps/xcalc/actions.c551
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();
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-02 15:53:42 +0000