(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* Last modified on Wed Mar  4 08:46:27 PST 1992 by kalsow     *)

UNSAFE MODULE Params;

IMPORT RTArgs, M3toC;

PROCEDURE Get (n: CARDINAL): TEXT =
  VAR ptr: UNTRACED REF ADDRESS;
  BEGIN
    IF (n >= RTArgs.argc) THEN RETURN NIL END;
    ptr := RTArgs.argv + n * ADRSIZE (ADDRESS);
    RETURN M3toC.StoT (ptr^);
  END Get;

BEGIN
  Count := RTArgs.argc;
END Params.