attempt a postaction script for context mkiv (file database generation)

git-svn-id: svn://tug.org/texlive/trunk@22735 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 37 insertions, 0 deletions

diff --git a/Master/tlpkg/tlpostcode/context.pl b/Master/tlpkg/tlpostcode/context.pl
new file mode 100644
index 00000000000..dd6c51854f0
--- /dev/null
+++ b/Master/tlpkg/tlpostcode/context.pl
@@ -0,0 +1,37 @@
+# $Id$
+# post action for context
+# Written in 2011 by Taco Hoekwater
+# public domain
+
+my $texdir;
+my $mode;
+
+BEGIN {
+  $^W = 1;
+  $mode = lc($ARGV[0]);
+  $texdir = $ARGV[1];
+}
+
+if ($mode eq 'install') {
+  do_install();
+} elsif ($mode eq 'remove') {
+  do_remove();
+} else {
+  die("unknown mode: $mode\n");
+}
+
+sub do_remove {
+  # do nothing
+}
+
+sub do_install {
+  # initialize filename database
+  my $retval = `mtxrun --generate` ) ;
+}
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2 expandtab: #