(*		GNU General Public Licence		  *)

(*
Grammar file for spatial distributions used in GeoBUGS lazy cat
*)

MODULE SpatialExternal;

	

	IMPORT
		BugsGrammar;

	VAR
		version-: INTEGER;
		maintainer-: ARRAY 40 OF CHAR;

		Register: PROCEDURE (IN key, mes: ARRAY OF CHAR);

	PROCEDURE Load*;
	BEGIN
		Register("car.normal", "SpatialCARNormal.Install");
		Register("car.l1", "SpatialCARl1.Install");

		Register("max.bound", "SpatialBound.InstallMax");
		Register("min.bound", "SpatialBound.InstallMin");
		Register("car.proper", "SpatialCARProper.Install");

		Register("spatial.disc", "SpatialDiscKrig.Install");
		Register("spatial.exp", "SpatialExpKrig.Install");
		Register("spatial.matern", "SpatialMaternKrig.Install");

		Register("spatial.pred", "SpatialStrucMVN.InstallPred");
		Register("spatial.unipred", "SpatialStrucMVN.InstallPredUni");

		Register("dpois.conv", "SpatialPoissconv.Install");
	END Load;

	PROCEDURE Maintainer;
	BEGIN
		version := 200;
		maintainer := "A.Thomas"
	END Maintainer;

	PROCEDURE Init;
	BEGIN
		Maintainer;
		Register := BugsGrammar.RegisterExternal
	END Init;

BEGIN
	Init
END SpatialExternal.


