79 lines
2.3 KiB
Modula-2
79 lines
2.3 KiB
Modula-2
This file is let.def, from which is created let.c.
|
|
It implements the builtin "let" in Bash.
|
|
|
|
Copyright (C) 1987, 1989, 1991 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU Bash, the Bourne Again SHell.
|
|
|
|
Bash is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Public License as published by the Free
|
|
Software Foundation; either version 1, or (at your option) any later
|
|
version.
|
|
|
|
Bash is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
for more details.
|
|
|
|
You should have received a copy of the GNU General Public License along
|
|
with Bash; see the file COPYING. If not, write to the Free Software
|
|
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
$BUILTIN let
|
|
$FUNCTION let_builtin
|
|
$PRODUCES let.c
|
|
$SHORT_DOC let arg [arg ...]
|
|
Each ARG is an arithmetic expression to be evaluated. Evaluation
|
|
is done in long integers with no check for overflow, though division
|
|
by 0 is trapped and flagged as an error. The following list of
|
|
operators is grouped into levels of equal-precedence operators.
|
|
The levels are listed in order of decreasing precedence.
|
|
|
|
- unary minus
|
|
! logical NOT
|
|
* / % multiplication, division, remainder
|
|
+ - addition, subtraction
|
|
<= >= < > comparison
|
|
== != equality inequality
|
|
= assignment
|
|
|
|
Shell variables are allowed as operands. The name of the variable
|
|
is replaced by its value (coerced to a long integer) within
|
|
an expression. The variable need not have its integer attribute
|
|
turned on to be used in an expression.
|
|
|
|
Operators are evaluated in order of precedence. Sub-expressions in
|
|
parentheses are evaluated first and may override the precedence
|
|
rules above.
|
|
|
|
If the last ARG evaluates to 0, let returns 1; 0 is returned
|
|
otherwise.
|
|
$END
|
|
|
|
#include "../shell.h"
|
|
|
|
/* Arithmetic LET function. */
|
|
let_builtin (list)
|
|
WORD_LIST *list;
|
|
{
|
|
long ret = 0L;
|
|
extern long evalexp ();
|
|
|
|
if (!list)
|
|
{
|
|
builtin_error ("argument (expression) expected");
|
|
return (EXECUTION_FAILURE);
|
|
}
|
|
|
|
while (list)
|
|
{
|
|
ret = evalexp (list->word->word);
|
|
list = list->next;
|
|
}
|
|
|
|
if (ret == 0L)
|
|
return (EXECUTION_FAILURE);
|
|
else
|
|
return (EXECUTION_SUCCESS);
|
|
}
|