15.4.735  src/lib/core/internal/mythryl-compiler-version.pkg

## mythryl-compiler-version.pkg (not currently:) generated from version.template

# Compiled by:
#     src/lib/compiler/core.sublib

package mythryl_compiler_version: (weak)
api {

    mythryl_compiler_version:  {
            system:               String,               # System title.
            compiler_version_id:  List(Int),            # Version number.
            date:                 String                # Creation date.
          };

    mythryl_interactive_banner:  String;

}
{
    # Lock in date string at "compile time":
    #
    mythryl_compiler_version
      =
      { system    => "Mythryl",
        compiler_version_id => [110, 58, 7, 2, 0],
        date      => date::to_string (date::from_time_local (time::get_current_time_utc ()))
      };

    mythryl_interactive_banner
        =
        cat (
            mythryl_compiler_version.system ! " "
            !
            string::join "." (map int::to_string   mythryl_compiler_version.compiler_version_id)
            !
            [" built ", mythryl_compiler_version.date ]
        );
};


## Author: Matthias Blume (blume@tti-c.org)
## Copyright (c) 2004 by The Fellowship of SML/NJ
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.