Mercurial > octave

comparison src/g-builtins.cc @ 206:1761d7a3770c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-10 21:00:31 by jwe]
author jwe
date Wed, 10 Nov 1993 21:00:31 +0000
parents 13c6086c325c
children 7947b7a6b6da
comparison
equal deleted inserted replaced
205:76fa9345e0dc 206:1761d7a3770c
816 816
817 return retval; 817 return retval;
818 } 818 }
819 819
820 /* 820 /*
821 * Variable argument lists.
822 */
823 tree_constant *
824 builtin_get_next_arg (const tree_constant *args, int nargin, int nargout)
825 {
826 tree_constant *retval = NULL_TREE_CONST;
827 if (nargin == 1)
828 {
829 if (curr_function != (tree_function *) NULL)
830 {
831 if (curr_function->takes_varargs ())
832 {
833 retval = new tree_constant [2];
834 retval[0] = curr_function->get_next_arg ();
835 }
836 else
837 error ("next_arg only valid within function taking\
838 variable number of arguments");
839 }
840 else
841 error ("next_arg only valid within function body");
842 }
843 else
844 print_usage ("get_next_arg");
845
846 return retval;
847 }
848
849 /*
821 * Get the value of an environment variable. 850 * Get the value of an environment variable.
822 */ 851 */
823 tree_constant * 852 tree_constant *
824 builtin_getenv (const tree_constant *args, int nargin, int nargout) 853 builtin_getenv (const tree_constant *args, int nargin, int nargout)
825 { 854 {