JezK
Edit File: grog
#! /usr/bin/perl # grog - guess options for groff command # Inspired by doctype script in Kernighan & Pike, Unix Programming # Environment, pp 306-8. # Source file position: <groff-source>/src/roff/grog/grog.pl # Installed position: <prefix>/bin/grog # Copyright (C) 1993-2018 Free Software Foundation, Inc. # Written by James Clark. # Rewritten with Perl by Bernd Warken <groff-bernd.warken-72@web.de>. # The macros for identifying the devices were taken from Ralph # Corderoy's 'grog.sh' of 2006. # Last update: 19 Jul 2015 # This file is part of 'grog', which is part of 'groff'. # 'groff' is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 2 of the License, or # (at your option) any later version. # 'groff' 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 # General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see # <http://www.gnu.org/licenses/gpl-2.0.html>. ######################################################################## require v5.6; use warnings; use strict; # $Bin is the directory where this script is located use FindBin; my $before_make; # script before run of 'make' { my $at = '@'; $before_make = 1 if '1.22.4' eq "${at}VERSION${at}"; } our %at_at; my $grog_dir; if ($before_make) { # before installation my $grog_source_dir = $FindBin::Bin; $at_at{'BINDIR'} = $grog_source_dir; # $grog_dir = $grog_source_dir; $grog_dir = '.'; my $top = $grog_source_dir . '/../../../'; open FILE, '<', $top . 'VERSION' || die 'Could not open top file VERSION.'; my $version = <FILE>; chomp $version; close FILE; open FILE, '<', $top . 'REVISION' || die 'Could not open top file REVISION.'; my $revision = <FILE>; chomp $revision; $at_at{'GROFF_VERSION'} = $version . '.' . $revision; } else { # after installation} $at_at{'GROFF_VERSION'} = '1.22.4'; $at_at{'BINDIR'} = '/usr/bin'; $grog_dir = '/usr/lib/groff/grog'; } # before make die "$grog_dir is not an existing directory;" unless -d $grog_dir; ############# # import subs unshift(@INC, $grog_dir); require 'subs.pl'; ########## # run subs &handle_args(); &handle_file_ext(); # see $tmac_ext for gotten value &handle_whole_files(); &make_groff_device(); &make_groff_preproc(); &make_groff_tmac_man_ms() || &make_groff_tmac_others(); &make_groff_line_rest(); 1; ######################################################################## ### Emacs settings # Local Variables: # mode: CPerl # End: