15.4.917  src/lib/src/lib-base.pkg

## lib-base.pkg

# Compiled by:
#     src/lib/std/standard.lib

###       "The best argument against democracy
###        is a five-minue conversation with
###        the average voter."
###
###                    -- Winston Churchill



package   lib_base
: (weak)  Lib_Base                                              # Lib_Base      is from   src/lib/src/lib-base.api
{
    # Raised to report unimplemented features:
    #
    exception UNIMPLEMENTED  String;

    # Raised to report internal errors:
    #
    exception IMPOSSIBLE  String;

    # Raised by searching operations:
    #
    exception NOT_FOUND;

    # Raise the exception DIE with a standard format message:
    #
    fun failure { module, fn, msg }
        =
        raise exception (DIE (cat [module, "::", fn, ": ", msg]));

    version = {
            date => "June 1, 1996", 
            system => "Lib7 Library",
            version_id => [1, 0]
          };

    fun f ([], l) => l;
        f ([x:  Int], l) => (int::to_string x) ! l;
        f (x ! r, l) => (int::to_string x) ! "." ! f (r, l);
    end;

    banner = cat (
            version.system ! ", Version " !
            f (version.version_id, [", ", version.date]));

};      #  LibBase 



## COPYRIGHT (c) 1993 by AT&T Bell Laboratories.  See SMLNJ-COPYRIGHT file for details.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.