c_cpp/etc/calc/calcerr_h.awk

   1 #!/usr/bin/awk
   2 #
   3 # calcerr_h - help produce calcerr.h from calcerr.tbl
   4 #
   5 # Copyright (C) 1999  Landon Curt Noll
   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: calcerr_h.awk,v 30.1 2007/03/16 11:09:46 chongo Exp $
  23 # @(#) $Source: /usr/local/src/bin/calc/RCS/calcerr_h.awk,v $
  24 #
  25 # Under source code control:    1996/05/23 17:38:44
  26 # File existed as early as:     1996
  27 #
  28 # chongo <was here> /\oo/\      http://www.isthe.com/chongo/
  29 # Share and enjoy!  :-) http://www.isthe.com/chongo/tech/comp/calc/
  30 #
  31 BEGIN {
  32     ebase = 10000;
  33     printf("#define E__BASE %d\t/* calc errors start above here */\n\n", ebase);
  34 }
  35 NF > 1 {
  36     if (length($1) > 7) {
  37         printf("#define %s\t", $1, NR);
  38     } else {
  39         printf("#define %s\t\t", $1, NR);
  40     }
  41     printf("%d\t/* ", ebase+NR);
  42     for (i=2; i < NF; ++i) {
  43         printf("%s ", $i);
  44     }
  45     printf("%s */\n", $NF);
  46 }
  47 END {
  48     printf("\n#define E__HIGHEST\t%d\t/* highest calc error */\n", NR+ebase);
  49     printf("#define E__COUNT\t\t%d\t/* number of calc errors */\n", NR);
  50     printf("#define E_USERDEF\t20000\t/* base of user defined errors */\n\n");
  51     printf("/* names of calc error values */\n");
  52 }