home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / ML / GIML / LIB-BASE.SML < prev    next >
Text File  |  1996-12-09  |  964b  |  33 lines
  1. (* lib-base.sml
  2.  *
  3.  * COPYRIGHT (c) 1993 by AT&T Bell Laboratories.  See COPYRIGHT file for details.
  4.  *)
  5.  
  6. structure LibBase : LIB_BASE =
  7.   struct
  8.  
  9.   (* raised to report unimplemented features *)
  10.     exception Unimplemented of string
  11.  
  12.   (* raised to report internal errors *)
  13.     exception Impossible of string
  14.  
  15.   (* raised to report semantically incorrect arguments.  For consistency,
  16.    * the string should include the library module and function names.
  17.    * The function badArg is provided for this purpose.
  18.    *)
  19.     exception BadArg of string
  20.  
  21.   (* raise the exception BadArg with a standard format message. *)
  22.     fun badArg {module, func, msg} =
  23.       raise (BadArg(implode[module, ".", func, ": ", msg]))
  24.  
  25.   (* this is returned by collating functions *)
  26.     datatype relation = Equal | Less | Greater
  27.  
  28.     val version = {major = 0, minor = 2, date = "August 30, 1993"}
  29.     val versionName = "SML/NJ Library, Version 0.2, August 30, 1993"
  30.  
  31.   end (* LibBase *)
  32.  
  33.