Memory layout of a data structure: Difference between revisions
Content added Content deleted
(Nimrod -> Nim) |
m (rs232_main.m: use if then else) |
||
Line 425: | Line 425: | ||
=== rs232_main.m === |
=== rs232_main.m === |
||
<lang Mercury> |
<lang Mercury>:- module rs232_main. |
||
:- module rs232_main. |
|||
:- interface. |
:- interface. |
||
Line 449: | Line 448: | ||
write_string("Com1 DTR is ", !IO), |
write_string("Com1 DTR is ", !IO), |
||
( rs232_is_set(Com1, data_terminal_ready) |
( if rs232_is_set(Com1, data_terminal_ready) then |
||
write_string("set.", !IO), nl(!IO) |
|||
else |
|||
write_string("clear.", !IO), nl(!IO) |
|||
), |
|||
write_string("Com2 DSR is ", !IO), |
write_string("Com2 DSR is ", !IO), |
||
( rs232_is_clear(Com2, data_set_ready) |
( if rs232_is_clear(Com2, data_set_ready) then |
||
write_string("clear.", !IO), nl(!IO) |
|||
else |
|||
write_string("set.", !IO), nl(!IO) |
|||
). |
|||
:- end_module rs232_main. |
:- end_module rs232_main. |