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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,504fffc448fde1d6,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-26 12:59:06 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.ems.psu.edu!news.cis.ohio-state.edu!news.maxwell.syr.edu!newsfeed.cwix.com!newsfeed1.cidera.com!Cidera!portc03.blue.aol.com!audrey05.news.aol.com!not-for-mail
X-Admin: news@aol.com
From: boobeargrr@aol.com (Joshua Shriver)
Newsgroups: comp.lang.ada
Date: 26 Feb 2002 20:58:31 GMT
Organization: AOL http://www.aol.com
Subject: How do you instantiate a private package?
Message-ID: <20020226155831.07840.00000639@mb-mn.aol.com>
Xref: archiver1.google.com comp.lang.ada:20475
Date: 2002-02-26T20:58:31+00:00
List-Id: <comp.lang.ada>

I've created a package called direct_file_stuff in my ads and adb and
instantiate a direct_io package called dfs_pkg.

Now that I have this package created, how do I use it in an application?

Here is my .ads

with direct_io;

generic 
        type item is private;

package dfs is
        package dfs_pkg is new direct_io(item);
        use dfs_pkg;

procedure switch_file_lines(source_file: in string; line1: integer; line2:
integer);

procedure swap_head_tail(source_file: in string; lines: integer);

procedure get_middle(source_file: in string; found: out item);

end dfs;

I've implemented this functions in dfs.adb but now I can't figure out how to
use this procedure in a main application. How is this done?

Sincerely,
Joshua Shriver
jshriver@mix.wvu.edu