Initial commit

Author: garyb

.gitignore

@@ -0,0 +1,4 @@
+/js/
+/externs/
+/node_modules/
+/bower_components/

LICENSE

@@ -0,0 +1,20 @@
+The MIT License (MIT)
+
+Copyright (c) 2014 PureScript
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

bower.json

@@ -0,0 +1,18 @@
+{
+  "name": "purescript-strings",
+  "version": "0.0.0",
+  "homepage": "https://github.com/purescript/purescript-strings",
+  "description": "String utility functions and regular expressions",
+  "keywords": [
+    "purescript"
+  ],
+  "license": "MIT",
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "examples",
+    "externs",
+    "js"
+  ]
+}

src/Data/String.purs

@@ -0,0 +1,92 @@
+module Data.String where
+
+foreign import lengthS
+  "function lengthS(s) {\
+  \  return s.length;\
+  \}" :: String -> Number
+
+foreign import charAt
+  "function charAt(i) {\
+  \  return function(s) {\
+  \    return s.charAt(i); \
+  \  };\
+  \}" :: Number -> String -> String
+
+foreign import indexOfS
+  "function indexOfS(s1) {\
+  \  return function(s2) {\
+  \    return s1.indexOf(s2);\
+  \  }; \
+  \}" :: String -> String -> Number
+
+foreign import lastIndexOfS
+  "function lastIndexOfS(s1) {\
+  \  return function(s2) {\
+  \    return s1.lastIndexOf(s2);\
+  \  };\
+  \}" :: String -> String -> Number
+
+foreign import localeCompare
+  "function localeCompare(s1) {\
+  \  return function(s2) {\
+  \    return s1.localeCompare(s2);\
+  \  };\
+  \}" :: String -> String -> Number
+
+foreign import replace
+  "function replace(s1) {\
+  \  return function(s2) {\
+  \    return function(s3) {\
+  \      return s3.replace(s1, s2);\
+  \    };\
+  \  };\
+  \}" :: String -> String -> String -> String
+
+foreign import sliceS
+  "function sliceS(st) {\
+  \  return function(e) {\
+  \    return function(s) {\
+  \      return s.slice(st, e);\
+  \    };\
+  \  };\
+  \}" :: Number -> Number -> String -> String
+
+foreign import split
+  "function split(sep) {\
+  \  return function(s) {\
+  \    return s.split(sep);\
+  \  };\
+  \}" :: String -> String -> [String]
+
+foreign import substr
+  "function substr(n1) {\
+  \  return function(n2) {\
+  \    return function(s) {\
+  \      return s.substr(n1, n2);\
+  \    };\
+  \  };\
+  \}" :: Number -> Number -> String -> String
+
+foreign import substring
+  "function substring(n1) {\
+  \  return function(n2) {\
+  \    return function(s) {\
+  \      return s.substring(n1, n2);\
+  \    };\
+  \  };\
+  \}" :: Number -> Number -> String -> String
+
+foreign import toLower
+  "function toLower(s) {\
+  \  return s.toLowerCase();\
+  \}" :: String -> String
+
+foreign import toUpper
+  "function toUpper(s) {\
+  \  return s.toUpperCase();\
+  \}" :: String -> String
+
+foreign import trim
+  "function trim(s) {\
+  \  return s.trim();\
+  \}" :: String -> String

src/Data/String/Regex.purs

@@ -0,0 +1,40 @@
+module Data.String.Regex where
+
+foreign import data Regex :: *
+
+foreign import regex
+  "function regex(s1) {\
+  \  return function(s2) {\
+  \    return new Regex(s1, s2);\
+  \  };\
+  \}" :: String -> String -> Regex
+
+foreign import test
+  "function test(r) {\
+  \  return function (s) {\
+  \    return r.test(s);\
+  \  };\
+  \}" :: Regex -> String -> Boolean
+
+foreign import match
+  "function match(r) {\
+  \  return function (s) {\
+  \    return s.match(r); \
+  \  };\
+  \}" :: Regex -> String -> [String]
+
+foreign import replaceR
+  "function replaceR(r) {\
+  \  return function(s1) {\
+  \    return function(s2) {\
+  \      return s2.replace(r, s1);\
+  \    };\
+  \  };\
+  \}" :: Regex -> String -> String -> String
+
+foreign import search
+  "function search(r) {\
+  \  return function (s) {\
+  \    return s.search(r);\
+  \  };\
+  \}" :: Regex -> String -> Number