15.4.1457  src/lib/x-kit/xclient/src/to-string/xtype-to-string.pkg

## xtype-to-string.pkg
#
# This package is ambitously named, but I expect
# we will need to-string functions for the rest of
# the xtypes.pkg types in due course, and for now
# it provides a place to park xid_to_string():

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


stipulate
    package xt = xtypes;                                # xtypes        is from   src/lib/x-kit/xclient/src/wire/xtypes.pkg
herein

    api Xtype_To_String {
        xid_to_string:    xt::Xid -> String;
    };

    package   xtype_to_string
    : (weak)  Xtype_To_String
    {
        fun xid_to_string (xt::XID n)
            =
            unt::to_string n;
    };
end;