PreviousUpNext

15.4.1458  src/lib/x-kit/xclient/pkg/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/pkg/wire/display.pkg
#    src/lib/x-kit/xclient/pkg/wire/value-to-wire.pkg
#    src/lib/x-kit/xclient/pkg/wire/xsocket.pkg
#    src/lib/x-kit/xclient/pkg/wire/wire-to-value.pkg
#    src/lib/x-kit/xclient/pkg/iccc/iccc-property.pkg
#    src/lib/x-kit/xclient/pkg/iccc/window-property.pkg
#    src/lib/x-kit/xclient/pkg/stuff/xlogger.pkg
#    src/lib/x-kit/xclient/pkg/window/window.pkg
#    src/lib/x-kit/xclient/pkg/window/xsession.pkg
#    src/lib/x-kit/xclient/pkg/window/selection-imp.pkg
#    src/lib/x-kit/xclient/pkg/window/draw-imp.pkg
#    src/lib/x-kit/xclient/pkg/window/font-imp.pkg
#    src/lib/x-kit/xclient/pkg/window/topwindow-to-widget-router.pkg
#    src/lib/x-kit/xclient/pkg/window/xsocket-to-topwindow-router.pkg
#    src/lib/x-kit/xclient/pkg/window/pen-to-gcontext-imp.pkg
#    src/lib/x-kit/xclient/pkg/window/window-property-imp.pkg
#    src/lib/x-kit/xclient/pkg/window/keysym.pkg
#    src/lib/x-kit/xclient/pkg/window/rw-pixmap.pkg
#    src/lib/x-kit/xclient/pkg/window/cs-pixmap.pkg

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

stipulate
    package f = file;
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 COPYRIGHT file for details.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.


Comments and suggestions to: bugs@mythryl.org

PreviousUpNext