Subversion Repositories wimsdev

Rev

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

Rev 5181 Rev 7269
Line 22... Line 22...
22 
!endif
 22 
!endif
23 
	style=!record 0 of style.css
 23 
	style=!record 0 of style.css
24 
    wims =!record 0 of wims.sty
 24 
    wims =!record 0 of wims.sty
25 
    fichier_test=!record 0 of fichier_test.tex
 25 
    fichier_test=!record 0 of fichier_test.tex
26 
    !filewrite getfile/style.css $style
 26 
    !filewrite getfile/style.css $style
27 
    !filewrite getfile/wims.sty $wims
27 
    !filewrite getfile/wims.sty $wims
28 
    !filewrite getfile/fichier_test.tex  $fichier_test
 28 
    !filewrite getfile/fichier_test.tex  $fichier_test
29
29 
 
30
30 
 
31 
!if $wims_deposit!=noname.file and $wims_deposit!=$empty
 31 
!if $wims_deposit!=noname.file and $wims_deposit!=$empty
32 
  !sh cd $wims_home/$wims_sesdir\
 32 
  !sh cd $wims_home/$wims_sesdir\
33 
  	mkdir -p latex2wims\
 33 
  	mkdir -p latex2wims\
34 
  	mkdir -p getfile\
 34 
  	mkdir -p getfile\
35 
	  mv user-deposit latex2wims/$wims_deposit
 35 
	  mv user-deposit latex2wims/$wims_deposit
Line 37... Line 37...
37 
 
 37 
 
38 
!ifval $exemple=1
 38 
!ifval $exemple=1
39 
    style=!record 0 of style.css
 39 
    style=!record 0 of style.css
40 
    wims =!record 0 of wims.sty
 40 
    wims =!record 0 of wims.sty
41 
    fichier_test=!record 0 of fichier_test.tex
 41 
    fichier_test=!record 0 of fichier_test.tex
42 
    !filewrite wimshome/$wims_sesdir/latex2wims/style.css $style
42 
    !filewrite wimshome/$wims_sesdir/latex2wims/style.css $style
43 
    !filewrite wimshome/$wims_sesdir/latex2wims/wims.sty $wims
43 
    !filewrite wimshome/$wims_sesdir/latex2wims/wims.sty $wims
44 
    !filewrite wimshome/$wims_sesdir/latex2wims/fichier_test.tex  $fichier_test
 44 
    !filewrite wimshome/$wims_sesdir/latex2wims/fichier_test.tex  $fichier_test
45 
    !!!reset exemple
 45 
    !!!reset exemple
46 
!endif
 46 
!endif
47 
 
 47 
 
48 
# Enregistrer
 48 
# Enregistrer
Line 53... Line 53...
53 
fichiers=!replace internal / by , in $test
 53 
fichiers=!replace internal / by , in $test
54 
fichiers=!column -1 of $fichiers
 54 
fichiers=!column -1 of $fichiers
55 
 
 55 
 
56 
Fichiers=!replace internal , by $ $  in $fichiers
 56 
Fichiers=!replace internal , by $ $  in $fichiers
57 
cnt_fichier=!itemcnt $fichiers
 57 
cnt_fichier=!itemcnt $fichiers
58 
!if $cnt_fichier >0
58 
!if $cnt_fichier >0
59 
    date=!sh cd $wims_home/$wims_sesdir/latex2wims; ls -al $Fichiers | awk '{ print $$6 " " $$7 " " $$8 }'
59 
    date=!sh cd $wims_home/$wims_sesdir/latex2wims; ls -al $Fichiers | awk '{ print $$6 " " $$7 " " $$8 }'
60 
    date=!trim $date
60 
    date=!trim $date
61 
    date= !lines2items $date
 61 
    date= !lines2items $date
62 
!endif
62 
!endif
63 
 
 63 
 
64 
!if $cnt_fichier=1
 64 
!if $cnt_fichier=1
65 
  principal=1
 65 
  principal=1
66 
!endif
 66 
!endif
67 
 
 67 
 
68 
 
 68 
 
69 
!if $execut=2 and $cnt_fichier=0
 69 
!if $execut=2 and $cnt_fichier=0
70 
  error=$error fichier
 70 
  error=$error fichier
71 
  execut=1
 71 
  execut=1
72 
!endif
72 
!endif
73 
 
 73 
 
74 
!if $execut=2 and $principal=$empty
 74 
!if $execut=2 and $principal=$empty
75 
  error = $error principal
 75 
  error = $error principal
76 
  execut=1
 76 
  execut=1
77 
!endif
 77 
!endif
Line 98... Line 98...
98 
       !if $list_module=$empty
 98 
       !if $list_module=$empty
99 
         error = $error documentempty
 99 
         error = $error documentempty
100 
       !endif
 100 
       !endif
101 
!endif
 101 
!endif
102 
!if $principal!=$empty and ($execut=2 or $execut=3) and $document!=$empty and $document!=$choix
 102 
!if $principal!=$empty and ($execut=2 or $execut=3) and $document!=$empty and $document!=$choix
- 
 
 103 
   !default subdoc=1
103 
    execut=3
 104 
    execut=3
104 
    !if $confirm=0
105 
    !if $confirm=0
105 
      auth_name1=!word 2 of $auth_name
 106 
      auth_name1=!word 2 of $auth_name
106 
      fichier_p=!item $principal of $fichiers
 107 
      fichier_p=!item $principal of $fichiers
107 
      !!!mexec dos2unix $fichier_p
 108 
      !!!mexec dos2unix $fichier_p
108 
      docdir=$wims_home/public_html/modules/devel/$wims_developer/$document
 109 
      docdir=$wims_home/public_html/modules/devel/$wims_developer/$document
- 
 
 110 
      docdirw=wimshome/public_html/modules/devel/$wims_developer/$document
- 
 
 111 
###common_files ?
- 
 
 112 
      !read $docdir/.def
- 
 
 113 
      !if $common_files=yes
- 
 
 114 
        docfile=doc/files
- 
 
 115 
      !else
- 
 
 116 
        docfile=doc/$subdoc/files
- 
 
 117 
      !endif
109 
      !sh rm -r $docdir/doc/1/* ; mkdir -p $docdir/doc/1/src
 118 
      !sh rm -r $docdir/doc/$subdoc/* ; mkdir -p $docdir/doc/$subdoc/src; mkdir -p $docdir/doc/srctex
- 
 
 119 
!! inutile de passer par le repertoire provisoire - latex2wims envoyait directement des ficiers dans
- 
 
 120 
 
110 
      dir=$wims_home/$wims_sesdir/latex2wims/
 121 
      dir=$wims_home/$wims_sesdir/latex2wims/
- 
 
 122 
!!!forget about that by using just src2def : --author=$auth_name1 --email=$auth_email --verbose=1
111 
      !mexec latex2wims.pl --dir=$dir --docdir=$docdir --author=$auth_name1 --email=$auth_email --worksheet=$wksheet --verbose=1 $fichier_p
 123 
      !!!mexec latex2wims.pl --subdir=$subdoc --dir=$dir --docdir=$docdir --author=$auth_name1 --email=$auth_email --worksheet=$wksheet --verbose=1 $fichier_p
- 
 
 124 
      !sh cp $dir/* $docdir/doc/srctex/
- 
 
 125 
!! create the file OIndex in srctex
112
126 
      Oindex=
- 
 
 127 
      Oindex=!append line $subdoc $fichier_p to $Oindex
- 
 
 128 
      Oindex=!replace internal .tex by in $Oindex
- 
 
 129 
      !filewrite $docdirw/doc/srctex/0index $Oindex
113
130 
 
114 
      images=!sh cd $wims_home\
 131 
      images=!sh cd $wims_home\
115 
      ls $wims_sesdir/latex2wims/*
 132 
      ls $wims_sesdir/latex2wims/*
116 
      images=!replace internal / by , in $images
 133 
      images=!replace internal / by , in $images
117 
      images=!column -1 of $images
 134 
      images=!column -1 of $images
118 
      cnt_images=!itemcnt $images
 135 
      cnt_images=!itemcnt $images
119 
      !for i = 1 to $cnt_images
 136 
      !for i = 1 to $cnt_images
120 
        !if .css isin $(images[$i]) or .sty isin $(images[$i]) or .tex isin $(images[$i])
 137 
        !if .css isin $(images[$i]) or .sty isin $(images[$i]) or .tex isin $(images[$i])
121 
         images=!replace item number $i by in $images
 138 
         images=!replace item number $i by in $images
122 
        !endif
 139 
        !endif
123 
      !next
 140 
      !next
124 
 
 - 
 
- 
 
 141 
!!image transfer
125 
      images=!items2words $images
 142 
      images=!items2words $images
126 
      images=!trim $images
 143 
      images=!trim $images
127 
      images=!singlespace $images
 144 
      images=!singlespace $images
128 
      !sh mkdir -p $docdir/doc/1/files\
 145 
      !sh mkdir -p $docdir/doc/$subdoc/$docfiles\
129 
      for a in $images ; do cp $wims_home/$wims_sesdir/latex2wims/$$a $docdir/doc/1/files/$$a ; done\
 146 
       for a in $images ; do cp $wims_home/$wims_sesdir/latex2wims/$$a $docdir/doc/$doc/$docfiles/$$a ; done
- 
 
 147 
!!now src2def make latex2wims
130 
     cd $docdir \
 148 
       !sh cd $docdir \
131 
     src2def 2>/dev/null
 149 
       src2def 2>/dev/null
132 
   !else
 150 
   !else
133 
    !if $confirm=1
 151 
    !if $confirm=1
134 
      execut=1
 152 
      execut=1
135 
      !reset confirm
 153 
      !reset confirm
136 
    !else
 154 
    !else