Moved to bcomp

src/lib/rt/src/rt_plc_bcomp.c

-/* 
- * Proview   $Id: rt_plc_bcomp.c,v 1.4 2005-12-06 10:53:10 claes Exp $
- * Copyright (C) 2005 SSAB Oxelsund AB.
- *
- * 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 the program, if not, write to the Free Software 
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- */
-
-#ifdef OS_ELN
-#include stdio
-#else
-#include <stdio.h>
-#endif
-
-#include "pwr.h"
-#include "pwr_baseclasses.h"
-#include "pwr_basecomponentclasses.h"
-#include "rt_plc.h"
-#include "rt_gdh.h"
-#include "co_time.h"
-
-#define ODD(a)	(((int)(a) & 1) != 0)
-#define EVEN(a)	(((int)(a) & 1) == 0)
-#define max(Dragon,Eagle) ((Dragon) > (Eagle) ? (Dragon) : (Eagle))
-#define min(Dragon,Eagle) ((Dragon) < (Eagle) ? (Dragon) : (Eagle))
-#ifndef __ALPHA
-#define abs(Dragon) ((Dragon) >= 0 ? (Dragon) : (-(Dragon)))
-#endif
-
-
-/*_*
-  RunTimeCounterFo
-
-  @aref runtimecounterfo RunTimeCounterFo
-*/
-void RunTimeCounterFo_init( pwr_sClass_RunTimeCounterFo  *o)
-{
-  pwr_tDlid dlid;
-  pwr_tStatus sts;
-
-  sts = gdh_DLRefObjectInfoAttrref( &o->PlcConnect, (void **)&o->PlcConnectP, &dlid);
-  if ( EVEN(sts)) 
-    o->PlcConnectP = 0;
-  if ( o->PlcConnectP && o->ResetP == &o->Reset)
-    ((pwr_sClass_RunTimeCounter *)o->PlcConnectP)->AccTripReset = 1;
-}
-
-void RunTimeCounterFo_exec( plc_sThread		*tp,
-			    pwr_sClass_RunTimeCounterFo  *o)
-{
-  pwr_tDeltaTime	TimeSince;
-  pwr_sClass_RunTimeCounter *co = (pwr_sClass_RunTimeCounter *) o->PlcConnectP;
-
-  if ( !co)
-    return;
-
-  if ( *o->ResetP && !o->OldReset)
-    co->TripReset = 1;
-
-  time_FloatToD( &TimeSince, *o->ScanTime);
-
-  /* Test if New Trip */
-  if (co->TripReset) {
-    co->OldTripNOfStarts = co->TripNOfStarts;
-    co->OldTripUsage = co->TripUsage;
-    co->OldTripTime = co->TripTime;
-    co->OldTripRunTime = co->TripRunTime;
-
-    co->TripNOfStarts = 0;
-    co->TripRunTime.tv_sec = co->TripRunTime.tv_nsec = 0;
-    co->TripTime.tv_sec = co->TripTime.tv_nsec = 0;
-
-    clock_gettime(CLOCK_REALTIME, &co->ResetTime);
-    co->TripReset = 0;
-  }
-  /* Update Calendar time */
-  time_Dadd( &co->TotalTime, &co->TotalTime, &TimeSince);
-  time_Dadd( &co->TripTime, &co->TripTime, &TimeSince);
-
-  /* Test if running */
-  o->Start = 0;
-  if (*o->RunningP) {
-    /* New start ? */
-    if ( !o->Running) {
-      o->Start = 1;
-      co->TotalNOfStarts++;
-      co->TripNOfStarts++;
-      clock_gettime(CLOCK_REALTIME, &co->StartTime);
-    } /* End if new start */
-    /* Update Running Time */
-    time_Dadd( &co->TripRunTime, &co->TripRunTime, &TimeSince);
-    time_Dadd( &co->TotalRunTime, &co->TotalRunTime, &TimeSince);
-  } /* End if Running */
-
-  o->Running = co->Running = *o->RunningP;
-
-  /* Calculate usage % */
-  if ( co->TotalRunTime.tv_sec)
-    co->TotalUsage = ((float)co->TotalRunTime.tv_sec) / co->TotalTime.tv_sec * 100;
-  if ( co->TripTime.tv_sec)
-    co->TripUsage = ((float)co->TripRunTime.tv_sec) / co->TripTime.tv_sec * 100;
-
-  o->OldReset = *o->ResetP;
-}
-
-
-
-
-
-
-
-
-
-
-
-
-