#!/bin/csh -f
#(ie run the cshell on this but don't read the .cshrc)

#    version = 1.05 of atc 2010 Sep 03
# 2010 Aug 30, 1.05: improve description
# 2010 Aug 30, 1.04: nw now works on Mac OS X, use it!
# 2010 Aug 30, 1.03: transition to Mac OS X - drop nw (name window) calls.
# 2002 May 06, 1.02: functional on Sun
# origin before 1997 jan 2

# Thomas D. Schneider, Ph.D.
# National Institutes of Health
# Gene Regulation and Chromosome Biology Laboratory
# schneidt@mail.nih.gov
# toms@alum.mit.edu (permanent)
# http://alum.mit.edu/www/toms (permanent)

set q = `pwd | sed -e "s|/|@|g"| tr '@' '\012'| tail -1`

switch ($#argv)
  case 1:

#     nw "--------------"
#     nw
#     nw "--------------"
#     nw
#     nw "--------------"

    nw "$q $1"

    echo "$q $1"
    atchange $1

  breaksw

  case 2:

#     nw "=============="
#     nw
#     nw "=============="
#     nw
#     nw "=============="
# 
     nw "$q $1>clear;$2"

    echo "$q $1>clear;$2"
    atchange $1 "clear; $2"

  breaksw
  default:
     echo "usage: atc [at change file] [function to do]"
     echo "atchange the argument, clear screen each time"
  breaksw
endsw