-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathOrgChartLibrary.INC
More file actions
206 lines (171 loc) · 6.48 KB
/
Copy pathOrgChartLibrary.INC
File metadata and controls
206 lines (171 loc) · 6.48 KB
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
!ABCIncludeFile
OMIT('_EndOfInclude_',_OrgChartLibrary_)
_OrgChartLibrary_ EQUATE(1)
! Unit Types Equates
uTpy:notDefined EQUATE(1000)
uTpy:infantry EQUATE(1001)
! Echelon Equates
echTpy:notDefined EQUATE(1100)
echTpy:Team EQUATE(1101)
echTpy:Squad EQUATE(1102)
echTpy:Section EQUATE(1103)
echTpy:Platoon EQUATE(1104)
echTpy:Company EQUATE(1105)
echTpy:Battalion EQUATE(1106)
echTpy:Regiment EQUATE(1107)
echTpy:Brigade EQUATE(1108)
echTpy:Division EQUATE(1109)
echTpy:Corps EQUATE(1110)
echTpy:Army EQUATE(1111)
echTpy:ArmyGroup EQUATE(1112)
echTpy:Theater EQUATE(1113)
echTpy:Command EQUATE(1114)
! Hostility Equates
hTpy:notDefined EQUATE(1500)
hTpy:Unknown EQUATE(1501)
hTpy:AssumedFriend EQUATE(1502)
hTpy:Friend EQUATE(1503)
hTpy:Neutral EQUATE(1504)
hTpy:Suspect EQUATE(1505)
hTpy:Hostile EQUATE(1506)
! Hostility Color
COLOR:notDefined EQUATE(COLOR:Yellow)
COLOR:Unknown EQUATE(COLOR:Yellow)
COLOR:AssumedFriend EQUATE(COLOR:Aqua)
COLOR:Friend EQUATE(COLOR:Aqua)
COLOR:Neutral EQUATE(COLOR:Green)
COLOR:Suspect EQUATE(COLOR:Red)
COLOR:Hostile EQUATE(COLOR:Red)
! Disable for selection color
COLOR:NodeDisabled EQUATE(COLOR:Gray)
! Units Queue Structure
UnitsList QUEUE, TYPE
UnitName STRING(100)
UnitType LONG
UnitTypeCode STRING(10)
Echelon LONG
Hostility LONG
IsHQ BOOL
xPos LONG
yPos LONG
TreePos LONG
markForDel BOOL
markForDisbl BOOL
END
! Unit Basic Record Structure
UnitBasicRecord GROUP, TYPE
UnitName STRING(100)
UnitType LONG
UnitTypeCode STRING(10)
Echelon LONG
Hostility LONG
IsHQ BOOL
xPos LONG
yPos LONG
TreePos LONG
END
! Reference C2IPs Queue Structure
C2IPsList QUEUE, TYPE
C2IPPath STRING(100)
C2IPName STRING(100)
END
! JSON objects
json JSONClass
collection &JSONClass
! entry fields
?uNameEntry EQUATE(900)
?uTypeList EQUATE(901)
?uHQ EQUATE(902)
?ListSymbology EQUATE(903)
!!! <summary>
!!! Generated class template - SourceClass
!!! OrgChartC2IP
!!! </summary>
! Organization Chart structure
OrgChartC2IP CLASS, TYPE
Name STRING(100)
ul &UnitsList
tmpul &UnitsList, PRIVATE
tmpUnitName STRING(100), PRIVATE
! Draw representation
drwImg &Draw
! Previewer representation
!prwImg &Draw
! referenced C2IPs list
refC2IPs &C2IPsList
! Unit basic record structure
urec GROUP
UnitName STRING(100)
UnitType LONG
UnitTypeCode STRING(10)
Echelon LONG
Hostility LONG
IsHQ BOOL
xPos LONG
yPos LONG
TreePos LONG
END
selTreePos LONG, PRIVATE
maxTreePos LONG, PRIVATE
selQueuePos LONG, PRIVATE
labelEditMode BOOL, PRIVATE
uNameEntry STRING(100), PRIVATE
bIsHQEntry BOOL, PRIVATE
nEchelon LONG, PRIVATE
Construct PROCEDURE
InitDraw PROCEDURE(Draw pDraw), LONG
!InitPreview PROCEDURE(Draw pDraw), LONG
Redraw PROCEDURE, PRIVATE
DrawNode PROCEDURE(LONG nUnitType=0), LONG, PRIVATE
!DrawNode variants
DrawNode_Default PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Infantry PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Infantry_Amphibious PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Infantry_Armored PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Infantry_MainGunSystem PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Infantry_Motorized PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Infantry_FightingVehicle PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Observer PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
DrawNode_Echelon PROCEDURE(BOOL bAutoDisplay=TRUE), LONG, PRIVATE
InsertNode PROCEDURE, PRIVATE
InsertNode PROCEDURE(*UnitBasicRecord pUrec), LONG
GetNode PROCEDURE(*UnitBasicRecord pURec), LONG
DeleteNode PROCEDURE, PRIVATE
DisableNode PROCEDURE
DisplaySelection PROCEDURE, PRIVATE
DisplayUnselection PROCEDURE, PRIVATE
SelUp PROCEDURE, PRIVATE
SelDown PROCEDURE, PRIVATE
SelLeft PROCEDURE, PRIVATE
SelRight PROCEDURE, PRIVATE
SelectByMouse PROCEDURE(LONG nXPos, LONG nYPos), LONG
Unselect PROCEDURE(), LONG
Destruct PROCEDURE
GetUnitName PROCEDURE(), STRING
SetUnitName PROCEDURE(STRING sUnitName), LONG
GetUnitType PROCEDURE(), STRING
SetUnitType PROCEDURE(LONG nUnitType), LONG
SetUnitTypeCode PROCEDURE(STRING sUnitTypeCode), LONG
GetEchelon PROCEDURE(), LONG
SetEchelon PROCEDURE(LONG nEchelon), LONG
GetHostility PROCEDURE(), LONG
SetHostility PROCEDURE(LONG nHostility), LONG
GetHQ PROCEDURE(), BOOL
SetHQ PROCEDURE(BOOL bIsHQ), BOOL
! persistence layer
Save PROCEDURE(), LONG
Save PROCEDURE(STRING sFileName), LONG
Load PROCEDURE(STRING sFileName), LONG
! referenced C2IPs
AttachC2IP PROCEDURE(STRING sFileName), LONG
DetachC2IP PROCEDURE(LONG nOption), LONG
TakeEvent PROCEDURE(UNSIGNED nKeyCode), LONG
checkLabelEditMode PROCEDURE, PRIVATE
TakeNodeAction PROCEDURE(LONG nOption), LONG
NodeActionsMenuOptions PROCEDURE(), STRING
TakeEchelon PROCEDURE(LONG nOption), LONG, PRIVATE
EchelonMenuOptions PROCEDURE(), STRING, PRIVATE
TakeHostility PROCEDURE(LONG nOption), LONG, PRIVATE
HostilityMenuOptions PROCEDURE(), STRING, PRIVATE
END
_EndOfInclude_