|
FUNCTION list_shell_edges (s : shell) : LIST [0:?] OF edge; LOCAL edges : LIST [ 0 : ? ] OF edge := [ ] ; END_LOCAL ; REPEAT i := 1 TO SIZEOF ( list_shell_loops ( s ) ) ; edges := edges + list_loop_edges ( list_shell_loops ( s ) [ i ] ) ; END_REPEAT ; RETURN ( edges ) ; END_FUNCTION; -- list_shell_edges |
|
public class FList_shell_edges public static Value run(SdaiContext _context, Value s) |