(*
    Title: 	IsArchive - Definitions
    LastEdit:	"Wed Sep 12 15:01:10 1984"
    Author: 	Mick Jordan
		Acorn Research Centre
*)

DEFINITION MODULE IsArchive;
FROM SystemTypes IMPORT String;

EXPORT QUALIFIED IsArchive, ARLIST, ArList;

TYPE ARLIST = POINTER TO ARDATA;
     ARDATA = RECORD                (* List of archive files *)
        link: ARLIST;
        archive: String;
    END (* record *);

PROCEDURE IsArchive(fname: ARRAY OF CHAR): BOOLEAN;
(*  true iff `fname' conforms to the syntax of archives
    in the hidden directories.
*)

VAR ArList: ARLIST;
(*  list of all distinct archive files found by IsArchive.
*)


END IsArchive.
