File Manager

003 File Manager

Current Path: /usr/local/bin

usr / local / bin /

📁 ..
📄 2to3-3.8(101 B)
📄 ab(50.54 KB)
📄 addftinfo(63.84 KB)
📄 afmtodit(161.91 KB)
📄 apr-1-config(6.77 KB)
📄 apu-1-config(6.17 KB)
📄 argon2(43.3 KB)
📄 bash(918.65 KB)
📄 bashbug(6.65 KB)
📄 chardetect(972 B)
📄 chardetect-3.8(972 B)
📄 chem(28.51 KB)
📄 corelist(15.02 KB)
📄 cpan(8.17 KB)
📄 curl(163.47 KB)
📄 curl-config(7.33 KB)
📄 curve_keygen(5.88 KB)
📁 db5
📄 db_archive-5(9.28 KB)
📄 db_archive-5.3(9.28 KB)
📄 db_checkpoint-5(10.94 KB)
📄 db_checkpoint-5.3(10.94 KB)
📄 db_deadlock-5(11.12 KB)
📄 db_deadlock-5.3(11.12 KB)
📄 db_dump-5(13.95 KB)
📄 db_dump-5.3(13.95 KB)
📄 db_dump185-5(8.61 KB)
📄 db_dump185-5.3(8.61 KB)
📄 db_hotbackup-5(14.74 KB)
📄 db_hotbackup-5.3(14.74 KB)
📄 db_load-5(25.35 KB)
📄 db_load-5.3(25.35 KB)
📄 db_log_verify-5(12.36 KB)
📄 db_log_verify-5.3(12.36 KB)
📄 db_printlog-5(31.88 KB)
📄 db_printlog-5.3(31.88 KB)
📄 db_recover-5(10.81 KB)
📄 db_recover-5.3(10.81 KB)
📄 db_replicate-5(11.78 KB)
📄 db_replicate-5.3(11.78 KB)
📄 db_stat-5(11.89 KB)
📄 db_stat-5.3(11.89 KB)
📄 db_tuner-5(17.47 KB)
📄 db_tuner-5.3(17.47 KB)
📄 db_upgrade-5(9.81 KB)
📄 db_upgrade-5.3(9.81 KB)
📄 db_verify-5(10.36 KB)
📄 db_verify-5.3(10.36 KB)
📄 dehydrated(80.89 KB)
📄 distro(961 B)
📄 distro-3.8(961 B)
📄 enc2xs(40.78 KB)
📄 encguess(3.01 KB)
📄 envsubst(35.84 KB)
📄 epsffit(11.11 KB)
📄 eqn(181.15 KB)
📄 eqn2graph(3.16 KB)
📄 event_rpcgen.py(53.66 KB)
📄 extractres(2.69 KB)
📄 fixdlsrps(1.53 KB)
📄 fixfmps(605 B)
📄 fixmacps(2.11 KB)
📄 fixpsditps(700 B)
📄 fixpspps(1.28 KB)
📄 fixscribeps(485 B)
📄 fixtpps(705 B)
📄 fixwfwps(863 B)
📄 fixwpps(738 B)
📄 fixwwps(433 B)
📄 ftpasswd(37.06 KB)
📄 ftpcount(46.63 KB)
📄 ftpdctl(328.72 KB)
📄 ftpmail(13.63 KB)
📄 ftpquota(32.21 KB)
📄 ftptop(65.33 KB)
📄 ftpwho(133.71 KB)
📄 gdbm_dump(19.02 KB)
📄 gdbm_load(22.2 KB)
📄 gdbmtool(115.9 KB)
📄 gdiffmk(7.51 KB)
📄 getafm(6.18 KB)
📄 gettext(36.32 KB)
📄 gettext.sh(5.07 KB)
📄 glilypond(18.01 KB)
📄 gperl(6.5 KB)
📄 gpinyin(5.03 KB)
📄 grap2graph(3.08 KB)
📄 grn(118.4 KB)
📄 grodvi(150.01 KB)
📄 groff(130.26 KB)
📄 groffer(8.06 KB)
📄 grog(2.73 KB)
📄 grolbp(149.57 KB)
📄 grolj4(144.72 KB)
📄 gropdf(70.41 KB)
📄 grops(192.28 KB)
📄 grotty(145.68 KB)
📄 h2ph(28.55 KB)
📄 h2xs(59.51 KB)
📄 hpftodit(158.4 KB)
📄 htdbm(18.69 KB)
📄 htdigest(10.75 KB)
📄 htpasswd(17.62 KB)
📄 httxt2dbm(10.3 KB)
📄 iconv(25.27 KB)
📄 idle3.8(99 B)
📄 includeres(1.44 KB)
📄 indexinfo(10.87 KB)
📄 indxbib(73.84 KB)
📄 innochecksum(3.44 MB)
📄 instmodsh(4.2 KB)
📄 json_pp(4.88 KB)
📄 ldapadd(67.1 KB)
📄 ldapcompare(56.88 KB)
📄 ldapdelete(58.27 KB)
📄 ldapexop(57.43 KB)
📄 ldapmodify(67.1 KB)
📄 ldapmodrdn(56.87 KB)
📄 ldappasswd(57.66 KB)
📄 ldapsearch(78.48 KB)
📄 ldapurl(18.74 KB)
📄 ldapwhoami(55.38 KB)
📄 libnetcfg(15.42 KB)
📄 lkbib(80.95 KB)
📄 logresolve(10.15 KB)
📄 lookbib(81.07 KB)
📄 lz4(68.09 KB)
📄 lz4_decompress(7.7 KB)
📄 lz4c(68.09 KB)
📄 lz4cat(68.09 KB)
📄 mmroff(3.75 KB)
📄 my_print_defaults(3.4 MB)
📄 myisam_ftdump(3.63 MB)
📄 myisamchk(3.73 MB)
📄 myisamlog(3.61 MB)
📄 myisampack(3.66 MB)
📄 mysql(3.66 MB)
📄 mysql_config(5.05 KB)
📄 mysql_config_editor(3.4 MB)
📄 mysql_install_db(4.96 MB)
📄 mysql_plugin(3.41 MB)
📄 mysql_secure_installation(3.56 MB)
📄 mysql_ssl_rsa_setup(3.44 MB)
📄 mysql_tzinfo_to_sql(3.37 MB)
📄 mysql_upgrade(4.16 MB)
📄 mysqladmin(3.56 MB)
📄 mysqlbinlog(3.78 MB)
📄 mysqlcheck(3.57 MB)
📄 mysqld_multi(26.39 KB)
📄 mysqld_safe(27.21 KB)
📄 mysqldump(3.63 MB)
📄 mysqldumpslow(7.67 KB)
📄 mysqlimport(3.55 MB)
📄 mysqlpump(3.92 MB)
📄 mysqlshow(3.55 MB)
📄 mysqlslap(3.57 MB)
📄 mysqltest(3.85 MB)
📄 mysqlxtest(4.2 MB)
📄 neqn(919 B)
📄 ngettext(35.89 KB)
📄 nroff(3.21 KB)
📄 paperconf(10.55 KB)
📄 pcre-config(2.31 KB)
📄 pcre2-config(2.13 KB)
📄 pcre2grep(46.03 KB)
📄 pcre2test(166.76 KB)
📄 pcregrep(35.81 KB)
📄 pcretest(103.81 KB)
📄 pdfmom(3.03 KB)
📄 pdfroff(20.96 KB)
📄 perl(7.41 KB)
📄 perl5.32.1(7.41 KB)
📄 perlbug(44.21 KB)
📄 perldoc(274 B)
📄 perlivp(10.58 KB)
📄 perlthanks(44.21 KB)
📄 perror(3.53 MB)
📄 pfbtops(53.68 KB)
📄 php(5.31 MB)
📄 php-cgi(5.24 MB)
📄 php-config(3.16 KB)
📄 phpize(4.42 KB)
📄 pic(231.69 KB)
📄 pic2graph(3.66 KB)
📄 piconv(8.17 KB)
📄 pl2pm(4.44 KB)
📄 pod2html(4.05 KB)
📄 pod2man(14.69 KB)
📄 pod2text(10.56 KB)
📄 pod2usage(3.86 KB)
📄 podchecker(3.58 KB)
📄 post-grohtml(247.92 KB)
📄 pre-grohtml(129.52 KB)
📄 preconv(78.54 KB)
📄 protoc(13.9 KB)
📄 prove(13.35 KB)
📄 prxs(9.25 KB)
📄 psbook(16.39 KB)
📄 psmerge(1.97 KB)
📄 psnup(24.64 KB)
📄 psresize(22.61 KB)
📄 psselect(17.91 KB)
📄 pstops(23.34 KB)
📄 ptar(3.48 KB)
📄 ptardiff(2.58 KB)
📄 ptargrep(4.3 KB)
📄 pybabel(960 B)
📄 pybabel-3.8(960 B)
📄 pydoc3.8(84 B)
📄 python3.8(5.13 KB)
📄 python3.8-config(3.09 KB)
📄 rbash(918.65 KB)
📄 refer(161.39 KB)
📄 replace(3.38 MB)
📄 resolve_stack_dump(3.4 MB)
📄 resolveip(3.4 MB)
📄 roff2dvi(5.58 KB)
📄 roff2html(5.58 KB)
📄 roff2pdf(5.58 KB)
📄 roff2ps(5.58 KB)
📄 roff2text(5.58 KB)
📄 roff2x(5.58 KB)
📄 salt(948 B)
📄 salt-api(956 B)
📄 salt-call(958 B)
📄 salt-cloud(960 B)
📄 salt-cp(954 B)
📄 salt-key(956 B)
📄 salt-master(962 B)
📄 salt-minion(962 B)
📄 salt-proxy(972 B)
📄 salt-run(956 B)
📄 salt-ssh(956 B)
📄 salt-syndic(962 B)
📄 salt-unity(960 B)
📄 screen(435.05 KB)
📄 setvhost.sh(3.05 KB)
📄 shasum(9.75 KB)
📄 showchar(2.51 KB)
📄 soelim(66.83 KB)
📄 splain(18.97 KB)
📄 spm(946 B)
📄 streamzip(5.4 KB)
📄 tbl(149.71 KB)
📄 tfmtodit(68.05 KB)
📄 troff(577.19 KB)
📄 uchardet(8.03 KB)
📄 unlz4(68.09 KB)
📄 xml2-config(1.79 KB)
📄 xmlcatalog(15.22 KB)
📄 xmllint(61.66 KB)
📄 xmlwf(31.56 KB)
📄 xsubpp(5.05 KB)
📄 zipdetails(50.05 KB)
📄 zlib_decompress(7.56 KB)

Editing: gperl

#! /usr/bin/env perl

# gperl - add Perl part to groff files, this is the preprocessor for that

# Source file position: <groff-source>/contrib/gperl/gperl.pl
# Installed position: <prefix>/bin/gperl

# Written by Bernd Warken <groff-bernd.warken-72@web.de>.

my $version = '1.2.6';

# This file is part of 'gperl', 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 can find a copy of the GNU General Public License in the internet
# at <http://www.gnu.org/licenses/gpl-2.0.html>.

########################################################################

use strict;
use warnings;
#use diagnostics;

# temporary dir and files
use File::Temp qw/ tempfile tempdir /;

# needed for temporary dir
use File::Spec;

# for 'copy' and 'move'
use File::Copy;

# for fileparse, dirname and basename
use File::Basename;

# current working directory
use Cwd;

# $Bin is the directory where this script is located
use FindBin;

########################################################################
# system variables and exported variables
########################################################################

$\ = "\n";	# final part for print command

########################################################################
# read-only variables with double-@ construct
########################################################################

our $File_split_env_sh;
our $File_version_sh;
our $Groff_Version;

my $before_make;		# script before run of 'make'
{
  my $at = '@';
  $before_make = 1 if '1.22.4' eq "${at}VERSION${at}";
}

my %at_at;
my $file_perl_test_pl;
my $groffer_libdir;

if ($before_make) {
  my $gperl_source_dir = $FindBin::Bin;
  $at_at{'BINDIR'} = $gperl_source_dir;
  $at_at{'G'} = '';
} else {
  $at_at{'BINDIR'} = '/usr/local/bin';
  $at_at{'G'} = '';
}

########################################################################
# options
########################################################################

foreach (@ARGV) {
  if ( /^(-h|--h|--he|--hel|--help)$/ ) {
    print q(Usage for the 'gperl' program:);
    print 'gperl [-] [--] [filespec...] normal file name arguments';
    print 'gperl [-h|--help]        gives usage information';
    print 'gperl [-v|--version]     displays the version number';
    print q(This program is a 'groff' preprocessor that handles Perl ) .
      q(parts in 'roff' files.);
    exit;
  } elsif ( /^(-v|--v|--ve|--ver|--vers|--versi|--versio|--version)$/ ) {
    print q('gperl' version ) . $version;
    exit;
  }
}

#######################################################################
# temporary file
#######################################################################

my $out_file;
{
  my $template = 'gperl_' . "$$" . '_XXXX';
  my $tmpdir;
  foreach ($ENV{'GROFF_TMPDIR'}, $ENV{'TMPDIR'}, $ENV{'TMP'}, $ENV{'TEMP'},
	   $ENV{'TEMPDIR'}, 'tmp', $ENV{'HOME'},
	   File::Spec->catfile($ENV{'HOME'}, 'tmp')) {
    if ($_ && -d $_ && -w $_) {
      eval { $tmpdir = tempdir( $template,
				CLEANUP => 1, DIR => "$_" ); };
      last if $tmpdir;
    }
  }
  $out_file = File::Spec->catfile($tmpdir, $template);
}

########################################################################
# input
########################################################################

my $perl_mode = 0;

foreach (<>) {
  chomp;
  s/\s+$//;
  my $line = $_;
  my $is_dot_Perl = $line =~ /^[.']\s*Perl(|\s+.*)$/;

unless ( $is_dot_Perl ) {	# not a '.Perl' line
    if ( $perl_mode ) {		# is running in Perl mode
      print OUT $line;
    } else {			# normal line, not Perl-related
      print $line;
    }
    next;
  }

##########
  # now the line is a '.Perl' line

my $args = $line;
  $args =~ s/\s+$//;	# remove final spaces
  $args =~ s/^[.']\s*Perl\s*//;	# omit .Perl part, leave the arguments

my @args = split /\s+/, $args;

##########
  # start Perl mode
  if ( @args == 0 || @args == 1 && $args[0] eq 'start' ) {
    # For '.Perl' no args or first arg 'start' means opening 'Perl' mode.
    # Everything else means an ending command.
    if ( $perl_mode ) {
      # '.Perl' was started twice, ignore
      print STDERR q('.Perl' starter was run several times);
      next;
    } else {	# new Perl start
      $perl_mode = 1;
      open OUT, '>', $out_file;
      next;
    }
  }

##########
  # now the line must be a Perl ending line (stop)

unless ( $perl_mode ) {
    print STDERR 'gperl: there was a Perl ending without being in ' .
      'Perl mode:';
    print STDERR '    ' . $line;
    next;
  }

$perl_mode = 0;	# 'Perl' stop calling is correct
  close OUT;		# close the storing of 'Perl' commands

##########
  # run this 'Perl' part, later on about storage of the result
  # array stores prints with \n
  my @print_res = `perl $out_file`;

# remove 'stop' arg if exists
  shift @args if ( $args[0] eq 'stop' );

if ( @args == 0 ) {
    # no args for saving, so @print_res doesn't matter
    next;
  }

my @var_names = ();
  my @mode_names = ();

my $mode = '.ds';
  for ( @args ) {
    if ( /^\.?ds$/ ) {
      $mode = '.ds';
      next;
    }
    if ( /^\.?nr$/ ) {
      $mode = '.nr';
      next;
    }
    push @mode_names, $mode;
    push @var_names, $_;
  }

my $n_res = @print_res;
  my $n_vars = @var_names;

if ( $n_vars < $n_res ) {
    print STDERR 'gperl: not enough variables for Perl part: ' .
      $n_vars . ' variables for ' . $n_res . ' output lines.';
  } elsif ( $n_vars > $n_res ) {
    print STDERR 'gperl: too many variablenames for Perl part: ' .
      $n_vars . ' variables for ' . $n_res . ' output lines.';
  }
  if ( $n_vars < $n_res ) {
    print STDERR 'gperl: not enough variables for Perl part: ' .
      $n_vars . ' variables for ' . $n_res . ' output lines.';
  }

my $n_min = $n_res;
  $n_min = $n_vars if ( $n_vars < $n_res );
  exit unless ( $n_min );
  $n_min -= 1; # for starting with 0

for my $i ( 0..$n_min ) {
    my $value = $print_res[$i];
    chomp $value;
    print $mode_names[$i] . ' ' . $var_names[$i] . ' ' . $value;
  }
}

1;
########################################################################
### Emacs settings
# Local Variables:
# mode: CPerl
# End:

003 File Manager

Editing: gperl

Upload File

Create Folder