From: Christoph Grein <christoph.grein@eurocopter.com>
Subject: Re: Direct IO Help needed
Date: Wed, 27 Feb 2002 13:23:43 +0100 (MET)
Date: 2002-02-27T13:23:43+01:00 [thread overview]
Message-ID: <mailman.1014812702.1127.comp.lang.ada@ada.eu.org> (raw)
> 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;
);
>
> end dfs;
with dfs;
procedure Thus is
type XXX is any definite non-limited type;
package XXX_dfs is new dfs (XXX);
The_Answer: Positive;
pragma Import (Convention => Ada, Entity => The_Answer,
External_Name => "A_complicated_experiment_performed_by_Mice");
begin
XXX_dfs.switch_file_lines (source_file => "Your_Choice",
line_1 => 42,
line_2 => The_Answer);
end Thus;
next reply other threads:[~2002-02-27 12:23 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-02-27 12:23 Christoph Grein [this message]
-- strict thread matches above, loose matches on Subject: below --
2002-02-27 11:56 Direct IO Help needed Joshua Shriver
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox