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