|
FUNCTION compare_unit_components (parm1 : motion_parameter_measure, parm2 : motion_parameter_measure) : BOOLEAN; IF ( ( 'measure_schema.parameter_value' IN TYPEOF ( parm1 ) ) AND ( 'measure_schema.parameter_value' IN TYPEOF ( parm2 ) ) ) THEN RETURN ( TRUE ) ; ELSE IF ( ( 'measure_schema.measure_with_unit' IN TYPEOF ( parm1 ) ) AND ( 'measure_schema.measure_with_unit' IN TYPEOF ( parm2 ) ) ) THEN IF ( parm1 . unit_component :=: parm2 . unit_component ) THEN RETURN ( TRUE ) ; ELSE RETURN ( FALSE ) ; END_IF ; ELSE RETURN ( FALSE ) ; END_IF ; END_IF ; END_FUNCTION; -- compare_unit_components |
|
public class FCompare_unit_components public static Value run(SdaiContext _context, Value parm1, Value parm2) |