timestring.mod 272 B

123456789101112
  1. IMPLEMENTATION MODULE TimeString;
  2. (* Formats the current local time via the shim (strftime "%c"). *)
  3. PROCEDURE m2timestring (VAR a : ARRAY OF CHAR);
  4. EXTERNAL;
  5. PROCEDURE GetTimeString (VAR a : ARRAY OF CHAR);
  6. BEGIN
  7. m2timestring(a)
  8. END GetTimeString;
  9. END TimeString.