Subversion Repositories wimsdev

Rev

Rev 8704 | Details | Compare with Previous | Last modification | View Log | RSS feed

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