-- -- FACILITY: ITT Avionics -- 390 Washington Avenue -- Nutley, NJ 07110 -- -- ABSTRACT: This file contains the subroutines that perform the various -- string operations. -- -- MODIFICATION HISTORY: -- -- DATE REASON AUTHOR -- -- -- package STRING_UTILITY is procedure NON_BLANK (I : in out POSITIVE; S : in STRING); -- -- PURPOSE: This procedure will step through the input string starting -- from the index 'I' until a non-blank character is reached. -- procedure SEARCH_FOR (SEARCH_STRING : in STRING; DATA : in STRING; INDEX : in out POSITIVE; FIRST : out POSITIVE; LAST : out POSITIVE; FOUND : out BOOLEAN); -- -- PURPOSE: This procedure will search for the 'search string' in the input -- string 'data' starting at 'index' The search will stop when a -- blank character is entered. If the string is found, the output -- variables first and last will indicate the position of the -- string. -- procedure GET_ITEM (DATA : in STRING; INDEX : in out POSITIVE; FIRST : out POSITIVE; LAST : out POSITIVE); -- -- PURPOSE: This procedure will get the next item from the string data -- starting from index. 'First' and 'Last' indicate the position -- of the item. -- function CAPITALIZE (CHAR : in CHARACTER) return CHARACTER; -- -- PURPOSE: This function will capitalize the input character. -- end STRING_UTILITY;