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