DataMuseum.dk

top - download

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

└─⟦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;