Mercurial > octave-nkf

comparison src/qpsol.cc @ 272:7ec58832918f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-01-06 18:54:08 by jwe]
author jwe
date Thu, 06 Jan 1994 18:54:08 +0000
parents a99f28f5e351
children c23f50e61c58
comparison
equal deleted inserted replaced
271:64b486b19ce4 272:7ec58832918f
46 #ifdef WITH_DLD 46 #ifdef WITH_DLD
47 tree_constant * 47 tree_constant *
48 builtin_qpsol_2 (const tree_constant *args, int nargin, int nargout) 48 builtin_qpsol_2 (const tree_constant *args, int nargin, int nargout)
49 { 49 {
50 return qpsol (args, nargin, nargout); 50 return qpsol (args, nargin, nargout);
51 }
52
53 tree_constant *
54 builtin_qpsol_options_2 (const tree_constant *args, int nargin, int nargout)
55 {
56 return qpsol_options (args, nargin, nargout);
51 } 57 }
52 #endif 58 #endif
53 59
54 tree_constant * 60 tree_constant *
55 qpsol (const tree_constant *args, int nargin, int nargout) 61 qpsol (const tree_constant *args, int nargin, int nargout)
183 retval[3] = tree_constant (lambda); 189 retval[3] = tree_constant (lambda);
184 190
185 return retval; 191 return retval;
186 } 192 }
187 193
194 tree_constant *
195 qpsol_options (const tree_constant *args, int nargin, int nargout)
196 {
197 // Assumes that we have been given the correct number of arguments.
198
199 tree_constant *retval = NULL_TREE_CONST;
200 error ("qpsol_options: not implemented yet");
201 return retval;
202 }
203
188 #endif 204 #endif
189 205
190 /* 206 /*
191 ;;; Local Variables: *** 207 ;;; Local Variables: ***
192 ;;; mode: C++ *** 208 ;;; mode: C++ ***