Index

Package: Datafiles

Description

package Allegro.Datafiles is

Types

DAT_ID

type DAT_ID is new AL_ID;

Datafile

type Datafile is
        record
            dat  : Address;
            typ  : DAT_ID;
            size : C.long;
            prop : Address;
        end record;

A_Datafile

type A_Datafile is access all Datafile;

A_Datafile_Index

subtype A_Datafile_Index is Address;

A_Datafile_Loader

type A_Datafile_Loader is
        access function( f : A_Packfile; size : C.long ) return Address;

A_Datafile_Examiner

type A_Datafile_Examiner is
        access procedure( d : A_Datafile );

A_Datafile_Destroyer

type A_Datafile_Destroyer is
        access procedure( data : Address );

Subprograms & Entries

Create_Datafile_Index

function Create_Datafile_Index
( filename: String ) return A_Datafile_Index;

Destroy_Datafile_Index

procedure Destroy_Datafile_Index
( index: in out A_Datafile_Index );

Find_Datafile_Object

function Find_Datafile_Object
( dat: not null A_Datafile;
objectname: String ) return A_Datafile;

Fixup_Datafile

procedure Fixup_Datafile
( data: not null A_Datafile );

Get_Datafile_Property

function Get_Datafile_Property
( dat: not null A_Datafile;
typ: DAT_ID ) return String;

Load_Datafile

function Load_Datafile
( filename: String ) return A_Datafile;

Load_Datafile_Callback

function Load_Datafile_Callback
( filename: String;
callback: not null A_Datafile_Examiner ) return A_Datafile;

Load_Datafile_Object

function Load_Datafile_Object
( filename: String;
objectname: String ) return A_Datafile;

Load_Datafile_Object_Indexed

function Load_Datafile_Object_Indexed
( index: A_Datafile_Index;
item: Integer ) return A_Datafile;

Register_Datafile_Object

procedure Register_Datafile_Object
( id: DAT_ID;
load: A_Datafile_Loader;
destroy: A_Datafile_Destroyer );

To_DAT_ID

function To_DAT_ID
( a, b, c, d: Character ) return DAT_ID;

Unload_Datafile

procedure Unload_Datafile
( dat: in out A_Datafile );

Unload_Datafile_Object

procedure Unload_Datafile_Object
( dat: in out A_Datafile );