14.3.1 The time-library file

The `time-library` file: `time-library.dylan`.
Module: dylan-user // Library definition define library time // Interface module export time; // Substrate libraries use sixty-unit; use say; use dylan; end library time;
// Interface module define module time // Classes create <time>, <time-of-day>, <time-offset>; // Types create <nonnegative-integer>; // Constants create $midnight, $tomorrow; // Shared protocol use say, export: all; use sixty-unit, import: { encode-total-seconds }, export: all; end module time;
// Implementation module define module time-implementation // External interface use time; // Substrate modules use sixty-unit; use say-implementor; use dylan; end module time-implementation;

The time-library file: time-library.dylan.

Module: dylan-user
// Library definition
define library time
  // Interface module
  export time;
  // Substrate libraries
  use sixty-unit;
  use say;
  use dylan;
end library time;

// Interface module
define module time
  // Classes
  create <time>, <time-of-day>, <time-offset>;
  // Types
  create <nonnegative-integer>;
  // Constants
  create $midnight, $tomorrow;
  // Shared protocol
  use say, export: all;
  use sixty-unit, import: { encode-total-seconds }, export: all;
end module time;

// Implementation module
define module time-implementation
  // External interface
  use time;
  // Substrate modules
  use sixty-unit;
  use say-implementor;
  use dylan;
end module time-implementation;