ГОС! Р ИСО 10303-203-2003
FUNCTION list_ofjopology_rcversed (
ajist: list_of_reversibIe_topology_item
): list_of_rcversiblc_topologyjtcm:
LOCAL
the_rcvcrsc : list_of_rcvcrsiblc_topologyjtem;
END_LOCAL;
lhc_rcvcrsc : = | | ;
REPEAT i := 1 TO SIZEOF(aJist) BY I;
the reverse := topology_rcvcrsed(a list(i|> 4- thc_rcvcrsc:
END_REPEAT ;
RETURN <thc_rcvcrsc) ;
END FUNCTION: - - list_of_topology_rc versed
FUNCTION list_to_array(lis: LIST |0:?| OF GENERIC:!:
low, u: INTEGER»: ARRAY OF GENERIC:!;
LOCAL
n: INTEGER:
res :ARRAY |low:u| OF GENERIC:!;
END_LOCAL;
n :- SIZEOF(lis):
IF n < > ((u - low) 4- I» THEN RETURN!?);
ELSE
res:- |lis|l|, n);
REPEAT i 2 TO n BY I;
rcs|(low 4- j) - 11 lis|i|;
END_REPEAT;
RETURN (res):
ENDJF;
END_FUNCTION; - - list_to_array
FUNCTION list_to_sci(l: LIST I0:?| OF GENERIC:!): SET OF GENERIC:!:
LOCAL
s : SET OF GENERIC:!: - | | ;
END_LOCAL ;
REPEAT i :-=» I TO SIZEOF(l) BY I;
s:«s + i fi]:
END_REPEAT ;
RETURN <s);
END_FUNCTION; - - list_to_sct
FUNCTION make_anay_of_array(lis: LIST |l:?| OF LIST |I:?| OF GENERIC:!:
low I, ul, low2, u2: INTEGER): ARRAY OF ARRAY OF GENERIC:!:
LOCAL
res : ARRAY |lowl:u1| OF ARRAY |low2:u2| OF GENERIC:!;
END_LOCAL ;
IF «ul - low I)
* 1 ) 0
SIZEOF(lis) THEN RETURN (?);
E N D JF:
IF (<u2 - low2) + I) < > SIZEOF(lis|l|) THEN RETURN!?);
END_IF;
res :- |list_to_arrav(ILs| 1|. low2, u2).(ul - lowl) + I);
REPE.AT i :- 2 TO HIINDEX(lis) BY l;
IF «u2 - low2) * 1 ) 0 S1ZE0F (lis|i|) THEN RETURN <?);
END_IF ;
res|(!ow I 4-i) - 1) := list_to_array(!is(il. low2, u2);
END_REPEAT:
RETURN (res) :
END_FUNCTION; - - make_array_of_anray
FUNCTION mixed kxjp_t)pc_set(l: SET |0:?| OF loop): LOGICAL;
LOCAL
1
%