Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
regression-suites
Commits
0cd1b435
Commit
0cd1b435
authored
Feb 14, 2018
by
Maxime Perrotin
Browse files
Update Ada code to fit with ASN1SCC V4 changes
parent
a03252fc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Demo_Ada_GUI/displayer/displayer.adb
View file @
0cd1b435
...
...
@@ -27,48 +27,44 @@ use Interfaces;
package
body
displayer
is
type
A_String
is
access
String
;
p
erson
:
asn1Scctm_t
;
P
erson
:
asn1Scctm_t
;
S
:
A_String
;
bTmHasArrived
:
boolean
;
n
umber
:
asn1SccHK_T_value_to_plot
:=
0
;
hk
:
aliased
asn1SccHK_T
;
N
umber
:
asn1SccHK_T_value_to_plot
:=
0
;
HK
:
aliased
asn1SccHK_T
;
procedure
d
isplayer_
p
ut_
tc
(
tc
:
access
asn1SccTC_T
)
is
procedure
D
isplayer_
P
ut_
TC
(
TC
:
access
asn1SccTC_T
)
is
begin
case
asn1SccAction_T_kind
(
tc
.
action
)
is
when
display_PRESENT
=>
for
J
in
1
..
asn1SccAction_T_display_get
(
tc
.
action
).
length
loop
person
.
data
(
J
)
:=
asn1SccAction_T_display_get
(
tc
.
action
).
data
(
J
);
case
TC
.
Action
.
Kind
is
when
Display_PRESENT
=>
for
J
in
1
..
TC
.
Action
.
Display
.
Length
loop
person
.
data
(
J
)
:=
TC
.
Action
.
Display
.
Data
(
J
);
end
loop
;
person
.
length
:=
asn1SccAction_T_display_get
(
tc
.
action
).
length
;
if
(
person
.
length
>
0
)
then
Person
.
Length
:=
TC
.
Action
.
Display
.
Length
;
if
(
person
.
length
>
0
)
then
bTmHasArrived
:=
True
;
end
if
;
when
housekeeping_PRESENT
=>
hk
:=
(
value_to_plot
=>
number
,
destination
=>
asn1SccAction_T_housekeeping_get
(
tc
.
action
));
HousekeepingTM
(
hk
'
access
);
HK
:=
(
Value_To_Plot
=>
Number
,
Destination
=>
TC
.
Action
.
Housekeeping
);
HousekeepingTM
(
HK
'
access
);
when
others
=>
null
;
end
case
;
end
displayer_put_tc
;
procedure
cyclicdisplayer
is
m
y_
tm
:
aliased
asn1Scctm_t
;
i
:
Integer
;
M
y_
TM
:
aliased
asn1Scctm_t
;
I
:
Integer
;
begin
s
ystem
.
io
.
p
ut_
l
ine
(
"cyclicdisplayer"
);
S
ystem
.
IO
.
P
ut_
L
ine
(
"cyclicdisplayer"
);
if
bTmHasArrived
then
for
i
in
1
..
p
erson
.
l
ength
loop
m
y_
tm
.
d
ata
(
i
)
:=
p
erson
.
d
ata
(
i
);
for
i
in
1
..
P
erson
.
L
ength
loop
M
y_
TM
.
D
ata
(
i
)
:=
P
erson
.
D
ata
(
i
);
end
loop
;
m
y_
tm
.
l
ength
:=
p
erson
.
l
ength
;
r
outer_
s
end_
tm
(
my_tm
'
access
);
M
y_
TM
.
L
ength
:=
P
erson
.
L
ength
;
R
outer_
S
end_
TM
(
My_TM
'
access
);
end
if
;
n
umber
:=
(
n
umber
+
1
)
mod
16535
;
N
umber
:=
(
N
umber
+
1
)
mod
16535
;
end
cyclicdisplayer
;
begin
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment