txicustomvars 1011 B

123456789101112131415161718192021222324252627282930313233
  1. #!/usr/bin/env perl
  2. # $Id$
  3. # Copyright 2012, 2013 Free Software Foundation, Inc.
  4. #
  5. # This program is free software; you can redistribute it and/or modify
  6. # it under the terms of the GNU General Public License as published by
  7. # the Free Software Foundation; either version 3 of the License,
  8. # or (at your option) any later version.
  9. #
  10. # This program is distributed in the hope that it will be useful,
  11. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13. # GNU General Public License for more details.
  14. #
  15. # You should have received a copy of the GNU General Public License
  16. # along with this program. If not, see <http://www.gnu.org/licenses/>.
  17. #
  18. # Original author: Patrice Dumas.
  19. #
  20. # Output Texinfo customization variables
  21. use strict;
  22. BEGIN {
  23. (my $mydir = $0) =~ s,/[^/]+$,,;
  24. chomp (my $tpdir = `cd $mydir/../tp && pwd`);
  25. unshift (@INC, $tpdir);
  26. }
  27. use Texinfo::Common;
  28. print Texinfo::Common::_customization_variable_classes();