Subversion Repositories wimsdev

!bound wims_read_parm between integer 0 and $currstep default $currstep

caseline=!line 1 of $allcases

caseline=!translate internal $	$ to $\

$ in $caseline

objtmp=!translate internal $\

$ to $	$ in $objects

casesplit=!nonempty lines $casesplit

splittest=!linecnt $casesplit

casecnt=!linecnt $allcases

!if $splittest<=1

 !if $casecnt<=1

  allcases=$objtmp

  casecnt=1

  thiscase=-

 !else

  allcases=!replace line number $activecase+1 by $objtmp in $allcases

  thiscase=!line $activecase+1 of $caseline

 !endif

 object$wims_read_parm=$allcases

 !exit

!endif

newobject=!line 1 of $casesplit

!if $casecnt>1

 objcases=!line 2 to -1 of $allcases

 objcases=!replace line number $activecase by $objtmp in $objcases

 caseids=!line 2 to -1 of $caseline

 caseid=!line $activecase of $caseids

 thiscase=$caseid

 !if $caseid!=$empty

  caseid=and $caseid

 !endif

 caseids=!replace line number $activecase by $newobject $caseid in $caseids

!else

 activecase=1

 caseids=$newobject

 caseid=

 objcases=$objtmp

 thiscase=-

!endif

!if $goalsplit=yes

 newObject=< $newobject

!else

 newObject=> $newobject

!endif

splitcnt=!linecnt $casesplit

!for i=2 to $splitcnt

 l_=!line $i of $casesplit

 !if $(splitobject$i) != $empty

  o_=!translate internal $\

$ to $	$ in $(splitobject$i)

  objcases=!append line $o_ to $objcases

 !else

  objcases=!append line > $l_	$splitobj to $objcases

 !endif

 caseids=!append line $l_ $caseid to $caseids

!endif

caseid=!line $activecase of $caseids

caseline=!translate internal $\

$ to $	$ in $activecase\

$caseids

allcases=$caseline\

$objcases

object$wims_read_parm=$allcases

casecnt=!linecnt $allcases