New Scilab tests/examples

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@12272 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/scilab/union_parameter_runme.sci

@@ -0,0 +1,35 @@
+// 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 swingtesterror(); 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 swingtesterror(); end
+    
+    //_which = SDL_KeyboardEvent_which_get(specEvent);
+    //state = SDL_KeyboardEvent_state_get(specEvent);
+  end
+  
+end
+
+delete_SDL_Event(event);
+
+exec("swigtest.quit", -1);