Gecko [ nrupathungauniversityblr.ac.in ]

Name	Size	Permission
a2disconf	15.89 KB	-rwxr-xr-x
a2dismod	15.89 KB	-rwxr-xr-x
a2dissite	15.89 KB	-rwxr-xr-x
a2enconf	15.89 KB	-rwxr-xr-x
a2enmod	15.89 KB	-rwxr-xr-x
a2ensite	15.89 KB	-rwxr-xr-x
a2query	9.64 KB	-rwxr-xr-x
aa-remove-unknown	2.85 KB	-rwxr-xr-x
aa-status	8.41 KB	-rwxr-xr-x
accessdb	10.23 KB	-rwxr-xr-x
acpid	50.84 KB	-rwxr-xr-x
add-shell	860 B	-rwxr-xr-x
addgnupghome	3.01 KB	-rwxr-xr-x
addgroup	36.45 KB	-rwxr-xr-x
adduser	36.45 KB	-rwxr-xr-x
apache2	659.69 KB	-rwxr-xr-x
apache2ctl	7.06 KB	-rwxr-xr-x
apachectl	7.06 KB	-rwxr-xr-x
apachetop	46.25 KB	-rwxr-xr-x
apparmor_status	8.41 KB	-rwxr-xr-x
applygnupgdefaults	2.17 KB	-rwxr-xr-x
arp	61.3 KB	-rwxr-xr-x
arpd	54.03 KB	-rwxr-xr-x
atd	26.01 KB	-rwxr-xr-x
bcache-super-show	13.99 KB	-rwxr-xr-x
biosdecode	18.94 KB	-rwxr-xr-x
check_forensic	952 B	-rwxr-xr-x
chgpasswd	57.83 KB	-rwxr-xr-x
chmem	42.08 KB	-rwxr-xr-x
chpasswd	53.86 KB	-rwxr-xr-x
chroot	38.18 KB	-rwxr-xr-x
cpgr	55.96 KB	-rwxr-xr-x
cppw	55.96 KB	-rwxr-xr-x
cron	46.3 KB	-rwxr-xr-x
cryptdisks_start	1.11 KB	-rwxr-xr-x
cryptdisks_stop	1.16 KB	-rwxr-xr-x
delgroup	16.11 KB	-rwxr-xr-x
deluser	16.11 KB	-rwxr-xr-x
dmidecode	106.61 KB	-rwxr-xr-x
dnsmasq	379.6 KB	-rwxr-xr-x
dpkg-preconfigure	3.58 KB	-rwxr-xr-x
dpkg-reconfigure	4.34 KB	-rwxr-xr-x
e2freefrag	14.07 KB	-rwxr-xr-x
e4crypt	22.07 KB	-rwxr-xr-x
e4defrag	25.99 KB	-rwxr-xr-x
escapesrc	18.16 KB	-rwxr-xr-x
faillock	13.99 KB	-rwxr-xr-x
fdformat	30.08 KB	-rwxr-xr-x
filefrag	14.02 KB	-rwxr-xr-x
genccode	10.4 KB	-rwxr-xr-x
gencmn	10.44 KB	-rwxr-xr-x
genl	58.05 KB	-rwxr-xr-x
gennorm2	58.59 KB	-rwxr-xr-x
gensprep	18.5 KB	-rwxr-xr-x
groupadd	61.92 KB	-rwxr-xr-x
groupdel	70.37 KB	-rwxr-xr-x
groupmems	57.87 KB	-rwxr-xr-x
groupmod	68.18 KB	-rwxr-xr-x
grpck	53.8 KB	-rwxr-xr-x
grpconv	49.68 KB	-rwxr-xr-x
grpunconv	49.68 KB	-rwxr-xr-x
grub-bios-setup	793.15 KB	-rwxr-xr-x
grub-install	1003.51 KB	-rwxr-xr-x
grub-macbless	780.84 KB	-rwxr-xr-x
grub-mkconfig	8.03 KB	-rwxr-xr-x
grub-mkdevicemap	207.62 KB	-rwxr-xr-x
grub-probe	793.09 KB	-rwxr-xr-x
grub-reboot	4.73 KB	-rwxr-xr-x
grub-set-default	832 B	-rwxr-xr-x
grub-set-default-legacy-ec2	3.13 KB	-rwxr-xr-x
grub-set-default.real	3.47 KB	-rwxr-xr-x
httxt2dbm	9.99 KB	-rwxr-xr-x
iconvconfig	30.25 KB	-rwxr-xr-x
icupkg	18.77 KB	-rwxr-xr-x
init.lxc	18.41 KB	-rwxr-xr-x
init.lxc.static	973.72 KB	-rwxr-xr-x
install-sgmlcatalog	4.44 KB	-rwxr-xr-x
invoke-rc.d	15.66 KB	-rwxr-xr-x
ip6tables-apply	6.85 KB	-rwxr-xr-x
iptables-apply	6.85 KB	-rwxr-xr-x
irqbalance	62.68 KB	-rwxr-xr-x
irqbalance-ui	34.06 KB	-rwxr-xr-x
iscsi-iname	9.99 KB	-rwxr-xr-x
iscsi_discovery	5.16 KB	-rwxr-xr-x
iscsid	398.15 KB	-rwxr-xr-x
iscsistart	354.13 KB	-rwxr-xr-x
ldattach	30.08 KB	-rwxr-xr-x
libgvc6-config-update	9.99 KB	-rwxr-xr-x
locale-gen	4.3 KB	-rwxr-xr-x
logrotate	74.09 KB	-rwxr-xr-x
luksformat	3.32 KB	-rwxr-xr-x
make-bcache	18.07 KB	-rwxr-xr-x
make-ssl-cert	3.78 KB	-rwxr-xr-x
mkinitramfs	10.79 KB	-rwxr-xr-x
mklost+found	9.99 KB	-rwxr-xr-x
netplan	798 B	-rwxr-xr-x
newusers	82.39 KB	-rwxr-xr-x
nfnl_osf	13.99 KB	-rwxr-xr-x
nologin	5.99 KB	-rwxr-xr-x
overlayroot-chroot	2.45 KB	-rwxr-xr-x
ownership	10.2 KB	-rwxr-xr-x
pam-auth-update	19.38 KB	-rwxr-xr-x
pam_getenv	2.82 KB	-rwxr-xr-x
pam_timestamp_check	9.99 KB	-rwxr-xr-x
paperconfig	4.07 KB	-rwxr-xr-x
phpdismod	7.11 KB	-rwxr-xr-x
phpenmod	7.11 KB	-rwxr-xr-x
phpquery	6.24 KB	-rwxr-xr-x
popcon-largest-unused	543 B	-rwxr-xr-x
popularity-contest	4.92 KB	-rwxr-xr-x
pwck	49.8 KB	-rwxr-xr-x
pwconv	45.7 KB	-rwxr-xr-x
pwunconv	45.68 KB	-rwxr-xr-x
readprofile	18.11 KB	-rwxr-xr-x
remove-shell	904 B	-rwxr-xr-x
rmt	58.39 KB	-rwxr-xr-x
rmt-tar	58.39 KB	-rwxr-xr-x
rsyslogd	668.54 KB	-rwxr-xr-x
rtcwake	42.08 KB	-rwxr-xr-x
service	9.04 KB	-rwxr-xr-x
setvesablank	14.07 KB	-rwxr-xr-x
split-logfile	2.36 KB	-rwxr-xr-x
sshd	772.41 KB	-rwxr-xr-x
tarcat	936 B	-rwxr-xr-x
tcpdump	999.6 KB	-rwxr-xr-x
tzconfig	106 B	-rwxr-xr-x
ufw	4.4 KB	-rwxr-xr-x
update-ca-certificates	5.27 KB	-rwxr-xr-x
update-catalog	9.15 KB	-rwxr-xr-x
update-fmtutil	9.58 KB	-rwxr-xr-x
update-grub	64 B	-rwxr-xr-x
update-grub-gfxpayload	301 B	-rwxr-xr-x
update-grub-legacy-ec2	43.96 KB	-rwxr-xr-x
update-grub2	64 B	-rwxr-xr-x
update-gsfontmap	450 B	-rwxr-xr-x
update-icon-caches	596 B	-rwxr-xr-x
update-info-dir	1.66 KB	-rwxr-xr-x
update-initramfs	8.04 KB	-rwxr-xr-x
update-language	9.37 KB	-rwxr-xr-x
update-language-dat	9.37 KB	-rwxr-xr-x
update-language-def	9.37 KB	-rwxr-xr-x
update-language-lua	9.37 KB	-rwxr-xr-x
update-locale	2.99 KB	-rwxr-xr-x
update-mime	8.84 KB	-rwxr-xr-x
update-passwd	30.41 KB	-rwxr-xr-x
update-pciids	2.84 KB	-rwxr-xr-x
update-rc.d	16.12 KB	-rwxr-xr-x
update-texmf	2.6 KB	-rwxr-xr-x
update-texmf-config	1.5 KB	-rwxr-xr-x
update-tl-stacked-conffile	9.58 KB	-rwxr-xr-x
update-updmap	9.58 KB	-rwxr-xr-x
update-usbids	1.05 KB	-rwxr-xr-x
update-xmlcatalog	16.88 KB	-rwxr-xr-x
upgrade-from-grub-legacy	1.49 KB	-rwxr-xr-x
useradd	123.28 KB	-rwxr-xr-x
userdel	82.48 KB	-rwxr-xr-x
usermod	123.06 KB	-rwxr-xr-x
uuidd	34.16 KB	-rwxr-xr-x
validlocale	1.73 KB	-rwxr-xr-x
vcstime	9.99 KB	-rwxr-xr-x
vigr	60.18 KB	-rwxr-xr-x
vipw	60.18 KB	-rwxr-xr-x
visudo	208.8 KB	-rwxr-xr-x
vpddecode	14.34 KB	-rwxr-xr-x
xfs_admin	1.35 KB	-rwxr-xr-x
xfs_bmap	638 B	-rwxr-xr-x
xfs_copy	394.31 KB	-rwxr-xr-x
xfs_db	667.63 KB	-rwxr-xr-x
xfs_estimate	10.01 KB	-rwxr-xr-x
xfs_freeze	767 B	-rwxr-xr-x
xfs_fsr	30.02 KB	-rwxr-xr-x
xfs_growfs	382.27 KB	-rwxr-xr-x
xfs_info	472 B	-rwxr-xr-x
xfs_io	130.93 KB	-rwxr-xr-x
xfs_logprint	414.27 KB	-rwxr-xr-x
xfs_mdrestore	370.28 KB	-rwxr-xr-x
xfs_metadump	747 B	-rwxr-xr-x
xfs_mkfile	1007 B	-rwxr-xr-x
xfs_ncheck	650 B	-rwxr-xr-x
xfs_quota	86.01 KB	-rwxr-xr-x
xfs_rtcp	13.99 KB	-rwxr-xr-x
zerofree	9.99 KB	-rwxr-xr-x
zic	54.14 KB	-rwxr-xr-x

Code Editor : update-language-lua

#!/usr/bin/perl
# update-language --- Generate language.dat* from a set of files
# Copyright (C) 2015 Norbert Preining
#
# This program 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; version 2 dated June, 1991.
#
# 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
# General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; see the file COPYING. If not, write to the
# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
# Boston, MA  02110-1301 USA.

$^W = 1;
use strict;

my $version = "0.1";

use File::Basename;
use Getopt::Long;
use Text::ParseWords;

my $mode = 'all';

# for each file in /var/lib/tex-common/hyphen-cnf/
# plus the config file /etc/texmf/web2c/local-hyphen.cnf

my $localconf = '/etc/texmf/web2c/local-hyphen.cnf';
my $default_output_dir = '/var/lib/texmf/tex/generic/config';
my %data;
my $progname = basename($0);

my $opt_conf_file = "";
my $opt_output    = "";
my $opt_outdir    = "";
my $opt_checks = 0;
my $opt_quiet  = 0;
my $opt_help   = 0;
my $opt_version = 0;

my %defaults = (
  'latex' => {
    'output' => 'language.dat',
    'func'   => \&make_latex_line,
    'head'   => '/usr/share/texlive/texmf-dist/tex/generic/config/language.us',
    'post'   => '',
  },
  'etex' => {
    'output' => 'language.def',
    'func'   => \&make_etex_line,
    'head'   => '/usr/share/texlive/texmf-dist/tex/generic/config/language.us.def',
    'post'   => "\n\\uselanguage \{USenglish\}  \%\%\% This MUST be the last line of the file.\n",
  },
  'luatex' => {
    'output' => 'language.dat.lua',
    'func'   => \&make_luatex_line,
    'head'   => '/usr/share/texlive/texmf-dist/tex/generic/config/language.us.lua',
    'post'   => "\}\n",
  }
);

&main();

# from here on only sub definitions!

sub main {
  GetOptions(
    "conf-file|c=s"     => \$opt_conf_file,
    "output-file|o=s"   => \$opt_output,
    "output-dir|d=s"    => \$opt_outdir,
    "checks"            => \$opt_checks,
    "quiet|q"           => \$opt_quiet,
    "help|h|?"          => \$opt_help,
    "version|v"         => \$opt_version) or usage();

if ($progname eq "update-language") {
    $mode = "all";
  } elsif ($progname eq "update-language-dat") {
    $mode = "latex";
  } elsif ($progname eq "update-language-def") {
    $mode = "etex";
  } elsif ($progname eq "update-language-lua") {
    $mode = "luatex";
  } else {
    die "Please call me as update-language(-dat,-def,-lua).";
  }

if ($opt_help) {
    usage();
    exit 0;
  }
  if ($opt_version) {
    version();
    exit 0;
  }

# if texlive-base is not properly installed, we do nothing
  my $stat = `dpkg-query -W -f=\'\${Status}\' texlive-base:all 2>/dev/null`;
  if ($stat ne "install ok installed") {
    printf "$progname: texlive-base not installed and configured, doing nothing!\n";
    exit 0;
  }

update_conffiles($mode);
}

sub update_conffiles {
  my $mode = shift;
  my @todo;

if ($mode eq 'all') {
    push @todo, keys(%defaults);
  } else {
    push @todo, $mode;
  }

read_data();

for my $t (@todo) {
    my $of = ($opt_output ? $opt_output : 
      ( $opt_outdir ? "$opt_outdir/$defaults{$t}{'output'}" :
        "$default_output_dir/$defaults{$t}{'output'}"));
    open(FOO, ">$of") || die "Cannot open $of: $!";

if (-r $defaults{$t}{'head'}) {
      open BAR, "<", $defaults{$t}{'head'} || die("Cannot open head file $defaults{$t}{'head'}: $!");

for (<BAR>) { print FOO $_; }
      close BAR;
    } else {
      die("Missing head file $defaults{$t}{'head'}: $!");
    }
    for my $n (keys %data) {
      print FOO &{$defaults{$t}{'func'}}($n);
    }
    print FOO $defaults{$t}{'post'};
    close FOO;
  }
}

# should have been in TLUtils, but the actual code is hidden
# in TLPOBJ.pm, bad!
sub make_latex_line {
  my $n = shift;
  my $ret = "$n " . $data{$n}{'file'} . "\n";
  if ($data{$n}{'synonyms'}) {
    for my $s (@{$data{$n}{'synonyms'}}) {
      $ret .= "=$s\n";
    }
  }
  return $ret;
}
sub make_etex_line {
  my $n = shift;
  my $file = $data{$n}{'file'};
  my $lhm  = $data{$n}{'lefthyphenmin'};
  my $rhm  = $data{$n}{'righthyphenmin'};
  my $ret = "\\addlanguage\{$n\}\{$file\}\{\}\{$lhm\}\{$rhm\}\n";
  return $ret;
}
sub make_luatex_line {
  my $n = shift;
  my $file = $data{$n}{'file'};
  my $exc  = $data{$n}{'file_exceptions'};
  my $lhm  = $data{$n}{'lefthyphenmin'};
  my $rhm  = $data{$n}{'righthyphenmin'};
  my $patt = $data{$n}{'file_patterns'};
  my $special = $data{$n}{'luaspecial'};
  my $syns = '';
  if ($data{$n}{'synonyms'}) {
    my @syn = (@{$data{$n}{'synonyms'}});
    map { $_ = "'$_'" } @syn;
    $syns = join(', ', @syn);
  }
  my $ret = <<"EOF"
  [\'$n\'] = {
    loader = \'$file\',
    lefthyphenmin = $lhm,
    righthyphenmin = $rhm,
    synonyms = { $syns },
EOF
  ;
  $ret .= "    patterns = \'$patt\',\n" if defined $patt;
  $ret .= "    hyphenation = \'$exc\',\n" if defined $exc;
  $ret .= "    special = \'$special\',\n" if defined $special;
  $ret .= "  },\n";
  return $ret;
}

sub parse_hyphen_line {
  my $line = shift;
  my %ret;
  my $default_lefthyphenmin = 2;
  my $default_righthyphenmin = 3;
  $ret{"lefthyphenmin"} = $default_lefthyphenmin;
  $ret{"righthyphenmin"} = $default_righthyphenmin;
  $ret{"synonyms"} = [];
  my @parsed = Text::ParseWords::parse_line('\s+', 0, $line);
  for my $p (@parsed) {
    my ($a, $b) = split(/=/, $p);
    if ($a eq "name") {
      if (!$b) {
        $ret{"error"} = "AddHyphen line needs name=something";
        return %ret;
      }
      $ret{"name"} = $b;
      next;
    }
    if ($a eq "lefthyphenmin") {
      $ret{"lefthyphenmin"} = ( $b ? $b : $default_lefthyphenmin );
      next;
    }
    if ($a eq "righthyphenmin") {
      $ret{"righthyphenmin"} = ( $b ? $b : $default_righthyphenmin );
      next;
    }
    if ($a eq "file") {
      if (!$b) {
        $ret{"error"} = "AddHyphen line needs file=something";
        return %ret;
      }
      $ret{"file"} = $b;
      next;
    }
    if ($a eq "file_patterns") {
        $ret{"file_patterns"} = $b;
        next;
    }
    if ($a eq "file_exceptions") {
        $ret{"file_exceptions"} = $b;
        next;
    }
    if ($a eq "luaspecial") {
        $ret{"luaspecial"} = $b;
        next;
    }
    if ($a eq "databases") {
      @{$ret{"databases"}} = split /,/, $b;
      next;
    }
    if ($a eq "synonyms") {
      @{$ret{"synonyms"}} = split /,/, $b;
      next;
    }
    if ($a eq "comment") {
        $ret{"comment"} = $b;
        next;
    }
    # should not be reached at all
    $ret{"error"} = "Unknown language directive $a";
    return %ret;
  }
  # this default value couldn't be set earlier
  if (not defined($ret{"databases"})) {
    if (defined $ret{"file_patterns"} or defined $ret{"file_exceptions"}
        or defined $ret{"luaspecial"}) {
      @{$ret{"databases"}} = qw(dat def lua);
    } else {
      @{$ret{"databases"}} = qw(dat def);
    }
  }
  return %ret;
}

sub read_one_file {
  my $f = shift;
  my $do_warn = shift;
  open FOO, "<$f" || die ("Cannot read file $f: $!");
  while (<FOO>) {
    chomp;
    next if /^\s*%/;
    next if /^\s*$/;
    my %r = parse_hyphen_line($_);
    if (defined($r{"error"})) {
      die ("Cannot parse $_ in $f: $r{'error'}");
    }
    my $n = $r{'name'};
    if (defined($data{$n})) {
      if ($do_warn == 2) {
        printf STDERR "TeX Live internal double defined hyphenations pattern found: $n\n";
      } elsif ($do_warn == 1) {
        printf STDERR "double defined hyphenations pattern found: $n\n";
      } 
    }
    for my $k (keys %r) {
      next if ($k eq "name");
      $data{$n}{$k} = $r{$k};
    }
  }
  close FOO;
}

sub read_data {
  if (-d '/var/lib/tex-common/hyphen-cnf/texlive/') {
    for my $f (</var/lib/tex-common/hyphen-cnf/texlive/*.cnf>) {
      read_one_file($f, 2);
    }
  }
  if (-d '/var/lib/tex-common/hyphen-cnf/texmf/') {
    for my $f (</var/lib/tex-common/hyphen-cnf/texmf/*.cnf>) {
      read_one_file($f, 1);
    }
  }
  if (-r $localconf) {
    read_one_file($localconf, 0);
  }
}

sub version {
  print "$progname $version\n";
}

sub usage () {
  print <<"EOF"
Usage: $progname(-dat,-def,-lua) [OPTIONS ...]
Generate hyphenation configuration files language.dat, .def, .dat.lua

When called as update-language, all three configurations files are
generated. Otherwise only the selected one.

Options:
  -c, --conf-file=FILE   file giving additional hyphen specifications
  -o, --output-file=FILE file to write the output to
  -d, --output-dir=DIR   directory where files are written
      --checks           perform sanity checks on the generated config file
  -q, --quiet            don't write anything to the standard output during
                         normal operation
  -h, -?, --help         display this help message and exit
      --version          output version information and exit

Files:

The default output directory is
  $default_output_dir

The default output files are
  for update-language-dat  $defaults{'latex'}{'output'}
  for update-language-def  $defaults{'etex'}{'output'}
  for update-language-lua  $defaults{'luatex'}{'output'}

If -o/--output-file is given, it overrides all defaults.

EOF
;
}

### Local Variables:
### perl-indent-level: 2
### tab-width: 2
### indent-tabs-mode: nil
### End:
# vim:set tabstop=2 expandtab: #

${this.title}

Code Editor : update-language-lua