← Back to branch summary

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

« back to all changes in this revision

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