Navigation

list_of_topology_reversed

EXPRESS specification:

FUNCTION list_of_topology_reversed
(a_list : list_of_reversible_topology_item) : list_of_reversible_topology_item;
   LOCAL
 the_reverse : list_of_reversible_topology_item;
   END_LOCAL;

   the_reverse := [];
   REPEAT i := 1 TO SIZEOF (a_list);
 the_reverse := topology_reversed (a_list [i]) + the_reverse;
   END_REPEAT;

   RETURN (the_reverse);
END_FUNCTION;