1: #define __RPLC_MAIN
2: #include "src/rplexternals.h"
3: #include "motif.h"
4:
5: libraryName(motif);
6:
7: exportExternalFunctions(
8: XSynchronize,
9: XtAddCallback,
10: XtAppExitMainLoop,
11: XtAppInitialize,
12: XtAppMainLoop,
13: XtCreatePopupShell,
14: XtCreateWidget,
15: XtDestroyWidget,
16: XtPopdown,
17: XtPopup,
18: XtRealizeWidget,
19: XtRemoveCallback);
20:
21: declareSubroutine(onLoading)
22: notice(stdout, "\nMotif library V2R1 for RPL/2 (C) 2017 BERTRAND Joel\n");
23: notice(stdout, "Motif library loaded.\n\n");
24:
25: // Création des variables spécifiques
26:
27: declareObject(variable);
28: declareObject(value);
29:
30: #define createVariable(var) createVariable2(var, var)
31: #define createVariable2(var, val) \
32: do { \
33: createNameObject(variable); \
34: setSymbolicName(variable, #var); \
35: createIntegerObject(value); \
36: setInteger(value, val); \
37: pushOnStack(variable); \
38: pushOnStack(value); \
39: intrinsic(over); \
40: intrinsic(save); \
41: intrinsic(parameter); \
42: } while(0)
43:
44: createVariable2(XmFalse, 0);
45: createVariable2(XmTrue, 1);
46:
47: createVariable(XmATTACH_NONE);
48: createVariable(XmATTACH_FORM);
49: createVariable(XmATTACH_OPPOSITE_FORM);
50: createVariable(XmATTACH_WIDGET);
51: createVariable(XmATTACH_OPPOSITE_WIDGET);
52: createVariable(XmATTACH_POSITION);
53: createVariable(XmATTACH_SELF);
54:
55: createVariable(XmALIGNMENT_BEGINNING);
56: createVariable(XmALIGNMENT_CENTER);
57: createVariable(XmALIGNMENT_END);
58:
59: createVariable(XmHORIZONTAL);
60: createVariable(XmVERTICAL);
61:
62: createVariable(XtGrabNone);
63: createVariable(XtGrabNonexclusive);
64: createVariable(XtGrabExclusive);
65:
66: createVariable(XmSTRING);
67:
68: setFalse(initializationDone);
69: nullify(lCallbacks);
70: endSubroutine
71:
72: declareSubroutine(onClosing)
73: // Destruction des variables spécifiques
74: declareObject(variable);
75: declareDaisyChain(current);
76: declareDaisyChain(next);
77:
78: current = lCallbacks;
79:
80: repeatWhile(not nullified(current))
81: next = current;
82: nextElementOfDaisyChain(next);
83: variable = fetchElementFromDaisyChain(current);
84: freeObject(variable);
85: free(current);
86: current = next;
87: endWhile
88:
89: nullify(lCallbacks);
90:
91: #define purgeVariable(var) \
92: do { \
93: createNameObject(variable); \
94: setName(variable, #var); \
95: pushOnStack(variable); \
96: intrinsic(dup); \
97: intrinsic(variable); \
98: intrinsic(purge); \
99: } while(0)
100:
101: purgeVariable(XmFalse);
102: purgeVariable(XmTrue);
103:
104: purgeVariable(XmATTACH_NONE);
105: purgeVariable(XmATTACH_FORM);
106: purgeVariable(XmATTACH_OPPOSITE_FORM);
107: purgeVariable(XmATTACH_WIDGET);
108: purgeVariable(XmATTACH_OPPOSITE_WIDGET);
109: purgeVariable(XmATTACH_POSITION);
110: purgeVariable(XmATTACH_SELF);
111:
112: purgeVariable(XmALIGNMENT_BEGINNING);
113: purgeVariable(XmALIGNMENT_CENTER);
114: purgeVariable(XmALIGNMENT_END);
115:
116: purgeVariable(XmHORIZONTAL);
117: purgeVariable(XmVERTICAL);
118:
119: purgeVariable(XtGrabNone);
120: purgeVariable(XtGrabNonexclusive);
121: purgeVariable(XtGrabExclusive);
122:
123: purgeVariable(XmSTRING);
124:
125: notice(stdout, "Motif library unloaded.\n\n");
126: endSubroutine
127:
128: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>