Rev 7228 | Rev 7387 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7228 | Rev 7232 | ||
|---|---|---|---|
| Line 26... | Line 26... | ||
| 26 | # along with latex2wims; if not, write to the Free Software |
26 | # along with latex2wims; if not, write to the Free Software |
| 27 | # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
27 | # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| 28 | # |
28 | # |
| 29 | ############################################################################### |
29 | ############################################################################### |
| 30 | # |
30 | # |
| 31 | my ($FILE, $MACRO, $EMBED, $NUMERO, $doc_DIR, $DIR, $author, $email, $worksheet, $SHEET,$ABOUT) ; |
31 | my ($FILE, $MACRO, $EMBED, $NUMERO, $doc_DIR, $DIR, $author, $email, $worksheet, $SHEET,$ABOUT, $SUBDIR) ; |
| 32 | my $verbose = 0; |
32 | my $verbose = 0; |
| 33 | my $depth = 2 ; |
33 | my $depth = 2 ; |
| 34 | my $INDEX = 0 ; |
34 | my $INDEX = 0 ; |
| 35 | my $TOOLTIP = 0 ; |
35 | my $TOOLTIP = 0 ; |
| 36 | my $STYLE = '' ; |
36 | my $STYLE = '' ; |
| Line 40... | Line 40... | ||
| 40 | my $linkout='' ; |
40 | my $linkout='' ; |
| 41 | $worksheet= ''; |
41 | $worksheet= ''; |
| 42 | $SHEET = '' ; |
42 | $SHEET = '' ; |
| 43 | $DIR = ''; |
43 | $DIR = ''; |
| 44 | $doc_DIR = ''; |
44 | $doc_DIR = ''; |
| - | 45 | $SUBDIR='1'; |
|
| 45 | my @SECTIONS = qw(document part chapter section subsection subsubsection); |
46 | my @SECTIONS = qw(document part chapter section subsection subsubsection); |
| 46 | #my @SECTIONS = ( document part entete frame subsection subsubsection ); |
47 | #my @SECTIONS = ( document part entete frame subsection subsubsection ); |
| 47 | #TODO biblio dans un fichier séparé si on a rencontré \begin{thebibliography} Non, |
48 | #TODO biblio dans un fichier séparé si on a rencontré \begin{thebibliography} Non, |
| 48 | # on n'a qu'a mettre cet environnement de type link |
49 | # on n'a qu'a mettre cet environnement de type link |
| 49 | #$doc_DIR=$ENV{'w_docdir'}; |
50 | #$doc_DIR=$ENV{'w_docdir'}; |
| Line 56... | Line 57... | ||
| 56 | last if (!/^--/); |
57 | last if (!/^--/); |
| 57 | if (/^--style=(.*)$/) { $STYLE = $1; } |
58 | if (/^--style=(.*)$/) { $STYLE = $1; } |
| 58 | elsif (/^--macro=(.*)$/) { $MACRO = $1; } |
59 | elsif (/^--macro=(.*)$/) { $MACRO = $1; } |
| 59 | elsif (/^--docdir=(.*)$/){ $doc_DIR = $1; } |
60 | elsif (/^--docdir=(.*)$/){ $doc_DIR = $1; } |
| 60 | elsif (/^--dir=(.*)$/) { $DIR = $1; } |
61 | elsif (/^--dir=(.*)$/) { $DIR = $1; } |
| - | 62 | elsif (/^--subdir=(.*)$/){ $SUBDIR = $1; } |
|
| 61 | elsif (/^--embed=(.*)$/) { $EMBED = $1; } |
63 | elsif (/^--embed=(.*)$/) { $EMBED = $1; } |
| 62 | elsif (/^--verbose$/) { $verbose = 1; } |
64 | elsif (/^--verbose$/) { $verbose = 1; } |
| 63 | elsif (/^--author=(.*)$/){ $author = $1; } |
65 | elsif (/^--author=(.*)$/){ $author = $1; } |
| 64 | elsif (/^--email=(.*)$/) { $email = $1; } |
66 | elsif (/^--email=(.*)$/) { $email = $1; } |
| 65 | elsif (/^--worksheet=(.*)$/) { $worksheet = $1; } |
67 | elsif (/^--worksheet=(.*)$/) { $worksheet = $1; } |
| Line 74... | Line 76... | ||
| 74 | 76 | ||
| 75 | $FILE = $_; |
77 | $FILE = $_; |
| 76 | 78 | ||
| 77 | $DIR = $DIR . '/' if ($DIR) ; |
79 | $DIR = $DIR . '/' if ($DIR) ; |
| 78 | $doc_DIR = $doc_DIR . '/' if ($doc_DIR) ; |
80 | $doc_DIR = $doc_DIR . '/' if ($doc_DIR) ; |
| - | 81 | ||
| - | 82 | my $BASE = $doc_DIR . "doc/$SUBDIR/src"; |
|
| - | 83 | my $BASE0= $doc_DIR . "doc/$SUBDIR"; |
|
| 79 | 84 | ||
| 80 | my $LOAD = '\reload{<img src="gifs/doc/etoile.gif" alt="rechargez" style="width:20px;height:20px;" />}'; |
85 | my $LOAD = '\reload{<img src="gifs/doc/etoile.gif" alt="rechargez" style="width:20px;height:20px;" />}'; |
| 81 | my $FLECHE = '→'; |
86 | my $FLECHE = '→'; |
| 82 | $linkout = "\\doc{module=$linkout}" . $FLECHE if ($linkout) ; |
87 | $linkout = "\\doc{module=$linkout}" . $FLECHE if ($linkout) ; |
| 83 | 88 | ||
| Line 189... | Line 194... | ||
| 189 | return if $errmsg{$x}; |
194 | return if $errmsg{$x}; |
| 190 | $errmsg{$x} = 1; |
195 | $errmsg{$x} = 1; |
| 191 | print STDERR "### $x"; |
196 | print STDERR "### $x"; |
| 192 | }; |
197 | }; |
| 193 | 198 | ||
| 194 | #imposé par wims |
- | |
| 195 | my $BASE = $doc_DIR . 'doc/1/src'; |
- | |
| 196 | my $BASE0= $doc_DIR . 'doc/1'; |
- | |
| 197 | system("mkdir -p $BASE0") if (!$ENV{'wims_exec_parm'}); |
199 | system("mkdir -p $BASE0") if (!$ENV{'wims_exec_parm'}); |
| 198 | system("mkdir -p $BASE") if (!$ENV{'wims_exec_parm'}); |
200 | system("mkdir -p $BASE") if (!$ENV{'wims_exec_parm'}); |
| 199 | 201 | ||
| 200 | $hash{niveau}{'main'} = 0; |
202 | $hash{niveau}{'main'} = 0; |
| 201 | #pour algorithmic |
203 | #pour algorithmic |