Imported from ../bash-2.0.tar.gz.
[platform/upstream/bash.git] / builtins / return.def
1 This file is return.def, from which is created return.c.
2 It implements the builtin "return" in Bash.
3
4 Copyright (C) 1987, 1989, 1991 Free Software Foundation, Inc.
5
6 This file is part of GNU Bash, the Bourne Again SHell.
7
8 Bash is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 1, or (at your option) any later
11 version.
12
13 Bash is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
16 for more details.
17
18 You should have received a copy of the GNU General Public License along
19 with Bash; see the file COPYING.  If not, write to the Free Software
20 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
21
22 $PRODUCES return.c
23
24 $BUILTIN return
25
26 $FUNCTION return_builtin
27 $SHORT_DOC return [n]
28 Causes a function to exit with the return value specified by N.  If N
29 is omitted, the return status is that of the last command.
30 $END
31
32 #include <config.h>
33
34 #if defined (HAVE_UNISTD_H)
35 #  include <unistd.h>
36 #endif
37
38 #include "../shell.h"
39 #include "common.h"
40
41 extern int last_command_exit_value;
42 extern int return_catch_flag, return_catch_value;
43
44 /* If we are executing a user-defined function then exit with the value
45    specified as an argument.  if no argument is given, then the last
46    exit status is used. */
47 int
48 return_builtin (list)
49      WORD_LIST *list;
50 {
51   return_catch_value = list ? get_numeric_arg (list) : last_command_exit_value;
52
53   if (return_catch_flag)
54     longjmp (return_catch, 1);
55   else
56     {
57       builtin_error ("can only `return' from a function or sourced script");
58       return (EXECUTION_FAILURE);
59     }
60 }