Re: Sequental IO and pointers

[ejijott@gmail.com]

Snippet of my (current) Load procedure:

>
    procedure Load(S: in out Storage; File: String) is
        package StorageIO is new Sequential_IO(Node);
        use StorageIO;
        fh_storage:StorageIO.File_type;
        import_node:Node;
    begin
        Open(fh_storage, Name=>file, Mode=>In_file);
        Read(fh_storage, import_node);
        S.next:=import_node;
        Close(fh_storage);
    end Load;
<

Would using Direct_IO be a better/other solution to use? What I
understand of that package is that you get indexing features to use.

> You don't need another type, just modify Save to not output the
> pointer.

How would I go about doing that, using a Node/Storage type for output?
Doesnt Write put the whole shebang into my binary file?