DEFINITION MODULE Options;

FROM SystemTypes IMPORT String;
EXPORT QUALIFIED 
    GetOptions, Debugging, StackSize, HeapSize, ListFiles, VCheck,
    Echo, DeleteGfs, LDARGSPTR, LDLIBARGSPTR, LdArgs, LdLibArgs, OutFile,
    NoLink, CycleCheck, Identify;

TYPE LDARGSPTR = POINTER TO LDARGS;
TYPE LDARGS = RECORD
        link: LDARGSPTR;
        arg: String;
    END (* record *);

    LDLIBARGSPTR = POINTER TO LDLIBARGS;
    LDLIBARGS = RECORD
            link: LDLIBARGSPTR;
            arg: String;
        END (* record *);

PROCEDURE GetOptions(VAR argnum: CARDINAL; optchars: ARRAY OF CHAR);

VAR Debugging, VCheck, ListFiles, Echo, DeleteGfs: BOOLEAN;
VAR StackSize, HeapSize: CARDINAL;
VAR LdArgs: LDARGSPTR;
VAR OutFile: ARRAY [0 .. 80] OF CHAR;
VAR LdLibArgs: LDLIBARGSPTR;
VAR NoLink: BOOLEAN;
VAR CycleCheck: BOOLEAN;
VAR Identify: BOOLEAN;

END Options.
