diff options
Diffstat (limited to 'ast/makeh')
| -rw-r--r-- | ast/makeh | 313 |
1 files changed, 0 insertions, 313 deletions
diff --git a/ast/makeh b/ast/makeh deleted file mode 100644 index c07d343..0000000 --- a/ast/makeh +++ /dev/null @@ -1,313 +0,0 @@ -#!/usr/bin/perl -#+ -# Name: -# makeh - -# Purpose: -# Generate the contents of the "ast.h" header file. - -# Type: -# Perl script. - -# Invocation: -# makeh file_list - -# Description: -# This script processes private header files used within the AST library -# in order to extract the public information they contain. This information -# is produced in a form suitable for use in the public "ast.h" header file, -# which defines the public interface to the library. - -# Parameters: -# file_list -# A space-separated list of the private AST header files whose public -# information is to be extracted. - -# Result: -# The contents of the "ast.h" header file are written to standard output. - -# Notes: -# - This script is specific to the AST library and contains some knowledge -# of the input file contents. - -# History: -# 10-JAN-2005 (DSB): -# Added second argument (mode) to the mkdir invocation which creates -# the temporary directory. -# 2-MAR-2006 (DSB): -# Check for "config.h" as well as <config.h> -# 6-JAN-2010 (DSB): -# Add work-around for GCC 4.4.2 problem - the pre-processor seesm to simply -# throw away backslshes that escape newlines in the input header file. Reported -# by Bryan Irby at GSFC. -# 27-JUL-2011 (DSB): -# Include the process ID in the name of the temporary directory and -# file, so that simultaneous invocations of this script do not trample -# all over each other. -#- - -( $#ARGV >= 0 ) || Usage(); - -# Test whether we need to include config.h in the result. -$need_config_h = 0; - -# Location of source files (makefile variable $(srcdir)). -# This is most typically '.', but can be different. -$srcdir = '.'; - -while ( $ARGV[0] =~ /^-/ ) { - if ( $ARGV[0] eq '-s' ) { - shift @ARGV; - ( $#ARGV >= 0 ) || Usage(); - $srcdir = $ARGV[0]; - shift @ARGV; - } else { - Usage(); - } -} - -# Create a scratch directory. -$tmpdir="/tmp/makeh-$$.tmp"; -unless ( -d $tmpdir && -w $tmpdir ) { - if ( -e $tmpdir ) { - die "Temp $tmpdir exists, but is unwritable or is not a directory\n"; - } - mkdir $tmpdir, 0777 || - die "Failed to create temporary directory $tmpdir\n"; -} - -# Open each input file. -foreach $file ( @ARGV ) { - protect_copy_file( $file ); -} - - -# Open a pipe to a script (in the current directory) which runs the C -# preprocessor and direct its output to a scratch file. -open( CC, "| ./ast_cpp >/tmp/ast-$$.h" ) || - die "Can't open pipe to C preprocessor (cpp)"; - -if ( $need_config_h ) { -# Include this directory's config.h, unescaped, in the output. We -# need to pay attention to the values in this file, but don't want -# them unexpanded in the final ast.h. - chomp($cwd = `pwd`); - print(CC "#include \"$cwd/config.h\"\n"); -} - -# Before including each file, write an underlined heading in the form of -# C comments (with comment characters suitably protected so that they will -# be passed unchanged by cpp). -foreach $file ( @ARGV ) { - $comment = $file; - $comment =~ s|^.*/||; - $comment =~ s|.h$||; - print( CC "/_* " . $comment . ". *_/\n" ); - $comment =~ s/./=/g; - print( CC "/_* " . $comment . "= *_/\n" ); - -# Write #include "xxx.h" lines to cpp so that it includes (and -# preprocesses) each of the temporary files created above in turn. - $tmp_file = $file; - $tmp_file =~ s|^.*/||; - printf(CC "#include \"%s/%s\"\n", $tmpdir, $tmp_file); -}; - -# Close the pipe to cpp. -close( CC ) || die "C preprocessor (cpp) error"; - -# Remove the temporary directory and the files it contains. -print( stderr `rm -r $tmpdir` ); - -# Write the output preamble. -print( -'#if !defined(AST_INCLUDED) -#define AST_INCLUDED -/* -*+ -* Name: -* ast.h - -* Purpose: -* Define the public C interface to the AST library. - -* Language: -* ANSI C - -* Type of Module: -* C header file. - -* Description: -* This file defines the public C interface to the AST library. It contains -* all the type definitions, function prototypes, macro definitions, etc. -* needed to use the library. - -* Copyright: -* Copyright (C) 1997-2006 Council for the Central Laboratory of the -* Research Councils - -* Licence: -* This program is free software: you can redistribute it and/or -* modify it under the terms of the GNU Lesser General Public -* License as published by the Free Software Foundation, either -* version 3 of the License, or (at your option) any later -* version. -* -* This program is distributed in the hope that it will be useful, -* but WITHOUT ANY WARRANTY; without even the implied warranty of -* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -* GNU Lesser General Public License for more details. -* -* You should have received a copy of the GNU Lesser General -* License along with this program. If not, see -* <http://www.gnu.org/licenses/>. - -* Authors: -* DSB: D.S. Berry (STARLINK) -* RFWS: R.F. Warren-Smith (STARLINK) -* {enter_new_authors_here} - -* History: -* ' ); - -# Add the current date at this point. -( $sec, $min, $hour, $mday, $mon, $year ) = localtime; -print( $mday, '-', - ( 'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', - 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC' )[ $mon ], '-', - ( $year > 95 ? 1900 : 2000 ) + $year ); - -print( ' (makeh): -* Original version, generated automatically from the internal header -* files by the "makeh" script. -* {enter_changes_here} -*- -*/ - -/* Define a dummy __attribute__ macro for use on non-GNU compilers. */ -#ifndef __GNUC__ -# define __attribute__(x) /*NOTHING*/ -#endif - -' ); - -# Open the scratch file created above and read it. -$space = 0; -open( TEMP, "</tmp/ast-$$.h" ); -while( <TEMP> ) { - -# Remove the underscores from the protected lines and macros. - s/^_#include(\s)/#include$1/; - s/^_#define(\s)/#define$1/; - s/___LINE__/__LINE__/g; - s/___FILE__/__FILE__/g; - -# Also un-protect protected comments. - s|/_\*|/*|g; - s|\*_/|*/|g; - -# Convert multiple blank lines (cpp creates lots of these) into single blank -# lines. - if ( /^\s*$/ ) { - $space = 1; - } else { - -# Remove additional unwanted lines that cpp creates. - if ( ! /^# \d+/ ) { - if ( $space ) { print( "\n" ) }; - $space = 0; - -# Output the lines we want to keep. - print; - } - } -} - -# Write closing output lines. -print( -' -#endif -' ); - -# Close and remove the scratch file. -close( TEMP ); -unlink "/tmp/ast-$$.h"; - - -sub protect_copy_file { - my $file = shift; - - open( INCLUDE, "$srcdir/$file" ) - || die "Can't open input file " . $srcdir/$file; - -# Inicate we have no deferred text to write out. - $total = ""; - -# Open an output file with the same name in the temporary directory. - $tmp_file = $file; - $tmp_file =~ s|^.*/||; - open( TEMP, ">$tmpdir/$tmp_file" ); - -# Read the input file and detect "#include <...>" lines, extracting the name -# of the header file being included. -line: while ( <INCLUDE> ) { -# Omit any config.h includes, and note that we saw this - if (/^\s*\#\s*include\s+<config.h>/ || - /^\s*\#\s*include\s+"config.h"/) { - $need_config_h = 1; - next line; - } - - if ( ( $header ) = /^\#include\s+<(.+)>/ ) { - -# If this system header file has already been included, ignore it and go on to -# the next input line. - next line if $done{ $header }++; - -# Otherwise, protect the #include with an underscore to prevent the file -# actually being included. - s/^/_/; - } - -# Also protect "#define ..." lines, to prevent macro substitution being -# performed by the C preprocessor. Do not do this to lines of the form -# "#define XXX_INCLUDED" because these are still needed to determine which -# AST header files get included. - if ( /^\#define\s/ ) { - if ( ! /^\#define\s+\w*_INCLUDED/ ) { s/^/_/ }; - } - -# Similarly add underscores to protect standard C macros. - s/__LINE__/___LINE__/g; - s/__FILE__/___FILE__/g; - -# Some pre-processors (e.g. GCC 4.4.2) seem to simply throw away trailing -# backslashes used to concatenate consecutive lines, producing two -# independent lines in the output rather than one. This completely fouls -# up the resulting header file. To avoid this, we concatenate such lines -# explicitly, before writing them out to the temporary output file. -# If the current line ends with an escaped newline, remove the escape -# character and newline, and concatenate it with any previously deferred -# lines. - if( /^(.*)\\\s*$/ ) { - $total .= $1; - -# If the current line does not end with an escaped newline, concatenate it -# with any previously deferred lines, and write the total string out. Then -# reset the total string to indicate we have no deferred text. - } else { - $total .= $_; - print TEMP $total; - $total = ""; - } - } - -# Close each file when done. - close( INCLUDE ); - close( TEMP ); -} - -sub Usage { - print STDERR "$0 [-s srcdir] file...\n"; - exit (1); -} |