# See:
# - http://www.gnu.org/software/coreutils/
# - http://en.wikipedia.org/wiki/GNU_Core_Utilities
# - http://homepage.mac.com/matsuan_tamachan/software/CoreUtils.html
# - http://www.mail-archive.com/bug-gnulib@gnu.org/msg08420.html

# In addition see:
# The Heirloom Project, http://heirloom.sourceforge.net
# http://homepage.mac.com/stefan.tramm/iWiki/HeirloomNotes.html
# http://codesnippets.joyent.com/posts/show/1632


path='
/usr/local/bin 
/usr/local/sbin
/usr/local/lib
/usr/local/include
/usr/local/man
/usr/bin
/bin
/usr/sbin
/sbin
'

path="$(printf "%s" "${path// /}" | /usr/bin/tr '\n' ':' | /usr/bin/sed -E 's/^:|:$//g')"

export PATH="${path}"


echo $PATH
printf "%s\n" "$PATH" | tr ':' '\n'


alias curl=/usr/bin/curl
alias ls=/bin/ls
alias make=/usr/bin/make
alias nl=/usr/bin/nl
alias port=/opt/local/bin/port
alias tr=/usr/bin/tr

alias curl ls make nl port tr


# first compile & install gawk on Mac OS X
# http://www.gnu.org/software/gawk/

cd ~/Desktop
curl -L -O http://ftp.gnu.org/pub/gnu/gawk/gawk-3.1.6.tar.gz
tar -xzf gawk-3.1.6.tar.gz
cd gawk-3.1.6
./configure --help
./configure --disable-nls --prefix=/usr/local
make
/usr/bin/sudo /usr/bin/make install

/usr/local/bin/gawk --version


# alternative gawk installation
# port info gawk
# /usr/bin/sudo /opt/local/bin/port install gawk
# port installed | grep gawk
# /opt/local/bin/gawk --version
# export PATH="/opt/local/bin:${path}"


# compile & install the GNU coreutils

/usr/sbin/gcc_select -h
/usr/sbin/gcc_select -l
/usr/sbin/gcc_select      #  gcc version 4.0.1
#/usr/bin/sudo /usr/sbin/gcc_select 3.3

/usr/bin/sw_vers -productVersion    # 10.4.11

cd ~/Desktop
curl -L -O http://ftp.gnu.org/gnu/coreutils/coreutils-6.9.tar.gz
tar -xzf coreutils-6.9.tar.gz
cd coreutils-6.9
./configure --help
./configure --prefix=/usr/local/gnucoreutils
make
/usr/bin/sudo /usr/bin/make install


open -a Finder /usr/local/gnucoreutils
ls -1 /usr/local/gnucoreutils/bin | nl


export PATH="${PATH}:/usr/local/gnucoreutils/bin"
printf "%s\n" "${PATH}" | tr ':' '\n' | nl


# stat
which stat
/usr/bin/stat -x /dev/stdin
/usr/local/gnucoreutils/bin/stat -x /dev/stdin

/usr/local/gnucoreutils/bin/stat --help
/usr/local/gnucoreutils/bin/stat /dev/stdin

/usr/bin/sudo /bin/ln -is /usr/local/gnucoreutils/bin/stat /usr/local/bin/gnustat
which gnustat
gnustat --version


# ls
ls --version
/usr/bin/sudo /bin/ln -is /usr/local/gnucoreutils/bin/ls /usr/local/bin/gnuls
gnuls --version


# seq
which seq   #  /usr/local/gnucoreutils/bin/seq
/usr/bin/sudo /bin/ln -is /usr/local/gnucoreutils/bin/seq /usr/local/bin
which seq   #  /usr/local/bin/seq

seq --version
seq 5 25
seq 5 0.5 10


# For information on MANPATH see man man, man 5 man.conf and
# the "MANPATH /path/to/mandir" entries in: 
# sudo nano +40 /usr/share/misc/man.conf or 
# sudo nano +40 /private/etc/man.conf
# example: MANPATH /usr/local/gnucoreutils/share/man
# (in general make sure there is no MANPATH directory that is a symbolic link to another directory)

/usr/bin/manpath | tr ':' '\n' | nl
export MANPATH="${MANPATH}:/usr/local/gnucoreutils/share/man"
printf "%s\n" "${MANPATH}" | tr ':' '\n'

man seq

man -aW stat
man -aW stat | grep coreutils | xargs man
man -a stat


man 1 info
info --help
info info 2>/dev/null | less -p INFOPATH
export INFOPATH="${INFOPATH}:/usr/local/gnucoreutils/share/info"

# cf. http://bashcurescancer.com/man/cmd/seq

function seq() {
   declare incr n1 n2 num1 num2
   if [[ $# -eq 1 ]]; then
      /usr/bin/jot $1
   elif [[ $# -eq 2 ]]; then
      n1=$((${2} - ${1} + 1))
      n2=$1
      /usr/bin/jot $n1 $n2
   elif [[ $# -eq 3 ]]; then
      num1=${1}
      incr=${2}
      num2=${3}
      # /usr/bin/awk -v n1=${num1} -v n2=${num2} -v add=${incr} 'BEGIN{ for(i=n1; i<=n2; i+=add) print i;}' | /usr/bin/sed 's/.+e.+/0/'
      /usr/bin/awk -v n1=${num1} -v n2=${num2} -v add=${incr} 'BEGIN{ for(i=n1; i<=n2; i+=add) print i;}' | /usr/bin/sed -E '/e/s/^.+e.+$/0/'
   fi
   return 0
}


seq 25

seq 15 25

seq 15 0.5 25


# cf. http://nat.org/blog/?p=825
for x in `seq -1 .05 1`; do y=`echo "s($x*8)*10+10" | bc -l`; for p in `seq 0 0.1 $y`; do echo -n " "; done; echo "*" ;done
#for x in `seq -1 .05 1`; do y=`echo "s($x*8)*10+10" | bc -l`; for p in `seq 0 $y`; do echo -n " "; done; echo "*" ;done

for x in `seq -5 0.5 5`; do y=`echo "$x*$x" | bc`; for p in `seq 0 0.1 $y`; do echo -n " "; done; echo "*" ;done
#for x in `seq -5 0.5 5`; do y=`echo "$x*$x" | bc`; for p in `seq 0 $y`; do echo -n " "; done; echo "*" ;done


#------------------------------------------------


function seqpad() {
   declare pad num1 num2
   pad=${#2}
   num1=${1}
   num2=${2}
   for ((i=${num1}; i<=${num2}; i++)) { printf "%0${pad}d\n" ${i}; }
   return 0
}

seqpad 1 100


#------------------------------------------------


# alternative with integer test & more built-in commands (instead of jot)

# integer test
function is_int() { return $(test "$@" -eq "$@" >/dev/null 2>&1); }


function seq() {
   declare incr n1 n2 num1 num2
   if [[ $# -eq 1 ]]; then
      if ! $(is_int "$1"); then echo 'No integer!'; return 1; fi
      for ((i=1; i<=${1}; i++)) { printf "%d\n" ${i}; }
   elif [[ $# -eq 2 ]]; then
      if ! $(is_int "$1") || ! $(is_int "$2"); then echo 'Not all arguments are integers!'; return 1; fi

      if [[ $1 -eq $2 ]]; then
         echo $1
      elif [[ $2 -gt $1 ]]; then
         for ((i=${1}; i<=${2}; i++)) { printf "%d\n" ${i}; }
      elif [[ $1 -gt $2 ]]; then
         for ((i=${1}; i>=${2}; i--)) { printf "%d\n" ${i}; }
      fi

   elif [[ $# -eq 3 ]]; then
      num1=${1}
      incr=${2}
      num2=${3}
      #/usr/bin/awk -v n1=${num1} -v n2=${num2} -v add=${incr} 'BEGIN{ for(i=n1; i<=n2; i+=add) print i;}' | /usr/bin/sed 's/.+e.+/0/'
      /usr/bin/awk -v n1=${num1} -v n2=${num2} -v add=${incr} 'BEGIN{ for(i=n1; i<=n2; i+=add) print i;}' | /usr/bin/sed -E '/e/s/^.+e.+$/0/'
   fi
   return 0
}


seq 25
seq 25 25

seq -5 5
seq -10 -5

seq 15 25
seq 15.0 25

seq 25 15
seq 15 0.5 25

seq 25 -0.5 15
seq 15 0.5 25 | tr '\n' ' ' | awk '{for (i=NF;i>=1;i--) printf $i"\n"} END{print ""}'