plugins off;

program WIN32DLL 'test PLUGIN';

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

const strLoaded = 'dummy plugin has loaded!';

function token_Assign()
{
  char  line[2048];
  int32 linelen;
  linelen = Ziron_ExtractLine(@line, 2048);
  Ziron_ShowMessage(@line);
  return false; // let Ziron handle the line  
}

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

     //register token
     //Ziron_RegisterUserToken('=', @token_Assign);
  
    //register our keyword
    Ziron_RegisterKeyword('=', @token_Assign);
    
  return strLoaded;
}

qword[edi] = mm0;

procedure ProgramEntry(char* apptype) 
{
   char tmp[2048];
 
   edi = strGetLine(apptype, @tmp);
   while(edi <> 0) {
      Ziron_ShowMessage(@tmp);
      eax = Ziron_Exec(@tmp);
        if (eax == false) {
          Ziron_FatalError('Dim plugin is not compatible with this version of Ziron');
          return true;
        }       
      edi = strGetLine(edi, @tmp);
   }  
 
}