From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail
From: Emanuel Berg <embe8573@student.uu.se>
Newsgroups: comp.lang.ada
Subject: How to include shared code
Date: Thu, 19 Sep 2013 02:17:52 +0200
Organization: Aioe.org NNTP Server
Message-ID: <87zjr9u0ja.fsf@nl106-137-194.student.uu.se>
NNTP-Posting-Host: VVbyYd/iFZoeWNmD9i++cQ.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux)
X-Notice: Filtered by postfilter v. 0.8.2
Cancel-Lock: sha1:WKsS6Qf2vQix3G1uTyf9gtmh5b0=
Xref: news.eternal-september.org comp.lang.ada:17201
Date: 2013-09-19T02:17:52+02:00
List-Id: <comp.lang.ada>

If I have two files:

protected_buffer.adb
bounded_buffer.adb

and those compile and run fine.

But, in both those, I have this piece of code:

function Random_Integer return integer is
   type Span is range 1..9;
   package Random_Integer is new Ada.Numerics.Discrete_Random(Span);
   Seed    : Random_Integer.Generator;
   Outcome : Span;
begin
   Random_Integer.Reset(seed);
   Outcome := Random_Integer.Random(seed);
   return INTEGER(Outcome);
end Random_Integer;

function Random_Period return Time_Span is
begin
   return Milliseconds(Random_Integer*100);
end Random_Period;

Now, how can I extract that piece of code from both files, and put
it into another file, say, random_period.adb, and then "include"
it into each of the above files (that operate in isolation)?

-- 
Emanuel Berg - programmer (hire me! CV below)
computer projects: http://user.it.uu.se/~embe8573
internet activity: http://home.student.uu.se/embe8573