Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!!! fichier de traitement des données !!!
2
 
3
## l'étape 3
4
!if $navig!=$etape
5
  rpmat=
6
  rindic=
7
  etape=$navig
8
  !exit
9
!endif
10
 
11
!if $propsrep=$empty
12
  exalert=$(alerts[1;])
13
  !exit
14
!endif
15
 
16
errnp=!itemcnt $propsrep  
17
 
18
!if ($[$propsnb+1] isitemof $propsrep) and $errnp>1
19
  exalert=$(alerts[5;])
20
   propsrep=
21
   !exit
22
!endif
23
 
24
!if ($errnp>1 and $multirep=$empty)
25
  multirep=1
26
!endif
27
 
28
propsrep=!sort numeric item $propsrep
29
chronobs=$[$chronobs+1]
30
rpmat=!append line $propsrep to $rpmat
31
 
32
 
33
temp_indic=!translate $\
34
$ to $ $ in $exo_indic
35
temp_indic=!trim $temp_indic
36
!if $temp_indic=$empty
37
  temp_indic=(0,0)
38
 !else
39
   temp_indic=(1,$temp_indic)
40
!endif
41
 
42
rindic=!append line $temp_indic to $rindic
43
 
44
!if $propsrepList!=$empty
45
  propsrepList=!replace line number $chronobs by $propsrep in $propsrepList
46
!endif
47
 
48
!if $indicList!=$empty
49
  indicList=!replace line number $chronobs by $temp_indic in $indicList
50
!endif
51
 
52
!if $chronobs=$obsnb
53
  etape=$[$etape+1]
54
  propsrepList=$rpmat
55
  indicList=$rindic
56
  rpmat=
57
  rindic=
58
!endif
59
 
60
propsrep=
61
exo_indic=
62
!exit
63