ui/src/nt/NT.i3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman, Mark Manasse and Greg Nelson 

UNSAFE INTERFACE NT;
utilities for dealing with NT

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.