mon-systems-make-tarball.sh

#!/bin/sh
#
#
### ==============================
### :FILE-CREATED <Timestamp: #{2011-04-20T19:24:08-04:00Z}#{11163} - by MON KEY>
### :FILE mon-systems/mon-systems-move-to-git.sh
### ==============================
### :NOTE This script won't work unless $DEVHOME is in your environment 
### elisp> (getenv "DEVHOME")
### shell> $DEVHOME
###
### tree --noreport -if -I "*[~#]" /home/sp/HG-Repos/CL-repo-HG/CL-MON-CODE/mon-systems
### 
### $DEVHOME
### No doubt there are better ways of doing this with a shell script, but... 
### I F*CKING HATE SHELL SCRIPTING!!!
### ==============================

### CL_MON_CODE=$DEVHOME/some/path/to/mon

## "$MON_SYSTEM_SRC $MON_SYSTEM_SRC/tests $MON_SYSTEM_TAR"

DEVHOME=$DEVHOME

CL_MON_CODE=$DEVHOME/CL-MON-CODE

MON_SYSTEM_NM="mon-systems"

MON_SYSTEM_SRC=$CL_MON_CODE/mon-systems

MON_SYSTEM_TAR_TOP=$CL_MON_CODE/SYSTEMS-tmp/MS-tmp

MON_SYSTEM_TAR_DIR=$MON_SYSTEM_TAR_TOP/mon-systems

TAR_DATE=$(date '+%Y-%m-%d')

TAR_TARGET_NAME=$MON_SYSTEM_NM

# echo $DEVHOME
# echo $CL_MON_CODE
# echo $MON_SYSTEM_NM
# echo $MON_SYSTEM_SRC
# echo $MON_SYSTEM_TAR_TOP
# echo $MON_SYSTEM_TAR_DIR


# TESTING
#NOT_GIT_DIR=$MON_SYSTEM_TAR/non-existent-dir 

# mon-systems/mon-systems-move-to-git.sh

MON_SYSTEM_FILES="
DEPENDENCIES
LICENSE.txt
README.md
alist.lisp
arrays.lisp
bit-twiddle.lisp
buffer.lisp
char-numeric.lisp
chars.lisp
chronos.lisp
class-doc.lisp
class-utils.lisp
completion.lisp
compose.lisp
conditions.lisp
deprecated.lisp
docs.lisp
emacs-compat.lisp
environ.lisp
file-dir.lisp
file-io.lisp
format.lisp
hash.lisp
introspect.lisp
io.lisp
loadtime-bind.lisp
macros.lisp
make-mon-systems-etags.sh
mon-systems-make-tarball.sh
mon-systems-move-to-git.sh
mon-test.asd
mon.asd
numbers.lisp
package.lisp
plist.lisp
regexp.lisp
seqs.lisp
sldb-specials-deprecated.lisp
specials.lisp
strings.lisp
types.lisp"

# $MON_SYSTEM_SRC/tests
MON_SYSTEM_TEST_FILES="package.lisp
test.lisp
testing.lisp
timing.lisp
timings.lisp
usec-tests.lisp"

#/docs
MON_SYSTEM_DOC_FILE="ifnottex.texinfo
mon-top-level.texinfo
mon.info
mon-systems.texinfo"

ensure_abort_dirs () 
{
    for j in `echo "$MON_SYSTEM_SRC $MON_SYSTEM_SRC/tests $MON_SYSTEM_TAR_DIR"`;do
        if [ ! -d "$j" ]
            then 
            echo "A required directory was non-existent: $j";
            printf "\tdeclining to proceed further\n";
            exit 1;
        fi
  done; 
}

ensure_tests_dir ()
{
    if [ ! -d "$MON_SYSTEM_TAR_DIR/tests" ]
        then
        mkdir -p "$MON_SYSTEM_TAR_DIR/tests";
        echo "Created previously non-existent directory: $MON_SYSTEM_TAR_DIR/tests"
        echo
    fi
}


ensure_readme ()
{
 if [ ! -e $MON_SYSTEM_TAR_DIR/README.md ]
  then
     echo "Creaating empty README file: $MON_SYSTEM_TAR_DIR/README.md"
     echo 
     touch $MON_SYSTEM_TAR_DIR/README.md
  fi
}


ensure_loadtime_bind ()
{
 if [ ! -e $MON_SYSTEM_TAR_DIR/loadtime-bind ]
  then
     echo "Creaating template file: $MON_SYSTEM_TAR_DIR/loadtime-bind"
     printf "\n(\"<USERNAME>\" . \"<MONIKER>\")\n\n" > $MON_SYSTEM_TAR_DIR/loadtime-bind
  fi
}

copy_mon_files ()
{ 
 for f in $MON_SYSTEM_FILES; do 
     if [ ! -e "$MON_SYSTEM_SRC/$f" ]                     # Check if file exists.
     then
        echo ":FILE $MON_SYSTEM_SRC/$f does not exist";  
        echo
        else                         # On to next.
         cp "$MON_SYSTEM_SRC/$f" "$MON_SYSTEM_TAR_DIR/$f";
         echo "Copied :FILE $f"; 
         echo "From   :SOURCE $MON_SYSTEM_SRC/ to :DEST $MON_SYSTEM_TAR_DIR/";
         echo
     fi
 done;
}

# 

copy_mon_test_files ()
{ 
 for f in $MON_SYSTEM_TEST_FILES; do 
     if [ ! -e "$MON_SYSTEM_SRC/tests/$f" ]                     # Check if file exists.
     then
        echo ":FILE $MON_SYSTEM_SRC/tests/$f does not exist";  
        echo
     else                         # On to next.
         # cp `echo $MON_SYSTEM_SRC/tests/$f $MON_SYSTEM_TAR_DIR/tests/$f`;
	 cp $MON_SYSTEM_SRC/tests/$f $MON_SYSTEM_TAR_DIR/tests/$f;
         echo "Copied :FILE $f"; 
         echo "From   :SOURCE $MON_SYSTEM_SRC/tests to :DEST $MON_SYSTEM_TAR_DIR/tests";
         echo
     fi
 done;
}

copy_mon_doc_files ()
{ 
 for f in $MON_SYSTEM_DOC_FILES; do 
     if [ ! -e "$MON_SYSTEM_SRC/docs/$f" ]                     # Check if file exists.
     then
        echo ":FILE $MON_SYSTEM_SRC/docs/$f does not exist";  
        echo
     else                         # On to next.
         # cp `echo $MON_SYSTEM_SRC/tests/$f $MON_SYSTEM_GIT/docs/$f`;
	 cp $MON_SYSTEM_SRC/docs/$f $MON_SYSTEM_GIT/docs/$f;
         echo "Copied :FILE $f"; 
         echo "From   :SOURCE $MON_SYSTEM_SRC/docs to :DEST $MON_SYSTEM_GIT/docs";
         echo
     fi
 done;
}

etags_src ()
{ 
    cd $MON_SYSTEM_SRC
    if [ -e "$MON_SYSTEM_SRC/make-mon-systems-etags.sh" ] 
    then
	./make-mon-systems-etags.sh
	echo "executing make-mon-systems-etags.sh"
     fi
}

etags_after_copy ()
{
 cd $MON_SYSTEM_TAR_DIR
z find . -name '*.lisp' -print | xargs etags -o ./TAGS --language=lisp
 echo "etags created :FILE $MON_SYSTEM_TAR_DIR/TAGS"
 echo
}


tar_it_up ()
{
cd $MON_SYSTEM_TAR_TOP
tar -czvf mon-systems-$TAR_DATE.tgz ./mon-systems
echo "creating tar file mon-systems-$TAR_DATE.tgz in directory: $MON_SYSTEM_TAR_TOP"
}


clean_it_up ()
{ 
 for f in $MON_SYSTEM_FILES; do 
     if [ ! -e "$MON_SYSTEM_TAR_DIR/$f" ]                     # Check if file exists.
     then
        echo ":FILE $MON_SYSTEM_TAR_DIR/$f does not exist";  
        echo
     else                         # On to next.
         rm -f "$MON_SYSTEM_TAR_DIR/$f";
         echo "Removed :FILE $MON_SYSTEM_TAR_DIR/$f"; 
         echo
     fi
 done;
 for f in $MON_SYSTEM_TEST_FILES; do 
     if [ ! -e "$MON_SYSTEM_TAR_DIR/tests/$f" ]                     # Check if file exists.
     then
         echo ":FILE $MON_SYSTEM_TAR_DIR/$f does not exist";  
         echo
     else
         rm -f "$MON_SYSTEM_TAR_DIR/tests/$f";
         echo "Removed :FILE $MON_SYSTEM_TAR_DIR/tests/$f"; 
     fi
 done;
}

echo $MON_SYSTEM_SRC

ensure_abort_dirs
ensure_tests_dir
copy_mon_files
copy_mon_test_files
copy_mon_doc_files
# ensure_readme
ensure_loadtime_bind
etags_src
etags_after_copy
tar_it_up
clean_it_up

exit 0

### ==============================
### EOF