Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Gang, XIAO

slib_example=5,item, a,b,c,d,e,f,g\
5,word, ab cd ef e f g\
5,row, a;b;c;d;e;f\
5,row, a;b;c
!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