Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 16204
Line 8... Line 8...
8 
 
 8 
 
9 
casesplit=!nonempty lines $casesplit
 9 
casesplit=!nonempty lines $casesplit
10 
splittest=!linecnt $casesplit
 10 
splittest=!linecnt $casesplit
11 
casecnt=!linecnt $allcases
 11 
casecnt=!linecnt $allcases
12 
!if $splittest<=1
 12 
!if $splittest<=1
13 
 !if $casecnt<=1
 13 
  !if $casecnt<=1
14 
  allcases=$objtmp
 14 
    allcases=$objtmp
15 
  casecnt=1
 15 
    casecnt=1
16 
  thiscase=-
 16 
    thiscase=-
17 
 !else
 17 
  !else
18 
  allcases=!replace line number $activecase+1 by $objtmp in $allcases
 18 
    allcases=!replace line number $activecase+1 by $objtmp in $allcases
19 
  thiscase=!line $activecase+1 of $caseline
 19 
    thiscase=!line $activecase+1 of $caseline
20 
 !endif
 20 
  !endif
21 
 object$wims_read_parm=$allcases
 21 
  object$wims_read_parm=$allcases
22 
 !exit
 22 
  !exit
23 
!endif
 23 
!endif
24 
 
 24 
 
25 
newobject=!line 1 of $casesplit
 25 
newobject=!line 1 of $casesplit
26 
!if $casecnt>1
 26 
!if $casecnt>1
27 
 objcases=!line 2 to -1 of $allcases
 27 
  objcases=!line 2 to -1 of $allcases
28 
 objcases=!replace line number $activecase by $objtmp in $objcases
 28 
  objcases=!replace line number $activecase by $objtmp in $objcases
29 
 caseids=!line 2 to -1 of $caseline
 29 
  caseids=!line 2 to -1 of $caseline
30 
 caseid=!line $activecase of $caseids
 30 
  caseid=!line $activecase of $caseids
31 
 thiscase=$caseid
 31 
  thiscase=$caseid
32 
 !if $caseid!=$empty
 32 
  !if $caseid!=$empty
33 
  caseid=and $caseid
 33 
    caseid=and $caseid
34 
 !endif
 34 
  !endif
35 
 caseids=!replace line number $activecase by $newobject $caseid in $caseids
 35 
  caseids=!replace line number $activecase by $newobject $caseid in $caseids
36 
!else
 36 
!else
37 
 activecase=1
 37 
  activecase=1
38 
 caseids=$newobject
 38 
  caseids=$newobject
39 
 caseid=
 39 
  caseid=
40 
 objcases=$objtmp
 40 
  objcases=$objtmp
41 
 thiscase=-
 41 
  thiscase=-
42 
!endif
 42 
!endif
43 
 
 43 
 
44 
!if $goalsplit=yes
 44 
!if $goalsplit=yes
45 
 newObject=< $newobject
 45 
  newObject=< $newobject
46 
!else
 46 
!else
47 
 newObject=> $newobject
 47 
  newObject=> $newobject
48 
!endif
 48 
!endif
49 
 
 49 
 
50 
splitcnt=!linecnt $casesplit
 50 
splitcnt=!linecnt $casesplit
51 
!for i=2 to $splitcnt
 51 
!for i=2 to $splitcnt
52 
 l_=!line $i of $casesplit
 52 
  l_=!line $i of $casesplit
53 
 !if $(splitobject$i) != $empty
 53 
  !if $(splitobject$i) != $empty
54 
  o_=!translate internal $\
 54 
   o_=!translate internal $\
55 
$ to $	$ in $(splitobject$i)
 55 
$ to $	$ in $(splitobject$i)
56 
  objcases=!append line $o_ to $objcases
 56 
    objcases=!append line $o_ to $objcases
57 
 !else
 57 
  !else
58 
  objcases=!append line > $l_	$splitobj to $objcases
 58 
    objcases=!append line > $l_	$splitobj to $objcases
59 
 !endif
 59 
  !endif
60 
 caseids=!append line $l_ $caseid to $caseids
 60 
  caseids=!append line $l_ $caseid to $caseids
61 
!endif
 61 
!endif
62 
 
 62 
 
63 
caseid=!line $activecase of $caseids
 63 
caseid=!line $activecase of $caseids
64 
caseline=!translate internal $\
 64 
caseline=!translate internal $\
65 
$ to $	$ in $activecase\
 65 
$ to $	$ in $activecase\
66 
$caseids
 66 
$caseids
67 
 
 67 
 
68 
allcases=$caseline\
 68 
allcases=$caseline\
69 
$objcases
 69 
$objcases
70 
object$wims_read_parm=$allcases
 70 
object$wims_read_parm=$allcases
71 
casecnt=!linecnt $allcases
 71 
casecnt=!linecnt $allcases
72 
 
 -