DataMuseum.dk

top - download

    Length: 4090 (0xffa)
    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« 
        └─⟦3e0275c21⟧ 
            └─⟦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