Mercurial > repos > tabletprog
comparison modules/string.tp @ 259:32964a4e7a33
Add ltrim method to string
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Thu, 29 May 2014 18:51:15 -0700 |
| parents | 5b830147c1cd |
| children | d6a4c9e7716e |
comparison
equal
deleted
inserted
replaced
| 258:fb922651db29 | 259:32964a4e7a33 |
|---|---|
| 255 self <- from: pos + (delim length) | 255 self <- from: pos + (delim length) |
| 256 } | 256 } |
| 257 pieces append: self | 257 pieces append: self |
| 258 } | 258 } |
| 259 | 259 |
| 260 ltrim <- { | |
| 261 l <- length | |
| 262 start <- 0 | |
| 263 space <- " " byte: 0 | |
| 264 tab <- "\t" byte: 0 | |
| 265 nl <- "\n" byte: 0 | |
| 266 cr <- "\r" byte: 0 | |
| 267 | |
| 268 while: { | |
| 269 if: start < l { | |
| 270 b <- byte: start | |
| 271 b = space || b = tab || b = nl || b = cr | |
| 272 } | |
| 273 } do: { | |
| 274 start <- start + 1 | |
| 275 } | |
| 276 from: start | |
| 277 } | |
| 278 | |
| 260 trim <- { | 279 trim <- { |
| 261 l <- length | 280 l <- length |
| 262 start <- 0 | 281 start <- 0 |
| 263 space <- " " byte: 0 | 282 space <- " " byte: 0 |
| 264 tab <- "\t" byte: 0 | 283 tab <- "\t" byte: 0 |