-- 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.