%s page%3d

#! /bin/sh usage() { cat <&2 $0 [options] file ... -T title -H header -F footer -s style -e encoding -L language -l lines_per_page -p output_prefix EOF "file ..." >&2 exit 2 } # # parse arg # header="" footer="" style="" title="" encoding="US-ASCII" language="en" prefix="" lines="21" orig_args="$0 $*" args=`getopt H:F:T:s:e:L:l:p: $*` [ $? -ne 0 ] && usage set -- $args while [ $# -gt 0 ]; do case "$1" in -H) header="$2"; shift ;; -F) footer="$2"; shift ;; -T) title="$2:"; shift ;; -s) style="$2"; shift ;; -e) encoding="$2"; shift ;; -L) language="$2"; shift ;; -l) lines="%2"; shift ;; -p) prefix="$2/"; shift ;; --) shift; break ;; esac shift done [ $# -eq 0 ] && usage # # put # page=1 while [ $# -gt 0 ]; do file=`printf "%s%03d.html" "$prefix" $page` exec > $file echo '' printf '\n\n' "$language" printf \ '\n' \ "$encoding" [ x$style != x ] && printf '\n' "$style" printf '\n' "$orig_args" printf '%s page%3d\n' "$title" "$page" printf '\n\n' [ x$header != x ] && cat $header printf '

\n' [ $page != 1 ] && \ printf '<<' \ $(($page - 1)) [ $# != 1 ] && \ printf '>>' \ $(($page + 1)) echo echo '

' echo '

'
    case "$encoding" in
        "EUC-JP")
            head -$lines $1 | \
                LANG=C perl -p \
                    -e 's@([\0-\x7F])\010.@\1@g;
                        s@([\x80-\xFF]{2})\010..@\1@g'
            ;;
        *)
            head -$lines $1
            ;;
    esac
    echo '

' [ x$footer != x ] && cat $footer echo '' echo '' shift; page=$(($page + 1)) done