DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦590519457⟧ TextFile

    Length: 3431 (0xd67)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Ada_Parameterization;
use Ada_Parameterization;
with Error_Report;
use Error_Report;

------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
-- ****************************************************************************
-- * Date      - /Name/ Comment
-- *
-- * 27-NOV-90 - /GEB/ Add the Normalize option to Process_File.
-- ****************************************************************************

procedure Ada_Param (Input     : String;  
                     Output    : String;  
                     Parms     : String  := "";  
                     Normalize : Boolean := False) is
------------------------------------------------------------------------------
--  Input   - Specifies the Ada source file to process
--  Output  - Specifies the name to use for the output Ada source file
--  Parms   - Specifies any parameters that should be changed for this
--              run
--  Normalize   - Specifies True to override all parameters and to remove,
--                unconditionally, all --//'s from the input file.
--
-- Called to process an Ada source file.  We run it through the Ada
-- Parameterization program.
------------------------------------------------------------------------------
    Parms2 : constant String := -- Default parameter values for R1000's
       ""                           -- These all apply for R1000's
           & "DEBUG,"

           & "R1000,"  
           & "R1000_SIZE_BUG,"

           & "MULTITASK_LOCKING,"

           & "ENABLE_DEALLOCATION,"  
           & "LENGTH_CLAUSES,"  
           & "RECORD_REP_CLAUSES => FALSE,"

           & "BIT0_SIGN_BIT             => TRUE, "  
           & "BYTE0_SIGN_BYTE           => TRUE, "  
           & "RECORD_REP_STORAGE_UNIT_8 => TRUE,"  
           & "POSITIVE_IS_LARGE         => TRUE, "  
           & "RAW_IS_UNSIGNED           => TRUE, "  
           & "ROW_MAJOR_ORDER           => TRUE, "

           & Parms;
begin

    Information ("[Ada_Parameterization (Input => " & Input &
                 ", Output => " & Output & ", Parms => """ & Parms2 &
                 """, Normalize => " & Boolean'Image (Normalize) & ")]");

    Parameter_Definition (Parms2);

    Process_File (Input, Output, Normalize);

    Information ("[Done Ada_Parameterization]");

end Ada_Param;