← Back to branch summary

~ubuntu-branches/ubuntu/utopic/texlive-bin/utopic

« back to all changes in this revision

Viewing changes to .pc/12e_fix_vpe_invocation/texk/texlive/linked_scripts/vpe/vpe.pl

  • Committer: Package Import Robot
  • Author(s): Norbert Preining
  • Date: 2012-05-07 10:47:49 UTC
  • mfrom: (1.2.4)
  • Revision ID: package-import@ubuntu.com-20120507104749-p00ot5sajjbkp1hp
Tags: 2011.20120507-1
* new upstream checkout: uptex 1.10
* drop patches for config file inclusion in (x)dvipdfmx, included upstream
* add man page for etex
* include pmpost patches and build it
* adapt/unfuzzify patches for current sources
* disable mtx building, we have prepmx package in Debian

Show diffs side-by-side

added added

removed removed

Lines of Context:
.pc/12e_fix_vpe_invocation/texk/texlive/linked_scripts/vpe/vpe.pl
4
4
#
5
5
# vpe.pl
6
6
#
7
 
# Copyright (C) 2000 Heiko Oberdiek.
 
7
# Copyright (C) 2000, 2012 Heiko Oberdiek.
8
8
#
9
9
# This program may be distributed and/or modified under the
10
10
# conditions of the LaTeX Project Public License, either version 1.2
19
19
# This file "vpe.pl" may be renamed to "vpe"
20
20
# for installation purposes.
21
21
#
22
 
my $file        = "vpe.pl";
 
22
my $prj         = 'vpe';
 
23
my $file        = "$prj.pl";
23
24
my $program     = uc($&) if $file =~ /^\w+/;
24
 
my $version     = "0.1";
25
 
my $date        = "2000/09/15";
 
25
my $version     = "0.2";
 
26
my $date        = "2012/04/18";
26
27
my $author      = "Heiko Oberdiek";
27
 
my $copyright   = "Copyright (c) 2000 by $author.";
 
28
my $copyright   = "Copyright (c) 2000, 2012 by $author.";
28
29
#
29
30
# History:
30
31
#   2000/09/15 v0.1: First release.
 
32
#   2012/04/18 v0.2: Option --version added.
31
33
#
32
34
 
33
35
### program identification
68
70
  this file at that line number.
69
71
 
70
72
Options:
71
 
  --help:     print usage.
72
 
  --verbose:  print additional informations during running.
 
73
  --help:     print usage
 
74
  --version   print version number
 
75
  --verbose:  print additional informations during running
73
76
  --force:    force symbol links
74
77
  --delete:   delete symbol links
75
78
  --sty:      internal for `vpe.sty' (get absolute file name and lines)
80
83
### options
81
84
$::opt_verbose = 0;
82
85
$::opt_help = 0;
 
86
$::opt_version = 0;
83
87
$::opt_force = 0;
84
88
$::opt_delete = 0;
85
89
$::opt_sty = 0;
88
92
use Getopt::Long;
89
93
GetOptions(
90
94
  "help!",
 
95
  "version!",
91
96
  "verbose!",
92
97
  "force!",
93
98
  "delete!",
98
103
if ($::opt_help) {
99
104
  die $usage;
100
105
}
 
106
if ($::opt_version) {
 
107
  print "$prj $date v$version\n";
 
108
  exit(0);
 
109
}
101
110
 
102
111
if ($::opt_sty and $::opt_system) {
103
112
  die "$usage" .