with CALENDAR; with SFTP_DEFINITIONS; use SFTP_DEFINITIONS; package UTILITY is --==================================================================== -- = -- ABSTRACT UTILITY = -- This package provides some utility routines that are used -- KEYWORDS UTILITY = -- SFTP, Secure File Transfer, utility, string handling, = -- formatting time = -- CONTENTS UTILITY = -- = -- CREATION DATE. = -- 12/30/87 = -- AUTHOR. = -- Paul Sands, The BDM Corporation, Albuquerque = -- REVISION HISTORY. = -- NONE = -- UNIT PURPOSE. = -- Provide general utility routines = -- UNIT FUNCTION. = -- String handling = -- Parsing = -- Formatting time strings = -- EXTERNAL ADA UNITS ACCESSED. = -- CALENDAR -- SFTP_DEFINITIONS = -- EXCEPTIONS RAISED. = -- NONE = -- INPUT/OUTPUT. = -- NONE = -- MACHINE DEPENDENCIES. = -- Implementations of calendar may vary = -- COMPILER DEPENDENCIES. = -- Implementations of calendar may vary = -- = --==================================================================== procedure BLANK_STRING (STR : out STRING); function BLANKS (N : in INTEGER) return STRING; procedure GET_WORD (STR : in STRING; CRNT_POS : in out NATURAL; -- position in string WORD : out STRING); function SKIP_WORD (IN_STRING : in STRING) return STRING; function UN_BLANK (IN_STRING : in STRING) return STRING; function FORMAT_TIME (CUR_TIME : in CALENDAR.TIME) return DATE_TYPE; end UTILITY;