1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
--- main.c.orig 1998-01-22 14:34:05 UTC
+++ main.c
@@ -55,11 +55,11 @@
#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
#include "xrobots.h"
-#define srandom srand
-#define random rand
-
/*----------------------------------------------------------------------*/
Widget top_shell, top_widget, playfield_widget, score_command, sonic_command;
@@ -153,13 +153,7 @@ static XtActionsRec actions[] = {
{"do_nothing",(XtActionProc)do_nothing_action},
};
-Pixel fg, bg;
-Boolean spiffy, /* limited graphics */
- autoteleport, /* teleport when sonic used, and no moves */
- autoteleportalways, /* teleport when no available moves */
- showjumps, /* show no intermediate moves */
- diewaiting; /* die if you use wait unsafely */
-XtTranslations translations;
+AppData app_data;
static XrmOptionDescRec options[] = {
{"-spiffy", "spiffy", XrmoptionSepArg, NULL },
@@ -172,29 +166,30 @@ static XrmOptionDescRec options[] = {
static XtResource application_resources[] = {
{"foreground", "Foreground", XtRPixel, sizeof(Pixel),
- (Cardinal)&fg, XtRString, (caddr_t) "Black"},
+ XtOffsetOf(AppData, fg), XtRString, (caddr_t) "Black"},
{"background", "Background", XtRPixel, sizeof(Pixel),
- (Cardinal)&bg, XtRString, (caddr_t) "White"},
+ XtOffsetOf(AppData, bg), XtRString, (caddr_t) "White"},
{"spiffy", "Spiffy", XtRBoolean, sizeof(Boolean),
- (Cardinal)&spiffy, XtRString, (caddr_t) "True"},
+ XtOffsetOf(AppData, spiffy), XtRString, (caddr_t) "True"},
{"autoteleport", "Autoteleport", XtRBoolean, sizeof(Boolean),
- (Cardinal)&autoteleport, XtRString, (caddr_t) "False"},
+ XtOffsetOf(AppData, autoteleport), XtRString, (caddr_t) "False"},
{"autoteleportalways", "Autoteleportalways", XtRBoolean, sizeof(Boolean),
- (Cardinal)&autoteleportalways, XtRString, (caddr_t) "False"},
+ XtOffsetOf(AppData, autoteleportalways), XtRString, (caddr_t) "False"},
{"showmovement", "Showmovement", XtRBoolean, sizeof(Boolean),
- (Cardinal)&showjumps, XtRString, (caddr_t) "True"},
+ XtOffsetOf(AppData, showjumps), XtRString, (caddr_t) "True"},
{"diewaiting", "Diewaiting", XtRBoolean, sizeof(Boolean),
- (Cardinal)&diewaiting, XtRString, (caddr_t) "False"},
+ XtOffsetOf(AppData, diewaiting), XtRString, (caddr_t) "False"},
{"translations","Translations", XtRTranslationTable, sizeof(XtTranslations),
- (Cardinal)&translations, XtRString, (caddr_t)translations_str},
+ XtOffsetOf(AppData, translations), XtRString, (caddr_t)translations_str},
{"scorefile","Scorefile", XtRString, sizeof(String),
- (Cardinal)&score_filename, XtRString, (caddr_t)SCORE_FILE},
+ XtOffsetOf(AppData, score_filename), XtRString, (caddr_t)SCORE_FILE},
};
/*----------------------------------------------------------------------*/
+int
main(argc, argv)
- unsigned int argc;
+ int argc;
char **argv;
{
Arg args[1];
@@ -212,7 +207,7 @@ main(argc, argv)
XtAddActions(actions,XtNumber(actions));
- XtGetApplicationResources(top_shell, 0, application_resources,
+ XtGetApplicationResources(top_shell, &app_data, application_resources,
XtNumber(application_resources), NULL, 0 );
top_widget = XtCreateManagedWidget(
@@ -228,7 +223,7 @@ main(argc, argv)
arglistplayfield,
XtNumber(arglistplayfield));
- XtAugmentTranslations(playfield_widget,translations);
+ XtAugmentTranslations(playfield_widget,app_data.translations);
teleport_command = XtCreateManagedWidget(
"teleport_button",
@@ -292,12 +287,12 @@ main(argc, argv)
display = XtDisplay(playfield_widget);
playfield = XtWindow(playfield_widget);
- gcv.foreground = fg;
- gcv.background = bg;
+ gcv.foreground = app_data.fg;
+ gcv.background = app_data.bg;
gcv.function = GXcopy;
gc = XCreateGC(display, playfield,
GCForeground | GCBackground | GCFunction, &gcv);
- gcv.foreground = bg;
+ gcv.foreground = app_data.bg;
cleargc = XCreateGC(display, playfield,
GCForeground | GCBackground | GCFunction, &gcv);
|
