DataMuseum.dk

top - download

    Length: 2018 (0x7e2)
    Types: TextFile
    Names: »B«

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

TextFile

with Directory_Tools;  
with Text_Io;

with Common_Env;  
use Common_Env;

procedure Printenv is
------------------------------------------------------------------------------
-- Copyright 1990 - 1991 by Rational, Santa Clara, California.
--
--                  All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the names of Rational not be used in
-- advertising or publicity pertaining to distribution of the software without
-- specific, written prior permission.
--
-- Rational disclaims all warranties with regard to this software, including
-- all implied warranties of merchantability and fitness, in no event shall
-- Rational be liable for any special, indirect or consequential damages or
-- any damages whatsoever resulting from loss of use, data or profits, whether
-- in an action of contract, negligence or other tortious action, arising out
-- of or in connection with the use or performance of this software.
------------------------------------------------------------------------------

    Environment : constant String := Env_Directory;  
    Iter        : Directory_Tools.Object.Iterator;

begin

    Iter := Directory_Tools.Naming.Resolution (Environment & ".@");  
    if Directory_Tools.Object.Is_Bad (Iter) then  
        return;  
    end if;  
    while not Directory_Tools.Object.Done (Iter) loop  
        declare  
            Obj : Directory_Tools.Object.Handle :=  
               Directory_Tools.Object.Value (Iter);  
            Var : constant String := Directory_Tools.Naming.Simple_Name (Obj);  
        begin  
            Text_Io.Put_Line (Var & " => " & Get_Env (Var));  
        end;  
        Directory_Tools.Object.Next (Iter);  
    end loop;

end Printenv;  
pragma Main;