Subversion Repositories wimsdev

Rev

Rev 7354 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7354 Rev 8704
Line 1... Line 1...
1 
!!! input:url_to_analyse name_of_parameters_asked
 1 
!!! input:url_to_analyse name_of_parameters_asked
2 
!!! output: the variable contained in name_of_parameters_asked (prefixed by get_  to prevent incompatibility)
 2 
!!! output: the variable contained in name_of_parameters_asked (prefixed by get_  to prevent incompatibility)
- 
 
 3 
 
3 
!set parmtoread=!singlespace $wims_read_parm
 4 
!set parmtoread=!singlespace $wims_read_parm
4 
!set parmtoread=!words2items $parmtoread
 5 
!set parmtoread=!words2items $parmtoread
5 
!set parmtoread=!nonempty items $parmtoread
 6 
!set parmtoread=!nonempty items $parmtoread
6 
!set url=$(parmtoread[1])
 7 
!set url=$(parmtoread[1])
7 
!set parmtoread=$(parmtoread[2..-1])
 8 
!set parmtoread=$(parmtoread[2..-1])
8 
 
 9 
 
9 
!for gp in $parmtoread
 - 
 
10 
 
 - 
 
11 
  !set testw=!replace internal & by $\
 10 
!set testw=!replace internal & by $\
12 
$ in $url
 11 
$ in $url
13 
  !set testw=!replace internal = by , in $testw
 12 
!set testw=!replace internal = by , in $testw
- 
 
 13 
!for gp in $parmtoread
14 
  !set testw=!select $testw where column 1=$gp
 14 
  !set testw0=!select $testw where column 1=$gp
15 
  !set get_$gp=!nospace $(testw[;2])
 15 
  !set get_$gp=!nospace $(testw0[;2..-1])
16 
!next
 16 
!next
- 
 
 17