Arthur David Olson
22 năm trước cách đây
mục cha
commit
ed697efc09
1 tập tin đã thay đổi với
40 bổ sung và
0 xóa
-
40
0
workman.sh
|
@@ -0,0 +1,40 @@
|
|
|
|
|
+#! /bin/sh
|
|
|
|
|
+
|
|
|
|
|
+# %W%
|
|
|
|
|
+
|
|
|
|
|
+tty -s
|
|
|
|
|
+ttyval=$?
|
|
|
|
|
+
|
|
|
|
|
+case $# in
|
|
|
|
|
+ 0) nroff -man ;;
|
|
|
|
|
+ 1) if [ -f $1 ]
|
|
|
|
|
+ then
|
|
|
|
|
+ ( echo .hy 0; echo .na ) | nroff -man - "$1"
|
|
|
|
|
+ else
|
|
|
|
|
+ man "$1"
|
|
|
|
|
+ fi ;;
|
|
|
|
|
+ *) man ${1+"$@"} ;;
|
|
|
|
|
+esac | perl -ne '
|
|
|
|
|
+ if (($. % 66) <= 7) {
|
|
|
|
|
+ next;
|
|
|
|
|
+ }
|
|
|
|
|
+ if (($. % 66) > (66 - 7)) {
|
|
|
|
|
+ next;
|
|
|
|
|
+ }
|
|
|
|
|
+ chomp;
|
|
|
|
|
+ s/.//g;
|
|
|
|
|
+ s/[ ]*$//;
|
|
|
|
|
+ if (/^$/) {
|
|
|
|
|
+ $sawblank = 1;
|
|
|
|
|
+ next;
|
|
|
|
|
+ } else {
|
|
|
|
|
+ if ($sawblank) {
|
|
|
|
|
+ print "\n";
|
|
|
|
|
+ $sawblank = 0;
|
|
|
|
|
+ }
|
|
|
|
|
+ print "$_\n";
|
|
|
|
|
+ }
|
|
|
|
|
+' | case $ttyval in
|
|
|
|
|
+ 0) more ;;
|
|
|
|
|
+ *) cat ;;
|
|
|
|
|
+esac
|
