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)
=== 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
-- 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;
-- 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;
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