Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_title=Randomly selects a number of (different) objects

slib_parms=3\

1,number of objects to select\

item,type of objects (item, row, line, word)\

,input data\

slib_author=Gang Xiao

slib_out=the randomly select objects

!exit

:proc

!distribute items $wims_read_parm into slib_n, slib_type

slib_data=!item 3 to -1 of $wims_read_parm

slib_type=!lower $slib_type

!bound slib_type within item,items,word,words,row,rows,line,lines default item

!if $slib_type iswordof item items

 slib_data=!nonempty items $slib_data

 slib_tot=!itemcnt $slib_data

 !bound slib_n between integer 1 and $slib_tot

 slib_list=!shuffle $slib_tot

 slib_out=!item $(slib_list[1..$slib_n]) of $slib_data

 !exit

!endif

!if $slib_type iswordof word words

 slib_tot=!wordcnt $slib_data

 !bound slib_n between integer 1 and $slib_tot

 slib_list=!shuffle $slib_tot

 slib_out=!word $(slib_list[1..$slib_n]) of $slib_data

 !exit

!endif

!if $slib_type iswordof row rows

 slib_data=!nonempty rows $slib_data

 slib_tot=!rowcnt $slib_data

 !bound slib_n between integer 1 and $slib_tot

 slib_list=!shuffle $slib_tot

 slib_out=!row $(slib_list[1..$slib_n]) of $slib_data

 !exit

!endif

!if $slib_type iswordof line lines

 slib_data=!nonempty line $slib_data

 slib_tot=!linecnt $slib_data

 !bound slib_n between integer 1 and $slib_tot

 slib_list=!shuffle $slib_tot

 slib_out=!line $(slib_list[1..$slib_n]) of $slib_data

 !exit

!endif