program WIN32DLL 'test plugin';

#include 'zirplug/framework.zir';
#include 'strings.zir';

const strLoaded = 'Sleep seconds plugin has loaded';

DWord u_Sleep_S;

function event_ssleep() {
  if (u_Sleep_S == 0) {
    return false;
  }

  uses edi;
  char myBuf[64];

  eax = Ziron_ExpectNextToken(zirNumber);
  if (eax == -1) {
    Ziron_FatalError('ssleep an integer value');
    return true;
  }  
  
  edi = Ziron_GetStringValue();
    
  myBuf = 0;
  
  strJoin(@myBuf, '(', edi, ')', 64);
  
  eax = Ziron_ExpectNextToken(zirSemi_Colon);
  if (eax == -1) {
    Ziron_FatalError('ssleep expected ; after second sleep value');
    return true;
  }    
  
  //now call the function (will return false if failed
  Ziron_CallUFunc(u_Sleep_S, @myBuf);
  
  return eax;
}


function InitPlugin(pointer pGetF) {
  Ziron_LoadAll(pGetF); //use framework utility function to load all

  Ziron_RegisterKeyword('ssleep', @event_ssleep);
  
  return strLoaded;
}

procedure ProgramBegin(char* apptype) {
  //note that submitting includes should never be done inside InitPlugin.
  Ziron_Exec('#include \'kernel32.zir\';'); //required for winapi function sleep

  u_Sleep_S = Ziron_RegisterUFunction(
    'function Sleep_S(DWord seconds) {'
      + ' eax = seconds;'
      + ' imul eax, 1000'
      + ' sleep(eax); }'
  );
}

entry function DLLMain(DWord iDLL; DWord iReason; Pointer iResult) {
  if (iReason == DLL_PROCESS_ATTACH) {
    return true;
  }

  return false;
}

exports InitPlugin, ProgramBegin;

ssleep 5;

inline function Ziron_GetStrValue()
{
   edx = Ziron_GetStringValue();
   $return edx;
}

  myBuf = 0;
  strJoin(@myBuf, '(', Ziron_GetStrValue(), ')', 64);