mentalisttraceur / esceval Goto Github PK

setup_test_data()
{
 d1=`cat "$1"`
 d2="$d1 $d1"
 d4="$d2 $d2"
 d8="$d4 $d4"
 d16="$d8 $d8"
 d32="$d16 $d16"
 d64="$d32 $d32"
 d128="$d64 $d64"
 d256="$d128 $d128"
 d512="$d256 $d256"
 d1024="$d512 $d512"
 d2048="$d1024 $d1024"
}

timed_test_run()
{
 command=$1
 file=$2
 shift 2
 printf '%s :: ' "$command"
 
 start_time=`date +%s`
 "$command" "$@" >"$file"
 end_time=`date +%s`
 printf '%s :: ' "$? $((end_time - start_time))"
 
 start_time=`date +%s`
 captured_output=`"$command" "$@"`
 end_time=`date +%s`
 printf '%s\n' "$? $((end_time - start_time))"
}

esceval0()
{
 case $# in 0) return 0; esac
 (
  b='\\'
  while :
  do
   escaped=`
    printf '%s\n' "'$1" \
    | sed "
     s/'/'$b''/g
     1 s/^'$b''/'/
     $ s/$/'/
    "
   `
   shift
   case $# in 0) break; esac
   printf '%s ' "$escaped"
  done
  printf '%s\n' "$escaped"
 )
}

escevalp()
{
 sed "
  s/'/'\\\\''/g
  1 s/^/'/
  $ s/$/'/
 "
}

esceval1()
{
 case $# in 0) return 0; esac
 (
  set -e
  while :
  do
   escaped=`printf '%s\n' "$1" | escevalp`
   shift
   case $# in 0) break; esac
   printf '%s ' "$escaped"
  done
  printf '%s\n' "$escaped"
 )
}

esceval2()
{
 case $# in 0) return 0; esac
 (
  set -e
  while :
  do
   printf \'
   unescaped=$1
   while :
   do
    case $unescaped in
    *\'*)
     printf %s "${unescaped%%\'*}""'\''"
     unescaped=${unescaped#*\'}
    ;;
    *)
     break
    esac
   done
   printf %s "$unescaped"
   shift
   case $# in 0) break; esac
   printf "' "
  done
  printf "'\n"
 )
}

esceval3()
{
 case $# in 0) return 0; esac
 (
  set -e
  while :
  do
   escaped=\'
   unescaped=$1
   while :
   do
    case $unescaped in
    *\'*)
     escaped=$escaped${unescaped%%\'*}"'\''"
     unescaped=${unescaped#*\'}
     ;;
    *)
     break
    esac
   done
   escaped=$escaped$unescaped\'
   shift
   case $# in 0) break; esac
   printf '%s ' "$escaped"
  done
  printf '%s\n' "$escaped"
 )
}

esceval4()
{
 case $# in 0) return 0; esac
 (
  set -e
  escaped=\'
  while :
  do
   unescaped=$1
   while :
   do
    case $unescaped in
    *\'*)
     escaped=$escaped${unescaped%%\'*}"'\''"
     unescaped=${unescaped#*\'}
     ;;
    *)
     break
    esac
   done
   escaped=$escaped$unescaped"' '"
   shift
   case $# in 0) break; esac
  done
  escaped=${escaped%" '"}
  printf '%s\n' "$escaped"
 )
}

esceval5()
{
 case $# in 0) return 0; esac
 (
  set -e
  while :
  do
   escaped=\'${1//\'/"'\''"}\'
   shift
   case $# in 0) break; esac
   printf "%s " "$escaped"
  done
  printf "%s\n" "$escaped"
 )
}