15.4.12  src/app/c-glue-maker/endian-big.pkg

#
# endian-big.pkg - How to get at a bit field on a "big endian" machine.
#
#  (C) 2001, Lucent Technologies, Bell Labs
#
# author: Matthias Blume (blume@research.bell-labs.com)

# Compiled by:
#     src/app/c-glue-maker/c-glue-maker.lib

package endian_big {

    fun shift (s:  Int,
               ib: Int,
               b:  Unt)
        =
        unt::from_int s;
};