Subversion Repositories wimsdev

#! /bin/sh

## global variable
thisdir=`pwd`
lastdir=$thisdir
if [ -z "$wims_home" ]; then wims_home=$1; fi;
if [ -z "$wims_home" ]; then wims_home=$w_wims_home; fi
## use in bin/mkindex
if [ -z "$w_wims_class" ] ; then wims_doc=$2 ; fi

while [ -z "$wims_home" ] && [ "$lastdir" != "/" ]
do
 wims_home=`cat $lastdir/.wimshome 2>/dev/null`
 lastdir=`dirname $lastdir`
done
if [ -z "$wims_home" ]; then
 echo WIMS home directory not found.
 exit;
fi

w_msg2wims_primitives=`grep msgprim $wims_home/public_html/scripts/primitives/allmsgprim | awk -F "=" '{print $2}'`
export w_msg2wims_primitives
### macro : structure of the document : define $def and $src
### the parameter is the name of the directory in doc (not used in a class)
doc_type () {
 test=
 if [ ! -z "$w_wims_class" ]; then
  test=`echo $thisdir | grep '/classes/..$'`
 fi
 if [ ! -z "$test" ] && [ -d $wims_home/log/classes/$w_wims_class ]; then
  class_header=$wims_home/log/classes/$w_wims_class
  ntest=`awk -F'=' '$1=="sharing_doc" {print $2}' $class_header/neighbors`
  if [ ! -z "$ntest" ] && [ -d "$wims_home/log/classes/$ntest/src" ]; then
   class_header=$wims_home/log/classes/$ntest
  fi
### no document like that - come from oef ?
  def=$class_header/def
  src=$class_header/src
  mkdir -p $def
 else
  class_header=
  def=doc/$1
  src=$def/src
 fi

 if [ -z "$class_header" ]  && [ ! -z "$wims_doc" ]
  then
    class_header=$wims_doc
    def=$class_header
    src=$class_header/src
  fi
}

clean_doc ( ) {
  deff=`cd $1; ls *.def 2>/dev/null`
  for i in $deff
   do
    dd=${i%.def}
    if [ ! -f $2/$dd ]; then
     echo Removing $def/$i.
     rm -f $1/$i >/dev/null;
    fi
  done
}

clean_src ( ) {
  rm -f $1/.src/* >/dev/null;
  rmdir $1/.src 2>/dev/null;
}

## generation des .def
gen_doc ( ) {
  def=$1
  src=$2
  srcf=`cd $src; ls 2>/dev/null | grep -v '.hd$'`
  for i in $srcf
  do
    dd=$i.def
    dh=$i.hd
    if [ ! -f $src/$dh ]; then
      awk '/^!if/ {exit}; {print}' $def/$dd >$src/$dh 2>/dev/null
    fi
    if [ ! -f $def/$dd ] || [ $src/$i -nt $def/$dd ]; then
      rm -f $def/$dd 2>/dev/null
      $wims_home/bin/msg2wims $src/$i tmp
      cat $src/$dh >$def/$dd 2>/dev/null
## make here some perl conversions on the file tmp
## as s:</li>\s*<p>\s*<li>:\n</li><li>\n:g;
      $wims_home/public_html/scripts/docu/conversion.pl tmp
      cat <<@ >>$def/$dd
!if \$wims_read_parm!=\$empty
  !goto \$wims_read_parm
!endif
!exit

:content
@
   cat tmp >>$def/$dd
  fi
 done
 rm -f tmp
}

index_file () {
  cd $1
  filelist=`ls *.def 2>/dev/null`
  echo >.index
  for f in $filelist
  do
    fs=${f%.def}
    tit=`awk -F= '/titb.*=/ {print $2; exit}' $f`
    if [ -n "$tit" ]; then
      echo ":$fs
$tit" >>.index
    fi
  done
}

latex2wims ( ) {
  perl $wims_home/public_html/modules/adm/latex2wims/latex2wims.pl --subdir=$1 --docdir=$lastdir --embed=document $2.tex
}

## on cherche les parametres $def $src

mk_doc ( ) {
  cd $lastdir
  doc_type $1
  if [ ! -d $def ]; then
    echo Directory $def not found.
    def=.
    src=$def/src
    ##exit;
  fi
 if [ ! -d $src ]; then
  echo Directory $src not found.
  exit;
 fi
 ##latex2wims
 if [ -f "$lastdir/doc/srctex/0index" ]; then
    cd "$lastdir/doc/srctex"
    cat 0index | while read dd
     do
       if [ ! -z "${dd}" ] ; then latex2wims ${dd}; fi
     done
  fi
  cd $lastdir
  ## cleaning file.def where file has been deleted
  clean_doc $def $src
  ## cleaning .src if it exists
  clean_src $def
  ## generated file *.def
  gen_doc $def $src
  ##definition files
  index_file $def
}

## main program !

if [ -f $lastdir/doc/.def ] ; then
  doclist=`awk -F'=' '$1=="doclist" {print $2}' $lastdir/var.proc`
fi
if [ -z "$doclist" ]; then doclist="1" ; fi
for l in $doclist; do mk_doc $l; echo "" ; echo "$l done"; done

### in case of a class, the parameter of doc ()  do not mind !
### many global variables yet