1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
!reset slib_xyz slib_ff
!!calcul de slib_ff et slib_xyz
slib_t=1
slib_tmp=!line $slib_t of $slib_pol
!while # isin $slib_tmp
!advance slib_t
slib_tmp=!line $slib_t of $slib_pol
!endwhile
slib_sfa=!line $slib_t of $slib_pol
slib_sfa=!items2words $slib_sfa
slib_somcnt=!word 1 of $slib_sfa
slib_facecnt=!word 2 of $slib_sfa
slib_sfa=!wordstoitems $slib_sfa
slib_xyz_=!line $[1+$slib_t] to $slib_somcnt+$slib_t of $slib_pol
!for slib_j=1 to $slib_somcnt
slib_tmp=!row $slib_j of $slib_xyz_
slib_tmp=!words2items $slib_tmp
slib_xyz=!append semicolon $slib_tmp to $slib_xyz
!next
slib_ff_=!line $[1+$slib_t+$slib_somcnt] to $[$slib_t+1+$slib_somcnt+$slib_facecnt] of $slib_pol
!for slib_j=1 to $slib_facecnt
slib_tmp=!row $slib_j of $slib_ff_
slib_tmp=!words2items $slib_tmp
slib_ff=!append item [$(slib_tmp[1..$(slib_tmp[1])+1])] to $slib_ff
!next
slib_pr=!exec pari xyz=[$slib_xyz];ff=[$slib_ff]
|
