/usr/bin/grog is in groff-base 1.22.3-10.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | #! /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-2014 Free Software Foundation, Inc.
# Written by James Clark, maintained by Werner Lemberg.
# 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' from 2006.
# 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.3' 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.3';
$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:
|