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 |
|
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 |
|
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 ! |