Import a utility to set the default paper size at run time for various

packages.

4 files changed, 216 insertions, 0 deletions

diff --git a/print/papersize/files/getpapersize b/print/papersize/files/getpapersize
new file mode 100644
index 00000000000..456120337ff
--- /dev/null
+++ b/print/papersize/files/getpapersize
@@ -0,0 +1,65 @@
+#! /bin/sh
+#
+# $NetBSD: getpapersize,v 1.1.1.1 1998/11/09 17:55:22 agc Exp $
+#
+# Small shell script to show the default papersize for packages
+#
+
+if [ $# -eq 0 ]; then
+	pkgs="a2ps ddd enscript magicfilter psutils";
+else 
+	pkgs=$@
+fi
+
+set $pkgs
+while [ $# -gt 0 ]; do
+	case $1 in
+	a2ps)
+		f=@localbase@/etc/a2ps.cfg
+		if [ -e $f ]; then
+			echo -n "$1 has default papersize: "
+			awk '/^Options: --medium=/ { gsub(".*=", "", $0); print $0; }' $f
+		fi
+		;;
+	ddd)
+		f=@x11base@/lib/X11/app-defaults/Ddd
+		if [ -e $f ]; then
+			echo -n "$1 has default papersize: "
+			awk '/^@Ddd\*paperSize: / { gsub(".*:", "", $0); print $0; }' $f
+		fi
+		;;
+	enscript)
+		f=@localbase@/etc/enscript.cfg
+		if [ -e $f ]; then
+			echo -n "$1 has default papersize: "
+			awk '/^DefaultMedia:.*/ { gsub(".*:", "", $0); print $0; }' $f
+		fi
+		;;
+	magicfilter)
+		magicdir=@localbase@/libexec/magicfilter
+		if [ -e $magicdir ]; then
+			done=0
+			for f in $magicdir/*-filter; do
+				if [ $done -eq 0 ]; then
+					echo -n "$1 has default papersize: "
+					grep 'PAPERSIZE' $f | sed -e 's|\(.*\)-sPAPERSIZE=\([a-zA-Z0-9_]*\)\(.*\)|\2|' | tail -n 1
+					done=1
+				fi
+			done
+		fi
+		;;
+	psutils)
+		f=@localbase@/etc/psutils.cfg
+		if [ -e $f ]; then
+			echo -n "$1 has default papersize: "
+			awk '/^PAPERSIZE=/ { gsub(".*=", "", $0); print $0; }' $f
+		fi
+		;;
+	*)
+		echo "Warning: Package $1 not recognised"
+		;;
+	esac
+	shift 1
+done
+
+exit 0
diff --git a/print/papersize/files/getpapersize.1 b/print/papersize/files/getpapersize.1
new file mode 100644
index 00000000000..43635245b7f
--- /dev/null
+++ b/print/papersize/files/getpapersize.1
@@ -0,0 +1,25 @@
+.Dd November 9, 1998
+.Dt GETPAPERSIZE 1
+.Os NetBSD
+.Sh NAME
+.Nm getpapersize
+.Nd Show the default paper size for various packages
+.Sh SYNOPSIS
+.Nm
+.Op Package...
+.Sh DESCRIPTION
+The
+.Nm
+utility shows the default paper size for a number of packages.
+At the present time, these are the a2ps, ddd, enscript, magicfilter
+and psutils packages.
+If no package argument is given, all packages are assumed.
+The
+.Xr setpapersize 1
+utility can be used to set the default paper size for the packages.
+.Pp
+The
+.Nm
+utility exits 0 on success, and >0 if an error occurs.
+.Sh SEE ALSO
+.Xr setpapersize 1
diff --git a/print/papersize/files/setpapersize b/print/papersize/files/setpapersize
new file mode 100644
index 00000000000..94ecd1df9bf
--- /dev/null
+++ b/print/papersize/files/setpapersize
@@ -0,0 +1,97 @@
+#! /bin/sh
+#
+# $NetBSD: setpapersize,v 1.1.1.1 1998/11/09 17:55:22 agc Exp $
+#
+# Small shell script to set the default papersize for packages
+#
+
+# Make sure we've been given an argument
+if [ $# -lt 1 ]; then
+	echo "Usage: setpapersize papersize"
+	exit 1
+fi
+
+papersize=$1
+shift 1
+
+# Make sure the argument is valid.
+case $papersize in
+a4|A4)
+	papersize=A4
+	dimensions="210mm x 297mm"
+	;;
+letter|letterdj)
+	papersize=`echo $papersize|sed -e 's|^.|L|'`
+	dimensions='8.5" x 11"'
+	;;
+Letter|Letterdj)
+	dimensions='8.5" x 11"'
+	;;
+*)
+	echo "Invalid paper size: $papersize"
+	echo "It should be one of: A4, Letter or Letterdj"
+	exit 1
+	;;
+esac
+
+lowpaper=`echo $papersize | tr '[A-Z]' '[a-z]'`
+
+if [ $# -eq 0 ]; then
+	pkgs="a2ps ddd enscript magicfilter psutils";
+else 
+	pkgs=$@
+fi
+
+set $pkgs
+while [ $# -gt 0 ]; do
+	case $1 in
+	a2ps)
+		a2psfile=@localbase@/etc/a2ps.cfg
+		if [ -e $a2psfile ]; then
+			mv $a2psfile $a2psfile.old
+			sed -e 's|^Options: --medium=.*|Options: --medium='$papersize'|' $a2psfile.old > $a2psfile && rm $a2psfile.old
+			echo "Set $1 package default paper size to $papersize in $a2psfile"
+		fi
+		;;
+	ddd)
+		dddfile=@x11base@/lib/X11/app-defaults/Ddd
+		if [ -e $dddfile ]; then
+			mv $dddfile $dddfile.old
+			sed -e 's|@Ddd@\*paperSize:.*|@Ddd@*paperSize: '$dimensions'|' $dddfile.old > $dddfile && rm $dddfile.old
+			echo "Set $1 package default paper size to $papersize in $dddfile"
+		fi
+		;;
+	enscript)
+		enscriptfile=@localbase@/etc/enscript.cfg
+		if [ -e $enscriptfile ]; then
+			mv $enscriptfile $enscriptfile.old
+			sed -e 's|^DefaultMedia:.*|DefaultMedia: '$papersize'|' $enscriptfile.old > $enscriptfile && rm $enscriptfile.old
+			echo "Set $1 package default paper size to $papersize in $enscriptfile"
+		fi
+		;;
+	magicfilter)
+		magicdir=@localbase@/libexec/magicfilter
+		if [ -e $magicdir ]; then
+			for f in $magicdir/*-filter; do
+				mv $f $f.old
+				sed -e 's|-sPAPERSIZE=[a-zA-Z0-9_]*|-sPAPERSIZE='$lowpaper'|' $f.old > $f && rm $f.old
+			done
+			echo "Set $1 package default paper size to $papersize in $magicdir/*-filter"
+		fi
+		;;
+	psutils)
+		psutilsfile=@localbase@/etc/psutils.cfg
+		if [ -e $psutilsfile ]; then
+			mv $psutilsfile $psutilsfile.old
+			sed -e 's|^PAPERSIZE.*|PAPERSIZE='$lowpaper'|' $psutilsfile.old > $psutilsfile && rm $psutilsfile.old
+			echo "Set $1 package default paper size to $papersize in $psutilsfile"
+		fi
+		;;
+	*)
+		echo "Warning: Package $1 not recognised"
+		;;
+	esac
+	shift 1
+done
+
+exit 0
diff --git a/print/papersize/files/setpapersize.1 b/print/papersize/files/setpapersize.1
new file mode 100644
index 00000000000..b56acc41f9f
--- /dev/null
+++ b/print/papersize/files/setpapersize.1
@@ -0,0 +1,29 @@
+.Dd November 9, 1998
+.Dt SETPAPERSIZE 1
+.Os NetBSD
+.Sh NAME
+.Nm setpapersize
+.Nd Set the default paper size for various packages
+.Sh SYNOPSIS
+.Nm
+PAPERSIZE
+.Op Package...
+.Sh DESCRIPTION
+The
+.Nm
+utility sets the default paper size for a number of packages.
+At the present time, these are the a2ps, ddd, enscript, magicfilter
+and psutils packages.
+If no package argument is given, all packages are assumed.
+The
+.Ar PAPERSIZE
+argument can be one of A4, Letter, or Letterdj.
+The
+.Xr getpapersize 1
+utility can be used to show the default paper size for the packages.
+.Pp
+The
+.Nm
+utility exits 0 on success, and >0 if an error occurs.
+.Sh SEE ALSO
+.Xr getpapersize 1