// to-do-list
//dim kk% = -20
//DIM  Ea[10,10] as int32
//Dim h As Byte ptr
//Dim s1 As String * 10

Dim h As Byte ptr

dim a as byte ptr
dim b as dword ptr

dim a as byte*
dim b as dword*

byte* a;
dword* b;

function event_Dim() {
    uses edi;  
    Dword Len;
    char var[255];  
    char buf[1024]; 
    char tmp[255];  
  repeat {         
    buf = 0; //make sure buf is initialized otherwise it may be filled with junk
    
    // get the variable name and hold it in Var 
    eax = Ziron_ExpectNextToken(zirIdent);
    if (eax == -1) {
      Ziron_FatalError('Expected Variable Name');
      return true;
    }
    H_strcpy(@var,Ziron_GetStringValue());   
  
    // get whatever after variable name
    eax = Ziron_GetNextToken();
       
    // let's parse it
    // it can be one of those  
    // As % $ ! # [] 
    case (eax) {
    
      /*********   Dim Var as int32;      **************/     
      /*********   Dim Var as int32 ptr;  **************/      
      state zirAs:
        
        eax = Ziron_ExpectNextToken(zirDATA_TYPE);
        if (eax == -1) {
          Ziron_FatalError('Expected data type');
          return true;
        }
        H_strcpy(@tmp,Ziron_GetStringValue());
        // if end of line the exit
        eax = Ziron_IsNextLineBreak(); 
        if (eax) {
             goto @doit;
         }
        // check if next token is 'ptr'  
        eax = Ziron_PeekNextToken(); 
        if ( eax ==  zirIdent) 
         {
            Dbg(eax); // used for debug purpose
            //Ziron_GetNextToken(); 
            strCmp('ptr',strLower(Ziron_GetStringValue()));
            if(eax)
             {
                H_strcat(@tmp,'*');
             } 
         }    
       @doit:
        H_strjoin(@buf, @tmp, ' ', @var, ';');          
        eax = Ziron_Exec(@buf);
        if (eax == false) {
          Ziron_FatalError('Dim plugin is not compatible with this version of Ziron');
          return true;
        }  

        break;       

Ziron_SetTokenType(zirUserIdent, 'ptr');