Guardian Procedure Calls Reference Manual

error := USER_GETNEXT_
(search^name:32, search^len, is^alias);
name^list[name^entry].name ‘:=‘
search^name FOR search^len BYTES;
name^list[name^entry].len := search^len;
name^entry := name^entry + 1;
END;
IF is^alias THEN
BEGIN
alias^entry := 0;
search^len := 0;
! decrement name^entry, because it was an alias
name^entry := name^entry - 1;
WHILE (error <> 0) DO
BEGIN
error := USER_GETNEXT_
(search^name:32, search^len, is^alias);
alias^list[alias^entry].alias ‘:=‘
search^name FOR search^len BYTES;
alias^list[alias^entry].len := search^len;
alias^entry := alias^entry + 1;
END;
END;
IF error THEN
BEGIN
! do error handling
END
1460 Guardian Procedure Calls (T-V)