update troff files for newp, ts, unpage, upcasetl

Fix capitalisation to make it more consistant

Makefile

@@ -1,12 +1,8 @@
-prefix?=$$HOME/.local/cstow/miscutils
-bindir=${prefix}/bin
-mandir=${prefix}/share/man/man1
-bins=bwrap hppt mkgmap newp osc p pick rot scmfmt ts upcasetl unpage
-
-.PHONY: install clean
+prefix=$$HOME/opt/pkg/miscutils
+target_bin=${prefix}/bin
+target_man=${prefix}/share/man/man1
+bin=bwrap hppt mkgmap newp rot rr scmfmt ts upcasetl unpage
 install:
-	install -d ${bindir} ${mandir}
-	install -c ${bins} ${bindir}
-	install -c ${bins:%=%.1} ${mandir}
-clean:
-	rm -f *~
+	install -d ${target_bin} ${target_man}
+	install -c ${bin} ${target_bin}
+	install -c ${bin:%=%.1} ${target_man}

bwrap.1

@@ -3,7 +3,7 @@
 .Os
 .Sh NAME
 .Nm bwrap
-.Nd wrap input text as a unit
+.Nd Wrap input text as a unit
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION

hppt.1

@@ -3,7 +3,7 @@
 .Os
 .Sh NAME
 .Nm hppt
-.Nd reformat stdin as a horizontal paper tape
+.Nd Reformat stdin as a horizontal paper tape
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION

mkgmap.1

@@ -3,12 +3,12 @@
 .Os
 .Sh NAME
 .Nm mkgmap
-.Nd create a simple Gophermap for the current directory
+.Nd Create a simple Gophermap for the current directory
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION
 .Nm
-generates a simple Gophermap in its standard output,
+Generates a simple Gophermap in its standard output,
 listing all text files in the current directory
 in reverse alphabetical order.
 .Pp

newp.1

@@ -3,13 +3,13 @@
 .Os
 .Sh NAME
 .Nm newp
-.Nd create a new phlog post
+.Nd Create a new phlog post
 .Sh SYNOPSIS
 .Nm
 .Ar word ...
 .Sh DESCRIPTION
 .Nm
-creates a new ms phlog post.
+Creates a new ms phlog post.
 The file name will contain the current date and
 .Ar word ...
 separated by dashes.

osc

@@ -1,18 +0,0 @@
-#!/usr/bin/env ksh
-(( $# < 1 )) && exit 64
-[[ -v X_OSC_DISABLE || ! -t 1 ]] && exit 0
-case $1 in
-    link)
-	[[ -z $2 ]] && exit 64
-	printf "\e]8;%s\e\\" "$2"
-	;;
-    pwd)
-	(( $# != 1 )) && exit 64
-	printf "\e]7;file://%s%s\e\\" "$HOSTNAME" "$PWD"
-	;;
-    title)
-	(( $# == 1 )) && exit 64
-	shift;
-	printf '\e]2;%s\e\\' "$*"
-	;;
-esac

osc.1

@@ -1,43 +0,0 @@
-.Dd Jun 11, 2024
-.Dt OSC 1
-.Os
-.Sh NAME
-.Nm osc
-.Nd print OSC escape sequences
-.Sh SYNOPSIS
-.Nm
-.Cm pwd
-.Nm
-.Cm link
-.Ar URI
-.Nm
-.Cm title
-.Ar word ...
-.Sh DESCRIPTION
-.Nm
-prints an OSC escape sequence to stdout if connected to a tty.
-If stdout is not a TTY, prints nothing.
-.Pp
-Three escape sequences are supported:
-.Bl -tag -width Ds
-.It Cm pwd
-ESC 7, set current working directory.
-.It Cm link
-ESC 8, display an URI.
-.It Cm title
-ESC 2, set a title for the current window.
-.El
-.Pp
-Whatever it is done with these escape sequences depends on the
-terminal emulator. To avoid printing anything, even on ttys, define
-.Ev X_OSC_DISABLE
-with any value.
-.Sh ENVIRONMENT
-.Bl -tag -width X_OSC_DISABLE
-.It Ev X_OSC_DISABLE
-Don't do anything.
-.El
-.Sh EXIT STATUS
-.Ex -std
-.Sh AUTHORS
-.An Adolfo Perez Alvarez Aq Mt adolfopa@sdf.org

p

@@ -1,49 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-my $pagesize = $ENV{'LINES'} || 22;
-
-open(my $tty, '<', '/dev/tty')
-    or die "$0: Cannot open /dev/tty for reading: $!";
-
-sub evalcmd {
-    {
-	chomp($_ = <$tty>);
-	if (/^q$/) {
-	    exit(0);
-	} elsif (/^!(.*)/) {
-	    system($1);
-	    redo;
-	}
-    }
-}
-
-sub printfile {
-    my ($fh) = @_;
-    my $lines = 0;
-    while (<$fh>) {
-	print;
-	&evalcmd unless ++$lines % $pagesize;
-    }
-}
-
-unshift(@ARGV, '-') unless @ARGV;
-
-my $n = $#ARGV;
-for (@ARGV) {
-    if (/^-$/) {
-	&printfile(\*STDIN);
-	&evalcmd if $n--;
-    } elsif (/^-(\d+)$/) {
-	$pagesize = $1;
-    } else {
-	open(my $fh, '<', $_) or die "$0: Cannot open $_ for reading: $!";
-	&printfile($fh);
-	&evalcmd if $n--;
-	close($fh);
-    }
-}
-
-close($tty);

p.1

@@ -1,48 +0,0 @@
-.Dd May 17, 2024
-.Dt P 1
-.Os
-.Sh NAME
-.Nm p
-.Nd paginate
-.Sh SYNOPSIS
-.Nm
-.Op Fl number
-.Ar
-.Sh DESCRIPTION
-.Nm
-copies its standard input, or the named files if given,
-to its standard output,
-stopping at the end of every page and at the end of each file.
-The special file name
-.Pa -
-can be used to refer explicitly to the standard input.
-.Pp
-Page size is defined by the
-.Ev LINES
-environment variable.
-If not defined, a default page size of 22 will be used.
-The page size can be overriden with the numeric option.
-.Pp
-While waiting for a newline,
-.Nm
-interprets the commands:
-.Bl -tag
-.It !
-Run the rest of the line as a shell command.
-.It q
-Quit.
-.El
-Any other input will show the next input page.
-.Sh ENVIRONMENT
-.Bl -tag -width LINES
-.It Ev LINES
-Number of lines of the terminal.
-.El
-.Sh EXIT STATUS
-.Ex -std
-.Sh HISTORY
-This is a reimplementation of Plan 9's
-.Nm
-pager.
-.Sh AUTHORS
-.An Adolfo Perez Alvarez Aq Mt adolfopa@sdf.org

pick

@@ -1,35 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Scalar::Util qw{looks_like_number};
-
-my @choices;
-
-for (@ARGV) {
-  if (/^--$/) {
-    push(@choices, <STDIN>);
-  } elsif (/^@(.+)$/) {
-    open(my $fh, '<', $1);
-    push(@choices, <$fh>);
-    close($fh);
-  } else {
-    push(@choices, "$_\n");
-  }
-}
-
-open(my $tty, '<', '/dev/tty');
-
-my $sel;
-until (looks_like_number($sel) && $sel > 0 && $sel <= @choices) {
-  while (my ($i, $c) = each @choices) {
-    print $i+1 . ') ' . $choices[$i];
-  }
-  print $ENV{'PS3'} || '#? ';
-  exit(1) unless defined($sel = <$tty>);
-}
-
-close($tty);
-
-print $choices[$sel - 1];

pick.1

@@ -1,44 +0,0 @@
-.Dd December 15, 2025
-.Dt PICK 1
-.Os
-.Sh NAME
-.Nm pick
-.Nd choose interactively from a set of arguments and input lines
-.Sh SYNOPSIS
-.Nm
-.Ar arg ...
-.Sh DESCRIPTION
-.Nm
-will display a Korn shell style selection menu with any arguments as options.
-The special argument
-.Ar --
-will read stdin and present each line as a choice.
-.Pp
-When a selection is made, the command will print its value to stdout;
-If the selection is aborted, nothing will be printed.
-.Sh ENVIRONMENT
-.Bl -tag -width PS3
-.It Ev PS3
-Prompt string displayed to the user (default: #?).
-.El
-.Sh EXIT STATUS
-.Ex -std
-.Sh EXAMPLES
-.Bd -literal -offset indent
-$ pick 1 2 -- 3 4 <<.
-> a
-> b
-> c
-> .
-1) 1
-2) 2
-3) a
-4) b
-5) c
-6) 3
-7) 4
-#? 4
-b
-.Ed
-.Sh AUTHORS
-.An Adolfo Perez Alvarez Aq Mt adolfopa@sdf.org

rot.1

@@ -3,7 +3,7 @@
 .Os
 .Sh NAME
 .Nm rot
-.Nd rotate stdin 90 degrees
+.Nd Rotate stdin 90 degrees
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION

rr

@@ -0,0 +1,16 @@
+#!/bin/sh
+[ $# -eq 1 ] && echo "usage: $0 command ..." && exit 64
+tmp1=$(mktemp $0.XXXXXXXXXX)
+tmp2=$(mktemp $0.XXXXXXXXXX)
+trap "rm $tmp1 $tmp2; exit 0" 1 2 15
+while "$@" >$tmp2
+do
+	if ! diff $tmp1 $tmp2
+	then
+		cp $tmp2 $tmp1
+	else
+		echo -n "."
+	fi
+	sleep 2
+done
+rm $tmp1 $tmp2

rr.1

@@ -0,0 +1,30 @@
+.Dd Jun 10, 2022
+.Dt RR 1
+.Os
+.Sh NAME
+.Nm rr
+.Nd Repeteadly run a command until it exits with a non zero status
+.Sh SYNOPSIS
+.Nm
+.Ar cmd Op Ar arg ...
+.Sh DESCRIPTION
+Run command
+.Ar cmd arg ...
+repeteadly until it fails.
+.Pp
+In every run, compare its stdout with the one from the previous run.
+If there has been any change, print a diff;
+otherwise, display a dot to indicate progress.
+.Sh EXIT STATUS
+.Ex -std
+.Sh EXAMPLES
+.Bd -literal -offset indent
+$ rr pgrep -f foo
+0a1,2
+> 6871
+> 25428
+\&...^C
+$
+.Ed
+.Sh AUTHORS
+.An Adolfo Perez Alvarez Aq Mt adolfopa@sdf.org

scmfmt

@@ -21,9 +21,9 @@ i\
 
 bl' |
 sed  -e '1s/^/./' -e 's/^ /./' |
-par -P=. |
+fmt -p |
 awk '
-BEGIN { LIMIT = 72 }
+BEGIN { LIMIT = 65 }
 NR == 1 || /^[^\.]/ || length($0) < LIMIT {
 	sub(/^\./, NR == 1 ? "" : " ");
 	print;

scmfmt.1

@@ -3,7 +3,7 @@
 .Os
 .Sh NAME
 .Nm scmfmt
-.Nd format a commit message
+.Nd Format a commit message
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION

ts

@@ -1,14 +1,18 @@
-#!/usr/bin/env ksh
+#!/bin/ksh
 
 function tsrun
 {
-	typeset ret
+	typeset err out ret
 
-	sh -c "$@" >$out 2>$err
+	err=$(mktemp /tmp/XXXXXXXXXX)
+	out=$(mktemp /tmp/XXXXXXXXXX)
+	trap "rm $err $out" EXIT
+
+	eval "$@" >$out 2>$err
 	ret=$?
 	sed 's/^/| /' $out
 	sed 's/^/@ /' $err
-	(( ret != 0 )) && print "? $ret"
+	print '? '$ret
 }
 
 function tseval
@@ -22,37 +26,15 @@ function tseval
 			print "$ln"
 			tsrun "${ln#$}"
 			;;
-		!(\?|@|\|))
+		!(?|@|\|))
 			print "$ln"
 			;;
 		esac
 	done
 }
 
-function tsexpand
-{
-	typeset ln
-
-	while read ln
-	do
-		case ${ln%% *}
-		in
-			\?|@|\|)
-				eval print \""$ln"\"
-				;;
-			*)
-				print "$ln"
-				;;
-		esac
-	done
-}
-
 (( $# == 0 )) && exit 64
 
-err=$(mktemp /tmp/XXXXXXXXXX)
-out=$(mktemp /tmp/XXXXXXXXXX)
-trap "rm $err $out" HUP INT QUIT TERM
-
 if [[ $1 = -b ]]
 then
 	(( $# == 1 )) && exit 64
@@ -63,13 +45,8 @@ then
 		(rm $fn && tseval >$fn) <$fn
 	done
 else
-	exp=$(mktemp /tmp/XXXXXXXXXX)
-	trap "rm $exp" HUP INT QUIT TERM
 	for fn
 	do
-		tsexpand <$fn >$exp
-		tseval <$fn | diff -u $exp -
+		tseval <$fn | diff -u $fn -
 	done
-	rm $exp
 fi
-rm $err $out

ts.1

@@ -3,14 +3,14 @@
 .Os
 .Sh NAME
 .Nm ts
-.Nd run shell tests 
+.Nd Run shell tests 
 .Sh SYNOPSIS
 .Nm
 .Op Fl b
 .Ar test ...
 .Sh DESCRIPTION
 .Nm
-runs the shell tests passed as arguments.
+Runs the shell tests passed as arguments.
 If the
 .Fl b
 flag is specified, the test is blessed \(em i.e. it is evaluated and the test

unpage.1

@@ -3,12 +3,12 @@
 .Os
 .Sh NAME
 .Nm unpage
-.Nd remove page headers and footers from text documents
+.Nd Remove page headers and footers from text documents
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION
 .Nm
-removes all page headers and footers from stdin,
+Removes all page headers and footers from stdin,
 getting as result output that contains a single continuous page.
 .Pp
 This command expects its input to be the result of processing an ms document

upcasetl.1

@@ -3,12 +3,12 @@
 .Os
 .Sh NAME
 .Nm upcasetl
-.Nd upcase titles and section headers in an ms troff document
+.Nd Upcase titles and section headers in an ms troff document
 .Sh SYNOPSIS
 .Nm
 .Sh DESCRIPTION
 .Nm
-takes an ms troff document in stdin,
+Takes an ms troff document in stdin,
 and outputs to its stdout the same document
 with all
 .Qq .TL