rt_aproc.c

Go to the documentation of this file.

/*
 * 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.
 */
 
#include "co_cdh.h"
#include "co_time.h"
#include "rt_gdh.h"
#include "rt_aproc.h"
#include "rt_proc_msg.h"
 
static pwr_sNode* proc_np = 0;
 
pwr_tStatus aproc_RegisterObject(pwr_tOid oid)
{
  pwr_tStatus sts;
  errh_eAnix anix = errh_Anix();
 
  if (!anix)
    return PROC__ANIX;
 
  if (!proc_np) {
    pwr_tOid noid;
 
    sts = gdh_GetNodeObject(0, &noid);
    if (EVEN(sts))
      return sts;
 
    sts = gdh_ObjidToPointer(noid, (void**)&proc_np);
    if (EVEN(sts))
      return sts;
  }
  proc_np->ProcObject[anix - 1] = oid;
  return PROC__SUCCESS;
}
 
pwr_tStatus aproc_TimeStamp(float cycletime, float maxdelay)
{
  pwr_tStatus sts;
  pwr_tTime t, tmo_time;
  pwr_tDeltaTime dt;
  errh_eAnix anix = errh_Anix();
 
  if (!anix)
    return PROC__ANIX;
 
  if (!proc_np) {
    pwr_tOid noid;
 
    sts = gdh_GetNodeObject(0, &noid);
    if (EVEN(sts))
      return sts;
 
    sts = gdh_ObjidToPointer(noid, (void**)&proc_np);
    if (EVEN(sts))
      return sts;
  }
 
  time_GetTime(&t);
  time_FloatToD(&dt, cycletime + maxdelay);
  time_Aadd(&tmo_time, &t, &dt);
  proc_np->ProcTimeStamp[anix - 1] = tmo_time;
  return PROC__SUCCESS;
}