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 !