FUNCTION path_head_to_tail

(* SCHEMA step_merged_ap_schema; *)

-- DIFF IN AP224
-- DIFF IN AP232
FUNCTION path_head_to_tail
      (a_path : path ) : LOGICAL;
   LOCAL
      n : INTEGER;
      p : LOGICAL := TRUE;
   END_LOCAL;
      n := SIZEOF(a_path.edge_list);
      REPEAT i := 2 TO n;
         p := p AND (a_path.edge_list[(i - 1)].edge_end :=: a_path.edge_list[i].edge_start);
      END_REPEAT;
      RETURN (p);
END_FUNCTION;

Referenced By

Defintion path_head_to_tail is references by the following definitions:

Definition	Type
path	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00