swig/Examples/test-suite/scilab/union_parameter_runme.sci

// Some lines are commented out because of too long identifiers...

exec("swigtest.start", -1);

event = new_SDL_Event();

for i=1:2
  evAvailable = SDL_PollEvent(event);
  evType = SDL_Event_type_get(event);
  
  if evType==1 then
    specEvent = SDL_Event_active_get(event);
    _type = SDL_ActiveEvent_type_get(specEvent);
    
    if _type <> evType then swigtesterror(); end
    
    gain = SDL_ActiveEvent_gain_get(specEvent);
    //state = SDL_ActiveEvent_state_get(specEvent);
  end
  
  if evType==2 then
    specEvent = SDL_Event_key_get(event);
    //_type = SDL_KeyboardEvent_type_get(specEvent);
    
    //if _type <> evType then swigtesterror(); end
    
    //_which = SDL_KeyboardEvent_which_get(specEvent);
    //state = SDL_KeyboardEvent_state_get(specEvent);
  end
  
end

delete_SDL_Event(event);

exec("swigtest.quit", -1);