Subversion Repositories wimsdev

#! /bin/sh

#

# This script regenerates *.def files.

#

# is this file really used?

cd `dirname $0`

maindir=`pwd`

cd ../../../bin

bindir=`pwd`

msg2wims=$bindir/msg2wims

cd $maindir

w_msg2wims_primitives=`grep DF_msgprim ../../../public_html/scripts/primitives/allmsgprim|awk -F "=" '{print $2}'`

export w_msg2wims_primitives w_module wims_exec_parm

w_module=adm/doc.en

deflist="titb keyw datm prev next upbl dat1 dat2"

if [ ! -z "$1" ]; then

 docs=$1

else

 docs=`ls -d [0-9]* | sort -n`

fi

for doc in $docs

do

 echo $doc:

 cd $doc

 for f in *.def

 do

  rm -f .tmp >/dev/null

  f=`echo $f | sed 's/.def$//'`

  if [ -f src/$f ]; then

   for n in $deflist

   do

    awk '/^\!set '$n'=/ {print; exit}' $f.def >>.tmp

   done

   cat >>.tmp <<@

!if \$wims_read_parm!=\$empty

 !goto \$wims_read_parm

!endif

!exit

:content

@

#   wims_exec_parm="src/$f .tmp2"

   size=`$msg2wims src/$f .tmp2`

   cat .tmp2 >>.tmp

   mv .tmp $f.def

  else

   rm -f $f.def

   size=0

  fi

  echo "	$f	$size"

 done 

 rm -f .tmp*

 cd $maindir

done