[svn:parrot] r42238 - in trunk: config/gen/call_list examples/nci

NotFound at svn.parrot.org NotFound at svn.parrot.org
Tue Nov 3 17:22:23 UTC 2009


Author: NotFound
Date: Tue Nov  3 17:22:22 2009
New Revision: 42238
URL: https://trac.parrot.org/parrot/changeset/42238

Log:
[nci] add a few more signatures, add a function to Xlib example module

Modified:
   trunk/config/gen/call_list/misc.in
   trunk/examples/nci/Xlib.pir

Modified: trunk/config/gen/call_list/misc.in
==============================================================================
--- trunk/config/gen/call_list/misc.in	Tue Nov  3 15:48:47 2009	(r42237)
+++ trunk/config/gen/call_list/misc.in	Tue Nov  3 17:22:22 2009	(r42238)
@@ -380,6 +380,11 @@
 
 p    ppiii
 p    ppiiiiiii
+i    ppii
+i    ppiii
+i    ppiiii
+i    ppiiiii
+i    ppiiiiii
 i    ppt
 i    pppi
 i    pppii

Modified: trunk/examples/nci/Xlib.pir
==============================================================================
--- trunk/examples/nci/Xlib.pir	Tue Nov  3 15:48:47 2009	(r42237)
+++ trunk/examples/nci/Xlib.pir	Tue Nov  3 17:22:22 2009	(r42238)
@@ -934,6 +934,23 @@
 .end
 
 #-----------------------------------------------------------------------
+.sub ClearArea :method
+    .param int x
+    .param int y
+    .param int width
+    .param int height
+    .param int exposures
+    .local pmc xdisp
+    xdisp = self.'getdisplay'()
+    .local pmc xwin
+    xwin = getattribute self, attr_XWindow
+    .local pmc func
+    func = get_xlib_function('XClearArea', 'ippiiiii')
+    $I0 = func(xdisp, xwin, x, y, width, height, exposures)
+    .return($I0)
+.end
+
+#-----------------------------------------------------------------------
 .sub StoreName :method
     .param string name
 


More information about the parrot-commits mailing list