シェルスクリプト

#!/bin/sh
me="`basename \"$0\"`"
if [ $# -lt 1 ]; then
  cat <<EOF
$me - find same named files
usage:
	$me find_pathname ... [find_expression ...]
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi
c=0
find "$@" -print | while read p; do
  dir="`dirname \"$p\"`"
  base="`basename \"$p\"`"
  echo "$base	$dir"
done | sort | while IFS="	" read base1 dir1; do
  if [ "$c" = 0 ]; then
    base0="$base1"
    dir0="$dir1"
    flag=false
  else
    if [ "$base1" = "$base0" ]; then
      [ "$c" = 1 ] &&
      echo "$dir0/$base0"
      echo "$dir1/$base1"
      flag=:
    else
      base0="$base1"
      dir0="$dir1"
      c=0
      $flag && echo
      flag=false
    fi
  fi
  c=`expr $c + 1`
done

#!/bin/sh
me="`basename \"$0\"`"
if [ $# -lt 1 ]; then
  cat <<EOF
$me - find same named and different files/timestamps for same contents
usage:
	$me find_pathname ... [find_expression ...]
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi
case "$me" in
*time*) timestamp=:;;
*)      timestamp=false;;
esac
c=0
n=0
find "$@" ! -type d -print | while read p; do
  dir="`dirname \"$p\"`"
  base="`basename \"$p\"`"
  echo "$base	$dir"
done | sort | while IFS="	" read base1 dir1; do
  if [ "$c" = 0 ]; then
    base0="$base1"
    dir0="$dir1"
    flag=false
  else
    if [ "$base1" = "$base0" ]; then
      cmp -s "$dir0/$base0" "$dir1/$base1" || flag=:
      if $flag; then
        [ "$n" = 0 ] &&
        echo "$dir0/$base0"
        echo "$dir1/$base1	differ in contents"
      elif $timestamp; then
        { test "$dir0/$base0" -nt "$dir1/$base1" ||
	  test "$dir0/$base0" -ot "$dir1/$base1"; } && flag=:
	if $flag; then
          [ "$n" = 0 ] &&
          echo "$dir0/$base0"
          echo "$dir1/$base1	differ in timestamp"
        fi
      fi
      $flag && n=`expr $n + 1`
    else
      base0="$base1"
      dir0="$dir1"
      c=0
      [ "$n" != 0 ] && echo
      n=0
      flag=false
    fi
  fi
  c=`expr $c + 1`
done

#!/bin/sh
me="`basename \"$0\"`"
if [ $# -lt 1 ]; then
  cat <<EOF
$me - find case-insensitive same named files non-recursively
usage:
	$me pathname ...
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi
while [ "$1" != "" ]; do
  find "$1" -maxdepth 1 ! -name "`basename \"$1\"`" -print | while read p; do
    dir="`dirname \"$p\"`"
    base="`basename \"$p\"`"
    echo "$base	$dir"
  done | while IFS="	" read b d; do
    find "$d" ! -path "$d" -maxdepth 1 -iname "$b" ! -name "$b" -print
  done | sort -f
  shift
done

#!/bin/sh
me="`basename \"$0\"`"
if [ $# -lt 1 ]; then
  cat <<EOF
$me - find case-insensitive same named files recursively
usage:
	$me pathname ...
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi
while [ "$1" != "" ]; do
  find "$1" -type d -print | while read q; do
    find "$q" -maxdepth 1 ! -name "`basename \"$q\"`" -print | while read p; do
      dir="`dirname \"$p\"`"
      base="`basename \"$p\"`"
      echo "$base	$dir"
    done | while IFS="	" read b d; do
      find "$d" ! -path "$d" -maxdepth 1 -iname "$b" ! -name "$b" -print
    done | sort -f
  done
  shift
done

#!/bin/sh
me="`basename \"$0\"`"
if [ "$#" -lt 1 ]; then
  cat <<EOF
$me - rename files by message digest
usage:
	$me [-m md5|sha1] [-s suf] file(s)
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi
mdc=sha1
endoptions=false
keepsuffix=:
suf=
while [ "$1" != "" ]; do
  $endoptions ||
  case "$1" in
  --) endoptions=:; shift; continue;;
  -m) shift; mdc="$1"; shift; continue;;
  -s) keepsuffix=false; shift; suf="$1"; shift; continue;;
  esac
  $keepsuffix && suf="`echo \"$1\" | sed -ne 's/.*\(\.[^.][^.]*\)$/\1/p'`"
  mds="`openssl \"$mdc\" \"$1\" | sed -ne 's/.*= \(.*\)/\1/p'`"
  dst="`dirname \"$1\"`"/"$mds$suf"
  if [ ! -f "$dst" ]; then
    echo mv "$1" "$dst"
    mv "$1" "$dst" &&
    case "$me" in
    *ln*)
      echo ln -s "$dst" "$1"
      ln -s "$dst" "$1"
      ;;
    esac
  else
    echo "already exists $dst for $1"
  fi
  shift
done

#!/bin/sh
me="`basename \"$0\"`"
if [ $# -lt 1 ]; then
  cat <<EOF
$me - find same files by message digest
usage:
	$me find_pathname ... [find_expression ...]
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi
mdc=md5
c=0
find "$@" -type f ! -type l -print | while read file; do
  mds="`openssl \"$mdc\" \"$file\" | sed -ne 's/.*= \(.*\)/\1/p'`"
  echo $mds	"$file"
done | sort | while read mds1 file1; do
  if [ "$c" = 0 ]; then
    mds0="$mds1"
    file0="$file1"
    flag=false
  else
    if [ "$mds1" = "$mds0" ]; then
      [ "$c" = 1 ] &&
      echo "$file0"
      echo "$file1"
      flag=:
    else
      mds0="$mds1"
      file0="$file1"
      c=0
      $flag && echo
      flag=false
    fi
  fi
  c=`expr $c + 1`
done

#!/bin/sh
me="`basename \"$0\"`"
if [ "$#" -lt 2 ]; then
  cat <<EOF
$me - copy file to another or copy file(s) into directory
usage:
	$me file file
	$me file(s) directory
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi

copy_one_to_dst(){
  f="$1"
  b="`basename \"$f\"`"
  [ ! -d "$f" ] || return 1
  [ -f "$f" ] || return 1
  if [ -d "$dst" ]; then
    if [ -f "$dst/$b" ]; then
      if cmp "$f" "$dst/$b" > /dev/null 2>&1; then
	return 0
      fi
      ls -Tl "$f" "$dst/$b"
      echo "$me: overwrite:	$f	$dst/$b"
      cp -i -p "$f" "$dst"
      return 0
    fi
    echo cp -p "$f" "$dst"
    cp -p "$f" "$dst"
  else
    if [ -f "$dst" ]; then
      if cmp "$f" "$dst" > /dev/null 2>&1; then
	return 0
      fi
      ls -Tl "$f" "$dst"
      echo "$me: overwrites:	$f	$dst"
      cp -i "$f" "$dst"
      return 0
    fi
    echo cp -p "$f" "$dst"
    cp -p "$f" "$dst"
  fi
  return 0
}

eval dst="\${$#}"
if [ ! -d "$dst" ]; then
  if [ $# -ne 2 ]; then
    echo "$me: error:	[ ! -d \"$dst\" ] && \$#($#) != 2"
  else
    copy_one_to_dst "$1"
  fi
else
  i=1
  while [ $i -lt $# ]; do
    eval src="\${$i}"
    copy_one_to_dst "$src"
    i=`expr $i + 1`
  done
fi

#!/bin/sh
me="`basename \"$0\"`"
if [ "$#" -lt 2 ]; then
  cat <<EOF
$me - move file to another or move file(s) into directory
usage:
	$me file file
	$me file(s) directory
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi

move_one_to_dst(){
  f="$1"
  b="`basename \"$f\"`"
  [ ! -d "$f" ] || return 1
  [ -f "$f" ] || return 1
  if [ -d "$dst" ]; then
    if [ -f "$dst/$b" ]; then
      if cmp "$f" "$dst/$b" > /dev/null 2>&1; then
	echo "$me: remove:	$f"
	rm -i "$f"
	return 0
      fi
      ls -Tl "$f" "$dst/$b"
      echo "$me: overwrite:	$f	$dst/$b"
      mv -i "$f" "$dst"
      [ ! -f "$f" ] || {
        echo "$me: remove:	$f"
        rm -i "$f"
      }
      return 0
    fi
    echo mv "$f" "$dst"
    mv "$f" "$dst"
  else
    if [ -f "$dst" ]; then
      if cmp "$f" "$dst" > /dev/null 2>&1; then
	echo "$me: remove:	$f"
	rm -i "$f"
	return 0
      fi
      ls -Tl "$f" "$dst"
      echo "$me: overwrites:	$f	$dst"
      mv -i "$f" "$dst"
      [ ! -f "$f" ] || {
        echo "$me: remove:	$f"
	rm -i "$f"
      }
      return 0
    fi
    echo mv "$f" "$dst"
    mv "$f" "$dst"
  fi
  return 0
}

eval dst="\${$#}"
if [ ! -d "$dst" ]; then
  if [ $# -ne 2 ]; then
    echo "$me: error:	[ ! -d \"$dst\" ] && \$#($#) != 2"
  else
    move_one_to_dst "$1"
  fi
else
  i=1
  while [ $i -lt $# ]; do
    eval src="\${$i}"
    move_one_to_dst "$src"
    i=`expr $i + 1`
  done
fi

#!/bin/sh
me="`basename \"$0\"`"
if [ "$#" -lt 2 ]; then
  cat <<EOF
$me - overwrite file to another or overwrite file(s) into directory
usage:
	$me file file
	$me file(s) directory
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
  exit
fi

overwrite_one_to_dst(){
  f="$1"
  b="`basename \"$f\"`"
  [ ! -d "$f" ] || return 1
  [ -f "$f" ] || return 1
  if [ -d "$dst" ]; then
    if [ -f "$dst/$b" ]; then
      if cmp "$f" "$dst/$b" > /dev/null 2>&1; then
	return 0
      fi
      ls -Tl "$f" "$dst/$b"
      echo "$me: overwrite:	$f	$dst/$b"
      cp -i -p "$f" "$dst"
      return 0
    fi
  else
    if [ -f "$dst" ]; then
      if cmp "$f" "$dst" > /dev/null 2>&1; then
	return 0
      fi
      ls -Tl "$f" "$dst"
      echo "$me: overwrites:	$f	$dst"
      cp -i "$f" "$dst"
      return 0
    fi
  fi
  return 0
}

eval dst="\${$#}"
if [ ! -d "$dst" ]; then
  if [ $# -ne 2 ]; then
    echo "$me: error:	[ ! -d \"$dst\" ] && \$#($#) != 2"
  else
    overwrite_one_to_dst "$1"
  fi
else
  i=1
  while [ $i -lt $# ]; do
    eval src="\${$i}"
    overwrite_one_to_dst "$src"
    i=`expr $i + 1`
  done
fi

#!/bin/ksh
reverse=false
while [ ! -z "$1" ]; do
  case "$1" in
  --reverse) reverse=:;;
  *) break;;
  esac
  shift
done

rdiff(){
  rdiff_args=("$@")
  files=("${rdiff_args[${#rdiff_args[@]}-2]}" "${rdiff_args[${#rdiff_args[@]}-1]}")
  $reverse && files=("${rdiff_args[${#rdiff_args[@]}-1]}" "${rdiff_args[${#rdiff_args[@]}-2]}")
  for ((i=0; i<${#rdiff_args[@]}-2; i++)); do
    rdiff_opts[$i]="${rdiff_args[$i]}"
  done

  equiv_path=
  for i in 0 1; do
    case "${files[$i]}" in
    *:) equiv_path=$(echo "${files[($i+1)%2]}" | sed 's/^.*://');;
    esac
  done
  for i in 0 1; do
    case "${files[$i]}" in
    */)
      case "${files[($i+1)%2]}" in
      */) ;;
      *) files[$i]+=$(basename "${files[($i+1)%2]}");;
      esac
    esac
  done

  for i in 0 1; do
    case "${files[$i]}" in
    *:*)
      eval $(echo "${files[$i]}" | sed -e 's|\([^:]*\):\([^:]*\)|host=\1;path=\2|')
      if [ -z "$path" -a -n "$equiv_path" ]; then
        path="$equiv_path"
      fi
      [ -z "$equiv_path" ] || case "$path" in
        [^/]*)
          prefix=$(pwd | sed "s|^$HOME/||")
	  path="$prefix/$path"
          ;;
      esac
      if [ -z "$host" ]; then
        files[$i]="$path"
      else
        files[$i]="<(ssh $host cat \"$path\" 2> /dev/null)"
      fi
      ;;
    esac
  done
  echo diff "${rdiff_opts[@]}" "${files[@]}"
  eval diff "${rdiff_opts[@]}" "${files[@]}"
}

args=("$@")
case "${args[${#args[@]}-1]}" in
*:|*/)
  for ((i=0; i<${#args[@]}; i++)); do
    case "${args[$i]}" in
    -*) opts[$i]="${args[$i]}";;
    *) break;;
    esac
  done
  for ((j=i; j<${#args[@]}-1; j++)); do
    rdiff "${opts[@]}" "${args[$j]}" "${args[${#args[@]}-1]}"
  done
  ;;
*)
  rdiff "$@";;
esac

#!/bin/sh
swapapair(){
  if [ "$1" = "$2" ]; then
    :
  elif [ -f "$1" -a -f "$2" ]; then
    tmpname="$1.tmp"
#    name="`basename $1`"; tmpname="`mktemp \"./$name.XXXXXX\"`"
    mv "$1" $tmpname
    mv "$2" "$1"
    mv $tmpname "$2"
  elif [ -f "$1" -a ! -f "$2" ]; then
    mv "$1" "$2"
  elif [ ! -f "$1" -a -f "$2" ]; then
    mv "$2" "$1"
  fi
}
l=1
u=$#
if [ $# = 0 ]; then
  me="`basename \"$0\"`"
  cat <<EOF
$me - swap filename(s)
usage:
        $me file1 file2 ...
EOF
  exit
fi
while [ $l -lt $u ]; do
  eval lfile="\${$l}"
  eval ufile="\${$u}"
  echo swapapair "$lfile" "$ufile"
  swapapair "$lfile" "$ufile"
  l=`expr $l + 1`
  u=`expr $u - 1`
done

#!/bin/sh
swapapair(){
  if [ "$1" = "$2" ]; then
    :
  elif [ -f "$1" -a -f "$2" ]; then
#    tmpname="$1.tmp"
    name="`basename $1`"; tmpname="`mktemp \"./$name.XXXXXX\"`"
    mv "$1" $tmpname
    mv "$2" "$1"
    mv $tmpname "$2"
  elif [ -f "$1" -a ! -f "$2" ]; then
    mv "$1" "$2"
  elif [ ! -f "$1" -a -f "$2" ]; then
    mv "$2" "$1"
  fi
}
n=1
while [ "$1" != "" ]; do
  case "$1" in
  --) shift; break;;
  -n) shift; n="$1";;
  *) break;
  esac
  shift
done
i=1
if [ $# = 0 ]; then
  me="`basename \"$0\"`"
  cat <<EOF
$me - rotate filename(s)
usage:
	$me [-n number] file1 file2 ...
EOF
  exit
fi
sed_script=
while [ $i -lt $# ]; do
  j=`expr \( $i - 1 + $# + $n \) % $# + 1`
  eval ifile="\${$i}"
  eval jfile="\${$j}"
  ifile="`echo \"$ifile\" | sed -e \"$sed_script\"`"
  echo swapapair "$ifile" "$jfile"
  swapapair "$ifile" "$jfile"
  i=`expr $i + 1`
  sed_script="${sed_script}s:^$jfile\$:$ifile:;"
done

#!/bin/sh
prefix(){
  echo "$1" | sed -e 's|\(\.[^./]*\)$||'
}
suffix(){
  echo "$1" | sed -ne 's|^\(.*\)\(\.[^./]*\)$|\2|p'
}
me="`basename \"$0\"`"
unar_types='
lzh
zip
tar
taz
tgz
tbz2
tlz
txz
7z
t7z
cpio
cpz
cpgz
cpbz2
cplz
cpxz
pax
paz
pgz
pbz2
plz
pxz
xar

rpm
rar
'
ar_types='
lzh
zip
tar
taz
tgz
tbz2
tlz
txz
7z
t7z
cpio
cpz
cpgz
cpbz2
cplz
cpxz
pax
paz
pgz
pbz2
plz
pxz
xar
'
usage(){
  cat <<EOF
usage:
	rear.sh [-h|--help] [-l] [-f art] -t art archive.art [...]
	unar.sh [-h|--help] [-l] [-f art] archive.art [...]
	ar.sh [-h|--help] [-l] -t art directory [...]
requirement(s):
	tar, compress, uncompress, lha, gzip, unzip, zip, bzip2,
	lzma, xz, cpio, pax, xar, unrar and
	rpmtocpout (see rpmtocpout.c) for RPM format
source archive type:
	`for art in $unar_types; do printf "%s, " $art; done; echo ..`
target archive type:
	`for art in $ar_types; do printf "%s, " $art; done; echo ..`
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
}
presuffix(){
  pre="`prefix \"$1\"`"
  suf="`suffix \"$1\"`"
  pre0="$pre"
  suf0="$suf"
  while [ "$suf0" != "" ]; do
    pre1="`prefix \"$pre0\"`"
    suf1="`suffix \"$pre0\"`$suf"
    [ "$suf0" = "$suf1" ] && break
    case "$suf1" in
    .tar.Z|.tar.gz|.tar.bz2|.tar.lzma|.tar.xz|.tar.7z)	pre="$pre1"; suf="$suf1"; break	;;
    .cpio.Z|.cpio.gz|.cpio.bz2|.cpio.lzma|.cpio.xz)	pre="$pre1"; suf="$suf1"; break	;;
    .pax.Z|.pax.gz|.pax.bz2|.pax.lzma|.pax.xz)		pre="$pre1"; suf="$suf1"; break	;;
    esac
    pre0="$pre1"
    suf0="$suf1"
  done
}
preferedsuffix(){
  case "$1" in
  .taz)		echo .tar.Z	;;
  .tgz)		echo .tar.gz	;;
  .tbz2)	echo .tar.bz2	;;
  .tlz)		echo .tar.lzma	;;
  .txz)		echo .tar.xz	;;
  .t7z)		echo .tar.7z	;;
  .cpz)		echo .cpio.Z	;;
  .cpgz)	echo .cpio.gz	;;
  .cpbz2)	echo .cpio.bz2	;;
  .cplz)	echo .cpio.lzma	;;
  .cpxz)	echo .cpio.xz	;;
  .paz)		echo .pax.Z	;;
  .pgz)		echo .pax.gz	;;
  .pbz2)	echo .pax.bz2	;;
  .plz)		echo .pax.lzma	;;
  .pxz)		echo .pax.xz	;;
  *)		echo "$1"	;;
  esac
}
check_ar_types(){
  for t in $ar_types; do
    [ "$t" = "$1" ] && break
  done
}
art_lzh(){	lha "$1"; }
art_zip(){	unzip -Z "$1"; }
art_tar(){	tar tf "$1"; }
art_taz(){	uncompress "$1"	| tar tf -; }
art_tgz(){	gzip -dc "$1"	| tar tf -; }
art_tbz2(){	bzip2 -dc "$1"	| tar tf -; }
art_tlz(){	lzma -dc "$1"	| tar tf -; }
art_txz(){	xz -dc "$1"	| tar tf -; }
art_7z(){	7z l "$1"; }
art_t7z(){	7z x -so "$1"	| tar tf -; }
art_cpio(){	cpio -it --quiet -I "$1"; }
art_cpZ(){	cpio -it --quiet -I "$1"; }
art_cpgz(){	cpio -it --quiet -I "$1"; }
art_cpbz2(){	cpio -it --quiet -I "$1"; }
art_cplz(){	cpio -it --quiet -I "$1"; }
art_cpxz(){	cpio -it --quiet -I "$1"; }
#art_pax(){	pax -f "$1"; }
art_pax(){	cpio -it --quiet -I "$1"; }
art_paz(){	cpio -it --quiet -I "$1"; }
art_pgz(){	cpio -it --quiet -I "$1"; }
art_pbz2(){	cpio -it --quiet -I "$1"; }
art_plz(){	cpio -it --quiet -I "$1"; }
art_pxz(){	cpio -it --quiet -I "$1"; }
art_xar(){	xar -tf "$1"; }

art_rpm(){	rpmtocpout "$1"	| cpio -it --quiet; }
art_rar(){	unrar l "$1"; }

unar_lzh(){	lha xqf "$1"; }
unar_zip(){	unzip -qo "$1"; }
unar_tar(){	tar xf "$1"; }
unar_taz(){	uncompress "$1"	| tar xf -; }
unar_tgz(){	gzip -dc "$1"	| tar xf -; }
unar_tbz2(){	bzip2 -dc "$1"	| tar xf -; }
unar_tlz(){	lzma -dc "$1"	| tar xf -; }
unar_txz(){	xz -dc "$1"	| tar xf -; }
unar_7z(){	7z x "$1"; }
unar_t7z(){	7z x -so "$1"	| tar xf -; }
unar_cpio(){	cpio -idm --quiet -I "$1"; }
unar_cpz(){	cpio -idm --quiet -I "$1"; }
unar_cpgz(){	cpio -idm --quiet -I "$1"; }
unar_cpbz2(){	cpio -idm --quiet -I "$1"; }
unar_cplz(){	cpio -idm --quiet -I "$1"; }
unar_cpxz(){	cpio -idm --quiet -I "$1"; }
#unar_pax(){	pax -r -f "$1"; }
unar_pax(){	cpio -idm --quiet -I "$1"; }
unar_paz(){	cpio -idm --quiet -I "$1"; }
unar_pgz(){	cpio -idm --quiet -I "$1"; }
unar_pbz2(){	cpio -idm --quiet -I "$1"; }
unar_plz(){	cpio -idm --quiet -I "$1"; }
unar_pxz(){	cpio -idm --quiet -I "$1"; }
unar_xar(){	xar -xf "$1"; }

unar_rpm(){	rpmtocpout "$1"	| cpio -idm --quiet; }
unar_rar(){	unrar x "$1"; }

ar_lzh(){	lha cq "$@"; }
ar_zip(){	zip -rq "$@"; }
ar_tar(){	tar cf "$@"; }
ar_taz(){	f="$1" && shift && tar cf - "$@" | compress -c	> "$f"; }
ar_tgz(){	f="$1" && shift && tar cf - "$@" | gzip -c	> "$f"; }
ar_tbz2(){	f="$1" && shift && tar cf - "$@" | bzip2 -c	> "$f"; }
ar_tlz(){	f="$1" && shift && tar cf - "$@" | lzma -c	> "$f"; }
ar_txz(){	f="$1" && shift && tar cf - "$@" | xz -c	> "$f"; }
ar_7z(){	7z a "$@"; }
ar_t7z(){	f="$1" && shift && tar cf - "$@" | 7z a -si "$f"; }
ar_cpio(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -O "$f"; }
ar_cpz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -ZO "$f"; }
ar_cpgz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -zO "$f"; }
ar_cpbz2(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -jO "$f"; }
#ar_cplz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet --lzma -O "$f"; }
ar_cplz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet | lzma -c	> "$f"; }
#ar_cpxz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -JO "$f"; }
ar_cpxz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet | xz -c		> "$f"; }
ar_pax(){	pax -w -f "$@"; }
ar_paz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -H ustar -ZO "$f"; }
ar_pgz(){	pax -w -zf "$@"; }
ar_pbz2(){	pax -w -jf "$@"; }
#ar_plz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -H ustar --lzma -O "$f"; }
ar_plz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -H ustar | lzma -c	> "$f"; }
#ar_pxz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -H ustar -JO "$f"; }
ar_pxz(){	f="$1" && shift && find "$@" -print0 | cpio -o0 --quiet -H ustar | xz -c	> "$f"; }
ar_xar(){	xar -cf "$@"; }

setunar(){
  [ "$fart" = "" ] || { unar="unar_${fart}"; presuffix "$1"; return; }
  unar="7z"
  presuffix "$1"
  [ "$suf" = "" ] || {
    case "$suf" in
    .jar)	unar=zip	;;
    .tar.Z)	unar=taz	;;
    .tar.gz)	unar=tgz	;;
    .tar.bz2|.tbz)	unar=tbz2	;;
    .tar.lzma)	unar=tlz	;;
    .tar.xz)	unar=txz	;;
    .tar.7z)	unar=t7z	;;
    .cpio.Z)	unar=cpz	;;
    .cpio.gz)	unar=cpgz	;;
    .cpio.bz2)	unar=cpbz2	;;
    .cpio.lzma)	unar=cplz	;;
    .cpio.xz)	unar=cpxz	;;
    .pax.Z)	unar=paz	;;
    .pax.gz)	unar=pgz	;;
    .pax.bz2)	unar=pbz2	;;
    .pax.lzma)	unar=plz	;;
    .pax.xz)	unar=pxz	;;
    *)	unar="`echo \"$suf\" | sed -e 's|^\.||'`"	;;
    esac
  }
  art="art_${unar}"
  unar="unar_${unar}"
}
listing=false
fart="`basename \"$0\" .sh | sed -n 's/\(.*\)to\(.*\)/\1/p'`"
tart="`basename \"$0\" .sh | sed -n 's/\(.*\)to\(.*\)/\2/p'`"
while [ "$1" != "" ]; do
  case "$1" in
  --)	shift; break	;;
  -h|--help)	usage; exit 0	;;
  -f)	shift; fart="$1"	;;
  -t)	shift; tart="$1"	;;
  -l)	listing=:	;;
  --list)
    for unar in $unar_types; do
      for ar in $ar_types; do
	[ "$unar" != "$ar" ] || continue
	echo "${unar}to${ar}".sh
      done
    done
    exit 0
    ;;
  *)	break	;;
  esac
  shift
done

if $listing; then
  while [ "$1" != "" ]; do
    [ ! -d "$1" ] || { find "$1" -print; shift; continue; }
    setunar "$1"
    "$art" "$1"
    shift
  done
  exit 0
fi
case "$me" in
unar.sh)
  while [ "$1" != "" ]; do
    setunar "$1"
    b="`basename \"$pre\"`"
    mkdir -p "$b" && (
      cd "$b" && "$unar" ../"$1"
    ) &&
    echo unarchived from "$1" to "$b"/
    shift
  done
  ;;
ar.sh)
  check_ar_types "$tart" && ar="ar_${tart}" || { usage; exit 1; }
  x="`preferedsuffix \".$tart\"`"
  while [ "$1" != "" ]; do
    [ -d "$1" ] || continue
    b="`basename \"$1\"`"
    d="$b$x"
    "$ar" "$d" "$1" &&
    echo archived from "$1"/ to "$d"
    shift
  done
  ;;
rear.sh|*)
  check_ar_types "$tart" && ar="ar_${tart}" || { usage; exit 1; }
  x="`preferedsuffix \".$tart\"`"
  t="`mktemp -d tmp_\"$me\"-XXXXXX`"
  while [ "$1" != "" ]; do
    setunar "$1"
    b="`basename \"$pre\"`"
    d="$pre$x"
    mkdir -p "$t/$b" && (
      cd "$t/$b" && "$unar" ../../"$1" && "$ar" ../../"$d" .
    ) &&
    touch -r "$1" "$d"
    echo rearchived from "$1" to "$d"
    rm -rf "$t/$b"
    shift
  done
  rm -rf "$t"
  ;;
esac

#!/bin/sh
#
# code2html.sh
#
# Copyright (C) 2007,2014 Taiji Yamada <taiji@aihara.co.jp>
#
me="`basename \"$0\"`"
usage(){
  cat <<EOF
$me - converts plain text to HTML text, <pre>stdin</pre>, <fieldset><legend>filename</legend><pre>file</pre></fieldset> and so on
usage:
	$me -c string [...]
	$me - < pathname
	$me pathname [...]
author(s):
	Taiji Yamada <taiji@aihara.co.jp>
EOF
}
code2text(){
  LC_ALL=C sed 's|&|\&amp;|g;s|<|\&lt;|g;s|>|\&gt;|g'
}
code2pre(){
  cat <<EOF
<pre>`code2text`
</pre>
EOF
}
code2fieldset(){
  cat <<EOF
<fieldset>
<legend><code>$1</code></legend>
`cat "$1" | code2pre`
</fieldset>
EOF
}
while [ "$1" != "" ]; do
  case "$1" in
  -h|--help)	usage; exit 0		;;
  -)		code2pre; exit		;;
  -c)	shift;	echo "$@" | code2text; exit	;;
  *)		code2fieldset "$1"	;;
  esac
  shift
done

#!/bin/ksh
#
# content-html.sh
#
# Copyright (C) 2007,2014 Taiji Yamada <taiji@aihara.co.jp>
#
printindent(){
  [ ! "$1" -gt 0 ] || printf '%+*c' `expr "$1" \* 2` ' '
}
n=0
LC_ALL=C sed -ne 's/^[	 ]*<h\([2-9]\)><a name="\([^"][^"]*\)"[	 ]*><\/a>\(.*\)<\/h\1>.*$/\1	\2	\3/p;s/^[	 ]*<h\([2-9]\)[	 ][	]*id="\([^"][^"]*\)"[	 ]*>\(.*\)<\/h\1>.*$/\1	\2	\3/p' "$1" |
while IFS='	' read level name title; do
  eval contents_${n}_level='${level}'
  eval contents_${n}_name='${name}'
  eval contents_${n}_title='${title}'
  n=`expr $n + 1`
done
echo "<h2>Contents</h2>"
l=1
i=0
while [ $i -lt $n ]; do
  eval level="\$contents_${i}_level"
  eval name="\$contents_${i}_name"
  eval title="\$contents_${i}_title"
  while [ $l -lt $level ]; do
    indent=`expr $l - 2 + 1`
    printindent $indent
    echo "<ul>"
    l=`expr $l + 1`
  done
  while [ $l -gt $level ]; do
    indent=`expr $l - 2`
    printindent $indent
    echo "</ul>"
    if [ $l -gt 2 ]; then
      printindent $indent
      echo "</li>"
    fi
    l=`expr $l - 1`
  done
  indent=`expr $l - 2 + 1`
  printindent $indent
  printf "<li><a href=\"#%s\"\t>%s</a>" "$name" "$title"
  i=`expr $i + 1`
  if [ $i -lt $n ] && eval next_level="\$contents_${i}_level" && [ $level -lt $next_level ]; then
    echo
  else
    echo "</li>"
  fi
done
while [ $l -gt 1 ]; do
  indent=`expr $l - 2`
  printindent $indent
  echo "</ul>"
  if [ $l -gt 2 ]; then
    printindent $indent
    echo "</li>"
  fi
  l=`expr $l - 1`
done

#!/bin/ksh
#
# html-content.sh
#
# Copyright (C) 2007,2014 Taiji Yamada <taiji@aihara.co.jp>
#
me="`basename \"$0\"`"
LC_ALL=C sed -ne '/^[	 ]*<h2>Contents<\/h2>/,/^[	 ]*<h\([2-9][^>]*\)>\(.*\)<\/h\1>/{
  /^[	 ]*<h\([2-9][^>]*\)>\(.*\)<\/h\1>/{
    /^[	 ]*<h2>Contents<\/h2>/!q
    d
  }
  /^[	 ]*<ul>/{
    g
    s/$/\./
    h
    d
  }
  /^[	 ]*<\/ul>/{
    g
    s/\.$//
    h
    d
  }
  /^[	 ]*<li><a href="#\([^"]*\)"[	 ]*>\([^<]*\).*$/{
    s/^[	 ]*<li><a href="#\([^"]*\)"[	 ]*>\([^<]*\).*$/\1	\2/
    G
    s/^\(.*\)\n\([^\n]*\)$/\2	\1/
    p
  }
}' "$1" | while IFS='	' read level name title; do
  level="$level "
  level=${#level}
  case "$me" in
  *html5-*)
    printf "<h%u id=\"%s\"\t>%s</h%u>\n\n" $level "$name" "$title" $level;
    ;;
  *)
    printf "<h%u><a name=\"%s\"\t></a>%s</h%u>\n\n" $level "$name" "$title" $level;
    ;;
  esac
done

#!/bin/ksh
#
# biblio-html.sh
#
# Copyright (C) 2014 Taiji Yamada <taiji@aihara.co.jp>
#
me="`basename \"$0\"`"
i=0
n=0
LC_ALL=C sed -ne '/<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>/{
  s/^/#/
  s/<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>/\
\1	\2\
#/g
  p
}
' "$1" | LC_ALL=C sed -e '/^#/d' |
while IFS='	' read url title; do
  echo "$i	$url	$title"
  i=`expr $i + 1`
done | LC_ALL=C sort -k 2 | LC_ALL=C uniq -f 1 | LC_ALL=C sort -n | while IFS='	' read i url title; do
  eval biblios_${n}_url="\$url"
  eval biblios_${n}_title="\$title"
  n=`expr $n + 1`
done

[ "$n" != 0 ] || exit 0
case "$me" in
*-html5*)
  cat <<EOF
<h2 id="bibliography"	>Bibliography</h2>
EOF
  ;;
*)
  cat <<EOF
<h2><a name="bibliography"	></a>Bibliography</h2>
EOF
  ;;
esac
cat <<EOF
<ol>
EOF
i=0
while [ $i -lt $n ]; do
  eval url="\$biblios_${i}_url"
  eval title="\$biblios_${i}_title"
  echo "  <li><a href=\"$url\"	>$title</a></li>"
  i=`expr $i + 1`
done
cat <<EOF
</ol>
EOF

	:
LC_ALL=C sed -ne '
/<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>\(.*\)$/{
  /^<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>\(.*\)$/{
    h
    s/<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>\(.*\)$/\1	\2/p
    x
    s/<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>\(.*\)$/\3/
  }
  /^<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>\(.*\)$/!{
    s/<a[	 ][	 ]*href="\([-a-z][-a-z]*:\/\/[^"][^"]*\)"[	 ]*>\([^<]*\)<\/a>\(.*\)$/\
&/
  }
  D
}
' "$1" |
	:

入力プレーンテキスト：

出力 HTML：

入力プレーンテキスト：

出力 HTML：

入力プレーンテキスト：

出力 HTML：