Memory layout of a data structure: Difference between revisions

Content added Content deleted

Inline

@@ Line 425: / Line 425: @@
 === rs232_main.m ===
-<lang Mercury>
+<lang Mercury>:- module rs232_main.
-:- module rs232_main.
 :- interface.
@@ Line 449: / Line 448: @@
     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)
+        write_string("set.", !IO), nl(!IO)
+    else
-    ;     write_string("clear.", !IO), nl(!IO) ),
+        write_string("clear.", !IO), nl(!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)
+        write_string("clear.", !IO), nl(!IO)
+    else
-    ;     write_string("set.", !IO), nl(!IO) ).
+        write_string("set.", !IO), nl(!IO)
+    ).
 :- end_module rs232_main.