with text_io, starlet, system, condition_handling, calendar, DYNAMIC_STRING; use text_io, starlet, calendar, DYNAMIC_STRING; -- package MISC_ROUTINES is --+---------------------------------------------------------------------- -- -- Unit Type : Package type -- Unit Name : MISC_ROUTINES_.ADA -- Version : V01.0F -- -- Author : Stephen R. Rainier -- Date : 10/31/85 -- -- -- Purpose : A package to store a few independent, misc. routines. -- -- -- Parameters : Nothing special. -- -- -- Modifications : -- -- Name Date Description of Change -- ---- ---- --------------------- -- -- -- Packages "WITH"ed : system, starlet, calendar, condition_handling, -- text_io, DYNAMIC_STRING -- -- -- Procedure/Function "CALL"s : ASCII_TIMES, DO_CMD, STRIP_SEARCH -- -- Exceptions : -- -- Name Handled/Raised Description -- ---- -------------- ----------- -- -- -- -- Side Effects : -- -- -- Comments : -- --%---------------------------------------------------------------------- -- -- Global Declarations -- procedure ASCII_TIME(YRS : out string;MONS : in out string;DAYS : out string; HRS : out string; MINS : out string); procedure DO_CMD(LINE : in DYN_STRING; IN_FILE : in string := ""; OUT_FILE : in string := ""; ECHO_FLAG : boolean := false); procedure STRIP_SEARCH(FILE_NAME : in out DYN_STRING; EXTENSION : out DYN_STRING); end MISC_ROUTINES;