Subversion Repositories wimsdev

Rev

Rev 4349 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4349 Rev 13585
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Gang, XIAO
 5 
slib_author=Gang, XIAO
6 
 
 6 
 
7 
!exit
 7 
!exit
8 
 
 8 
 
9 
:proc
 9 
:proc
10 
slib_ltest=!linecnt $wims_read_parm
 10 
slib_ltest=!linecnt $wims_read_parm
11 
!if $slib_ltest>1
 11 
!if $slib_ltest>1
12 
 slib_inp=!lines2rows $wims_read_parm
 12 
  slib_inp=!lines2rows $wims_read_parm
13 
 slib_type=lines
 13 
  slib_type=lines
14 
!else
 14 
!else
15 
 slib_inp=$wims_read_parm
 15 
  slib_inp=$wims_read_parm
16 
 slib_type=rows
 16 
  slib_type=rows
17 
!endif
 17 
!endif
18 
slib_n=!item 1 of $slib_inp
 18 
slib_n=!item 1 of $slib_inp
19 
slib_option=!item 2 of $slib_inp
 19 
slib_option=!item 2 of $slib_inp
20 
slib_data=!item 3 to -1 of $slib_inp
 20 
slib_data=!item 3 to -1 of $slib_inp
21 
slib_r1=!row 1 of $slib_data
 21 
slib_r1=!row 1 of $slib_data
22 
slib_N=!itemcnt $slib_r1
 22 
slib_N=!itemcnt $slib_r1
23 
!bound $slib_n between integer 1 and $slib_N default 1
 23 
!bound $slib_n between integer 1 and $slib_N default 1
24 
slib_key=!column $slib_n of $slib_data
 24 
slib_key=!column $slib_n of $slib_data
25 
slib_tt=0
 25 
slib_tt=0
26 
!if reverse iswordof $slib_option
 26 
!if reverse iswordof $slib_option
27 
 slib_tt=$[$slib_tt+1]
 27 
  slib_tt=$[$slib_tt+1]
28 
!endif
 28 
!endif
29 
!if numeric iswordof $slib_option
 29 
!if numeric iswordof $slib_option
30 
 slib_tt=$[$slib_tt+2]
 30 
  slib_tt=$[$slib_tt+2]
31 
!endif
 31 
!endif
32 
!if nocase iswordof $slib_option
 32 
!if nocase iswordof $slib_option
33 
 slib_tt=$[$slib_tt+4]
 33 
  slib_tt=$[$slib_tt+4]
34 
!endif
 34 
!endif
35 
 
 35 
 
36 
!goto sort$slib_tt
 36 
!goto sort$slib_tt
37 
 
 37 
 
38 
:sort0
 38 
:sort0
39 
 slib_out=!sort items $slib_key
 39 
slib_out=!sort items $slib_key
40 
 !goto send
 40 
!goto send
41 
:sort1
 41 
:sort1
42 
 slib_out=!sort reverse items $slib_key
 42 
slib_out=!sort reverse items $slib_key
43 
 !goto send
 43 
!goto send
44 
:sort2
 44 
:sort2
45 
 slib_out=!sort numeric items $slib_key
 45 
slib_out=!sort numeric items $slib_key
46 
 !goto send
 46 
!goto send
47 
:sort3
 47 
:sort3
48 
 slib_out=!sort reverse numeric items $slib_key
 48 
slib_out=!sort reverse numeric items $slib_key
49 
 !goto send
 49 
!goto send
50 
:sort4
 50 
:sort4
51 
 slib_out=!sort nocase items $slib_key
 51 
slib_out=!sort nocase items $slib_key
52 
 !goto send
 52 
!goto send
53 
:sort5
 53 
:sort5
54 
 slib_out=!sort reverse nocase items $slib_key
 54 
slib_out=!sort reverse nocase items $slib_key
55 
 !goto send
 55 
!goto send
56 
:sort6
 56 
:sort6
57 
 slib_out=!sort numeric nocase items $slib_key
 57 
slib_out=!sort numeric nocase items $slib_key
58 
 !goto send
 58 
!goto send
59 
:sort7
 59 
:sort7
60 
 slib_out=!sort numeric nocase reverse items $slib_key
 60 
slib_out=!sort numeric nocase reverse items $slib_key
61 
 
 61 
 
62 
:send
 62 
:send
63 
slib_out=!row $wims_sort_order of $slib_data
 63 
slib_out=!row $wims_sort_order of $slib_data
64 
!if $slib_type=lines
 64 
!if $slib_type=lines
65 
 slib_out=!rows2lines $slib_out
 65 
  slib_out=!rows2lines $slib_out
66 
!endif
 66 
!endif