texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Patrice Dumas
Date: Wed, 25 Dec 2024 05:28:56 -0500 (EST)

branch: master
commit 53e20cb01c49e2130b0f743da4b69f776a90d8b4
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Wed Dec 25 11:20:17 2024 +0100

    * tp/ctexi2any.pl: add a ctexi2any wrapper that can be called as a
    Perl script, to be called for tests.
---
 ChangeLog       |  5 +++++
 tp/ctexi2any.pl | 18 ++++++++++++++++++
 2 files changed, 23 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index fb2a660401..bc083071a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-12-25  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/ctexi2any.pl: add a ctexi2any wrapper that can be called as a
+       Perl script, to be called for tests.
+
 2024-12-25  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/main/ConfigXS.xs (texinfo_set_from_init_file),
diff --git a/tp/ctexi2any.pl b/tp/ctexi2any.pl
new file mode 100755
index 0000000000..51b11a4f37
--- /dev/null
+++ b/tp/ctexi2any.pl
@@ -0,0 +1,18 @@
+#! /usr/bin/env perl
+
+use strict;
+use File::Basename;
+
+
+my $command_dir;
+my $top_srcdir = $ENV{'top_srcdir'};
+if (defined($top_srcdir)) {
+  $command_dir = "$top_srcdir/tp";
+} else {
+  my ($real_command_name, $command_directory, $command_suffix)
+    = fileparse($0, '.pl');
+  $command_dir = $command_directory;
+  $ENV{'top_srcdir'} = "$command_dir/..";
+}
+exec("${command_dir}/Texinfo/XS/ctexi2any", @ARGV);
+



reply via email to

[Prev in Thread] Current Thread [Next in Thread]