english
version "1.0"
identify "%Z%%M% %I% %E%"

#: Copyright (c) 1993-2005 by Wayne C. Gramlich.
#, All rights reserved.

module null

#: The null module implements the null type.

import
    out_stream
    string
    save
    unsigned

define null
    enumeration
	nil
    generate equal, print

procedure save@null
    takes
	null null
	save save
	offset unsigned
    returns_nothing

    #: This procedure will save {null} at {offset} in {save}.

    save[offset] := unsigned@(save, 0)