add .trim, .trim-leading, .trim-trailing

Author: coke

Pugs/Pugs.cabal

@@ -162,7 +162,7 @@ executable pugs
 
     build-depends:
         base >= 4 && < 5, filepath, mtl >= 2.0.0.0, parsec >= 3.0.0.0, network,
-        pretty, time, random, process, containers, bytestring,
+        pretty, time, random, process, containers, bytestring, text,
         array, directory, utf8-string, binary, haskeline >= 0.6.4.7, FindBin,
         control-timeout >= 0.1.2,
 

Pugs/src/Pugs/Prim.hs

@@ -57,6 +57,7 @@ import qualified Data.HashTable as H
 import Data.Time.LocalTime
 import Data.Time.Calendar.OrdinalDate
 import Data.Time.Calendar.MonthDay
+import Data.Text (strip, stripStart, stripEnd, pack, unpack)
 
 constMacro :: Exp -> [Val] -> Eval Val
 constMacro = const . expToEvalVal
@@ -213,6 +214,15 @@ op1 "sort" = \v -> do
 op1 "Scalar::flip" = \v -> do
     str     <- fromVal v
     return (VStr $ reverse str)
+op1 "Scalar::trim" = \v -> do
+    str     <- fromVal v
+    return (VStr $ unpack $ strip $ pack str)
+op1 "Scalar::trim-leading" = \v -> do
+    str     <- fromVal v
+    return (VStr $ unpack $ stripStart $ pack str)
+op1 "Scalar::trim-trailing" = \v -> do
+    str     <- fromVal v
+    return (VStr $ unpack $ stripEnd $ pack str)
 op1 "List::reverse" = \v -> do
     vlist <- fromVal v
     return (VList $ reverse vlist)
@@ -1947,6 +1957,9 @@ initSyms = seq (length syms) $ do
 \\n   List      pre     pair    safe   (List)\
 \\n   Scalar    pre     item    safe   (Scalar)\
 \\n   Str       pre     Scalar::flip safe   (Scalar)\
+\\n   Str       pre     Scalar::trim safe   (Scalar)\
+\\n   Str       pre     Scalar::trim-leading safe   (Scalar)\
+\\n   Str       pre     Scalar::trim-trailing safe   (Scalar)\
 \\n   Any       pre     List::reverse safe   (Array)\
 \\n   Any       pre     reverse safe   (Scalar, List)\
 \\n   Any       pre     reverse safe   ()\

t/spectest.data

@@ -379,7 +379,7 @@ S32-str/pos.t
 S32-str/quotemeta.t
 S32-str/rindex.t
 S32-str/substr.t
-# S32-str/trim.t # trim NYI
+S32-str/trim.t
 S32-str/ucfirst.t
 S32-str/uc.t
 # S32-temporal/calendar.t # NYI