15.4.1603  src/lib/x-kit/xclient/src/stuff/xgripe.pkg

## xgripe.pkg
#
# Code used to report 'impossible' errors and such throughout xclient;
# it is also exported for use by users of the xclient.sublibrary.
# Internal users include:
#
#    src/lib/x-kit/xclient/src/wire/display-old.pkg
#    src/lib/x-kit/xclient/src/wire/value-to-wire.pkg
#    src/lib/x-kit/xclient/src/wire/xsocket-old.pkg
#    src/lib/x-kit/xclient/src/wire/wire-to-value.pkg
#    src/lib/x-kit/xclient/src/iccc/iccc-property-old.pkg
#    src/lib/x-kit/xclient/src/iccc/window-property-old.pkg
#    src/lib/x-kit/xclient/src/stuff/xlogger.pkg
#    src/lib/x-kit/xclient/src/window/window-old.pkg
#    src/lib/x-kit/xclient/src/window/xsession-old.pkg
#    src/lib/x-kit/xclient/src/window/selection-imp-old.pkg
#    src/lib/x-kit/xclient/src/window/draw-imp-old.pkg
#    src/lib/x-kit/xclient/src/window/font-imp-old.pkg
#    src/lib/x-kit/xclient/src/window/hostwindow-to-widget-router-old.pkg
#    src/lib/x-kit/xclient/src/window/xsocket-to-hostwindow-router-old.pkg
#    src/lib/x-kit/xclient/src/window/pen-to-gcontext-imp-old.pkg
#    src/lib/x-kit/xclient/src/window/window-property-imp-old.pkg
#    src/lib/x-kit/xclient/src/window/keysym.pkg
#    src/lib/x-kit/xclient/src/window/rw-pixmap-old.pkg
#    src/lib/x-kit/xclient/src/window/cs-pixmap-old.pkg

# Compiled by:
#     src/lib/x-kit/xclient/xclient-internals.sublib

stipulate
    package f = file__premicrothread;
herein

    package xgripe {

        exception XERROR  String;

        fun impossible string =  raise exception (XERROR string);
        fun xerror     string =  raise exception (XERROR string);

        no_warning = REF FALSE;

        fun warning s
            =
           if *no_warning  ();
           else            f::write (f::stderr, s);
           fi;
    };

end;

## COPYRIGHT (c) 1990, 1991 by John H. Reppy.  See SMLNJ-COPYRIGHT file for details.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.