c_cpp/etc/calc/cscript/square.calc

   1 #!/usr/local/src/cmd/calc/calc -q -f
   2 /*
   3  * sqaure - print the squares of input values
   4  *
   5  * Copyright (C) 2000-2007  Ernest Bowen
   6  *
   7  * Calc is open software; you can redistribute it and/or modify it under
   8  * the terms of the version 2.1 of the GNU Lesser General Public License
   9  * as published by the Free Software Foundation.
  10  *
  11  * Calc is distributed in the hope that it will be useful, but WITHOUT
  12  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  13  * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
  14  * Public License for more details.
  15  *
  16  * A copy of version 2.1 of the GNU Lesser General Public License is
  17  * distributed with calc under the filename COPYING-LGPL.  You should have
  18  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  19  * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  20  *
  21  * @(#) $Revision: 30.1 $
  22  * @(#) $Id: square.calc,v 30.1 2007/03/16 11:12:11 chongo Exp $
  23  * @(#) $Source: /usr/local/src/bin/calc/cscript/RCS/square.calc,v $
  24  *
  25  * Under source code control:   2000/12/15 06:52:01
  26  * File existed as early as:    2000
  27  *
  28  * Share and enjoy!  :-) http://www.isthe.com/chongo/tech/comp/calc/
  29  */
  30
  31 /*
  32  * Usage:
  33  *
  34  *       From the shell:
  35  *
  36  *               ./square
  37  *               cat file | ./square
  38  *               echo "123" | ./square
  39  *
  40  *       Within calc:
  41  *
  42  *               > read square
  43  *
  44  *  With input from a terminal, there is no prompt but each non-empty
  45  *  line of input is evaluated as a calc expression and if it can be
  46  *  calculated, the square of the value of that expression is displayed.
  47  *  Execution stops when an empty line is input.
  48  *
  49  *  From the shell:
  50  *
  51  *       ./square
  52  *
  53  *  The following shows lines of input followed by output:
  54  *
  55  *       1234
  56  *               1522756
  57  *       ln(2)
  58  *               ~.48045301391820142467
  59  *       config("mode","frac"), bernoulli(10)
  60  *               25/4356
  61  *       config("mode", "hex"), 0xff
  62  *               0xfe01
  63  */
  64
  65
  66 global s;
  67 while ((s = prompt("")))
  68         print "\t":eval(s)^2;