repos/tabletprog: modules/string.tp comparison

Add splitOn and partitionOn to string objects

author	Mike Pavone <pavone@retrodev.com>
date	Fri, 09 Aug 2013 20:12:04 -0700
parents	3e9cb69e516d
children	6e579a75a0a9

comparison

equal deleted inserted replaced

-:3e9cb69e516d
+:a6739206a9e3
 	from <- :start {
 		from: start withLength: length
 	}
+	partitionOn <- :delim {
+		pos <- find: delim else: { -1 }
+		if: pos >= 0 {
+			_before <- from: 0 withLength: pos
+			_after <- from: (pos + (delim length))
+			#{
+				before <- _before
+				after <- _after
+			}
+		} else: {
+			_before <- self
+			#{
+				before <- _before
+				after <- ""
+			}
+		}
+	}
+	splitOn <- :delim {
+		pos <- 0
+		pieces <- #[]
+		while: {
+			pos <- find: delim else: { -1 }
+			pos >= 0
+		} do: {
+			pieces append: (from: 0 withLength: pos)
+			self <- from: pos + (delim length)
+		}
+		pieces append: self
+	}
 	isInteger? <- { false }
 }

Mercurial > repos > tabletprog