-- $Source: /commtar/monoBANK/RTS/options.bdy,v $ -- $Revision: 1.10 $ -- $Date: 86/08/12 13:06:38 $ -- $Author: fitch $ pragma revision ("$Revision: 1.10 $"); package body RTS_Options is This_Package_Is_No_Longer_Supported : exception; function OptBool(Keyword : in String; Default : in boolean) return boolean is begin return false; end OptBool; function OptStr (Keyword : in String; Default : in String) return String is begin return ""; end OptStr; function OptInt (Keyword : in String; Default : in integer) return integer is begin return 0; end OptInt; procedure PickParam (ParamName : in string; ParamVal : out string; Last : out Natural) is begin null; end PickParam; begin raise This_Package_Is_No_Longer_Supported; end RTS_Options; -- $Cprt start$ -- -- Copyright (C) 1988 by Intermetrics, Inc. -- -- This material may be used duplicated or disclosed by or for the -- U.S. Government pursuant to the copyright license under DAR clause -- 7-104.9(a) (May 1981). -- -- This project was spnsored by the STARS Foundation -- Naval Research Laboratory, Washington DC -- -- $Cprt end$