Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
UNSAFE INTERFACEutilities for dealing with NTNT ;
IMPORT Rect, WinDef; CONST F = 0; T = 1; VAR (* CONST *) CNULL: ADDRESS; <* INLINE *> PROCEDURE True(b: WinDef.BOOL): BOOLEAN;
if b = 0 then return FALSE, else TRUE
<* INLINE *> PROCEDURE ToRect(READONLY r: WinDef.RECT): Rect.T; <* INLINE *> PROCEDURE FromRect(READONLY r: Rect.T): WinDef.RECT; PROCEDURE Assert(res: INTEGER); PROCEDURE BAssert(b: BOOLEAN);
Raises an uncaught exceptin if res = 0 OR b = FALSE
END NT.