repos/tabletprog: modules/string.tp comparison

Partial implementation of HTTP get requests

author	Mike Pavone <pavone@retrodev.com>
date	Sat, 10 Aug 2013 15:06:56 -0700
parents	6e579a75a0a9
children	38140b7dbe3d

comparison

equal deleted inserted replaced

-:d6e79885bd3b
+:55e0dca7d3d7
 			self <- from: pos + (delim length)
 		}
 		pieces append: self
 	}
+	trim <- {
+		l <- length
+		start <- 0
+		space <- " " byte: 0
+		tab <- "\t" byte: 0
+		nl <- "\n" byte: 0
+		cr <- "\r" byte: 0
+		while: {
+			if: start < l {
+				b <- byte: start
+				b = space || b = tab || b = nl || b = cr
+			}
+		} do: {
+			start <- start + 1
+		}
+		end <- l
+		while: {
+			if: end > 0 {
+				b <- byte: end
+				b = space || b = tab || b = nl || b = cr
+			}
+		} do: {
+			end <- end + 1
+		}
+		from: start withLength: (end - start)
+	}
 	isInteger? <- { false }
 	isString? <- { true }
 }

Mercurial > repos > tabletprog