Subversion Repositories wimsdev

Rev

Rev 4352 | Rev 7410 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
!goto proc
3
!endif
4161 bpr 4
 
20 reyssat 5
slib_parms=2\
4352 bpr 6
,[data]\
20 reyssat 7
,n
8
 
4330 bpr 9
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
4161 bpr 10
 
4482 bpr 11
slib_example= 5,4\
20 reyssat 12
[2,5],4
3265 bpr 13
slib_require=octave
20 reyssat 14
!exit
15
 
16
:proc
17
slib_out=
18
 
19
!distribute  item $wims_read_parm into slib_data,slib_a
20
slib_data=!declosing $slib_data
4328 bpr 21
slib_cnt=!itemcnt $slib_data
20 reyssat 22
!if $slib_cnt=1
23
	slib_data=1,$slib_data
4328 bpr 24
!endif
4330 bpr 25
!!deprecated syntax
26
!!slib_out=!exec octave t_rnd($slib_a,$slib_data)
27
slib_out=!exec octave trnd($slib_a,$slib_data)
20 reyssat 28
 
4328 bpr 29
slib_out=!trim $slib_out
30
slib_out=!replace internal $\
31
$ by ; in $slib_out
20 reyssat 32
slib_out=!words2items $slib_out