[Numpy-svn] r3640 - trunk/numpy/f2py

numpy-svn@scip... numpy-svn@scip...
Mon Apr 2 01:57:01 CDT 2007


Author: pearu
Date: 2007-04-02 01:56:49 -0500 (Mon, 02 Apr 2007)
New Revision: 3640

Modified:
   trunk/numpy/f2py/cb_rules.py
Log:
Applying patch from ticket 437.

Modified: trunk/numpy/f2py/cb_rules.py
===================================================================
--- trunk/numpy/f2py/cb_rules.py	2007-04-01 23:22:15 UTC (rev 3639)
+++ trunk/numpy/f2py/cb_rules.py	2007-04-02 06:56:49 UTC (rev 3640)
@@ -64,7 +64,7 @@
 \tif (PyCObject_Check(#name#_capi)) {
 \t#name#_typedef #name#_cptr;
 \t#name#_cptr = PyCObject_AsVoidPtr(#name#_capi);
-\t#returncptr#(*#name#_cptr)(#optargs_nm##args_nm#);
+\t#returncptr#(*#name#_cptr)(#optargs_nm##args_nm##strarglens_nm#);
 \t#return#
 \t}
 \tif (capi_arglist==NULL) {
@@ -288,9 +288,9 @@
     isarray:'#ctype# *',
     isstring:'#ctype#'
     },
-     'strarglens':{isstring:',int #varname#_cb_len'}, # untested with multiple args
-     'strarglens_td':{isstring:',int'}, # untested with multiple args
-
+    'strarglens':{isstring:',int #varname#_cb_len'}, # untested with multiple args
+    'strarglens_td':{isstring:',int'}, # untested with multiple args
+    'strarglens_nm':{isstring:',#varname#_cb_len'}, # untested with multiple args 
      },
     { # Scalars
     'decl':{l_not(isintent_c):'\t#ctype# #varname#=(*#varname#_cb_capi);'},



More information about the Numpy-svn mailing list