[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);
+