Subversion Repositories wimsdev

Rev

Rev 20 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!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