c_cpp/etc/calc/custom/argv.cal

   1 /*
   2  * argv - print information about various args
   3  *
   4  * Copyright (C) 1999  Landon Curt Noll
   5  *
   6  * Calc is open software; you can redistribute it and/or modify it under
   7  * the terms of the version 2.1 of the GNU Lesser General Public License
   8  * as published by the Free Software Foundation.
   9  *
  10  * Calc is distributed in the hope that it will be useful, but WITHOUT
  11  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  12  * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
  13  * Public License for more details.
  14  *
  15  * A copy of version 2.1 of the GNU Lesser General Public License is
  16  * distributed with calc under the filename COPYING-LGPL.  You should have
  17  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  18  * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  19  *
  20  * @(#) $Revision: 30.1 $
  21  * @(#) $Id: argv.cal,v 30.1 2007/03/16 11:10:04 chongo Exp $
  22  * @(#) $Source: /usr/local/src/bin/calc/custom/RCS/argv.cal,v $
  23  *
  24  * Under source code control:   1997/03/10 00:27:17
  25  * File existed as early as:    1997
  26  *
  27  * chongo <was here> /\oo/\     http://www.isthe.com/chongo/
  28  * Share and enjoy!  :-)        http://www.isthe.com/chongo/tech/comp/calc/
  29  */
  30
  31 /*
  32  * This file is part of the custom sample calc files.
  33  *
  34  * NOTE: You must use a calc that was compiled with ALLOW_CUSTOM= -DCUSTOM
  35  *       and run with a -C arg.
  36  */
  37 if (config("compile_custom") == 0) {
  38         quit "calc compiled without -DCUSTOM";
  39 } else if (config("allow_custom") == 0) {
  40         quit "calc was run without the -D command line option";
  41 }
  42
  43
  44 define argv_test()
  45 {
  46         local i;        /* arg number */
  47         local junk;     /* throw away value */
  48
  49         /*
  50          * process each arg passed to us
  51          */
  52         for (i = 1; i <= param(0); ++i) {
  53                 /*
  54                  * This won't really work because all the arg numbers
  55                  * will be reported as arg[0] ... but what the heck
  56                  * this is only a demo!
  57                  */
  58                 junk = custom("argv", param(i));
  59         }
  60         return i-1;
  61 }