Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 20 | Rev 16118 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !set n_=$[$wims_read_parm] |
1 | !set n_=$[$wims_read_parm] |
2 | !if $wims_read_parm=$empty or $n_<1 |
2 | !if $wims_read_parm=$empty or $n_<1 |
3 | !set obj=$newobject |
3 | !set obj=$newobject |
4 | !set Obj=$newObject |
4 | !set Obj=$newObject |
5 | !else |
5 | !else |
6 | !set obj=!item $n_+1 of $statusline |
6 | !set obj=!item $n_+1 of $statusline |
7 | !set obj=!char 2 to -2 of $obj |
7 | !set obj=!char 2 to -2 of $obj |
8 | !set Obj=!item $n_+1 of $statusLine |
8 | !set Obj=!item $n_+1 of $statusLine |
9 | !set Obj=!char 2 to -2 of $Obj |
9 | !set Obj=!char 2 to -2 of $Obj |
10 | !endif |
10 | !endif |
11 | 11 | ||
12 | !set a_=!char 1 of $Obj |
12 | !set a_=!char 1 of $Obj |
13 | !distribute items <,>,= into lt,gt,eq |
13 | !distribute items <,>,= into lt,gt,eq |
14 | !reset objisgoal |
14 | !reset objisgoal |
15 | !if $a_ isin $lt$gt |
15 | !if $a_ isin $lt$gt |
16 | !if $a_=$lt |
16 | !if $a_=$lt |
17 | !set objisgoal=yes |
17 | !set objisgoal=yes |
18 | !endif |
18 | !endif |
19 | !endif |
19 | !endif |
20 | 20 | ||
21 | !if |
21 | !if $Obj!=$empty |
22 | ! |
22 | !insmath $Obj |
23 | !else |
23 | !else |
24 | |
24 | |
25 | !endif |
25 | !endif |
26 | - |