c_cpp/etc/calc/custom/c_devnull.c

   1 /*
   2  * c_devnull - a custom function that does nothing
   3  *
   4  * Copyright (C) 1999-2004  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: c_devnull.c,v 30.1 2007/03/16 11:10:04 chongo Exp $
  22  * @(#) $Source: /usr/local/src/bin/calc/custom/RCS/c_devnull.c,v $
  23  *
  24  * Under source code control:   1997/03/09 17:49:12
  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 #if defined(CUSTOM)
  33
  34 #include "have_unistd.h"
  35 #if defined(HAVE_UNISTD_H)
  36 #include <unistd.h>
  37 #endif
  38
  39 #include "have_const.h"
  40 #include "value.h"
  41 #include "custom.h"
  42
  43 #include "have_unused.h"
  44
  45
  46 /*
  47  * c_devnull - a custom function that does nothing
  48  *
  49  * This custom function does nothing.  It is useful as a test hook
  50  * for looking at the general interface.
  51  */
  52 /*ARGSUSED*/
  53 VALUE
  54 c_devnull(char UNUSED *name, int UNUSED count, VALUE UNUSED **vals)
  55 {
  56         VALUE result;           /* what we will return */
  57
  58         /*
  59          * return NULL
  60          */
  61         result.v_type = V_NULL;
  62         return result;
  63 }
  64
  65 #endif /* CUSTOM */