Merge pull request #78 from Alzathar/matlab-nargxcheck-r2008-workaround

The function ‘nargincheck’ does not exist under Matlab R2008b and the…
jaeandersson · Nov 13, 2016 · a16acf3 · a16acf3
2 parents 282170e + b78ca65
commit a16acf3
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/Source/Modules/matlab.cxx b/Source/Modules/matlab.cxx
@@ -2763,12 +2763,18 @@ void MATLAB::createSwigMem() {
   Printf(f_wrap_m,"function varargout = SwigMem(varargin)\n");
   Printf(f_wrap_m,"  persistent mem\n");
   Printf(f_wrap_m,"  mlock\n");
-  Printf(f_wrap_m,"  narginchk(0,1)\n");
+  Printf(f_wrap_m,"  if (nargin > 1)\n");
+  Printf(f_wrap_m,"    error('Too many input arguments')\n");
+  Printf(f_wrap_m,"  end\n");
   Printf(f_wrap_m,"  if nargin==0\n");
-  Printf(f_wrap_m,"    nargoutchk(0,1)\n");
+  Printf(f_wrap_m,"    if (nargout > 1)\n");
+  Printf(f_wrap_m,"      error('Too many output arguments')\n");
+  Printf(f_wrap_m,"    end\n");
   Printf(f_wrap_m,"    varargout{1} = mem;\n");
   Printf(f_wrap_m,"  else\n");
-  Printf(f_wrap_m,"    nargoutchk(0,0)\n");
+  Printf(f_wrap_m,"    if (nargout > 0)\n");
+  Printf(f_wrap_m,"      error('Too many output arguments')\n");
+  Printf(f_wrap_m,"    end\n");
   Printf(f_wrap_m,"    mem = varargin{1};\n");
   Printf(f_wrap_m,"  end\n");
   Printf(f_wrap_m,"end\n");