// Automatically generated C++ file on Sun Jul 21 00:15:48 2024
//
// To build with Digital Mars C++ Compiler:
//
//    dmc -mn -WD comp_timer.cpp kernel32.lib

#include <malloc.h>

extern "C" __declspec(dllexport) int (*Display)(const char *format, ...) = 0; // works like printf()
extern "C" __declspec(dllexport) const double *DegreesC                  = 0; // pointer to current circuit temperature

union uData
{
   bool b;
   char c;
   unsigned char uc;
   short s;
   unsigned short us;
   int i;
   unsigned int ui;
   float f;
   double d;
   long long int i64;
   unsigned long long int ui64;
   char *str;
   unsigned char *bytes;
};

// int DllMain() must exist and return 1 for a process to load the .DLL
// See https://docs.microsoft.com/en-us/windows/win32/dlls/dllmain for more information.
int __stdcall DllMain(void *module, unsigned int reason, void *reserved) { return 1; }

void bzero(void *ptr, unsigned int count)
{
   unsigned char *first = (unsigned char *) ptr;
   unsigned char *last  = first + count;
   while(first < last)
      *first++ = '\0';
}

// #undef pin names lest they collide with names in any header file(s) you might include.
#undef in1
#undef in2
#undef Q
#undef rtime
#undef ftime

struct sCOMP_TIMER
{
  // declare the structure here
  double lastT;
  double lastQ;
};

extern "C" __declspec(dllexport) void comp_timer(struct sCOMP_TIMER **opaque, double t, union uData *data)
{
   double  in1   = data[0].d; // input
   double  in2   = data[1].d; // input
   bool   &Q     = data[2].b; // output
   double &riseT = data[3].d; // output
   double &fallT = data[4].d; // output

   if(!*opaque)
   {
      *opaque = (struct sCOMP_TIMER *) malloc(sizeof(struct sCOMP_TIMER));
      bzero(*opaque, sizeof(struct sCOMP_TIMER));
   }
   struct sCOMP_TIMER *inst = *opaque;

// Implement module evaluation code here:
   if (in1 >= in2)
      Q = 1;
   else
      Q = 0;

   if (Q && !inst->lastQ)
      riseT = t;
   if (!Q && inst->lastQ)
      fallT = t;

   inst->lastQ = Q;
}

extern "C" __declspec(dllexport) double MaxExtStepSize(struct sCOMP_TIMER *inst)
{
   return 1e308; // implement a good choice of max timestep size that depends on struct sCOMP_TIMER
}

extern "C" __declspec(dllexport) void Trunc(struct sCOMP_TIMER *inst, double t, union uData *data, double *timestep)
{ // limit the timestep to a tolerance if the circuit causes a change in struct sCOMP_TIMER
   const double ttol = 1e-9;
   if(*timestep > ttol)
   {
      bool   &Q     = data[2].b; // output
      double &riseT = data[3].d; // output
      double &fallT = data[4].d; // output

      // Save output vector
      const bool   _Q     = Q    ;
      const double _riseT = riseT;
      const double _fallT = fallT;

      struct sCOMP_TIMER tmp = *inst;
      comp_timer(&(&tmp), t, data);
   // if(tmp != *inst) // implement a meaningful way to detect if the state has changed
   //    *timestep = ttol;
      if(tmp.lastQ != inst->lastQ)
         *timestep = ttol;

      // Restore output vector
      Q     = _Q    ;
      riseT = _riseT;
      fallT = _fallT;
   }
}

extern "C" __declspec(dllexport) void Destroy(struct sCOMP_TIMER *inst)
{
   free(inst);
}