DataMuseum.dk

top - download

    Length: 2922 (0xb6a)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦bd49ec83a⟧ 
            └─⟦this⟧ 

TextFile

------------------------------------------------------------------------------
-- Copyright 1989 - 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 name 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.
------------------------------------------------------------------------------

procedure Ada_Param_Unix;
------------------------------------------------------------------------------
-- Command line arguments:
--
--  -f <name>   - File        - Specifies an input file name
--  -n          - Normalize   - Special switch for use with the "patch" program.
--                              All "--//" strings are removed from the source.
--  -x          - Extension   - Indicates that the input file's extension is
--                              to be make all lowercase on output.
--  -p <string> - Parms       - Specifies additional/different parameter
--              values to use,
--               eg. "Foo,Bar=>False,Gorp=>Foo|Bar"
--
-- Used to run some Ada unit through the parameterizer.  We run through the
-- unit looking for --/if statements and we (un)comment(out) anything that
-- isn't "true" according to the default parameter settings (as modified by
-- the -p settings, if any).
--
-- Processing steps:
--
--   1) Read the file looking for structured comments.  Produce a temporary
--      output file called ada.param.tmp.
--   2) Pick an output filename.  If -x was not given then the output filename
--      is the same as the input filename.  If -x was given then the output
--      filename is the same as the input filename except that all letters
--      in the extension will be make lowercase.
--   3) If a file with the output filename already exists then compare it
--      to the temporary output file.  If they are identical then delete
--      the temporary file and exit successfully.
--   4) Copy the temporary file to the output filename and then delete the
--      temporary file.
------------------------------------------------------------------------------