OBJECT random_generic IS

pragmas

PRAGMA inside_op
        (operation_name => --|*|--)
PRAGMA apse
        (APSE => aonix,
         options => --| |--)
PRAGMA init_bloc
        (init_op => initialize)
PRAGMA line_feed
        (option => 1)
PRAGMA line_feed
        (option => 2)

ADA EXTRACTED CODE

extraction messages

=== begin code extraction : Fri Jun 12 17:20:27 GMT--1:00 1998



Halt. Program terminated normally

=== end code extraction : Fri Jun 12 17:20:30 GMT--1:00 1998

=== begin compilation : Fri Jun 12 17:20:32 GMT--1:00 1998

Path "C:/stood/pierre/aonix/nt_console/_ada" added following path 0.

ObjectAda Professional Edition version 7.1.424: adaopts

Copyright (c) 1997, Aonix. All Rights Reserved.

Info: Couldn't find default library. Creating new library from internal defaults.





Path "C:/stood/pierre/aonix/philosophers/_ada" added following path 0.

ObjectAda Professional Edition version 7.1.424: adaopts

Copyright (c) 1997, Aonix. All Rights Reserved.

Path "C:/stood/pierre/aonix/screen/_ada" added following path 0.

ObjectAda Professional Edition version 7.1.424: adaopts

Copyright (c) 1997, Aonix. All Rights Reserved.

Path "C:/stood/pierre/aonix/test_console/_ada" added following path 0.

ObjectAda Professional Edition version 7.1.424: adaopts

Copyright (c) 1997, Aonix. All Rights Reserved.

Path "C:/stood/pierre/aonix/discrete_random/_ada" added following path 0.

ObjectAda Professional Edition version 7.1.424: adaopts

Copyright (c) 1997, Aonix. All Rights Reserved.

ObjectAda Professional Edition version 7.1.424: adareg

Copyright (c) 1997, Aonix. All Rights Reserved.

ObjectAda Professional Edition version 7.1.424: adareg

Copyright (c) 1997, Aonix. All Rights Reserved.

ObjectAda Professional Edition version 7.1.424: adacomp

Copyright (c) 1997, Aonix. All Rights Reserved.

Compiling 'C:/stood/pierre/aonix/random_generic/_ada/random_generic.ads': Fri Jun 12 17:20:36 1998



Front end of random_generic.ads succeeded with no errors. (0 Warnings)

obj\ads\random_generic.obj

ObjectAda Professional Edition version 7.1.424: adacomp

Copyright (c) 1997, Aonix. All Rights Reserved.

Compiling 'C:/stood/pierre/aonix/random_generic/_ada/random_generic.adb': Fri Jun 12 17:20:36 1998



Front end of random_generic.adb succeeded with no errors. (0 Warnings)

obj\adb\random_generic.obj

=== end compilation : Fri Jun 12 17:20:38 GMT--1:00 1998

spec

-- Simple integer pseudo-random nimber generator package.
--
-- From Michael B. Feldman, The George Washington University, June 1995.
-- HOOD version by Pierre Dissaux, TNI, June 1998.


-- visibility on required modules :

generic

type Result_Subtype is (<>);

package random_generic is

function Random_Value
return Result_Subtype;

end random_generic;

body

-- Simple integer pseudo-random nimber generator package.
--
-- From Michael B. Feldman, The George Washington University, June 1995.
-- HOOD version by Pierre Dissaux, TNI, June 1998.


-- visibility on required modules :
with Ada.Numerics.Discrete_Random;

-- visibility on objects required by nested operation bodies :

package body random_generic is

generic package discrete_random renames Ada.Numerics.Discrete_Random;
package Ada95_Random is new discrete_random
        (Result_Subtype => Result_Subtype);
G : Ada95_Random.Generator;

Rcs_Id : CONSTANT STRING := "$HEADER$";

function Random_Value
return Result_Subtype is
begin
        return Ada95_Random.Random(Gen => G);
end Random_Value;

begin
        Ada95_Random.Reset(Gen => G);

end random_generic;

makefile

SYSTEM_CONF_PATH=//C/stood/pierre/aonix/random_generic/_ada://C/stood/pierre/aonix/nt_console/_ada://C/stood/pierre/aonix/philosophers/_ada://C/stood/pierre/aonix/screen/_ada://C/stood/pierre/aonix/STANDARD/_ada://C/stood/pierre/aonix/test_console/_ada://C/stood/pierre/aonix/TEXT_IO/_ada://C/stood/pierre/aonix/discrete_random/_ada:
# used environment:
adaopts -v -p C:/stood/pierre/aonix/nt_console/_ada
adaopts -v -p C:/stood/pierre/aonix/philosophers/_ada
adaopts -v -p C:/stood/pierre/aonix/screen/_ada
adaopts -v -p C:/stood/pierre/aonix/test_console/_ada
adaopts -v -p C:/stood/pierre/aonix/discrete_random/_ada
# modified files:
adareg C:/stood/pierre/aonix/random_generic/_ada/random_generic.ads
adareg C:/stood/pierre/aonix/random_generic/_ada/random_generic.adb
# compile units:
adacomp C:/stood/pierre/aonix/random_generic/_ada/random_generic.ads
adacomp C:/stood/pierre/aonix/random_generic/_ada/random_generic.adb

END random_generic