Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_title=Sort data according to a column

slib_parms=3\

1,the number of column for sort key\

,option words (accepts <tt>nocase numeric reverse</tt>)\

,2-dimensional data arranged in rows and columns

slib_author=Gang Xiao

slib_out=the sorted data

slib_example= 3,nocase, 3,5,oui;caen, arles,nice;paris,nice,caen\

2,numeric, 3,5,oui;caen, 6,non;paris,1,oui

!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