#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <signal.h>
#include <X11/Xatom.h>
#include <X11/Shell.h>
#include <X11/Xaw/Cardinals.h>
#include <X11/Xaw/Form.h>
#include <X11/Xaw/Label.h>
#include <X11/Xaw/Command.h>
#include <X11/Xaw/Toggle.h>
#include <X11/cursorfont.h>
#include "xcalc.h"
static Boolean convert(Widget w, Atom *selection, Atom *target, Atom *type,
XtPointer *value, unsigned long *length, int *format);
static void create_keypad(Widget parent);
static void create_display(Widget parent);
static void create_calculator(Widget shell);
static void done(Widget w, Atom *selection, Atom *target);
static void lose(Widget w, Atom *selection);
static void Syntax(int argc, char **argv);
int rpn = 0;
char dispstr[LCD_STR_LEN];
Atom wm_delete_window;
static Display *dpy = NULL;
static Widget toplevel=NULL;
static Widget calculator=NULL;
static Widget LCD = NULL;
static Widget ind[6];
static char selstr[LCD_STR_LEN];
static XtAppContext xtcontext;
#define check_width 16
#define check_height 16
static unsigned char check_bits[] = {
0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa,
0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa,
0x55, 0x55, 0xaa, 0xaa, 0x55, 0x55, 0xaa, 0xaa};
static XrmOptionDescRec Options[] = {
{"-rpn", "rpn", XrmoptionNoArg, (XtPointer)"on"},
{"-stipple", "stipple", XrmoptionNoArg, (XtPointer)"on"}
};
static struct resources {
Boolean rpn;
Boolean stipple;
Cursor cursor;
} appResources;
#define offset(field) XtOffsetOf(struct resources, field)
static XtResource Resources[] = {
{"rpn", "Rpn", XtRBoolean, sizeof(Boolean),
offset(rpn), XtRImmediate, (XtPointer) False},
{"stipple", "Stipple", XtRBoolean, sizeof(Boolean),
offset(stipple), XtRImmediate, (XtPointer) False},
{"cursor", "Cursor", XtRCursor, sizeof(Cursor),
offset(cursor), XtRCursor, (XtPointer)NULL}
};
#undef offset
int
main(int argc, char **argv)
{
Arg args[3];
XtSetLanguageProc(NULL, (XtLanguageProc) NULL, NULL);
toplevel = XtAppInitialize(&xtcontext, "XCalc", Options, XtNumber(Options),
&argc, argv, NULL, NULL, 0);
if (argc != 1) Syntax(argc, argv);
XtSetArg(args[0], XtNinput, True);
XtSetValues(toplevel, args, ONE);
XtGetApplicationResources(toplevel, (XtPointer)&appResources, Resources,
XtNumber(Resources), (ArgList) NULL, ZERO);
create_calculator(toplevel);
XtAppAddActions(xtcontext, Actions, ActionsCount);
XtOverrideTranslations(toplevel,
XtParseTranslationTable("<Message>WM_PROTOCOLS: quit()\n"));
XtRealizeWidget(toplevel);
dpy = XtDisplay(toplevel);
wm_delete_window = XInternAtom(dpy, "WM_DELETE_WINDOW", False);
(void) XSetWMProtocols(dpy, XtWindow(toplevel), &wm_delete_window, 1);
XDefineCursor(dpy, XtWindow(toplevel), appResources.cursor);
if (appResources.stipple || (CellsOfScreen(XtScreen(toplevel)) <= 2))
{
Screen *screen = XtScreen(toplevel);
Pixmap backgroundPix;
backgroundPix = XCreatePixmapFromBitmapData
(dpy, XtWindow(toplevel),
(char *)check_bits, check_width, check_height,
WhitePixelOfScreen(screen), BlackPixelOfScreen(screen),
DefaultDepthOfScreen(screen));
XtSetArg(args[0], XtNbackgroundPixmap, backgroundPix);
XtSetValues(calculator, args, ONE);
}
#ifndef IEEE
signal(SIGFPE,fperr);
signal(SIGILL,illerr);
#endif
ResetCalc();
XtAppMainLoop(xtcontext);
return 0;
}
static void create_calculator(Widget shell)
{
rpn = appResources.rpn;
calculator = XtCreateManagedWidget(rpn ? "hp" : "ti", formWidgetClass,
shell, (ArgList) NULL, ZERO);
create_display(calculator);
create_keypad(calculator);
XtSetKeyboardFocus(calculator, LCD);
}
static void create_display(Widget parent)
{
Widget bevel, screen;
static Arg args[] = {
{XtNborderWidth, (XtArgVal)0},
{XtNjustify, (XtArgVal)XtJustifyRight}
};
bevel = XtCreateManagedWidget("bevel", formWidgetClass, parent,
(ArgList) NULL, ZERO);
screen = XtCreateManagedWidget("screen", formWidgetClass, bevel,
(ArgList) NULL, ZERO);
ind[XCalc_MEMORY] = XtCreateManagedWidget("M", labelWidgetClass, screen,
args, XtNumber(args));
LCD = XtCreateManagedWidget("LCD", toggleWidgetClass, screen, args,
XtNumber(args));
ind[XCalc_INVERSE] = XtCreateManagedWidget("INV", labelWidgetClass,
screen, args, XtNumber(args));
ind[XCalc_DEGREE] = XtCreateManagedWidget("DEG", labelWidgetClass, screen,
args, XtNumber(args));
ind[XCalc_RADIAN] = XtCreateManagedWidget("RAD", labelWidgetClass, screen,
args, XtNumber(args));
ind[XCalc_GRADAM] = XtCreateManagedWidget("GRAD", labelWidgetClass, screen,
args, XtNumber(args));
ind[XCalc_PAREN] = XtCreateManagedWidget("P", labelWidgetClass, screen,
args, XtNumber(args));
}
static void create_keypad(Widget parent)
{
static const char *Keyboard[] = {
"button1", "button2", "button3", "button4", "button5",
"button6", "button7", "button8", "button9", "button10",
"button11","button12","button13","button14","button15",
"button16","button17","button18","button19","button20",
"button21","button22","button23","button24","button25",
"button26","button27","button28","button29","button30",
"button31","button32","button33","button34","button35",
"button36","button37","button38","button39","button40"
};
register int i;
int n = XtNumber(Keyboard);
if (appResources.rpn) n--;
for (i=0; i < n; i++)
XtCreateManagedWidget(Keyboard[i], commandWidgetClass, parent,
(ArgList) NULL, ZERO);
}
void draw(char *string)
{
Arg args[1];
XtSetArg(args[0], XtNlabel, string);
XtSetValues(LCD, args, ONE);
}
void setflag(int indicator, Boolean on)
{
if (on) XtMapWidget(ind[indicator]);
else XtUnmapWidget(ind[indicator]);
}
void ringbell(void)
{
XBell(dpy, 0);
}
void Quit(void)
{
XtDestroyApplicationContext(xtcontext);
exit(0);
}
static void Syntax(int argc, char **argv)
{
register int i;
(void) fprintf(stderr, "%s: unknown options:", argv[0]);
for (i=1; i <argc; i++)
(void) fprintf(stderr, " %s", argv[i]);
(void) fprintf(stderr, "\n\n");
(void) fprintf(stderr, "Usage: %s", argv[0]);
for (i=0; i < XtNumber(Options); i++)
(void) fprintf(stderr, " [%s]", Options[i].option);
(void) fprintf(stderr, "\n");
XtDestroyApplicationContext(xtcontext);
exit(1);
}
static Boolean convert(Widget w, Atom *selection, Atom *target, Atom *type,
XtPointer *value, unsigned long *length, int *format)
{
if (*target == XA_STRING)
{
*type = XA_STRING;
*length = strlen(dispstr);
strncpy(selstr, dispstr, (int)(*length));
*value = selstr;
*format = 8;
return True;
}
return False;
}
static void lose(Widget w, Atom *selection)
{
XawToggleUnsetCurrent(LCD);
}
static void done(Widget w, Atom *selection, Atom *target)
{
selstr[0] = '\0';
}
void do_select(Time time)
{
Boolean state;
Arg args[1];
XtSetArg(args[0], XtNstate, &state);
XtGetValues(LCD, args, 1);
if (state)
XtOwnSelection(LCD, XA_PRIMARY, time, convert, lose, done);
else
selstr[0] = '\0';
}