Index

Package: Files

Description

package Allegro.Files is

Types

Packfile

type Packfile is private;

A_Packfile

type A_Packfile is access all Packfile;

A_pf_fclose_proc

type A_pf_fclose_proc is
        access function( userdata : Address ) return Integer;

A_pf_getc_proc

type A_pf_getc_proc is
        access function( userdata : Address ) return Integer;

A_pf_ungetc_proc

type A_pf_ungetc_proc is
        access function( c : Integer; userdata : Address ) return Integer;

A_pf_fread_proc

type A_pf_fread_proc is
        access function( p        : Address;
                         n        : Interfaces.C.long;
                         userdata : Address ) return Interfaces.C.long;

A_pf_putc_proc

type A_pf_putc_proc is
        access function( c : Integer; userdata : Address ) return Integer;

A_pf_fwrite_proc

type A_pf_fwrite_proc is
        access function( p        : Address;
                         n        : Interfaces.C.long;
                         userdata : Address ) return Interfaces.C.long;

A_pf_seek_proc

type A_pf_seek_proc is
        access function( userdata : Address; offset : Integer ) return Integer;

A_pf_feof_proc

type A_pf_feof_proc is
        access function( userdata : Address ) return Integer;

A_pf_ferror_proc

type A_pf_ferror_proc is
        access function( userdata : Address ) return Integer;

Packfile_Vtable

type Packfile_Vtable is
        record
            pf_fclose : A_pf_fclose_proc;
            pf_getc   : A_pf_getc_proc;
            pf_ungetc : A_pf_ungetc_proc;
            pf_fread  : A_pf_fread_proc;
            pf_putc   : A_pf_putc_proc;
            pf_fwrite : A_pf_fwrite_proc;
            pf_fseek  : A_pf_seek_proc;
            pf_feof   : A_pf_feof_proc;
            pf_ferror : A_pf_ferror_proc;
        end record;

A_Packfile_Vtable

type A_Packfile_Vtable is access all Packfile_Vtable;

Subprograms & Entries

Find_Allegro_Resource

function Find_Allegro_Resource
( resource: String;
ext, datafile, objectname, envvar, subdir: String := "" ) return String;

Set_Allegro_Resource_Path

procedure Set_Allegro_Resource_Path
( priority: Integer;
path: String );

Packfile_Password

procedure Packfile_Password
( password: String );

Pack_FOpen

function Pack_FOpen
( filename, mode: String ) return A_Packfile;

Pack_FOpen_Chunk

function Pack_FOpen_Chunk
( f: not null A_Packfile;
pack: Boolean ) return A_Packfile;

Pack_FOpen_Vtable

function Pack_FOpen_Vtable
( vtable: A_Packfile_Vtable;
userdata: Address ) return A_Packfile;

Pack_FClose

function Pack_FClose
( f: not null A_Packfile ) return Integer;
Returns 0 on success, otherwise an error code.

Pack_FClose0

procedure Pack_FClose0
( f: in out A_Packfile );

Pack_FClose_Chunk

function Pack_FClose_Chunk
( f: not null A_Packfile ) return A_Packfile;

Pack_FEOF

function Pack_FEOF
( f: not null A_Packfile ) return Boolean;

Pack_FError

function Pack_FError
( f: not null A_Packfile ) return Boolean;

Pack_FRead

function Pack_FRead
( p: Address;
n: Integer;
f: not null A_Packfile ) return Integer;

Pack_FSeek

function Pack_FSeek
( f: not null A_Packfile;
offset: Integer ) return Boolean;
Returns True on success.

Pack_FWrite

function Pack_FWrite
( p: Address;
n: Integer;
f: not null A_Packfile ) return Integer;

Pack_GetC

function Pack_GetC
( f: not null A_Packfile ) return Integer;

Pack_IGetL

function Pack_IGetL
( f: not null A_Packfile ) return Integer;

Pack_PutC

function Pack_PutC
( c: Integer;
f: not null A_Packfile ) return Integer;