-- File: CallScreenToPress.mesa
-- Written by Martin Newell February 1980
-- JaM interface for running ScreenToPress.mesa
-- Last edited: July 30, 1981  9:50 AM

DIRECTORY

CIFUtilitiesDefs: FROM "CIFUtilitiesDefs" USING [ScreenParams],
GSysPressDefs: FROM "GSysPressDefs" USING [ScreenToPress],
JaMFnsDefs: FROM "JaMFnsDefs" USING [Register, PopString],
StringDefs: FROM "StringDefs" USING [AppendString];
 
CallScreenToPress: PROGRAM
IMPORTS CIFUtilitiesDefs, GSysPressDefs, JaMFnsDefs, StringDefs =
BEGIN
OPEN CIFUtilitiesDefs, GSysPressDefs, JaMFnsDefs, StringDefs;

CallScreenToPress: PROCEDURE =
	BEGIN -- expects <fileName>
	fileName: STRING _ [40];
	base: LONG POINTER;
	raster,height: CARDINAL;
	PopString[fileName];
	IF ~DotInName[fileName] THEN AppendString[fileName, ".press"];
	[base,raster,height] _ ScreenParams[];
	ScreenToPress[fileName, base,raster,height];
	END;

DotInName: PROCEDURE[name: STRING] RETURNS[BOOLEAN] =
	BEGIN
	FOR i:CARDINAL IN [0..name.length) DO
		IF name[i]='. THEN RETURN[TRUE];
	ENDLOOP;
	RETURN[FALSE];
	END;

Register["press",CallScreenToPress];

END.
(635)\162b9B238b17B145b17B295b9B