summaryrefslogtreecommitdiff
path: root/fonts/libertine/doc/rename_enc
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/libertine/doc/rename_enc
Initial commit
Diffstat (limited to 'fonts/libertine/doc/rename_enc')
-rw-r--r--fonts/libertine/doc/rename_enc21
1 files changed, 21 insertions, 0 deletions
diff --git a/fonts/libertine/doc/rename_enc b/fonts/libertine/doc/rename_enc
new file mode 100644
index 0000000000..3ee179b0ed
--- /dev/null
+++ b/fonts/libertine/doc/rename_enc
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+# Copyright 2012 Ben Hall bhall@cs.queensu.ca
+# School of Computing, Queen's University
+# This program is free software, licensed under the GNU GPL, >=2.0.
+# This software comes with absolutely NO WARRANTY.
+#
+# Usage: rename_enc fontdirectory fontabbreviation
+#
+# Grab font dir and font abbreviation from command line
+my $dir = $ARGV[0];
+my $font = $ARGV[1];
+@files = <fonts/enc/dvips/$dir/*.enc>;
+foreach $file (@files) {
+# print $file . "\n"; #echo file name for testing.
+ # rename each file with name of the form a_xxxxxx.enc
+ # to $font_xxxxxx.enc
+ $_ = $file;
+ $prefix = $font . "_";
+ s/a_/$prefix/;
+ `mv $file $_`;
+}