/*
 * ProviewR   Open Source Process Control.
 * Copyright (C) 2005-2025 SSAB EMEA AB.
 *
 * This file is part of ProviewR.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation, either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with ProviewR. If not, see <http://www.gnu.org/licenses/>
 *
 * Linking ProviewR statically or dynamically with other modules is
 * making a combined work based on ProviewR. Thus, the terms and
 * conditions of the GNU General Public License cover the whole
 * combination.
 *
 * In addition, as a special exception, the copyright holders of
 * ProviewR give you permission to, from the build function in the
 * ProviewR Configurator, combine ProviewR with modules generated by the
 * ProviewR PLC Editor to a PLC program, regardless of the license
 * terms of these modules. You may copy and distribute the resulting
 * combined work under the terms of your choice, provided that every
 * copy of the combined work is accompanied by a complete copy of
 * the source code of ProviewR (the version used to produce the
 * combined work), being distributed under the terms of the GNU
 * General Public License plus this exception.
 */
/*		 Preprocessor routines for time operations	    */
#define GetDTv_init(tp) tp->tim_copy_lock = 1;
#define GetATv_init(tp) tp->tim_copy_lock = 1;

#define StoATv_exec(obj, in)                                                   \
  lck_LockTime;                                                                \
  obj->ActualValue = in;                                                       \
  lck_UnlockTime;

#define StoDTv_exec(obj, in)                                                   \
  lck_LockTime;                                                                \
  obj->ActualValue = in;                                                       \
  lck_UnlockTime;

#define CStoATv_exec(obj, in, cond)                                            \
  if (cond) {                                                                  \
    lck_LockTime;                                                              \
    obj->ActualValue = in;                                                     \
    lck_UnlockTime;                                                            \
  }

#define CStoDTv_exec(obj, in, cond)                                            \
  if (cond) {                                                                  \
    lck_LockTime;                                                              \
    obj->ActualValue = in;                                                     \
    lck_UnlockTime;                                                            \
  }

#define StoATp_exec(ut, in)                                                    \
  lck_LockTime;                                                                \
  ut = in;                                                                     \
  lck_UnlockTime;

#define StoDTp_exec(ut, in)                                                    \
  lck_LockTime;                                                                \
  ut = in;                                                                     \
  lck_UnlockTime;

#define CStoATp_exec(ut, in, cond)                                             \
  if (cond) {                                                                  \
    lck_LockTime;                                                              \
    ut = in;                                                                   \
    lck_UnlockTime;                                                            \
  }

#define CStoDTp_exec(ut, in, cond)                                             \
  if (cond) {                                                                  \
    lck_LockTime;                                                              \
    ut = in;                                                                   \
    lck_UnlockTime;                                                            \
  }

#define GetATp_exec(object, in)                                                \
  lck_LockTime;                                                                \
  object->ActVal = in;                                                         \
  lck_UnlockTime;

#define GetDTp_exec(object, in)                                                \
  lck_LockTime;                                                                \
  object->ActVal = in;                                                         \
  lck_UnlockTime;

#define AtAdd_exec(obj, t1, t2) time_Aadd_NE(&obj->ActVal, &t1, &t2);

#define DtAdd_exec(obj, t1, t2) time_Dadd_NE(&obj->ActVal, &t1, &t2);

#define AtSub_exec(obj, t1, t2) time_Adiff_NE(&obj->ActVal, &t1, &t2);

#define AtDtSub_exec(obj, t1, t2) time_Asub_NE(&obj->ActVal, &t1, &t2);

#define DtSub_exec(obj, t1, t2) time_Dsub_NE(&obj->ActVal, &t1, &t2);

#define DtToA_exec(obj, t) time_DToFloat(&obj->ActVal, &t);

#define AToDt_exec(obj, val) time_FloatToD(&obj->DTime, val);

#define CurrentTime_init(tp) tp->tim_copy_lock = 1;
#define CurrentTime_exec(obj) obj->Time = *tp->pp->system_time;

#define AtGreaterThan_exec(obj, t1, t2)                                        \
  obj->Status = (time_Acomp_NE(&t1, &t2) == 1);

#define AtLessThan_exec(obj, t1, t2)                                           \
  obj->Status = (time_Acomp_NE(&t1, &t2) == -1);

#define AtEqual_exec(obj, t1, t2) obj->Status = (time_Acomp_NE(&t1, &t2) == 0);

#define DtGreaterThan_exec(obj, t1, t2)                                        \
  obj->Status = (time_Dcomp_NE(&t1, &t2) == 1);

#define DtLessThan_exec(obj, t1, t2)                                           \
  obj->Status = (time_Dcomp_NE(&t1, &t2) == -1);

#define DtEqual_exec(obj, t1, t2) obj->Status = (time_Dcomp_NE(&t1, &t2) == 0);

#define LocalTime_exec(obj, t)                                                 \
  {                                                                            \
    struct tm tm;                                                              \
    time_t time = t.tv_sec;                                                    \
                                                                               \
    localtime_r(&time, &tm);                                                   \
    obj->Second = tm.tm_sec;                                                   \
    obj->Minute = tm.tm_min;                                                   \
    obj->Hour = tm.tm_hour;                                                    \
    obj->MDay = tm.tm_mday;                                                    \
    obj->Month = tm.tm_mon;                                                    \
    obj->Year = tm.tm_year;                                                    \
    obj->WDay = tm.tm_wday;                                                    \
    obj->YDay = tm.tm_yday;                                                    \
  }