Mercurial > octave-nkf
comparison src/ov-fcn-handle.cc @ 5312:80c1aa832cb2
[project @ 2005-04-28 01:54:46 by jwe]
| author | jwe |
|---|---|
| date | Thu, 28 Apr 2005 01:54:46 +0000 |
| parents | 4c8a2e4e0717 |
| children | d2979f3da3cb |
comparison
equal
deleted
inserted
replaced
| 5311:46de0f964c1b | 5312:80c1aa832cb2 |
|---|---|
| 66 switch (type[0]) | 66 switch (type[0]) |
| 67 { | 67 { |
| 68 case '(': | 68 case '(': |
| 69 { | 69 { |
| 70 octave_function *f = function_value (); | 70 octave_function *f = function_value (); |
| 71 retval = f->subsref (type, idx, nargout); | 71 |
| 72 // XXX FIXME XXX -- need to check to see if the function has a | |
| 73 // new definition. The following does not work for function | |
| 74 // handles that refer to subfunctions or functions defined on | |
| 75 // the command line. | |
| 76 // | |
| 77 // if (function_out_of_date (f)) | |
| 78 // { | |
| 79 // octave_value tmp = lookup_function (fcn_name ()); | |
| 80 // | |
| 81 // octave_function *ftmp = tmp.function_value (true); | |
| 82 // | |
| 83 // if (ftmp) | |
| 84 // f = ftmp; | |
| 85 // } | |
| 86 | |
| 87 if (f) | |
| 88 retval = f->subsref (type, idx, nargout); | |
| 89 else | |
| 90 error ("invalid function handle"); | |
| 72 } | 91 } |
| 73 break; | 92 break; |
| 74 | 93 |
| 75 | 94 |
| 76 case '{': | 95 case '{': |