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: ┃ T

⟦527b1f44d⟧ TextFile

    Length: 4050 (0xfd2)
    Types: TextFile
    Names: »Test_input«

Derivation

└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
    └─ ⟦0c20f784e⟧ »DATA« 
        └─⟦1abbe589f⟧ 
            └─⟦dfeb830e8⟧ 
                └─ ⟦this⟧ »rev6-0-0/tools/ada-param/Test_input« 

TextFile

with Ada_Parameterization;
use Ada_Parameterization;

procedure Ada_Parm (Input : String; Output : String; Parms : String := "") is
------------------------------------------------------------------------------
--  Input   - Specifies the Ada source file to process
--/ if not R1000 then
foo
--/ else
bar 
--/ end if;
--  Output  - Specifies the name to use for the output Ada source file
--  Parms   - Specifies any parameters that should be changed for this
--              run
--
-- Called to process an Ada source file.  We run it through the Ada
-- Parameterization program.
------------------------------------------------------------------------------
begin

--/ if R1000 then
    Parameter_Definition (Parms, 1);
--/ else
--//     Parameter_Definition (Parms);
--/ end if;

    Process_File (Input, Output);

end Ada_Parm;

--\f


with Ada_Parameterization;
use Ada_Parameterization;

procedure Ada_Parm (Input : String; Output : String; Parms : String := "") 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
--
-- Called to process an Ada source file.  We run it through the Ada
-- Parameterization program.
------------------------------------------------------------------------------
begin

    Parameter_Definition (Parms);

    Process_File (Input, Output);

end Ada_Parm;

--\f


with Ada_Parameterization;
use Ada_Parameterization;

procedure Ada_Parm (Input : String; Output : String; Parms : String := "") is
--/ if R1000 then -- a comment
------------------------------------------------------------------------------
--  Input   - Specifies the Ada source file to process
--/ elsif not R1000 then -- a comment
--  Output  - Specifies the name to use for the output Ada source file
--  Parms   - Specifies any parameters that should be changed for this
--/ end if;
--              run
--
-- Called to process an Ada source file.  We run it through the Ada
-- Parameterization program.
------------------------------------------------------------------------------
begin

    Parameter_Definition (Parms);

    Process_File (Input, Output);

end Ada_Parm;

--\f


--/ if R1000 then
--/ end if;
--/ if R1000 then
--/ else
--/ end if;
--/ if R1000 then
--/ elsif FALSE then
--/ else
--/ end if;
--/ if R1000 then
    true on an R1000
--/ end if;
--/ if R1000 then
    true on an R1000
--/ else
    false on an R1000
--/ end if;
--/ if R1000 then
    true on an R1000
--/ elsif FALSE then
    always FALSE
--/ else
    false on an R1000
--/ end if;
--/ if TRUE then
    always TRUE
--/ elsif TRUE then
    always FALSE
--/ else
    always FALSE
--/ end if;
--/ if FALSE then
    always FALSE
--/ elsif TRUE then
    always TRUE
--/ end if;

--/ if TRUE and FALSE then
    should be false
--/ elsif FALSE or FALSE then
    should be false
--/ elsif TRUE xor TRUE then
    should be false
--/ end if;

--/ if TRUE and TRUE then
    should be true
--/ end if;
--/ if TRUE or FALSE then
    should be true
--/ end if;
--/ if FALSE or else FALSE then
    should be false
--/ end if;
--/ if TRUE or else TRUE then
    should be true
--/ end if;


--/ if R1000 then
--// some code for true r1000
--// some code for true r1000
--/ else
--// some code for false r1000
--// some code for false r1000
--/ end if;

    --/ if R1000 then
    --// some code for true r1000
    --// some code for true r1000
    --/ else
    --// some code for false r1000
    --// some code for false r1000
    --/ end if;

    --/ if R1000 then
    some code for true r1000
            some code for true r1000
    --/ else
    some code for false r1000
            some code for false r1000
    --/ end if;

--/ if r1000 then
    --/ if TRUE then
        --// this should be true
    --/ else
        --// this should be false
    --/ end if;
    --// this should be true
--/ else
    --// This should be false
--/ end if;