head	1.1;
branch	1.1.1;
access;
symbols
	netbsd-11-0-RC4:1.1.1.1
	netbsd-11-0-RC3:1.1.1.1
	netbsd-11-0-RC2:1.1.1.1
	netbsd-11-0-RC1:1.1.1.1
	perseant-exfatfs-base-20250801:1.1.1.1
	netbsd-11:1.1.1.1.0.4
	netbsd-11-base:1.1.1.1
	perseant-exfatfs-base-20240630:1.1.1.1
	perseant-exfatfs:1.1.1.1.0.2
	perseant-exfatfs-base:1.1.1.1
	LESS-643:1.1.1.1
	GREENWOODSOFTWARE:1.1.1;
locks; strict;
comment	@# @;


1.1
date	2023.10.06.04.32.49;	author simonb;	state Exp;
branches
	1.1.1.1;
next	;
commitid	5NbWE4l6mMQXkwHE;

1.1.1.1
date	2023.10.06.04.32.49;	author simonb;	state Exp;
branches;
next	;
commitid	5NbWE4l6mMQXkwHE;


desc
@@



1.1
log
@Initial revision
@
text
@#!/usr/bin/env perl
use strict;

# Create a test file.
# Wrapper for lesstest, using most common options.
my $usage = "usage: maketest [-o lt-file] [-l less.exe] [-s lt_screen] [-t lesstest] [-w width] [-h height] [-O lesstest-opts] [-S lt_screen-opts] textfile\n";

use Getopt::Std;

exit main();
sub main {
	my %opt;
	die $usage if not getopts('h:l:o:O:s:S:t:w:v', \%opt);
	my $textfile = shift @@ARGV;
	die $usage if not defined $textfile;
	my $lesstest  = ($opt{t} or "./lesstest");
	my $lt_screen = ($opt{s} or "./lt_screen");
	my $less      = ($opt{l} or "../obj/less");
	my $lines     = ($opt{h} or $ENV{LINES}-1);
	my $columns   = ($opt{w} or $ENV{COLUMNS}-1);
	my $verbose   = ($opt{v} or 0);
	my $lt_opts   = opts($opt{O} or "");
	my $ls_opts   = opts($opt{S} or "");
	my $ltfile    = $opt{o};
	my $linked = 0;
	if (not less_is_test($less)) {
		print "$less is not compiled to support LESSTEST\n";
		my ($dir) = $less =~ m|^(.*)/[^/]*$|;
		print "To fix: cd $dir; make clean; make LESSTEST=1\n";
		exit 1;
	}
	if ($textfile =~ m|/|) {
		my ($basename) = $textfile =~ m|^.*/([^/]+)$|;
		if (not link $textfile, $basename) {
			print "cannot link $textfile to $basename: $!\n";
			exit 1;
		}
		$linked = 1;
		$textfile = $basename;
	}
	if (not defined $ltfile) {
		for (my $i = 0;; ++$i) {
			my $suffix = $i ? $i : "";
			$ltfile = "lt/$textfile$suffix.lt";
			last if not -e $ltfile;
		}
	}
	$ls_opts = "-S$ls_opts" if $ls_opts;
	my $cmd = "LINES=$lines COLUMNS=$columns $lesstest $lt_opts $ls_opts -s '$lt_screen' -o '$ltfile' -- $less '$textfile'";
	print "$cmd\n" if $verbose;
	my $err = system($cmd);
	if ($err) {
		unlink $ltfile;
	} else {
		print "created $ltfile\n";
	}
	unlink $textfile if $linked;
	exit $err;
}

sub opts {
	my ($opts) = @@_;
	$opts = "-$opts" if $opts =~ /^[^-]/;
	return $opts;
}

sub less_is_test {
	my ($less) = @@_;
	my $ver = `$less -V`;
	return $ver =~ /LESSTEST/;
}
@


1.1.1.1
log
@Import less-643.  Way to many changes and bugfixes over the last ten
years to list.  Look at src/external/bsd/less/dist/version.c for a
complete list of changes.
@
text
@@