#! /bin/sh
 
#    Feb 14/08 - F.Majaess
 
#id  updcpme - Extract program documentation from program fortran source code
 
#    AUTHOR  - F.Majaess
 
#hd  PURPOSE - "updcpme" script used to extract the documentation 
#hd            from program source code and generate the corresponding
#hd            file with ".dcm" suffix in the local subdirectory.
 
#ex  EXAMPLE: 
#ex
#ex    updcpme $CCRNSRC/source/lspgm/diag/general/xlin.vd

# set -x
if [ -n "$1" ] ; then
  prg="$1"
else
  prg=''
fi
if [ -s "$prg" ] ; then
 ( rm -rf $flname.tmp* in1 fort.* || : )
 Flname=`basename $prg | tr '[a-z]' '[A-Z]' | sed -e 's/\..*\$//' `
 flname=`echo $Flname | tr '[A-Z]' '[a-z]'`
#( echo "%DECK $Flname" ; cat $prg ) > $flname.tmp1
 ( echo "%DECK $Flname" ; cat $prg | sed -e 's/REVISED FOR F90 AND LINUX PLATFORMS) /REVISED FOR F90 AND LINUX PLATFORMS )/' ) > $flname.tmp1
 ( dcxtrct $flname.tmp1 $flname.tmp2 ) > /dev/null
 ( rm -rf $flname.tmp1 || : )
 sort -t~ -k2,2 -o $flname.tmp3 $flname.tmp2 
 ( rm -rf $flname.tmp2 || : )
 touch in1
 ( prdcdoc in1 $flname.tmp3 $flname.tmp4 ) > /dev/null
 ( rm -rf in1 $flname.tmp3 || : )
 cat $flname.tmp4 | sed -n -e '/^PROGRAM /,/^\.\.\.\.:\./p' | sed -e '/^+WEOR/d' > $flname.tmp5
 ( rm -rf $flname.tmp4 || : )
 chmod 644 $flname.tmp5
 if [ "$SITE_ID" = 'Dorval' ] ; then
  chgrp ccrn_shr $flname.tmp5
 fi 
 if [ -s "$flname.dcm" ] ; then
  chmod u+w $flname.dcm
 fi
 mv $flname.tmp5 $flname.dcm
 ls -1 $flname.dcm
fi