Rev 4158 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
475 | georgesk | 1 | !! -*- coding: iso-8859-1 -*- |
20 | reyssat | 2 | !if $wims_read_parm!=slib_header |
3 | !goto proc |
||
4 | !endif |
||
4351 | bpr | 5 | slib_author=Georges, Khaznadar |
20 | reyssat | 6 | slib_example=1.2345A,2\ |
7 | 1.2V,5\ |
||
8 | 12,3\ |
||
9 | 12,3,4\ |
||
10 | 0.50A.h\ |
||
475 | georgesk | 11 | 1800C,3,,A.h\ |
12 | 1.8°,5,,rad |
||
3265 | bpr | 13 | slib_require=units-filter |
20 | reyssat | 14 | !exit |
15 | |||
16 | :proc |
||
17 | slib_data=$wims_read_parm |
||
18 | !distribute items $slib_data into slib_qty, slib_sig, slib_order, slib_wanted_unit |
||
19 | |||
20 | !default slib_qty=1m |
||
21 | !default slib_sig=3 |
||
22 | !default slib_order= |
||
23 | !default slib_wanted_unit= |
||
24 | |||
25 | units_option=o |
||
26 | slib_u= !charcnt $slib_wanted_unit |
||
27 | !if $slib_u > 0 |
||
28 | slib_out= !exec units-filter $(slib_qty)#$(slib_sig):$(slib_wanted_unit) |
||
29 | !else |
||
30 | slib_out= !exec units-filter $(slib_qty)#$(slib_sig) |
||
31 | !endif |
||
32 | slib_n= !charcnt $slib_order |
||
33 | !if $slib_n > 0 |
||
34 | slib_test= !eval $slib_out/1e$slib_order |
||
35 | !if $slib_test <> NaN |
||
835 | georgesk | 36 | !if $slib_order <> 0 |
37 | slib_out=$(slib_test)e$slib_order |
||
38 | !else |
||
39 | slib_out=$slib_test |
||
40 | !endif |
||
20 | reyssat | 41 | !endif |
42 | !endif |
||
43 | |||
44 |