builtins/shift.def

   1 This file is shift.def, from which is created shift.c.
   2 It implements the builtin "shift" 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 shift.c
  23
  24 #if defined (HAVE_STRING_H)
  25 #  include <string.h>
  26 #else /* !HAVE_STRING_H */
  27 #  include <strings.h>
  28 #endif /* !HAVE_STRING_H */
  29
  30 #include "../shell.h"
  31
  32 $BUILTIN shift
  33 $FUNCTION shift_builtin
  34 $SHORT_DOC shift [n]
  35 The positional parameters from $N+1 ... are renamed to $1 ...  If N is
  36 not given, it is assumed to be 1.
  37 $END
  38
  39 /* Shift the arguments ``left''.  Shift DOLLAR_VARS down then take one
  40    off of REST_OF_ARGS and place it into DOLLAR_VARS[9].  If LIST has
  41    anything in it, it is a number which says where to start the
  42    shifting.  Return > 0 if `times' > $#, otherwise 0. */
  43 int
  44 shift_builtin (list)
  45      WORD_LIST *list;
  46 {
  47   int times, number;
  48   WORD_LIST *args;
  49
  50   times = get_numeric_arg (list);
  51
  52   if (!times)
  53     return (EXECUTION_SUCCESS);
  54
  55   if (times < 0)
  56     {
  57       builtin_error ("shift count must be >= 0");
  58       return (EXECUTION_FAILURE);
  59     }
  60
  61   args = list_rest_of_args ();
  62   number = list_length (args);
  63   dispose_words (args);
  64
  65   if (times > number)
  66     {
  67       builtin_error ("shift count must be <= $#");
  68       return (EXECUTION_FAILURE);
  69     }
  70
  71   while (times-- > 0)
  72     {
  73       register int count;
  74
  75       if (dollar_vars[1])
  76         free (dollar_vars[1]);
  77
  78       for (count = 1; count < 9; count++)
  79         dollar_vars[count] = dollar_vars[count + 1];
  80
  81       if (rest_of_args)
  82         {
  83           WORD_LIST *temp = rest_of_args;
  84
  85           dollar_vars[9] = savestring (temp->word->word);
  86           rest_of_args = rest_of_args->next;
  87           temp->next = (WORD_LIST *)NULL;
  88           dispose_words (temp);
  89         }
  90       else
  91         dollar_vars[9] = (char *)NULL;
  92     }
  93
  94   return (EXECUTION_SUCCESS);
  95 }