tools/fd2inline/makepragmas.awk

   1 #! /bin/awk -f
   2 #
   3 # makepragmas.awk
   4 #
   5 # Copyright (C) 1996 Kamil Iskra <iskra@student.uci.agh.edu.pl>
   6 # Distributed under terms of GNU General Public License.
   7 #
   8 # This file is part of fd2inline package.
   9 #
  10 # It is used to produce SAS/C compatible "pragmas" files.
  11 #
  12 # Input variables:
  13 # PRAGMAS - basename of "pragma" file to create.
  14
  15 BEGIN {
  16         print "/* Automatically generated header! Do not edit! */"
  17         print
  18         print "#ifndef _INLINE_" toupper(PRAGMAS) "_H"
  19         print "#include <inline/" PRAGMAS ".h>"
  20         print "#endif /* !_INLINE_" toupper(PRAGMAS) "_H */"
  21         exit
  22 }