home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / fd2inline-1.0-src.tgz / tar.out / contrib / fd2inline / makepragmas.awk < prev    next >
Text File  |  1996-09-28  |  454b  |  21 lines
  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 "#ifndef _INLINE_" toupper(PRAGMAS) "_H"
  17.     print "#include <inline/" PRAGMAS ".h>"
  18.     print "#endif"
  19.     exit
  20. }
  21.