Rev 4701 | Rev 13585 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4701 | Rev 7692 | ||
|---|---|---|---|
| Line 37... | Line 37... | ||
| 37 | slib_nbgrp=$[floor($slib_nbchi/3)] |
37 | slib_nbgrp=$[floor($slib_nbchi/3)] |
| 38 | slib_out=$empty |
38 | slib_out=$empty |
| 39 | !ifval $slib_nbgrp*3!=$slib_nbchi |
39 | !ifval $slib_nbgrp*3!=$slib_nbchi |
| 40 | slib_out=!char 1 to $[$slib_nbchi-3*$slib_nbgrp] of $slib_part |
40 | slib_out=!char 1 to $[$slib_nbchi-3*$slib_nbgrp] of $slib_part |
| 41 | !endif |
41 | !endif |
| 42 | !for slib_i=0 to $slib_nbgrp-1 |
42 | !for slib_i=0 to $slib_nbgrp-1 |
| 43 | slib_tmp=!char $[$slib_nbchi-3*($slib_nbgrp-$slib_i)+1] to $[$slib_nbchi-3*($slib_nbgrp-$slib_i-1)] of $slib_part |
43 | slib_tmp=!char $[$slib_nbchi-3*($slib_nbgrp-$slib_i)+1] to $[$slib_nbchi-3*($slib_nbgrp-$slib_i-1)] of $slib_part |
| 44 | slib_out=$slib_out $slib_tmp |
44 | slib_out=$slib_out $slib_tmp |
| 45 | !next slib_i |
45 | !next slib_i |
| 46 | 46 | ||
| 47 | slib_tst=!itemcnt $slib_decomp |
47 | slib_tst=!itemcnt $slib_decomp |
| Line 52... | Line 52... | ||
| 52 | slib_part=!item 2 of $slib_decomp |
52 | slib_part=!item 2 of $slib_decomp |
| 53 | slib_nbchi=!charcnt $slib_part |
53 | slib_nbchi=!charcnt $slib_part |
| 54 | slib_nbgrp=$[ceil($slib_nbchi/3)] |
54 | slib_nbgrp=$[ceil($slib_nbchi/3)] |
| 55 | slib_tmp=!char 1 to 3 of $slib_part |
55 | slib_tmp=!char 1 to 3 of $slib_part |
| 56 | slib_out=$(slib_out)$slib_point$slib_tmp |
56 | slib_out=$(slib_out)$slib_point$slib_tmp |
| 57 | !for slib_i=1 to $slib_nbgrp |
57 | !for slib_i=1 to $slib_nbgrp |
| 58 | slib_tmp=!char $[1+3*($slib_i)] to $[3+3*$slib_i] of $slib_part |
58 | slib_tmp=!char $[1+3*($slib_i)] to $[3+3*$slib_i] of $slib_part |
| 59 | slib_out=$slib_out $slib_tmp |
59 | slib_out=$slib_out $slib_tmp |
| 60 | !next slib_i |
60 | !next slib_i |
| 61 | 61 | ||
| 62 | slib_out=!singlespace $slib_out |
62 | slib_out=!singlespace $slib_out |