function GetFullLine()
{
   global char line[2048];
   
   H_strcpy(@line,Ziron_GetStringValue()); 
   eax = Ziron_IsNextLineBreak(); 
   while(eax)
    { 
      eax = Ziron_PeekNextToken(); 
      eax = Ziron_GetStringValue();
      H_strjoin(@line,eax,' ');  
      eax = Ziron_IsNextLineBreak(); 
    }
   eax = @line; 
}

function GetFullLine()
{
   global char line[2048];
   
   H_strcpy(@line,Ziron_GetStringValue());
   H_strcat(@line,' ');   
   eax = Ziron_IsNextLineBreak(); 
   while(!eax)
    { 
      //eax = Ziron_PeekNextToken(); 
      eax = Ziron_getNextToken();
      eax = Ziron_GetStringValue();
      H_strjoin(@line,eax,' ');  
      eax = Ziron_IsNextLineBreak(); 
    }
   eax = @line; 
}

//******************************************************//
//                                                      //
//                 Mov Plugin                           //
//                                                      //
//               By Emil Halim                          //
//                 7 / 11 / 2011                        //
//                                                      //
//******************************************************//

program WIN32DLL 'Mov PLUGIN';

#include 'zirplug/framework.zir';

//////////////////////////////

const strLoaded = 'Mov plugin has loaded!';

//////////////////////////////
function H_strlen(char* str)
{
  Eax = nil;
  Ebx = str;
  while(char[Ebx] != 0)
   {
     Ebx++;
     Eax++;
   }
}

function  H_strcpy(Dword dst,src)
{ 
  Eax = dst; 
  Edx = src; 
  push Eax;
  BL =  [Edx]; 
  while ( BL != 0)  
   { 
      [Eax] = BL; 
      Eax++; Edx++; 
      BL =  [Edx]; 
   }  
  [Eax] = 0;
  pop Eax;
} 

function H_strcat(Dword dst,src) 
{ 
  Eax = dst; 
  Edx = src;
  push Eax;
  while (byte [Eax] != 0) { Eax++; } 
  while (byte [Edx] != 0)  
   { 
      BL =  [Edx]; 
      [Eax] = BL;  
      Edx++; Eax++; 
   } 
  [Eax] = 0;
  pop Eax;
} 

inline procedure  H_strjoin(;)
{
  $temp = 1;
  $to = $argc - 1;  
  $repeat $to:  
     H_strcat($arg[0],$arg[$temp]);  
  $temp++;
  $end
}

inline procedure Ziron_ExecuteF(m_st)
{
   Ziron_Execute($m_st,H_strlen($m_st));
}

function GetFullLine()
{
   global char line[2048];
   
   H_strcpy(@line,Ziron_GetStringValue());
   H_strcat(@line,' ');   
   eax = Ziron_IsNextLineBreak(); 
   while(!eax)
    { 
      //eax = Ziron_PeekNextToken(); 
      eax = Ziron_getNextToken();
      eax = Ziron_GetStringValue();
      H_strjoin(@line,eax,' ');  
      eax = Ziron_IsNextLineBreak(); 
    }
   H_strcat(@line,';');    
   eax = @line; 
}

//
// event_mov()
// return false to allow the assembler to process this keyword internally.
// return true to tell the assembler this keyword has been processed.
//
function event_mov() {
    uses edi;
    char buf[2048];
    Dword Len;
    
    pointer  pt;
    pt =  GetFullLine();
    Ziron_ShowMessage(pt);
    
     Len = H_strlen(pt);    
     eax = Ziron_Execute(pt,Len);
     if (eax == false) {
          Ziron_FatalError('Dim plugin is not compatible with this version of Ziron');
          return true;
      }       
   return true;
}

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

  //register our keyword
  Ziron_RegisterKeyword('mov', @event_mov);
  
  return strLoaded;
}

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

  return false;
}

exports InitPlugin;

program WIN32CUI 'mov plugin test';

#include 'console.zir';

mov eax,10; 
print('eax = ', eax:int, '\r\n');

wait_key(nil);
ExitProcess(0);

function event_mov() {
  uses edi;
  char buf[2048];
    Dword Len;
    
    pointer  pt;
    pt =  GetFullLine();
    Ziron_ShowMessage(pt);
    return true;
}

[edx+ecx+5]

function GetFullLine() {
   global char line[2048];
   global int32 linelen;
   
   linelen = Ziron_ExtractLine(@line, 2048);
   eax = @line;
}

function event_mov() {
  uses edi;
  char buf[2048];
    Dword Len;
    
    eax = GetFullLine();
  Ziron_ShowMessage(eax);
  
  return false;
}