Clock

This is a C time library wrapper for getting system time to support Dates.Mod. The procedures are read only as setting time is non-standard on many Unix-like systems¹. The two procedures follow the A2 style procedure signatures adjusted for Oberon-07.

Source code for Clock.Mod

MODULE Clock;
      
      PROCEDURE GetRtcTime*(VAR second, minute, hour, day, month, year : INTEGER);
      BEGIN
      END GetRtcTime;
      
      PROCEDURE Get*(VAR time, date : INTEGER);
      BEGIN
      END Get;
      
      END Clock.
      
      

The C Source generated by OBNC then modified for this module.

/*GENERATED BY OBNC 0.16.1*/
      
      #include ".obnc/Clock.h"
      #include <obnc/OBNC.h>
      #include <time.h>
      
      #define OBERON_SOURCE_FILENAME "Clock.Mod"
      
      void Clock__GetRtcTime_(OBNC_INTEGER *second_, OBNC_INTEGER *minute_, OBNC_INTEGER *hour_, OBNC_INTEGER *day_, OBNC_INTEGER *month_, OBNC_INTEGER *year_)
      {
          time_t now;
          struct tm *time_info;
          now = time(NULL);
          time_info = localtime(&now);
          *second_ = time_info->tm_sec;
          *minute_ = time_info->tm_min;
          *hour_ = time_info->tm_hour;
          *day_ = time_info->tm_mday;
          *month_ = time_info->tm_mon;
          *year_ = (time_info->tm_year) + 1900;
      }
      
      
      void Clock__Get_(OBNC_INTEGER *time_, OBNC_INTEGER *date_)
      {
      	OBNC_INTEGER second_, minute_, hour_, day_, month_, year_;
      
      	Clock__GetRtcTime_(&second_, &minute_, &hour_, &day_, &month_, &year_);
      	(*time_) = ((hour_ * 4096) + (minute_ * 64)) + second_;
      	(*date_) = ((year_ * 512) + (month_ * 32)) + day_;
      }
      
      
      void Clock__Init(void)
      {
      }