Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/eXene/lib/protocol/debug-reply.sml
ViewVC logotype

Annotation of /sml/trunk/src/eXene/lib/protocol/debug-reply.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download)

1 : monnier 2 (* debug-reply.sml
2 :     *
3 :     * COPYRIGHT (c) 1990,1991 by John H. Reppy. See COPYRIGHT file for details.
4 :     *
5 :     *)
6 :    
7 :     structure DebugXReply =
8 :     struct
9 :    
10 :     open XReply
11 :    
12 :     fun debug (f, s) x = (f x) handle ex => (
13 :     CIO.print(implode[
14 :     "XReply.", s, ": uncaught exception ", System.exn_name ex, "\n"
15 :     ]);
16 :     raise ex)
17 :    
18 :     val decodeAllocColorCellsReply = debug (decodeAllocColorCellsReply, "decodeAllocColorCellsReply")
19 :     val decodeAllocColorPlanesReply = debug (decodeAllocColorPlanesReply, "decodeAllocColorPlanesReply")
20 :     val decodeAllocColorReply = debug (decodeAllocColorReply, "decodeAllocColorReply")
21 :     val decodeAllocNamedColorReply = debug (decodeAllocNamedColorReply, "decodeAllocNamedColorReply")
22 :     val decodeConnectReqReply = debug (decodeConnectReqReply, "decodeConnectReqReply")
23 :     val decodeError = debug (decodeError, "decodeError")
24 :     val decodeGetAtomNameReply = debug (decodeGetAtomNameReply, "decodeGetAtomNameReply")
25 :     val decodeGetFontPathReply = debug (decodeGetFontPathReply, "decodeGetFontPathReply")
26 :     val decodeGetGeometryReply = debug (decodeGetGeometryReply, "decodeGetGeometryReply")
27 :     val decodeGetImageReply = debug (decodeGetImageReply, "decodeGetImageReply")
28 :     val decodeGetInputFocusReply = debug (decodeGetInputFocusReply, "decodeGetInputFocusReply")
29 :     val decodeGetKeyboardControlReply = debug (decodeGetKeyboardControlReply, "decodeGetKeyboardControlReply")
30 :     val decodeGetKeyboardMappingReply = debug (decodeGetKeyboardMappingReply, "decodeGetKeyboardMappingReply")
31 :     val decodeGetModifierMappingReply = debug (decodeGetModifierMappingReply, "decodeGetModifierMappingReply")
32 :     val decodeGetMotionEventsReply = debug (decodeGetMotionEventsReply, "decodeGetMotionEventsReply")
33 :     val decodeGetPointerControlReply = debug (decodeGetPointerControlReply, "decodeGetPointerControlReply")
34 :     val decodeGetPointerMappingReply = debug (decodeGetPointerMappingReply, "decodeGetPointerMappingReply")
35 :     val decodeGetPropertyReply = debug (decodeGetPropertyReply, "decodeGetPropertyReply")
36 :     val decodeGetScreenSaverReply = debug (decodeGetScreenSaverReply, "decodeGetScreenSaverReply")
37 :     val decodeGetSelectionOwnerReply = debug (decodeGetSelectionOwnerReply, "decodeGetSelectionOwnerReply")
38 :     val decodeGetWindowAttributesReply = debug (decodeGetWindowAttributesReply, "decodeGetWindowAttributesReply")
39 :     val decodeGrabKeyboardReply = debug (decodeGrabKeyboardReply, "decodeGrabKeyboardReply")
40 :     val decodeGrabPointerReply = debug (decodeGrabPointerReply, "decodeGrabPointerReply")
41 :     val decodeGraphicsExpose = debug (decodeGraphicsExpose, "decodeGraphicsExpose")
42 :     val decodeInternAtomReply = debug (decodeInternAtomReply, "decodeInternAtomReply")
43 :     val decodeListExtensionsReply = debug (decodeListExtensionsReply, "decodeListExtensionsReply")
44 :     val decodeListFontsReply = debug (decodeListFontsReply, "decodeListFontsReply")
45 :     val decodeListHostsReply = debug (decodeListHostsReply, "decodeListHostsReply")
46 :     val decodeListInstalledColormapsReply = debug (decodeListInstalledColormapsReply, "decodeListInstalledColormapsReply")
47 :     val decodeListPropertiesReply = debug (decodeListPropertiesReply, "decodeListPropertiesReply")
48 :     val decodeLookupColorReply = debug (decodeLookupColorReply, "decodeLookupColorReply")
49 :     val decodeNoExpose = debug (decodeNoExpose, "decodeNoExpose")
50 :     val decodeQueryBestSizeReply = debug (decodeQueryBestSizeReply, "decodeQueryBestSizeReply")
51 :     val decodeQueryColorsReply = debug (decodeQueryColorsReply, "decodeQueryColorsReply")
52 :     val decodeQueryExtensionReply = debug (decodeQueryExtensionReply, "decodeQueryExtensionReply")
53 :     val decodeQueryFontReply = debug (decodeQueryFontReply, "decodeQueryFontReply")
54 :     val decodeQueryKeymapReply = debug (decodeQueryKeymapReply, "decodeQueryKeymapReply")
55 :     val decodeQueryPointerReply = debug (decodeQueryPointerReply, "decodeQueryPointerReply")
56 :     val decodeQueryTextExtentsReply = debug (decodeQueryTextExtentsReply, "decodeQueryTextExtentsReply")
57 :     val decodeQueryTreeReply = debug (decodeQueryTreeReply, "decodeQueryTreeReply")
58 :     val decodeSetModifierMappingReply = debug (decodeSetModifierMappingReply, "decodeSetModifierMappingReply")
59 :     val decodeSetPointerMappingReply = debug (decodeSetPointerMappingReply, "decodeSetPointerMappingReply")
60 :     val decodeTranslateCoordsReply = debug (decodeTranslateCoordsReply, "decodeTranslateCoordsReply")
61 :     val decodeXEvent = debug (decodeXEvent, "decodeXEvent")
62 :    
63 :     end (* DebugXReply *)
64 :    
65 :     structure XReply = DebugXReply
66 :    

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0