Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_author=Gang, XIAO

!exit

:proc

slib_ltest=!linecnt $wims_read_parm

!if $slib_ltest>1

  slib_inp=!lines2rows $wims_read_parm

  slib_type=lines

!else

  slib_inp=$wims_read_parm

  slib_type=rows

!endif

slib_n=!item 1 of $slib_inp

slib_option=!item 2 of $slib_inp

slib_data=!item 3 to -1 of $slib_inp

slib_r1=!row 1 of $slib_data

slib_N=!itemcnt $slib_r1

!bound $slib_n between integer 1 and $slib_N default 1

slib_key=!column $slib_n of $slib_data

slib_tt=0

!if reverse iswordof $slib_option

  slib_tt=$[$slib_tt+1]

!endif

!if numeric iswordof $slib_option

  slib_tt=$[$slib_tt+2]

!endif

!if nocase iswordof $slib_option

  slib_tt=$[$slib_tt+4]

!endif

!goto sort$slib_tt

:sort0

slib_out=!sort items $slib_key

!goto send

:sort1

slib_out=!sort reverse items $slib_key

!goto send

:sort2

slib_out=!sort numeric items $slib_key

!goto send

:sort3

slib_out=!sort reverse numeric items $slib_key

!goto send

:sort4

slib_out=!sort nocase items $slib_key

!goto send

:sort5

slib_out=!sort reverse nocase items $slib_key

!goto send

:sort6

slib_out=!sort numeric nocase items $slib_key

!goto send

:sort7

slib_out=!sort numeric nocase reverse items $slib_key

:send

slib_out=!row $wims_sort_order of $slib_data

!if $slib_type=lines

  slib_out=!rows2lines $slib_out

!endif