|
FUNCTION remove_first (alist : LIST [0:?] OF GENERIC) : LIST [0:?] OF GENERIC; LOCAL blist : LIST OF GENERIC : gen := alist ; END_LOCAL ; IF SIZEOF ( blist ) > 0 THEN REMOVE ( blist , 1 ) ; END_IF ; RETURN ( blist ) ; END_FUNCTION; -- remove_first |
|
public class FRemove_first public static Value run(SdaiContext _context, Value alist) |