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