DataMuseum.dk

top - download

    Length: 4091 (0xffb)
    Types: TextFile
    Names: »TEST_OUTPUT«

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

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;