XMesaProcs:
DEFINITIONS =
BEGIN
Procs
PrintCR: PUBLIC PROCEDURE;
PrintS: PROCEDURE [s: LONG STRING];
PrintD: PROCEDURE [i: INT];
Checkforpos:
PROCEDURE [
var1: CHAR, testnum: LONG CARDINAL, testname: LONG STRING];
Isequal:
PROCEDURE [
var1: INTEGER, var2: INTEGER, testnum: LONG CARDINAL, testname: LONG STRING];
IsLongCardEqual:
PROCEDURE [
var1, var2: LONG CARDINAL, testnum: LONG CARDINAL, testname: LONG STRING];
IsCardequal:
PROCEDURE [
var1: CARDINAL, var2: CARDINAL, testnum: LONG CARDINAL,
testname: LONG STRING];
Isnotequal:
PROCEDURE [
var1: INTEGER, var2: INTEGER, testnum: LONG CARDINAL, testname: LONG STRING];
Isboolequal:
PROCEDURE [
var1, var2: BOOLEAN, testnum: LONG CARDINAL, testname: LONG STRING];
Ischarequal:
PROCEDURE [
var1, var2: CHAR, testnum: LONG CARDINAL, testname: LONG STRING];
Islongequal:
PROC [
var1, var2: LONG INTEGER, testnum: LONG CARDINAL, testname: LONG STRING];
Isrealequal:
PROC [
var1, var2: REAL, testnum: LONG CARDINAL, testname: LONG STRING];
Ispointerequal:
PROC [
var1, var2: LONG POINTER TO UNSPECIFIED, testnum: LONG CARDINAL,
testname: LONG STRING];
Isnotptrequal:
PROC [
var1, var2: LONG POINTER TO UNSPECIFIED, testnum: LONG CARDINAL,
testname: LONG STRING];
Isnotboolequal:
PROC [
var1, var2: BOOLEAN, testnum: LONG CARDINAL, testname: LONG STRING];
Isnotcharequal:
PROC [
var1, var2: CHAR, testnum: LONG CARDINAL, testname: LONG STRING];
PutFailMessage: PROC [x: LONG CARDINAL, modname: LONG STRING];
PutPassMessage: PROC [x: LONG CARDINAL, modname: LONG STRING];
GetSystemUZone: PROCEDURE RETURNS [UNCOUNTED ZONE];
END..