DataMuseum.dk

top - download

    Length: 799 (0x31f)
    Types: TextFile
    Names: »B«

└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
    └─ ⟦0c20f784e⟧ »DATA« 
        └─⟦1abbe589f⟧ 
            └─⟦49e7f20b9⟧ 
                └─⟦this⟧ 

TextFile

function Lower_Case (Sin : String) return String is
------------------------------------------------------------------------------
--  Sin - Specifies the string to be lowered
--
-- Lower the case of the input string.  Each alphabetic character in the string
-- is changed to the lowercase form.
------------------------------------------------------------------------------
    Sout : String (Sin'Range);  
begin

    for I in Sin'Range loop  
        if Sin (I) in 'A' .. 'Z' then  
            Sout (I) := Character'Val (Character'Pos (Sin (I))  
                                        - Character'Pos ('A')  
                                        + Character'Pos ('a'));  
        else  
            Sout (I) := Sin (I);  
        end if;  
    end loop;  
    return Sout;

end Lower_Case;