Subversion Repositories wimsdev

Rev

Rev 14816 | Rev 17871 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14816 Rev 15581
Line 46... Line 46...
46 
  src=$def/src
 46 
  src=$def/src
47 
 fi
 47 
 fi
48 
 
 48 
 
49 
 if [ -z "$class_header" ]  && [ ! -z "$wims_doc" ]
 49 
 if [ -z "$class_header" ]  && [ ! -z "$wims_doc" ]
50 
  then
 50 
  then
51 
   class_header=$wims_doc
 51 
    class_header=$wims_doc
52 
   def=$class_header
 52 
    def=$class_header
53 
   src=$class_header/src
 53 
    src=$class_header/src
54 
 fi
 54 
  fi
55 
}
 55 
}
56 
 
 56 
 
57 
clean_doc ( ) {
 57 
clean_doc ( ) {
58 
  deff=`cd $1; ls *.def 2>/dev/null`
 58 
  deff=`cd $1; ls *.def 2>/dev/null`
59 
  for i in $deff
 59 
  for i in $deff
60 
   do
 60 
   do
61 
   dd=${i%.def}
 61 
    dd=${i%.def}
62 
   if [ ! -f $2/$dd ]; then
 62 
    if [ ! -f $2/$dd ]; then
63 
    echo Removing $def/$i.
 63 
     echo Removing $def/$i.
64 
    rm -f $1/$i >/dev/null;
 64 
     rm -f $1/$i >/dev/null;
65 
   fi
 65 
    fi
66 
  done
 66 
  done
67 
}
 67 
}
68 
 
 68 
 
69 
clean_src ( ) {
 69 
clean_src ( ) {
70 
  rm -f $1/.src/* >/dev/null;
 70 
  rm -f $1/.src/* >/dev/null;
71 
  rmdir $1/.src 2>/dev/null;
 71 
  rmdir $1/.src 2>/dev/null;
72 
}
 72 
}
73 
 
 73 
 
74 
## generation des .def
 74 
## generation des .def
75 
gen_doc ( ) {
 75 
gen_doc ( ) {
76 
  def=$1
 76 
  def=$1
77 
  src=$2
 77 
  src=$2
78 
  srcf=`cd $src; ls 2>/dev/null | grep -v '.hd$'`
 78 
  srcf=`cd $src; ls 2>/dev/null | grep -v '.hd$'`
79 
  for i in $srcf
 79 
  for i in $srcf
80 
  do
 80 
  do
81 
   dd=$i.def
 81 
    dd=$i.def
82 
   dh=$i.hd
 82 
    dh=$i.hd
83 
   if [ ! -f $src/$dh ]; then
 83 
    if [ ! -f $src/$dh ]; then
84 
    awk '/^!if/ {exit}; {print}' $def/$dd >$src/$dh 2>/dev/null
 84 
      awk '/^!if/ {exit}; {print}' $def/$dd >$src/$dh 2>/dev/null
85 
   fi
 85 
    fi
86 
   if [ ! -f $def/$dd ] || [ $src/$i -nt $def/$dd ]; then
 86 
    if [ ! -f $def/$dd ] || [ $src/$i -nt $def/$dd ]; then
87 
    rm -f $def/$dd 2>/dev/null
 87 
      rm -f $def/$dd 2>/dev/null
88 
    $wims_home/bin/msg2wims $src/$i tmp
 88 
      $wims_home/bin/msg2wims $src/$i tmp
89 
    cat $src/$dh >$def/$dd 2>/dev/null
 89 
      cat $src/$dh >$def/$dd 2>/dev/null
90 
## make here some perl conversions on the file tmp
 90 
## make here some perl conversions on the file tmp
91 
## as s:</li>\s*<p>\s*<li>:\n</li><li>\n:g;
 91 
## as s:</li>\s*<p>\s*<li>:\n</li><li>\n:g;
92 
    $wims_home/public_html/scripts/docu/conversion.pl tmp
 92 
      $wims_home/public_html/scripts/docu/conversion.pl tmp
93 
    cat <<@ >>$def/$dd
 93 
      cat <<@ >>$def/$dd
94 
!if \$wims_read_parm!=\$empty
 94 
!if \$wims_read_parm!=\$empty
95 
  !goto \$wims_read_parm
 95 
  !goto \$wims_read_parm
96 
!endif
 96 
!endif
97 
!exit
 97 
!exit
98 
 
 98 
 
99 
:content
 99 
:content
100 
@
 100 
@
101 
   cat tmp >>$def/$dd
 101 
   cat tmp >>$def/$dd
102 
  fi
 102 
  fi
103 
 done
 103 
 done
104 
 rm -f tmp
 104 
 rm -f tmp
105 
}
 105 
}
106 
 
 106 
 
107 
index_file () {
 107 
index_file () {
108 
cd $1
 108 
  cd $1
109 
filelist=`ls *.def 2>/dev/null`
 109 
  filelist=`ls *.def 2>/dev/null`
110 
echo >.index
 110 
  echo >.index
111 
for f in $filelist
 111 
  for f in $filelist
112 
do
 112 
  do
113 
 fs=${f%.def}
 113 
    fs=${f%.def}
114 
 tit=`awk -F= '/titb.*=/ {print $2; exit}' $f`
 114 
    tit=`awk -F= '/titb.*=/ {print $2; exit}' $f`
115 
 if [ -n "$tit" ]; then
 115 
    if [ -n "$tit" ]; then
116 
  echo ":$fs
 116 
      echo ":$fs
117 
$tit" >>.index
 117 
$tit" >>.index
118 
 fi
 118 
    fi
119 
done
 119 
  done
120 
}
 120 
}
121 
 
 121 
 
122 
latex2wims ( ) {
 122 
latex2wims ( ) {
123 
    perl $wims_home/public_html/modules/adm/latex2wims/latex2wims.pl --subdir=$1 --docdir=$lastdir --embed=document $2.tex
 123 
  perl $wims_home/public_html/modules/adm/latex2wims/latex2wims.pl --subdir=$1 --docdir=$lastdir --embed=document $2.tex
124 
}
 124 
}
125 
 
 125 
 
126 
## on cherche les parametres $def $src
 126 
## on cherche les parametres $def $src
127 
 
 127 
 
128 
mk_doc ( ) {
 128 
mk_doc ( ) {
129 
 cd $lastdir
 129 
  cd $lastdir
130 
 doc_type $1
 130 
  doc_type $1
131 
 if [ ! -d $def ]; then
 131 
  if [ ! -d $def ]; then
132 
  echo Directory $def not found.
 132 
    echo Directory $def not found.
- 
 
 133 
    def=.
- 
 
 134 
    src=$def/src
133 
  exit;
 135 
    ##exit;
134 
 fi
 136 
  fi
135 
 if [ ! -d $src ]; then
 137 
 if [ ! -d $src ]; then
136 
  echo Directory $src not found.
 138 
  echo Directory $src not found.
137 
  exit;
 139 
  exit;
138 
 fi
 140 
 fi
139 
 ##latex2wims
 141 
 ##latex2wims
140 
 if [ -f "$lastdir/doc/srctex/0index" ]; then
 142 
 if [ -f "$lastdir/doc/srctex/0index" ]; then
141 
  cd "$lastdir/doc/srctex"
 143 
    cd "$lastdir/doc/srctex"
142 
  cat 0index | while read dd
 144 
    cat 0index | while read dd
143 
   do
 145 
     do
144 
     if [ ! -z "${dd}" ] ; then latex2wims ${dd}; fi
 146 
       if [ ! -z "${dd}" ] ; then latex2wims ${dd}; fi
145 
   done
 147 
     done
146 
fi
 148 
  fi
147 
cd $lastdir
 149 
  cd $lastdir
148 
## cleaning file.def where file has been deleted
 150 
  ## cleaning file.def where file has been deleted
149 
 clean_doc $def $src
 151 
  clean_doc $def $src
150 
## cleaning .src if it exists
 152 
  ## cleaning .src if it exists
151 
 clean_src $def
 153 
  clean_src $def
152 
## generated file *.def
 154 
  ## generated file *.def
153 
  gen_doc $def $src
 155 
  gen_doc $def $src
154 
##definition files
 156 
  ##definition files
155 
  index_file $def
 157 
  index_file $def
156 
}
 158 
}
157 
 
 159 
 
158 
## main program !
 160 
## main program !
159 
 
 161 
 
160 
if [ -f $lastdir/doc/.def ] ; then
 162 
if [ -f $lastdir/doc/.def ] ; then
161 
 doclist=`awk -F'=' '$1=="doclist" {print $2}' $lastdir/var.proc`
 163 
  doclist=`awk -F'=' '$1=="doclist" {print $2}' $lastdir/var.proc`
162 
fi
 164 
fi
163 
if [ -z "$doclist" ]; then doclist="1" ; fi
 165 
if [ -z "$doclist" ]; then doclist="1" ; fi
164 
for l in $doclist; do mk_doc $l; echo "" ; echo "$l done"; done
 166 
for l in $doclist; do mk_doc $l; echo "" ; echo "$l done"; done
165 
 
 167 
 
166 
### in case of a class, the parameter of doc ()  do not mind !
 168 
### in case of a class, the parameter of doc ()  do not mind !