Subversion Repositories wimsdev

Rev

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

Rev 7692 Rev 8352
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
 !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Bernadette, Perrin-Riou
 5 
slib_author=Bernadette, Perrin-Riou
- 
 
 6 
slib_comment=<pre>8 6 12\
- 
 
 7 
 1    1    1\
- 
 
 8 
 1    1   -1\
- 
 
 9 
 1   -1    1\
- 
 
 10 
 1   -1   -1\
- 
 
 11 
-1    1    1\
- 
 
 12 
-1    1   -1\
- 
 
 13 
-1   -1    1\
- 
 
 14 
-1   -1   -1\
- 
 
 15 
4 6 4 0 2\
- 
 
 16 
4 5 1 0 4\
- 
 
 17 
4 7 5 4 6\
- 
 
 18 
4 1 3 2 0\
- 
 
 19 
4 3 7 6 2\
- 
 
 20 
4 7 3 1 5\
- 
 
 21 
0 1\
- 
 
 22 
0 2\
- 
 
 23 
0 4\
- 
 
 24 
1 3\
- 
 
 25 
1 5\
- 
 
 26 
2 3\
- 
 
 27 
2 6\
- 
 
 28 
3 7\
- 
 
 29 
4 5\
- 
 
 30 
4 6\
- 
 
 31 
5 7\
- 
 
 32 
6 7\
- 
 
 33 
</pre>
- 
 
 34 
slib_example=8 6 12; 1 1 1;1 1 -1; 1 -1 1; 1 -1 -1;-1 1 1;-1 1 -1;-1 -1 1;-1 -1 -1;4 6 4 0 2;4 5 1 0 4;4 7 5 4 6;4 1 3 2 0;4 3 7 6 2;4 7 3 1 5;0 1;0 2;0 4;1 3;1 5;2 3;2 6;3 7;4 5;4 6;5 7;6 7
6 
 
 35 
 
7 
!exit
 36 
!exit
8 
 
 37 
 
9 
:proc
 38 
:proc
10 
slib_data = $wims_read_parm
 39 
slib_data = $wims_read_parm
11 
 
 40 
 
12 
slib_option= !item -1 of  $wims_read_parm
 41 
slib_option= !item -1 of $wims_read_parm
13 
 
 42 
 
14 
slib_out=
 43 
slib_out=
15 
 
 44 
 
16 
 
 45 
 
17 
!!********** Lecture des données off
 46 
!!********** Lecture des données off
18 
 
 47 
 
19 
slib_off=$slib_data
 48 
slib_off=$slib_data
- 
 
 49 
slib_off=!replace internal ; by $\
- 
 
 50 
$ in $slib_off
20 
slib_H=1
 51 
slib_H=1
21 
slib_u=!line 1 of $slib_off
 52 
slib_u=!line 1 of $slib_off
22 
slib_nom=!replace internal # by $empty in $slib_u
 53 
slib_nom=!replace internal # by $empty in $slib_u
23 
!while # isin $slib_u
 54 
!while # isin $slib_u
24 
!advance slib_H
 55 
!advance slib_H